LINK, RADINT

SUBR LINK REVB 15-12-70 EI PAGE 2

0051 00057 0405 65 ARS 11 0052 00060 0 06 00131 ADD T 0053 00061 0 10 00000 CALL OVFL 0054 00062 0 03 00145 ANA ='37 0055 00063 0 06 00130 ADD ACCL 0056 00064 101000 NOP 0057 00065 0 10 00000 CALL BASIC 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