*BASIC 11 15-12-70 EI PAGE 1

0001 *BASIC 11 15-12-70 EI 0002 SUBR BASCIN,BASN 0003 SUBR BASIC,BASC 0004 REL 0005 00000 0 000000 BASN DAC ** 0006 00001 0 02 00331 LDA =3 0007 00002 0 04 00236 STA VERT 0008 00003 140040 CRA 0009 00004 0 04 00235 STA HORZ PRESET CENTER POS. 0010 00005 0 04 00237 STA J2 0011 00006 0 04 00242 STA J2P 0012 00007 0 04 00241 STA J2T 0013 00010 0 04 00250 STA SIGN 0014 00011 0 04 00246 STA DIR 0015 00012 0 04 00243 STA J2A 0016 00013 0 04 00244 STA J2AP 0017 00014 0 02 00330 LDA =-4 0018 00015 0 04 00245 STA M4 0019 00016 140040 CRA 0020 00017 74 0022 OTA '22 0021 00020 0 01 00017 JMP *-1 0022 00021 74 0030 OTA '30 0023 00022 0 01 00021 JMP *-1 0024 00023 74 0060 OTA '60 0025 00024 0 01 00023 JMP *-1 0026 00025 0 02 00327 LDA ='20 0027 00026 0 10 00000 CALL WAIT 0028 00027 -0 01 00000 JMP* BASN 0029 * 0030 00030 0 000000 BASC DAC ** 0031 00031 0 04 00264 STA T+2 0032 00032 0 03 00326 ANA ='36000 SEPERATE: 0033 00033 0 04 00234 STA ACCL ACCELERATION^ 0034 00034 0 02 00264 LDA T+2 0035 00035 0 03 00325 ANA ='340 0036 00036 0404 73 LGR 5 0037 00037 0 04 00236 STA VERT VERTICAL POSITION 0038 00040 0 02 00264 LDA T+2 0039 00041 0 03 00324 ANA ='37 0040 00042 0414 65 LGL 11 HORIZONTAL POS. 0041 00043 0405 65 ARS 11 RESTORE SIGN 0042 00044 0 04 00240 STA J2D 0043 * 0044 00045 0 02 00236 LDA VERT GET DEMANDED VERT.POS. 0045 00046 0 06 00252 ADD J1T! SET POINTER 0046 00047 0 04 00251 STA J1 0047 00050 -0 02 00251 LDA* J1 0048 00051 0 04 00251 STA J1 0049 00052 0 02 00240 LDA J2D 0050 00053 0 03 00323 ANA ='100000 0051 00054 0 05 00250 ERA SIGN IS SIGN SAME AS LAST? 0052 00055 100040 SZE 0053 00056 0 01 00074 JMP POS NO - DIRECTION + 0054 00057 0 02 00240 LDA J2D YES - EVALUATE DIR. 0055 00060 101400 SMI 0056 00061 0 01 00064 JMP *+3 GET ABSOLUTE VALUE 0057 00062 0 05 00322 ERA =-1