mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
606 B
20 lines
606 B
;___CTC________________________________________________________________________________________________________________
|
|
;
|
|
; Z80 CTC STUB
|
|
;
|
|
; DISPLAY CONFIGURATION DETAILS
|
|
;______________________________________________________________________________________________________________________
|
|
;
|
|
CTC_INIT: ; MINIMAL INIT
|
|
CTC_PRTCFG:
|
|
; ANNOUNCE PORT
|
|
CALL NEWLINE ; FORMATTING
|
|
PRTS("CTC$") ; FORMATTING
|
|
; LD A,(IY) ; DEVICE NUM
|
|
; CALL PRTDECB ; PRINT DEVICE NUM
|
|
PRTS(": IO=0x$") ; FORMATTING
|
|
LD A,CTCBASE ; GET BASE PORT
|
|
CALL PRTHEXBYTE ; PRINT BASE PORT
|
|
;
|
|
XOR A
|
|
RET
|
|
|