F4-IOS

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

0601 00302 0 01 00321 JMP LRET LIST RETURN 0602 * 0603 * LIST - LINE PRINTER 0604 00303 0 10 00000 LLPR CALL O$LA LIST RECORD 0605 00304 0 000525 DAC OBUF BUFFER ADDRESS 0606 00305 0 01 00321 JMP LRET LIST RETURN 0607 * 0608 * LIST - PAPER TAPE PUNCH 0609 00306 0 10 00000 LHSP CALL O$PL PAPER TAPE PUNCH LIST 0610 00307 0 000525 DAC OBUF BUFFER ADDRESS 0611 00310 0 01 00321 JMP LRET LIST RETURN 0612 * 0613 * LIST - MAGNETIC TAPE 0614 00311 0 10 00000 LMAG CALL C$8TO6 CONVERT TO 6-BIT CODE 0615 00312 0 000525 DAC OBUF BUFFER ADDRESS 0616 00313 000050 DEC 40 WORD COUNT 0617 * 0618 00314 0 10 00000 CALL O$MA LIST RECORD 0619 00315 0 000525 DAC OBUF BUFFER ADDRESS 0620 00316 000050 DEC 40 WORD COUNT 0621 00317 000002 DEC 2 UNIT NUMBER 0622 00320 0 01 00473 JMP MTER END OF TAPE 0623 * 0624 * LIST RETURN 0625 00321 140040 LRET CRA CLEAR: 0626 00322 0 04 00515 STA HEAD LIST HEADING INDICATOR 0627 00323 0 12 00202 HDC IRS SYM SET RETURN ADDRESS 0628 00324 -0 01 00202 JMP* SYM RETURN 0629 * 0630 * DIVIDE ROUTINE FOR LINE COUNT 0631 00325 0 000000 DIVD DAC ** RETURN ADDRESS 0632 00326 0 35 00646 LDX =0 CLEAR INDEX 0633 00327 0 02 00520 LDA REST REMAINDER OF LINE COUNT 0634 00330 -0 07 00517 LOOP SUB* WORK SUBTRACT NEXT TABLE ENTRY 0635 00331 100400 SPL TEST PLUS 0636 00332 0 01 00336 JMP DIVE NO 0637 00333 0 04 00520 STA REST STORE REMAINDER 0638 00334 0 12 00000 IRS 0 INCREMENT INDEX 0639 00335 0 01 00330 JMP LOOP SUBTRACT AGAIN 0640 00336 0 12 00517 DIVE IRS WORK INCREMENT TABLE ENTRY POINTER 0641 00337 0 02 00524 LDA TP TABLE POINTER 0642 00340 0 07 00517 SUB WORK MINUS (LINE NO. CHARACTER+1) 0643 00341 0 04 00522 STA X STORE IN SUPPLEMENTARY INDEX 0644 00342 0 06 00656 ADD =1 MINUS LINE NUMBER CHARACTER 0645 00343 140407 TCA PLUS LINE NUMBER CHARACTER 0646 00344 0404 77 LGR 1 DIVIDE BY 2 0647 00345 0 13 00000 IMA 0 INTERCHANGE A AND X REGISTERS 0648 00346 101040 SNZ TEST CHARACTER ZERO 0649 00347 0 01 00361 JMP ZERO YES 0650 00350 0 06 00645 DIVC ADD ='20 DIFFERENCE ISO CODES FOR ZERO AND SPACE