; ; VUMETRE HORIZONTAL v1.0 - (c) EPSILON 1994 ; ; CALL VUMHORIZ (A PLACER EN BOUCLE) ; ORG #A000 ; ENT $ ; ADRECR1 EQU #C000 ADRECR2 EQU #D000 ADRECR3 EQU #E000 ; VUMHORIZ LD A,8 CALL TESTVOIX LD HL,ADRECR1 CALL AFVUM ; LD A,9 CALL TESTVOIX LD HL,ADRECR2 CALL AFVUM ; LD A,10 CALL TESTVOIX LD HL,ADRECR3 CALL AFVUM RET ; AFVUM LD D,H LD E,L LD B,16 EFF INC HL LD (HL),0 DJNZ EFF ; LD H,D LD L,E AFF OR A RET Z LD (HL),#F0 INC HL DEC A JP AFF ; TESTVOIX LD BC,#F400 OUT (C),A LD BC,#F6C0 OUT (C),C LD BC,#F600 OUT (C),C LD BC,#F792 OUT (C),C LD BC,#F640 OUT (C),C LD BC,#F400 IN A,(C) LD BC,#F782 OUT (C),C LD BC,#F600 OUT (C),C AND 15 RET ; ; THE END... ;

; ; RSX v1.0 - (c) EPSILON 1994 ; ; |MODE,valeur ; |PRINT,x,y,charactere ; ORG #A000 ; ENT $ ; LD HL,BUFFER LD BC,RSXNOW JP #BCD1 ; RSXNOW DW TABNAMES ; JP RSX1 JP RSX2 ; TABNAMES DM MOD DB #80+"E" ; DM PRIN DB #80+"T" ; BUFFER DS 4 ; RSX1 LD A,(IX+00) CALL #BC0E RET ; RSX2 LD H,(IX+04) LD L,(IX+02) CALL #BB75 LD A,(IX+00) CALL #BB5A RET ; ; THE END... ;