8 229S ...#OPT K0KEEPCHAP=0 12 22FL ...#LIS K0KEEPCHAP>K0ALLGEO 9 22_= ...#SEG KEEPCHAP 7 23DW ... 8HKEEPCHAP 15 23YG ...# THIS SEGMENT PROCESSES THE KEEPCHAP SYSTEM. 19 24D6 ...# ENTRY K1KEEPCHAP (FROM NEWPERI) GETS ALL CHAPTERS SPECIFIED 13 24XQ ...# IN THE TABLE AND MARKS THEM AS KEPT. 15 25CB ...# ENTRY K2FROM RELPERI) REMOVES THE KEPT BIT. 16 25X2 ...# ENTRY K3 IS THE RETURN FROM THE CHAPTER CHANGER 11 26BL ... SEGENTRY K1KEEPCHAP,XK1 11 26W= ... SEGENTRY K2KEEPCHAP,XK2 11 27*W ... SEGENTRY K3KEEPCHAP,XK3 17 27TG ...# THE FOLLOWING TABLE IS MENDED BY THE KEEPCHAP MACRO 10 28*6 ... FIXTRA JKCTABSTRT 5 28SQ ...TABLE 12 29#B ...#REP JKCTABNO*JKCTABLEN+1 5 29S2 ... -1 4 2=?L ...XK1 7 2=R= ... LDN 7 0 8 2?=W ... BRN XX 4 2?QG ...XK2 15 2#=6 ... LDN 7 1 [ENTRY MARKER 4 2#PQ ...XX 10 2*9B ... LDX 6 ACOMMUNE1(2) 16 2*P2 ... SRL 6 15 [PERIPHERAL TYPE 7 2B8L ... LDX 3 1 5 2BN= ...XSEARCH 9 2C7W ... LDX 4 TABLE(3) 15 2CMG ... BNG 4 XITUP [END OF TABLE 16 2D76 ... BXE 4 6,XMATCH [J IF MATCH FOUND 17 2DLQ ... ADN 3 JKCTABLEN [ELSE UPDATE POINTER 16 2F6B ... BRN XSEARCH [AND TRY AGAIN 5 2FL2 ...XMATCH 16 2G5L ... LDX 2 TABLE+1(3) [ADDRESS OF COUNT 20 2GK= ... BNZ 7 REMOVEK [THIS IS THE PARTING OF THE WAYS 17 2H4W ... LDX 0 0(2) [CONTENTS OF COUNT 7 2HJG ... ADN 0 1 15 2J46 ... STO 0 0(2) [UPDATE COUNT 7 2JHQ ... SBN 0 1 21 2K3B ... BNZ 0 XITUP [CHAPTERS ARE ALREADY KEPT SO JUMP 7 2KH2 ... ADN 3 1 17 2L2L ... LDN 5 JKCTABLEN-2 [MAX NO OF CHAPTERS 5 2LG= ...NEXTCHAP 18 2L_W ... ADN 3 1 [POINTER TO CHAPTER ENTRY 16 2MFG ... LDX 4 TABLE(3) [CHAPTER ENTRY 16 2M_6 ... BNG 4 XITUP [J IF NO ENTRY 8 2NDQ ... SBX 3 FX1 5 2NYB ...NEXTCHP1 21 2PD2 ... ACROSSVAR 4 [GO AND GET CHAPTER AND MARK AS KEPT 4 2PXL ...XK3 8 2QC= ... SRL 4 12 16 2QWW ... SMO 4 [CHAPTER NUMBER 8 2RBG ... LDXC 1 KTAB 9 2RW6 ... BCS XCHAPGOT 8 2S*Q ... SLL 4 12 9 2STB ... BRN NEXTCHP1 5 2T*2 ...XCHAPGOT 9 2TSL ... TXU 1 GFIXCHAP 19 2W#= ... BCS NOTFIX [J IF NOT IN FIXED CHAP SPACE 9 2WBF ... LDX 0 BACK2(1) 9 2WDN ... BZE 0 (GEOERR) 7 2WGX ... SMO 4 8 2WK6 ... STO 0 KTAB 9 2WM* ... STOZ BACK2(1) 9 2WPJ ... BC 1,AFKPCP 17 2WRW ... COOR3 #62 [WAIT AND TRY AGAIN 8 2X?G ... SLL 4 12 9 2XR6 ... BRN NEXTCHP1 5 2Y=Q ...NOTFIX 8 2YQB ... ADX 3 FX1 18 2_=2 ... BCT 5 NEXTCHAP [ON RETURN GET NEXT CHAP 17 2_PL ... [UNLESS MAXIMUM READ 5 329= ...XITUP 5 32NW ... UP 4 338G ...# 4 33N6 ...# 20 347Q ...# THIS SECTION REMOVES THE KEPT BIT WHEN A PERIPHERAL IS RELEASED 20 34MB ...# UNLESS THE CHAPTER IS STILL KEPT FOR THIS OR ANOTHER PERIPHERAL. 11 3572 ...# X2 IS THE ADDRESS OF THE COUNT 4 35LL ...# 4 366= ...# 5 36KW ...REMOVEK 8 375G ... LDX 0 0(2) 16 37K6 ... SBN 0 1 [DECREASE COUNT 8 384Q ... STO 0 0(2) 9 38JB ... BPZ 0 NOERROR 10 3942 ... GEOERR 1,NEGCOUNT 5 39HL ...NOERROR 9 3=3= ... BZE 0 SEARCHTAB 19 3=GW ... BRN XITUP [CHAPTERS MUST REMAIN KEPT 6 3?2G ...SEARCHTAB 20 3?G6 ...# FOR EACH CHAPTER WE REMOVE THE KEPT BIT IF THE CHAPTER DOES NOT 12 3?_Q ...# APPEAR ELSEWHERE IN ANOTHER TABLE. 4 3#FB ...# 12 3#_2 ...# ACCUMULATORS ARE USED AS FOLLOWS 21 3*DL ...# TABLE BEING UNKEPT TABLE BEING SEAR 19 3*Y= ...# POINTER TO TABLE X6 X7 20 3BCW ...# RELATIVE PTR TO CHAP ENTRY X2 X3 19 3BXG ...# CONTENTS OF ENTRY X4 X0 19 3CC6 ...# COUNT FOR CHAPTERS X1 X5 21 3CWQ ... LDN 6 TABLE(3) [TABLE FOR PERIPHERAL BEING RELEASED 7 3DBB ... LDN 2 1 10 3DW2 ... LDN 1 JKCTABLEN-2 5 3F*L ...NXTCHP2 8 3FT= ... SMO FX1 18 3G#W ... LDN 7 TABLE [FIRST TABLE - INITIALSE 9 3GSG ... SBN 7 JKCTABLEN 7 3H#6 ... ADN 2 1 7 3HRQ ... SMO 6 8 3J?B ... LDXC 4 0(2) 15 3JR2 ... BCS XITUP [END REACHED 5 3K=L ...NXTTABLE 15 3KQ= ... ADN 7 JKCTABLEN [NEXT TABLR 7 3L9W ... SMO 7 7 3LPG ... LDX 0 0 10 3M96 ... BPZ 0 TABLEEXISTS 18 3MNQ ...# WE HAVE COME TO THE END OF THE TABLES WITHOUT FINDING THE 13 3N8B ...# CHAPTER.THUS THE KEPT BIT IS CLEARED 8 3NN2 ... SRL 4 12 7 3P7L ... SMO 4 18 3PM= ... LDXC 4 KTAB [ENTRY IN CHAPTER TABLR 9 3Q6W ... BCS XINCOR 9 3QLG ... GEOERR 1,NOTINCOR 5 3R66 ...XINCOR 16 3RKQ ... BC 4,AFKPCP [REMOVE KEPT BIT 9 3S5B ... BRN XMTCHEND 6 3SK2 ...TABLEEXISTS 10 3T4L ... BXE 7 6,NXTTABLE 7 3TJ= ... SMO 7 16 3W3W ... LDX 0 1 [ADDRESS OF COUNT 7 3WHG ... SMO 0 14 3X36 ... LDX 0 0 [COUNT 9 3XGQ ... BZE 0 NXTTABLE 10 3Y2B ... LDN 5 JKCTABLEN-2 18 3YG2 ... LDN 3 1 [X3 POINTER TO CHAP ENTRY 5 3Y_L ...NXTCHP3 7 3_F= ... ADN 3 1 7 3_YW ... SMO 7 8 42DG ... LDXC 0 0(3) 16 42Y6 ... BCS NXTTABLE [END OF CHAPTERS 16 43CQ ... BXE 0 4,XMTCHEND [J IF MATCH FOUND 9 43XB ... BCT 5 NXTCHP3 18 44C2 ... BRN NXTTABLE [MAX NO OF CHAPS IN TABLE 5 44WL ...XMTCHEND 9 45B= ... BCT 1 NXTCHP2 8 45TW ... BRN XITUP 4 46*G ...#END 6 ____ ...616654500004