LINK, RADINT

SUBR LINK REVB 15-12-70 EI PAGE 1

0001 SUBR LINK REVB 15-12-70 EI 0002 SUBR RADINT,RDNT 0003 REL 0004 00000 0 000000 LINK DAC ** 0005 00001 0 02 00151 LDA ='140 0006 00002 74 0020 SMK '20 0007 00003 0 10 00000 CALL SOUND 0008 00004 101000 NOP 0009 00005 0 04 00131 STA T 0010 00006 0404 66 LGR 10 0011 00007 0 10 00000 CALL AVER 0012 00010 0414 66 LGL 10 0013 00011 0 03 00150 ANA ='16000 0014 00012 0 04 00130 STA ACCL 0015 00013 0404 66 LGR 10 0016 00014 0 07 00147 SUB =3 0017 00015 101040 SNZ 0018 00016 0 01 00032 JMP ON 0019 00017 101400 SMI 0020 00020 0 01 00023 JMP *+3 0021 00021 0 02 00146 LDA ='100000 0022 00022 100000 SKP 0023 00023 140040 CRA HIGH 0024 00024 0 04 00133 STA LV 0025 00025 0 05 00134 ERA LVP COMPARE WITH LAST LV. 0026 00026 101040 SNZ 0027 00027 0 01 00032 JMP ON THEY ARE THE SAME 0028 00030 0 02 00147 LDA =3 0029 00031 0 04 00130 STA ACCL MAKE STOP AT ZERO LEVEL 0030 00032 0 02 00133 ON LDA LV 0031 00033 0 04 00134 STA LVP 0032 00034 0 02 00130 LDA ACCL 0033 00035 0404 73 LGR 5 0034 00036 0 06 00130 ADD ACCL 0035 00037 0 04 00130 STA ACCL 0036 00040 0 02 00131 LDA T 0037 00041 0414 65 LGL 11 0038 00042 0405 65 ARS 11 0039 00043 101000 NOP 0040 00044 0 10 00000 CALL TREND 0041 00045 -0 01 00000 JMP* LINK 0042 00046 0405 77 ARS 1 0043 00047 101000 NOP 0044 00050 101000 NOP 0045 00051 101000 NOP 0046 00052 101000 NOP 0047 00053 0 04 00131 STA T 0048 00054 54 1011 OUT INA '1011 0049 00055 0 01 00054 JMP *-1 0050 00056 0414 77 LGL 1 GET PRS. POS.OF J.8.
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
SUBR LINK REVB 15-12-70 EI PAGE 3

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 LINK 000000 LV 000133 LVP 000134 MOVE 000132 ON 000032 OUT 000054 RDNT 000072 SIGN 000135 T 000131 UP 000104 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71