F4-IOS

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

0701 00420 0 000000 CKEY DAC ** RETURN ADDRESS 0702 00421 0 02 00501 LDA KEY DISPLAY KEYWORD 0703 00422 000000 FIN HLT HALT 0704 00423 0 10 00433 JST INTC REINITIALISE 0705 00424 -0 01 00420 JMP* CKEY RETURN 0706 * 0707 * 0708 * DEVICE NOT AVAILABLE ROUTINE (I/O ROUTINE NOT LOADED) 0709 * 0710 00425 0 000000 G$NA DAC ** DEVICE NOT AVAILABLE 0711 00426 0 35 00642 LDX =-2 NUMBER OF WORDS 0712 00427 0 10 00000 CALL O$ALL ASR LINE LIST 0713 00430 0 000634 DAC ERNA BUFFER ADDRESS 0714 00431 0 10 00420 JST CKEY CHANGE KEYWORD 0715 00432 0 01 01000 JMP '1000 RESTART COMPILATION 0716 * 0717 * 0718 * SUBROUTINES 0719 * 0720 * SPLIT KEYWORD 0721 00433 0 000000 INTC DAC ** RETURN ADDRESS 0722 00434 100040 SZE SKIP IF KEYWORD NOT INPUT 0723 00435 0 04 00501 STA KEY KEYWORD 0724 00436 0 02 00501 LDA KEY KEYWORD 0725 00437 0 04 00000 STA LIBF LIBRARY FLAG 0726 00440 0400 72 LRL 6 SHIFT 6 RIGHT 0727 00441 0 03 00641 ANA =7 ISOLATE INPUT DEVICE CODE 0728 00442 0 04 00507 STA IPUT INPUT DEVICE CODE 0729 00443 140040 CRA CLEAR A 0730 00444 0410 75 LLL 3 SHIFT 3 LEFT 0731 00445 0 04 00510 STA LIST LIST DEVICE CODE 0732 00446 140040 CRA CLEAR A 0733 00447 0410 75 LLL 3 SHIFT 3 LEFT 0734 00450 0 04 00511 STA OPUT OUTPUT DEVICE CODE 0735 00451 -0 01 00433 JMP* INTC RETURN 0736 * 0737 * TEST PAPER TAPE - PUNCH LEADER 0738 00452 0 000000 PTLR DAC ** RETURN ADDRESS 0739 00453 0 05 00656 ERA =1 TEST OUTPUT DEVICE 0740 00454 101040 SNZ NOT PAPERTAPE PUNCH 0741 00455 0 01 00462 JMP PLDR PUNCH LEADER 0742 00456 0 02 00510 LDA LIST LIST DEVICE CODE 0743 00457 0 05 00657 ERA =3 PAPER TAPE PUNCH? 0744 00460 100040 SZE 0745 00461 -0 01 00452 JMP* PTLR RETURN 0746 00462 0 10 00000 PLDR CALL O$PLDR PUNCH LEADER 0747 00463 -0 01 00452 JMP* PTLR RETURN 0748 * 0749 * DEVICE SWITCH 0750 00464 0 000000 SW DAC ** RETURN ADDRESS