INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 64

2993 03407 0 02 03516 LDA ='125252 (**) UNDEFINED. 2994 03410 0 10 01646 JST TYP2 TYPE TWO ASTERISKS. 2995 03411 0 10 01653 LINX JST CRLF CARRIAGE-RETURN/LINE-FEED. 2996 03412 -0 01 03365 JMP* LINE EXIT TO CALLER OF 'LINE'. 2997 * 2998 03413 0 000000 LIN2 DAC ** HERE TO ADD TWO CHARS TO LINE. 2999 03414 -0 02 03673 LDA* T GET TWO CHARACTERS. 3000 03415 0 10 01646 JST TYP2 TYPE THEM. 3001 03416 0 12 03673 IRS T BUMP POINTER. 3002 03417 -0 01 03413 JMP* LIN2 RETURN TO CALLER. 3003 * 3004 03420 0 000000 LIN8 DAC ** HERE TO TYPE OCTAL DIGIT. 3005 03421 0 04 03673 STA T SAVE WORD. 3006 03422 0 03 03515 ANA ='000007 ISOLATE DIGIT. 3007 03423 0 06 03514 ADD ='000260 CONVERT TO ASCII. 3008 03424 0 10 01641 JST TYP1 PRINT IT. 3009 03425 0 02 03673 LDA T RESTORE WORD. 3010 03426 0416 75 ALR 3 SHTFT NEXT DIGIT TO POSITION. 3011 03427 -0 01 03420 JMP* LIN8 RETURN. 3012 03430 0 04 03673 JWB3 STA T SAVE THE A REGISTER FOR EXECUTION 3013 03431 0 02 03666 LDA MMOD GET THE INTENDED MODE (SAME AS LOAD) 3014 03432 0404 63 LGR 13 SHIFT OFF ALL BUT FIRST THREE BITS 3015 03433 0 06 03513 ADD ='10 GENERATE THE EXA OR DXA 3016 03434 0 04 03437 STA DEXA SAVE APPROPRIATE MODE OF EXECUTION 3017 03435 0 02 03673 LDA T RESTORE THE A REGISTER 3018 03436 000013 EXA ALLOW ENTRY TO ANYPLACE IN CORE 3019 03437 0 00 00000 DEXA PZE EITHER A DXA (11) OR EXA(13) 3020 03440 -0 01 03340 JMP* NTRY 3021 03441 140040 FRCE CRA FORCE LOAD 3022 03442 0 04 03671 STA SKIF TURN OFF SKIP FLAG 3023 03443 0 02 01000 APM LDA DFLT RESTORE DEFAULT INPUT DEVICE 3024 03444 000000 HHHT HLT HALT FOR INPUT DEVICE 3025 03445 0 04 03661 STA IO SAVE FOR POSSIBLE MTU NO. 3026 03446 101040 SNZ TEST FOR DEFAULT (A=0) 3027 03447 0 02 01000 LDA DFLT PICKUP DEFAULT DEVICE 3028 03450 0 04 01000 STA DFLT CHANGE DEFAULT INPUT TO CURRENT INPUT 3029 03451 0 04 03660 STA PTIN SAVE IN ASR/HSR SWITCH 3030 03452 0 03 03515 ANA ='7 EXTRACT DEVICE CODE 3031 03453 0 07 03512 SUB =3 TEST FOR MAG TAPE 3032 03454 100400 SPL * 3033 03455 0 01 03467 JMP PAP ASR OR HSR 3034 03456 100040 SZE 3035 03457 0 01 03475 JMP DISC DISC INPUT 3036 03460 0 02 03661 LDA IO MAG TAPE 3037 03461 0404 75 LGR 3 RIGHT ADJUST UNIT NO. 3038 03462 0 03 03515 ANA ='7 RETAIN SELECTED UNIT NO. ONLY 3039 03463 100040 SZE IF ZERO RETAIN LAST SELECTED UNIT 3040 03464 0 04 00220 STA UNIT INSERT UNIT NO. IN CALLLING SEQUENCE 3041 03465 0 02 03473 LDA MSW PICK UP MAG BRANCH 3042 03466 0 01 03470 JMP *+2