F4-IOS

* NAME: F4-IOS DOC 41285251000 REV C PAGE 10

0451 * 0452 * INPUT RETURN PROCEDURES 0453 00117 0 02 00514 IRET LDA LINE INPUT RETURN PROCEDURES 0454 00120 0 06 00656 ADD =1 INCREMENT LINE COUNT 0455 00121 140100 SSP MAXIMUM LINE COUNT 32767 0456 00122 0 04 00514 STA LINE STORE LINE COUNT 0457 00123 -0 02 00517 LDA* WORK FIRST WORD OF BUFFER 0458 00124 0400 70 LRL 8 GET FIRST CHARACTER 0459 00125 0 07 00654 SUB ='244 DOLLAR 0460 00126 100040 SZE IF DOLLAR 0461 00127 0 01 00132 JMP *+3 NOT END OF FILE 0462 00130 0 02 00655 LDA ='122260 $0 0463 00131 -0 04 00517 STA* WORK TO FIRST BUFFER WORD 0464 00132 0 12 00030 IRS IN SET RETURN ADDRESS 0465 00133 -0 01 00030 JMP* IN RETURN 0466 * 0467 * 0468 * BINARY OUTPUT 0469 * 0470 00134 0 000000 OUT DAC ** RETURN ADDRESS 0471 00135 0 04 00516 STA BUFF LAST WORD LOCATION OUTPUT BUFFER(INDEXED)+1 0472 00136 0 02 00000 LDA 0 LOAD INDEX 0473 00137 140407 TCA TWO'S COMPLEMENT 0474 00140 0 04 00525 STA OBUF STORE NO WORDS TO BE OUTPUT 0475 00141 0 04 00176 STA OMAG+2 0476 00142 0 06 00523 ADD OBAD ADD WORD BUFFER START ADDRESS 0477 00143 0 06 00652 ADD ='40001 ADD ONE AND INDEX 0478 00144 0 04 00517 STA WORK STORE IN WORKING LOCATION 0479 00145 -0 02 00516 OBNW LDA* BUFF TRANSFER TO OUTPUT BUFFER 0480 00146 -0 04 00517 STA* WORK -WORDS TO BE OUTPUT 0481 00147 0 12 00000 IRS 0 TEST LAST WORD 0482 00150 0 01 00145 JMP OBNW NEXT WORD 0483 00151 0 02 00511 OUTD LDA OPUT 0484 00152 0 10 00464 JST SW DEVICE SWITCH 0485 00153 -0 01 00134 JMP* OUT NO OUTPUT 0486 00154 0 01 00166 JMP OPTP OUTPUT - PAPERTAPE PUNCH 0487 00155 0 01 00171 JMP OASR OUTPUT - ASR 0488 00156 0 01 00160 JMP OERR OUTPUT DEVICE CODE ERROR 0489 00157 0 01 00174 JMP OMAG OUTPUT - MAGNETIC TAPE 0490 00160 BSS 0 OUTPUT DEVICE CODE ERROR 0491 * 0492 * OUTPUT DEVICE CODE ERROR 0493 00160 0 35 00653 OERR LDX =-5 NUMBER OF WORDS 0494 00161 0 10 00000 CALL O$ALL ASR LINE LIST 0495 00162 0 000627 DAC ERRM ERROR MESSAGE BUFFER ADDRESS 0496 00163 0 10 00420 JST CKEY CHANGE KEYWORD 0497 00164 0 10 00452 JST PTLR TEST PAPER TAPE - PUNCH LEADER 0498 00165 0 01 00151 JMP OUTD REATTEMPT OUTPUT 0499 * 0500 * OUTPUT - PAPER TAPE PUNCH