Previous File   Multiple Pages   Next File

* PAGE 1

0001 * 0002 * 0003 CF5 H316 AND DDP-516 0004 REL 0005 * 0006 * 0007 SUBR M$SETU,MSET 0008 * 0009 00000 0 000000 MSET DAC ** 0010 00001 0 15 00020 STX PTR SAVE X 0011 00002 0 10 00000 CALL M$UNIT CONVERT LOGICAL TO PHYSICAL 0012 00003 0 35 00020 LDX PTR RESTORE X 0013 00004 0 04 00017 STA MTU SAVE PHYSICAL UNIT NUMBER 0014 00005 -0 02 00000 X4LP LDA* 0 GET NEXT ADDRESS FROM TABLE 0015 00006 101040 SNZ ZERO? 0016 00007 -0 01 00000 JMP* MSET YES - RETURN 0017 00010 0 04 00020 STA PTR SAVE ADDRESS 0018 00011 -0 02 00020 LDA* PTR GET INSTRUCTION 0019 00012 0 03 00021 ANA MASK ALL BUT UNIT NUMBER 0020 00013 0 06 00017 ADD MTU ADD UNIT NUMBER 0021 00014 -0 04 00020 STA* PTR PUT BACK INSTRUCTION 0022 00015 0 12 00000 IRS 0 STEP TABLE ENTRY POINTER 0023 00016 0 01 00005 JMP X4LP LOOP 0024 * 0025 00017 MTU BSS 1 0026 00020 PTR BSS 1 SAVE X HERE OVER M$UNIT? 0027 00021 177770 MASK OCT 177770 0028 * 0029 FIN LITERALS 0030 * 0031 END END OF M$SETU MASK 000021 MSET 000000 MTU 000017 PTR 000020 X4LP 000005 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File