SUBR LINK REVB 15-12-7 PAGE 2

0058 00066 101000 NOP 0059 00067 0 10 00000 CALL TRNDIN 0060 00070 101000 NOP 0061 00071 -0 01 00000 JMP* LINK 0062 * 0063 00072 0 000000 RDNT DAC ** 0064 00073 0 10 00000 CALL RADA 0065 00074 -0 01 00072 JMP* RDNT 0066 00075 0 01 00104 JMP UP 0067 00076 0 01 00102 JMP LEFT 0068 00077 101000 NOP 0069 00100 0 02 00144 LDA ='10 0070 00101 0 01 00105 JMP LIFT 0071 00102 0 02 00144 LEFT LDA ='10 0072 00103 0 01 00105 JMP LIFT 0073 00104 140040 UP CRA 0074 00105 0 04 00132 LIFT STA MOVE 0075 00106 54 1011 INA '1011 0076 00107 0 01 00106 JMP *-1 0077 00110 0414 77 LGL 1 0078 00111 0405 65 ARS 11 0079 00112 0 06 00132 ADD MOVE 0080 00113 0 10 00000 CALL OVFL 0081 00114 0 03 00145 ANA ='37 0082 00115 0 06 00127 ADD LEVL 0083 00116 74 0022 OTA '22 0084 00117 0 01 00116 JMP *-1 0085 00120 0 02 00143 LDA ='160 0086 00121 74 0060 OTA '60 0087 00122 0 01 00121 JMP *-1 0088 00123 0 02 00142 LDA =10 0089 00124 0 10 00000 CALL WAIT 0090 00125 000401 ENB 0091 00126 -0 01 00072 JMP* RDNT 0092 00127 020700 LEVL OCT 20700 0093 00130 000000 ACCL BSZ 1 0094 00131 000000 T BSZ 1 0095 00132 000000 MOVE BSZ 1 0096 00133 000000 LV BSZ 1 0097 00134 000000 LVP BSZ 1 0098 00135 000000 SIGN BSZ 1 0099 00136 000000 J2A BSZ 1 0100 00137 000000 J2AP BSZ 1 0101 00140 000000 DIR BSZ 1 0102 00141 000000 DIRP BSZ 1 0103 00142 000012 END 00143 000160 00144 000010 00145 000037 00146 100000 00147 000003 00150 016000 00151 000140 ACCL 000130 DIR 000140 DIRP 000141 J2A 000136 J2AP 000137 LEFT 000102 LEVL 000127 LIFT 000105