; 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