MAIN PROGRAMME 8-11-70 EI

* MAIN PROGRAMME 8-11-70 EI PAGE 1

0001 * MAIN PROGRAMME 8-11-70 EI 0002 REL 0003 00000 100000 STRT SKP NEVER CALL INTERR. 0004 00001 0 10 00000 INTA CALL INTERR DUMMY CALL TO GET 0005 00002 0 02 00001 LDA INTA ADDRESS OF SUBR. 0006 00003 0 03 00047 ANA ='1000 GET SECTOR BIT. 0007 00004 100040 SZE DECIDE 0008 00005 0 01 00014 JMP SECT THIS SECTOR OR 0009 00006 0 02 00001 LDA INTA BASE SECTOR. 0010 00007 0 03 00046 ANA ='777 GET ADDRESS 0011 00010 0 04 00001 STA INTA OUT OF 0012 00011 -0 02 00001 LDA* INTA BASE SECTOR. 0013 00012 0 01 00022 JMP ST63 0014 00013 0 000001 THIS DAC INTA 0015 00014 0 02 00013 SECT LDA THIS ADDRESS IN THIS SECTOR. 0016 00015 0 03 00045 ANA ='17000 0017 00016 0 04 00013 STA THIS STORE SECTOR NUMBER. 0018 00017 0 02 00001 LDA INTA 0019 00020 0 03 00046 ANA ='777 GET ADDRESS PART. 0020 00021 0 06 00013 ADD THIS ADD SECTOR. 0021 00022 0 04 00063 ST63 STA '63 ADDRESS OF INTERR.ROUT. 0022 00023 0 02 00044 LDA ='40 0023 00024 74 0020 SMK '20 SET ASR MASK. 0024 00025 0 10 00000 CALL STRT 0025 00026 0 10 00000 CALL CHECK 0026 00027 0 02 00077 LDA REC 0027 00030 0 05 00043 ERA ='327 0028 00031 100040 SZE ' 0029 00032 0 01 00026 JMP *-4 0030 00033 0 10 00000 CALL WIND 0031 000077 REC EQU '77 0032 00034 BSS 7 0033 00043 000327 END 00044 000040 00045 017000 00046 000777 00047 001000 INTA 000001 REC 000077A SECT 000014 ST63 000022 STRT 000000 THIS 000013 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71