.MCALL .MTGET,.MTSET,.MTATCH,.MTDTCH,.MTIN,.MTOUT,.TTINR .MCALL .PRINT,.EXIT,.TTOUT ; ; BIT6=100 BIT11=4000 BIT612=10100 ; ; CR=215 LF=12 L=274 ; ; JSW=44 ; ; START: BIS #BIT612,@#JSW ;ENABLE CONSOLE TO RETURN IF NO INPUT, NO ECHO .MTATCH #EMTAREA1,#0,#1 ;ENABLE TT1 TO RETURN IF NO INPUT, NO ECHO .MTGET #EMTAREA,#STAREA,#1 BIS #BIT612,STAREA .MTSET #EMTAREA,#STAREA,#1 TSTCON: .TTINR ;TEST FOR LINE FROM CONSOLE BCS TSTKIM ;BRANCH IF NO INPUT LINE BISB #200,R0 MOVB R0,KEYBOARD ;SEND CHARACTER TO KIM CMPB R0,#CR BNE NOCR ;DELETE LINEFEED FOLLOWING CR .TTINR NOCR: .MTOUT #EMTAREA,#KEYBOARD,#1,#1 ;SEND 1 CHARACTER TO TT1 TSTKIM: .MTIN #EMTAREA,#INBUF1,#1,#1 ;LOOK FOR INPUT BCS TSTCON MOVB INBUF1,R0 BISB #200,R0 .TTOUT CMPB R0,#CR BNE TSTCON .MTIN #EMTAREA,#INBUF1,#1,#1 ;GET RID OF LINE FEED BR TSTCON .EXIT EMTAREA: .BLKW 5 ; FILNAM: .RAD50 /DK M650X LDA/ ERROR: .ASCIZ /FILE DK:M650X.LDA NOT AVAILABLE FOR OUTPUT/ ; .EVEN STAREA: .BLKW 4 ; INBUF1: .BLKW 51 KEYBOARD: .BLKW 51 ; .END START