AUTFIN
(GIN Macro)
Defined in: OLPMACROS
Used in: DROBJ864, EDOBJ864, FHOBJBL860, MTOBJ864, PERION867
- AUTFIN.mac.txt
57#8 ...[??? AUTFIN SECT FILE FGN 7 DOC 57J2 # 583L # TERMINATES AN OLPA WHICH MAY BE RUNNING IN AUTONOMOUS MODE 58H= # 592W #MAC AUTFIN 59GG ... LDX 5 %A [LOAD REPLY 5=26 #STR %B 5=^B LDX 6 %B [GET SPECIFIED LINK PAIR 5#XW LDX 2 FX2 5*CG LDX 1 APETADDR(2) [GET PCA ADDR 5*X6 LDX 3 EVENT2(2) [GET PNTR TO CONTROL AREA 5BBQ ... LDX 7 BFSTATE(2) 5BWB ... BPZ 7 MAUTFIN8 [J IF NOT IN AUTONOMOUS MODE 5DSW LDN 4 1 5F#G ... ADS 4 ASTOP(1) [SET STOP WORD NON-ZERO 5FS6 ... STOPIT 1 5J== LDCT 0 256 5JPW ERS 0 BFSTATE(2) [CLEAR PERIPHERAL CHANNEL BUSY MARKER 5K?P ...MAUTFIN8 5K*Y ... ADN 3 1 [GET PNTR TO REPLY WORD 5KD7 ... FADDRESS 1,3,HLOCK1,2 [GEORGE ADDRESS 5KGB ... STO 5 0(3) [STORE REPLY 5KJK ... CLEAR 1,0 [CLEAR LOCKS & MARK ENTRIES EMPTY 5KLS ... BPZ 7 MAUTFIN7 [J IF NOT IN AUTONOMOUS MODE 5KP6 JNOTFDRM MAUTFIN6 5L8Q TICKLES 2,3 5LDJ ...MAUTFIN6 5LNB ... SBS 4 ASTOP(1) [ REMOVE STOP BIT 5LY8 ... LDX 4 AVENT1(2) 5M82 BZE 4 MAUTFIN1 [JIF SPOUT EMPTY 5MML STOZ AVENT1(2) [CLEAR SPOUT 5N7= BPZ 4 MAUTFIN2 [JIF NOT SUSBY SPOUTED 5NLW MAUTFIN7 LDX 2 APETADDR(2) 5P6G MONEND [CLEAR STOP BIT - THIS IS ALL THAT 5PL6 [IS LEFT OF OLPFIN1 AFTER REMOVING 5Q5Q [CLEAR & COOR1Y 5Q7F ...MAUTFIN1 5Q98 ...[ FOLLOWING CODE ADDED FOR BUG 0218 TO ENSURE EXEC TIMESHARER IS 5Q=X ...[ ENTERED IF PROGRAM IS REALTIME WITH PRIORITY 5Q#L ... FJOPCA 1,2,N 5QB* ... JBC MAUTFIN9,1,JBREPRI 5QD4 ... PROGRING LOCKOFF 5QFR ...MAUTFIN9 5QHG ...[ END OF CODE INSERTED 5QKB #STR %B 5R52 ( 5RJL ... LDX 2 FX2 5S4= STO 6 ALINK1(2) [SET SPECIFIED LINK 5TH6 COOR1X [SWITCH OFF - LINK NOT PROCESSED 5W2Q ) 5WGB #STR %B 5X22 #SKI 5XFL ( 5X^= ... COOR1Y [SWITCH OFF - ACCUMULATORS NOT SAVED 5YDW BRN MAUTFIN3 [J TO DEAL WITH NEXT PERI 5YYG ) 5^D6 MAUTFIN2 STO 4 EVENT1(2) 5^XQ LDN 4 AVENT2(2) [TRANSFER DETAILS OF PERI FROM SPOUT 62CB LDN 5 EVENT2(2) [TO CURRENT AREA 62X2 MOVE 4 G4<1*2+3 [4WD AREA IN G3 - 6WD AREA IN G4 63BL #STR %B 63W= ACROSSVA 6 [TO DEAL WITH SPOUTED PERI 64*W #STR %B 64TG #SKI 65*6 ( 65JY ...MAUTFIN3 [PROCESS NEXT PERI 65SQ LDX 1 FX1 66S2 ) 67?L #NOR