165000 012737 ; MOV #-1,@#706 165002 177777 ; 165004 000706 ; 165006 000405 ; BR 165022 165010 005037 ; CLR @#706 165012 000706 ; 165014 000402 ; BR 165022 165016 000240 ; NOP 165020 000773 ; BR 165010 165022 010037 ; MOV R0,@#700 165024 000700 ; 165026 010137 ; MOV R1,@#702 165030 000702 ; 165032 010437 ; MOV R4,@#704 165034 000704 ; 165036 012737 ; MOV #165676,@#4 165040 165676 ; 165042 000004 ; 165044 012737 ; MOV #340,@#6 165046 000340 ; 165050 000006 ; 165052 012737 ; MOV #165736,@#30 165054 165736 ; 165056 000030 ; 165060 012737 ; MOV #340,@#32 165062 000340 ; 165064 000032 ; 165066 000401 ; BR 165072 165070 000777 ; BR 165070 ;BR TO SELF 165072 005006 ; CLR SP 165074 100404 ; BMI 165106 165076 102403 ; BVS 165106 165100 101002 ; BHI 165106 165102 002401 ; BLT 165106 165104 101401 ; BHI 165110 165106 000777 ; BR 165106 ;BR TO SELF 165110 005306 ; DEC SP 165112 100003 ; BPL 165127 165114 001402 ; BEQ 165122 165116 002001 ; BGE 165122 165120 003401 ; BLE 165124 165122 000777 ; BR 165122 ;BR TO SELF 165124 006006 ; ROR SP 165126 102002 ; BVS 165134 165130 103001 ; BCC 165134 165132 001001 ; BNE 165136 165134 000777 ; BR 165134 ;BR TO SELF 165136 012706 ; MOV #125252,SP 165140 125252 ; 165142 000402 ; BR 165150 165144 000000 ; HALT 165146 000776 ; BR 165146 ;BR TO SELF 165150 010600 ; MOV SP,R0 165152 010001 ; MOV R0,R1 165154 010102 ; MOV R1,R2 165156 010203 ; MOV R2,R3 165160 010304 ; MOV R3,R4 165162 010405 ; MOV R4,R5 165164 160501 ; SUB R5,R1 165166 002401 ; BLT 165172 165170 001401 ; BEQ 165174 165172 000777 ; BR 165172 ;BR TO SELF 165174 006102 ; ROL R2 165176 103001 ; BCC 165202 165200 002401 ; BLT 165204 165202 000777 ; BR 165202 ;BR TO SELF 165204 060203 ; ADD R2,R3 165206 005203 ; INC R3 165210 005103 ; COM R3 165212 060301 ; ADD R3,R1 165214 103401 ; BCS 165220 165216 003401 ; BLE 165224 165220 000777 ; BR 165220 ;BR TO SELF 165222 006004 ; ROR R4 165224 050403 ; BIS R4,R3 165226 060503 ; ADD R5,R3 165230 005203 ; INC R3 165232 103402 ; BCS 165240 165234 005301 ; DEC R1 165236 002401 ; BLT 165242 165240 000777 ; BR 165240 ;BR TO SELF 165242 005100 ; COM R0 165244 101401 ; BLOS 165250 165246 000777 ; BR 165246 ;BR TO SELF 165250 040001 ; BIC R0,R1 165252 060101 ; ADD R1,R1 165254 003001 ; BGE 165260 165256 003401 ; BLE 165262 165260 000777 ; BR 165260 ;BR TO SELF 165262 000301 ; SWAB R1 165264 020127 ; BGE 165544 165266 052125 ; BIS (R1),(R5) 165270 001004 ; BNE 165302 165272 030405 ; BIT R4,R5 165274 003002 ; BGT 165302 165276 005105 ; COM R5 165300 001001 ; BNE 165304 165302 000777 ; BR 165302 ;BR TO SELF 165304 112700 ; MOVB #177401,R0 165306 177401 ; 165310 100001 ; BPL 165314 165312 000777 ; BR 165312 ;BR TO SELF 165314 077002 ; SOB R0,165312 165316 005001 ; CLR R1 165320 005201 ; INC R1 165322 077002 ; SOB R0,165320 165324 005700 ; TST R0 165326 001002 ; BNE 165344 165330 005701 ; TST R1 165332 001401 ; BEQ 165336 165334 000777 ; BR 165334 ;BR TO SELF 165336 012706 ; MOV #776,R6 165340 000776 ; 165342 004767 ; JSR PC,2 165344 000002 ; 165346 000777 ; BR 165346 ;BR TO SELF 165350 022716 ; CMP #165346,(SP) 165352 165346 ; 165354 001401 ; BEQ 165360 165356 000777 ; BR 165356 ;BR TO SELF 165360 012716 ; MOV #165370,(SP) 165362 165370 ; 165364 000207 ; RTS PC 165366 000777 ; BR 165364 ;BR TO SELF 165370 005046 ; CLR -(SP) 165372 012746 ; MOV #165402,-(SP) 165374 165402 ; 165376 000002 ; RTI 165400 000777 ; BR 165400 ;BR TO SELF 165402 000137 ; JMP @#165410 165404 165410 ; 165406 000777 ; BR 165406 ;BR TO SELF 165410 012705 ; MOV #160000,R5 165412 160000 ; 165414 005037 ; CLR @#6 165416 000006 ; 165420 012737 ; MOV #165426,@#4 165422 165426 ; 165424 000004 ; 165426 012706 ; MOV #776,SP 165430 000776 ; 165432 005745 ; TST -(R5) 165434 012703 ; MOV #17746,R3 165436 177746 ; 165440 012737 ; MOV #165466,-(SP) 165442 165466 ; 165444 000004 ; IOT 165446 012713 ; MOV #1015,(R3) 165450 001015 ; 165452 012737 ; MOV #165662,@#114 165454 165662 ; 165456 000114 ; 165460 005037 ; CLR @#116 165462 000116 ; 165464 000403 ; BR 165474 165466 012737 ; MOV #165676,@#4 165470 165676 ; 165472 000004 ; 165474 012702 ; MOV #1000,R2 165476 001000 ; 165500 010200 ; MOV R2,R0 165502 010010 ; MOV R0,R1 165504 005720 ; TST (R0) 165506 020005 ; CMP R0,R5 165510 101774 ; BLOS 165502 165512 010200 ; MOV R2,R0 165514 011001 ; MOV (R0),R1 165516 020001 ; CMP R0,R1 165520 001402 ; BEQ 165526 165522 104000 ; EMT 0 165524 000000 ; HALT 165526 005120 ; COM (R0)+ 165530 020005 ; CMP R0,R5 165532 101770 ; BLOS 165514 165534 014001 ; MOV -(R0),R1 165536 005101 ; COM R1 165540 020001 ; CMP R0,R1 165542 001402 ; BEQ 165550 165544 104000 ; EMT 0 165546 000000 ; HALT 165550 020002 ; CMP R0,R2 165552 001370 ; BNE 165534 165554 012737 ; MOV #165704,@#4 165556 165704 ; 165560 000004 ; 165562 000402 ; BR 165570 165564 000167 ; JMP 165000 165566 177210 ; 165570 005013 ; CLR (R3) 165572 012737 ; MOV #165676,@#4 165574 165676 ; 165576 000004 ; 165600 012702 ; MOV #1000,R2 165602 001000 ; 165604 010200 ; MOV R2,R0 165606 010010 ; MOV R0,(R0) 165610 005720 ; TST (R0)+ 165612 020005 ; CMP R0,R5 165614 101774 ; BLOS 165604 165616 010200 ; MOV R2,R0 165620 005110 ; COM (R0) 165622 005110 ; COM (R0) 165624 021000 ; CMP (R0),R0 165626 001402 ; BEQ 165634 165630 104000 ; EMT 0 165632 000000 ; HALT 165634 005720 ; TST (R0)+ 165636 032737 ; BIT #400,@#177750 165640 000400 ; 165642 177750 ; 165644 001403 ; BEQ 165654 165646 104000 ; EMT 0 165650 000000 ; HALT 165652 000406 ; BR 165670 165654 020005 ; CMP R0,R5 165656 101760 ; BLOS 165620 165660 000411 ; BR 165704 165662 104000 ; EMT 0 165664 000000 ; HALT 165666 000776 ; BR 165644 165670 012713 ; MOV #1015,(R3) 165672 001015 ; 165674 000403 ; BR 165704 165676 104000 ; EMT 0 165700 000000 ; HALT 165702 000776 ; BR 165702 ;BR TO SELF 165704 005737 ; TST @#706 165706 000706 ; 165710 001002 ; BNE 165716 165712 000000 ; HALT 165714 000776 ; BR 165714 ;BR TO SELF 165716 013700 ; MOV @#700,R0 165720 000700 ; 165722 013701 ; MOV @#702,R1 165724 000702 ; 165726 013704 ; MOV @#704,R4 165730 000704 ; 165732 000164 ; JMP 2(R4) 165734 000002 ; 165736 012704 ; MOV #165762,R4 165740 165762 ; 165742 105737 ; TSTB @#177564 ;WAIT FOR XMIT RDY 165744 177564 ; 165746 100375 ; BPL 165742 165750 112437 ; MOVB (R4),@#177566 ;OUTPUT CHARACTER 165752 177566 ; 165754 105714 ; TSTB (R4) ;END OF MESSAGE ? 165756 001371 ; BNE 165742 ;BR IF NOT 165760 000002 ; RTI 165762 005015 ; .BYTE 15,12 ;CR-LF 165764 051105 ; .ASCII /ER/ 165766 047522 ; .ASCII /RO/ 165770 000122 ; .ASCIZ /R/ 165772 000000 ; .WORD 0 165774 041460 ; .WORD 041460 165776 124140 ; .WORD 124140