INHALT

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

3043 03467 0 02 03472 PAP LDA PSW PICK UP PAPER BRANCH 3044 03470 0 04 00662 STA SW SET DEVICE SWITCH 3045 03471 0 01 02571 JMP STRN GO SET BASE 3046 03472 0 000157 PSW DAC R1K+70 BRANCH FOR PAPER 3047 03473 0 000213 MSW DAC MAG BRANCH FOR MAG 3048 03474 0 000225 CCRD DAC CARD BRANCH FOR CARD 3049 * 3050 000770 DOPI EQU '770 DISC INITIALIZATION 3051 000772 DOPO EQU '772 OBJECT INPUT FROM DISC VIA DOP 3052 * 3053 03475 0 07 03526 DISC SUB =2 IS IT CARDS 3054 03476 101040 SNZ NO 3055 03477 0 01 03507 JMP CADD CARD INPUT 3056 03500 0 02 03511 LDA ='100002 BITS 1 AND 15 ON FOR DOP 3057 03501 101000 NOP FOR USED IN SPECIAL SYSTEMS (OCP '40) 3058 03502 000013 EXA * 3059 03503 -0 10 00770 JST* DOPI GET PROGRAM NAME 3060 03504 0 02 03506 LDA DSW DISC ENTRY 3061 03505 0 01 03470 JMP PAP+1 3062 03506 0 000233 DSW DAC DISI ENTRY FOR DISC INPUT 3063 03507 0 02 03474 CADD LDA CCRD 3064 03510 0 01 03470 JMP PAP+1 GO SET DEVICE SWITCH 3065 * 3066 * 3067 03511 100002 FIN FLUSH THE LITERALS 03512 000003 03513 000010 03514 000260 03515 000007 03516 125252 03517 000400 03520 000240 03521 000004 03522 100000 03523 140000 03524 000200 03525 000077 03526 000002 03527 077776 03530 177777 03531 146303 03532 146722 03533 037777 03534 077777 03535 100405 03536 100477 3068 * 3069 * ******************************************************************** 3070 * * STORAGE *