WIND

* SUBR WIND REVC 28-10-70 EI PAGE 1

0001 * SUBR WIND REVC 28-10-70 EI 0002 * ENTER WITH CONTENTS OF '500 IN (A) 0003 * WINDING DOWN IS STARTED BY MOVING THE 0004 * STRUCTURE UP, ASKING FOR SLEEVE AND 0005 * CHARACUWRS "RP" ONT THE ASR - 0006 * THEN TURNING EVERYTHING OFF. 0007 SUBR WIND 0008 REL 0009 00000 0 000000 WIND DAC ** 0010 00001 54 1500 INA '1500 0011 00002 0 01 00001 JMP *-1 0012 00003 0 04 00076 STA SAVA 0013 00004 0 02 00104 LDA ='47 0014 00005 0 10 00000 CALL HOLD 0015 00006 101000 NOP 0016 00007 0 02 30000 LDA '30000 SET ACCELERATION 0017 00010 74 0022 OTA '22 0018 00011 0 01 00010 JMP *-1 0019 00012 140040 CRA 0020 00013 74 0060 OTA '60 0021 00014 0 01 00013 JMP *-1 RESET J.3 & J.4 0022 00015 0 02 00103 LDA ='30 0023 00016 74 0030 OTA '30 0024 00017 0 01 00016 JMP *-1 MOVE J.6 UP 0025 00020 0 02 00102 LDA =30 0026 00021 0 10 00000 CALL WAIT 0027 00022 54 1012 INA '1012 0028 00023 0 01 00022 JMP *-1 0029 00024 0 03 00101 ANA ='40 0030 00025 100040 SZE IS COMMAND EXECUTED? 0031 00026 0 01 00022 JMP *-4 0032 00027 0 02 00055 LDA SLV! 0033 00030 0 10 00000 CALL MSGINT ASK FOR SLEEVE AND RP 0034 00031 0 02 00100 LDA =ARP 0035 00032 0 04 00074 STA '74 0036 00033 0 02 00077 LOOP LDA '77 0037 00034 0 03 00100 ANA =ARP 0038 00035 0 05 00100 ERA =ARP IS RP THERE? 0039 00036 101040 SNZ 0040 00037 0 01 00046 JMP OUT YES 0041 00040 54 1012 INA '1012 0042 00041 0 01 00040 JMP *-1 0043 00042 0 03 00077 ANA ='4000 J.6. STILL UP? 0044 00043 101040 SNZ 0045 00044 0 10 00000 CALL INTR NO - INTERRUPT 0046 00045 0 01 00033 JMP LOOP 0047 00046 140040 OUT CRA 0048 00047 0 10 00000 CALL HOLD SWITCH OFF 0049 00050 100000 SKP 0050 00051 0 01 00046 JMP *-3 NOT OFF - TRY AGAIN
* SUBR WIND REVC 28-10-70 EI PAGE 2

0051 00052 0 02 00076 LDA SAVA 0052 00053 0 10 00000 CALL BITS 0053 00054 -0 01 00000 JMP* WIND 0054 00055 0 000056 SLV! DAC SLV 0055 00056 150325 SLV BCI 16,PUT ON SLEEVE AHD TYPE "RP" @@ 00057 152240 00060 147716 00061 120323 00062 146305 00063 142726 00064 142640 00065 140710 00066 142240 00067 152331 00070 150305 00071 120242 00072 151320 00073 121240 00074 140300 00075 120240 0056 00076 000000 SAVA BSZ 1 0057 00077 004000 END 00100 151320 00101 000040 00102 000036 00103 000030 00104 000047 LOOP 000033 OUT 000046 SAVA 000076 SLV 000056 SLV! 000055 WIND 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71