mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
26 lines
640 B
Plaintext
26 lines
640 B
Plaintext
; MACRO LIBRARY FOR SIMPLE I/O
|
||
BDOS EQU 0005H ;BDOS ENTRY
|
||
CONIN EQU 1 ;CONSOLE INPUT FUNCTION
|
||
MSGOUT EQU 9 ;PRINT MESSAGE TIL $
|
||
CR EQU 0DH ;CARRIAGE RETURN
|
||
LF EQU 0AH ;LINE FEED
|
||
;
|
||
READ MACRO VAR
|
||
;; READ A SINGLE CHARACTER INTO VAR
|
||
MVI C,CONIN ;CONSOLE INPUT FUNCTION
|
||
CALL BDOS ;CHARACTER IS IN A
|
||
STA VAR
|
||
ENDM
|
||
;
|
||
WRITE MACRO MSG
|
||
;; WRITE MESSAGE TO CONSOLE
|
||
LOCAL MSGL,PMSG
|
||
JMP PMSG
|
||
MSGL: DB CR,LF ;;LEADING CRLF
|
||
DB '&MSG' ;;INLINE MESSAGE
|
||
DB '$' ;;MESSAGE TERMINATOR
|
||
PMSG: MVI C,MSGOUT ;;PRINT MESSAGE TIL $
|
||
LXI D,MSGL
|
||
CALL BDOS
|
||
ENDM
|
||
|