File: TEST.PA of Disk: Disks/Build-2007/Copy-of-m8-rka0-rkb0
(Source file text)
DEVC=52 DCDIAB=DEVC^10 DBDI= 6000+DCDIAB /DISABLE INTERRUPTS DBEI= 6001+DCDIAB /ENABLE INTERRUPTS DBSK= 6002+DCDIAB /SKIP ON INPUT FLAG DBCI= 6003+DCDIAB /AC CLEAR INPUT DBRI= 6004+DCDIAB /READ INPUT REGISTER DBCO= 6005+DCDIAB /AC CLEAR OUTPUT DBSO= 6006+DCDIAB /AC SET OUTPUT DBRO= 6007+DCDIAB /AC READ OUTPUT *200 HLT LOOP, LAS CLA AND (377 DBCO /PUT CHAR IN DBL BUFFER CMA AND (377 DBSO CLA STL RAR DBSO /SET STROBE DBCO /CLEAR STROBE DBSK JMP .-1 /WAIT FOR FLAG DBRI DBCI JMP LOOP /NO $