1 2 D00000=0000 3 L00001=0001 4 D00016=0016 5 D00077=0077 6 7 FIELD 0 8 9 *7000 10 07000 6203 L07000, CDF CIF 0 11 07001 5602 JMP I P07002 12 07002 7003 P07002, L07003 13 07003 7604 L07003, CLA OSR 14 07004 7500 SMA 15 07005 5217 JMP L07017 16 07006 7200 CLA 17 07007 6305 6305 18 07010 6304 D07010, 6304 19 07011 6300 L07011, 6300 20 07012 5211 JMP L07011 21 07013 6306 6306 22 07014 7440 SZA 23 07015 7402 HLT 24 07016 5275 JMP L07075 25 07017 6700 L07017, 6700 26 07020 6701 6701 27 07021 6703 L07021, 6703 28 07022 0305 AND D07105 29 07023 7640 SZA CLA 30 07024 5221 JMP L07021 31 07025 6701 6701 32 07026 1306 TAD D07106 33 07027 6702 6702 34 07030 2312 ISZ P07112 35 07031 6705 L07031, 6705 36 07032 5231 JMP L07031 37 07033 6703 D07033, 6703 38 07034 0307 AND D07107 39 07035 7440 SZA 40 07036 7402 HLT 41 07037 7305 CLA CLL RAL IAC 42 07040 6701 6701 43 07041 7201 CLA IAC 44 07042 6702 6702 45 07043 6701 6701 46 07044 3312 DCA P07112 47 07045 1310 TAD D07110 48 07046 6702 6702 49 07047 7325 CLA CLL CML RAL IAC 50 07050 6701 6701 51 07051 4261 L07051, JMS P07061 52 07052 7002 BSW 53 07053 3313 DCA D07113 54 07054 4261 JMS P07061 55 07055 1313 TAD D07113 56 07056 3712 DCA I P07112 57 07057 2312 ISZ P07112 58 07060 5251 JMP L07051 59 07061 7000 P07061, L07000 60 07062 6704 L07062, 6704 61 07063 5267 JMP L07067 62 07064 6703 6703 63 07065 0311 AND D07111 64 07066 5661 JMP I P07061 65 07067 6705 L07067, 6705 66 07070 5262 JMP L07062 67 07071 6701 6701 68 07072 6703 6703 69 07073 7440 SZA 70 07074 7402 HLT 71 07075 7200 L07075, CLA 72 07076 6701 6701 73 07077 5001 JMP L00001 74 07100 0000 AND D00000 75 07101 0000 AND D00000 76 07102 0000 AND D00000 77 07103 0000 AND D00000 78 07104 0000 AND D00000 79 07105 0001 D07105, 0001 80 07106 0016 D07106, 0016 81 07107 0233 D07107, 0233 82 07110 0210 D07110, 0210 83 07111 0077 D07111, 0077 84 07112 0000 P07112, D00000 85 07113 0000 D07113, 0000 86 $