F4-IOS

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

0651 00351 0416 70 ALR 8 ROTATE 8 LEFT 0652 00352 0 12 00522 IRS X TEST CHARACTER POSITIONED 0653 00353 0 01 00351 JMP *-2 SHIFT AGAIN 0654 00354 1 06 00525 ADD OBUF,1 CHANGE REQUIRED CHARACTER- 0655 00355 1 04 00525 STA OBUF,1 -FROM SPACE TO DECIMAL NUMBER 0656 00356 140040 CRA 0657 00357 0 04 00521 STA ZIND CLEAR LEADING ZERO INDICATOR 0658 00360 -0 01 00325 JMP* DIVD RETURN 0659 00361 0 02 00521 ZERO LDA ZIND TEST WHETHER LEADING CHARACTER 0660 00362 100040 SZE 0661 00363 -0 01 00325 JMP* DIVD YES - LEAVE SPACE - RETURN 0662 00364 0 01 00350 JMP DIVC NO - CHANGE SPACE TO ZERO 0663 * 0664 * 0665 * CLOSE I/O DEVICES 0666 * 0667 00365 0 000000 END DAC ** RETURN ADDRESS 0668 00366 0 02 00511 LDA OPUT LIST DEVICE CODE 0669 00367 0 10 00452 JST PTLR PUNCH TRAILER IF APPLICABLE 0670 * 0671 00370 0 02 00511 LDA OPUT TEST OUTPUT DEVICE 0672 00371 0 05 00656 ERA =1 TEST PUNCH 0673 00372 101040 SNZ 0674 00373 0 01 00377 JMP POFF POWER PUNCH OFF 0675 00374 0 02 00510 LDA LIST LIST DEVICE CODE 0676 00375 0 05 00657 ERA =3 TEST PUNCH 0677 00376 101040 SNZ 0678 00377 0 10 00000 POFF CALL O$POFF PAPER TAPE PUNCH POWER OFF 0679 * 0680 00400 0 02 00511 LDA OPUT OUTPUT DEVICE CODE 0681 00401 0 05 00644 ERA =4 TEST MAGNETIC TAPE 0682 00402 101040 SNZ 0683 00403 0 01 00410 JMP EMAG YES 0684 00404 0 02 00510 LDA LIST TEST LISTING DEVICE 0685 00405 0 05 00644 ERA =4 TEST MAGNETIC TAPE LISTING 0686 00406 100040 SZE 0687 00407 0 01 00412 JMP ENDC NO 0688 00410 0 10 00000 EMAG CALL O$ME END OF FILE - MAGNETIC TAPE 0689 00411 000002 DEC 2 0690 00412 0 35 00643 ENDC LDX =-6 NUMBER OF WORDS 0691 00413 0 10 00000 CALL O$ALL ASR LINE LIST 0692 00414 0 000621 DAC ENDM MESSAGE BUFFER ADDRESS 0693 00415 0 10 00420 JST CKEY CHANGE KEYWORD 0694 00416 0 02 00501 LDA KEY KEYWORD 0695 00417 -0 01 00365 JMP* END RETURN 0696 * 0697 * 0698 * FINISH HALT 0699 * 0700 * CHANGE KEYWORD