; TSX-Plus MACRO's for GTSC 306A/307 routines
; ===========================================
; Map I/O page to user program...
.MACRO MAPIOP AREA
.IF NB
.IF DIF ,R0
MOV AREA,R0
.ENDC
MOV #^O140*^O400+5,(R0)
.ENDC
EMT ^O375
.ENDM
; Determine the TSX-Plus line number...
.MACRO TSXLN AREA
.IF NB
.IF DIF ,R0
MOV AREA,R0
.ENDC
MOV #^O110*^O400,(R0)
.ENDC
EMT ^O375
.ENDM