NOTICE TEXTE n° 1 (786 o)
;
; 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...
;
NOTICE TEXTE n° 2 (442 o)
;
; 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...
;