Browse Source

Create ctcstub.asm

pull/60/head
b1ackmai1er 6 years ago
parent
commit
e2f066492f
  1. 20
      Source/HBIOS/ctcstub.asm

20
Source/HBIOS/ctcstub.asm

@ -0,0 +1,20 @@
;___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
Loading…
Cancel
Save