* SUBR WIND REVC 28-10 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 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