|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 84274 (0x14932)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/SYSLDM.SC«
IDENT SYSLDM REL 9.2 80-03-19 870105040920 REL 9.2 79-12-20 =2,FAULTY ECHO FUNCTION =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE REL 9.2 79-12-20 ST ENTRY SYSLDM *************************** * * * ENTRIES AND EXTERNALS * * * *************************** EXTRN FREQUE EXTRN INTLT1 EXTRN REL EXTRN SCLASS EXTRN SCTADA EXTRN SCTANO EXTRN SCTBLK EXTRN SCTBUG EXTRN SCTCDT EXTRN SCTDCT EXTRN SCTDMC EXTRN SCTDMI EXTRN SCTDML EXTRN SCTDMT EXTRN SCTEFA EXTRN SCTLAC EXTRN SCTLAP EXTRN SCTNOP EXTRN SCTNOS EXTRN SCTOPT EXTRN SCTPAG EXTRN SCTPLD EXTRN STTPSZ EXTRN SCTPSZ EXTRN SCTSEG EXTRN SCTSFA EXTRN SCTSWB EXTRN SCTTCT EXTRN SYSBAS EXTRN SYSLOD EXTRN TCLASS EXTRN TTMJOB EXTRN DWTECH EXTRN DWTSQ EJECT EXTRN M:REL EXTRN ERROR EXTRN MOVE EXTRN CMPADR EXTRN CONVRT EXTRN NXTBLK EXTRN SYSLDA EXTRN SAVE01 EXTRN SAVE02 EXTRN SAVE03 EXTRN SAVE04 EXTRN SAVE05 EXTRN SAVE06 EXTRN SAVE07 EXTRN SAVE08 EXTRN SAVE09 EXTRN SAVE10 EXTRN SAVE11 EXTRN SAVE12 EXTRN SAVE13 EXTRN SAVE14 EXTRN SAVE15 EXTRN SAVE16 EXTRN SAVE17 EXTRN SAVE18 EXTRN SAVE19 EXTRN SAVE20 EXTRN SAVE21 EXTRN NUMSEG EXTRN SAVE23 EXTRN SAVE24 EXTRN SAVE25 EXTRN BUFSIZ EXTRN SYSBUF EXTRN PRGLG1 EJECT * * EXTERNAL SUBROUTINES * EXTRN NXTCOM EXTRN GETNUM EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 0 MEMORY MANAGEMENT UNIT SWPBLK EQU 0 SWAPPABLE WORK BLOCKS CREDIT EQU 1 CREDIT APPLICATION EJECT * * CONSTANTS * S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB UPNAME EQU 4 PROTOTYPE NAME WBLEN EQU -4 LENGTH OF WORKBLOCK ******************************* * SAVE01URATION FILE (SAVE01) * ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 FIRST TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 6 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 FIRST SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 FIRST UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH EJECT **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 LAMP 1 CODE LMP2 EQU /200 LMP3 EQU /100 LMP4 EQU /80 LMP5 EQU /40 LMP6 EQU /20 LMP7 EQU /10 LMP8 EQU 8 LMP9 EQU 4 LMP10 EQU 2 LMP11 EQU 1 ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT ***************************************************************** * CONSTANTS USED IN SYSLOD PART M * ***************************************************************** * * ********** * * TTAB * * ********** * TTB:MT EQU -34 TTB:SB EQU -2 TTB:ID EQU 2 TTB:ST EQU 4 TTB:PP EQU 6 TTB:PW EQU 8 TTB:SA EQU 10 TTB:TD EQU 40 EJECT * * ********* * * DWT * * ********* * DWTCHP EQU 0 CHANNEL PARAMETER DWTST EQU 2 STATUS DWTECB EQU 4 ECB ADDRESS DWTOR EQU 6 ORDER DWTADR EQU 8 ADDRESS BLOCK DWTTAB EQU 10 TTAB ADDRESS DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR DWTTQ EQU 14 TERMINAL QUEUE DWTUEC EQU 16 USER ECB ADDRESS DWTMEC EQU 18 MONITOR ECB ADDRESS EJECT * * *********** * * PAGTAB * * *********** * PAGQF EQU 0 PAGQB EQU 2 PAGPA EQU 4 PAGSB EQU 6 EJECT * * ************* * * SEGTAB * * ************* * SEGPB EQU 6 SEGSB EQU 6 EJECT * * ******************* * * MISCELLANOUES * * ******************* * BUFLEN EQU -4 DEVIND EQU -2 DWTLEN EQU 6 TDCDD1 EQU 5 TDCDD2 EQU 6 LCND1 EQU 10 LCND2 EQU 11 SWBLEN EQU 4 DISPL. TO LENGTH OF SWB SWBSEC EQU 6 DISPL. TO LENGTH IN SECTORS EJECT ****************************************************** * * * * * THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * * * * IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * * PARAMETERS: * * * * A1 - POINTER TO CURRENT LOCATION OF SYSLDA * * A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * * * * * ****************************************************** SYSLDM EQU * ST P,SCTSFA+2 SAVE LOCATION COUNTER LDKL A11,SYSBAS GET SYSBAS START ADDRESS ST A11,SCTSFA UPDATE START OF FREE AREA LDR A8,P INIT STACK POINTER ADK A1,2 RELOCATION ROUTINE ENTRY CFR A8,A1 ST A13,SCTEFA UPDATE END OF FREE AREA LDKL A2,TCLASS GET ADDRESS TO TCLASS CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? RF(E) NO:TCL YES:DUMMY TCLASS! CALL CHPTRS RELOCATE POINTERS IN TCLASS ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS CALL CHPTRS RELOCATE POINTERS IN SCLASS ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS * * CLEAR ALL WORDS IN SYSTEM AREA * LD A1,SCTEFA LD A2,SCTSFA CLRSYS EQU * SUK A1,2 CMR A1 CWR A1,A2 RB(NE) CLRSYS LDKL A1,CONMON AD A1,M:REL,A13 ABR A1 EJECT *********************************************** * CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * *********************************************** * * ENTRY: A2 - POINTER TO TCLASS/SCLASS * A11 - SYSLOD START ADDRESS * A12 - RELOCATION CONSTANT * * EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: * CHPTRS EQU * ADR A2,A12 RELOCATE POINTER LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS CHPT10 EQU * SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? RF(Z) CHPT30 NO! ADK A3,2 NEXT ENTRY LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE LDR* A6,A5 GET LENGTH OF CLASS CHPT20 EQU * SUK A6,4 MOORE DEVICES IN THIS CLASS? RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE LDR* A7,A5 GET DWT-ADDRESS LDR A9,A7 GET DWT-ADDRESS CALL CMPADR COMPARE ADDRESSES RB(G) CHPT20 DWT IN DRIVER! ADR A7,A12 RELOCATE STR A7,A5 STORE RELOCATED DW-ADDRESS LD A8,SCTOPT GET OPTION WORD ANKL A8,1 MMU IN SYSTEM? RB(Z) CHPT20 NO! LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS LDR A9,A8 GET MONITOR ECB ADDRESS ANKL A9,1 ADDRESS ALREADY RELOCATED? RB(NZ) CHPT20 YES! ADR A8,A12 RELOCATE ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * RTN A14 EJECT ************************************************** * B:TCT - BUILD TASK CONTROL TABLE * ************************************************** * * REFERENCED IN: MONCON * * ENTRY: SAVE01 - START OF SAVE01URATION DATA EJECT ************************************************** * B:TCT - BUILD TASK CONTROL TABLE * ************************************************** * * REFERENCED IN: MONCON * * ENTRY: SAVE01 - START OF SAVE01URATION DATA * * EXIT: A6 - START OF TC:TAB * A7 - LENGTH OF TC:TAB * * WORK REGISTERS: A2,A3 * * SUBROUTINES: * * TASK CONTROL TABLE LAYOUT * _________________________ * I LENGTH I * _________________________ * I TTMJOB I * _________________________ * I MONITOR TASKS I * _________________________ * I USER TASKS I * __________________________ * EJECT B:TCT EQU * LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA LD A7,SCTSFA GET START OF FREE AREA LDR A6,A7 SAVE LDKL A2,TTMJOB GET TTMJOB ADDRESS ST A2,2,A7 STORE IN TC:TAB ADK A7,4 CONTINUE WITH MONITOR TASKS LD A2,SCTOPT ANY OPTIONS AVALIABLE? RF(Z) BTCT15 NO! *********************************************************** * RESERV ENTRIES IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * * - TO BE PROVIDED * *********************************************************** BTCT15 EQU * LD A2,SCTDMT DATA MANAGEMENT? RF(Z) BTCT30 NO! LDR A3,A2 SAVE SCTDMT ANK A2,1 DMTASK D0? RF(Z) BTCT20 NO! ADK A7,2 RESERV ENTRY FOR DMTASK D0 BTCT20 EQU * LDR A2,A3 GET SCTDMT ANK A2,2 DM-TASK D1? RF(Z) BTCT25 NO! ADK A7,2 RESERV ENTRY FOR DM-TASK D0 BTCT25 EQU * LDR A2,A3 GET SCTDMT ANK A2,4 DMTASK D2? RF(Z) BTCT30 NO! ADK A7,2 RESERV ENTRY FOR DMTASK D2 BTCT30 EQU * * * COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB * * A11 - POINTER TO TASK DEFINITION BLOCK * ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR HALT BTCT35 EQU * * * COMPUTE NUMBER OF TASK IN EACH TASK CLASS * BTCT40 EQU * CALL GETTSK GET NUMBER OF TASKS BTCT50 EQU * ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB CW A7,SCTEFA CHECK IF MEMORY LEFT RF(NE) BTCT55 YES! LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BTCT55 EQU * SUK A1,1 MOORE TASKS IN THIS CLASS? RB(P) BTCT50 YES CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BTCT40 YES * * ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB * ST A7,SCTSFA UPDATE END OF FREE AREA SUR A7,A6 LENGTH OF TC:TAB STR A7,A6 STORE LENGTH IN TC:TAB ST A6,SCTTCT STORE POINTER TO TC:TAB RTN A14 EJECT ************************************************* * B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * ************************************************* * * ENTRY: SCTSFA - START OF FREE AREA * SCTTCT - ADDRESS TO TC:TAB * SCTDMT - DATA MANAGEMENT INDICATOR * * EXIT: * * WORK REGISTERS: A1,A2,A3,A7,A12 * * SUBROUTINES: DMTGEN * B:DMTT EQU * LD A12,SCTSFA GET START OF FREE AREA LD A7,SCTTCT GET POINTER TO TC:TAB ADK A7,4 FIRST DM-TASK ENTRY LD A2,SCTDMT DATA MANAGEMENT? RF(Z) DMTTEX NO! LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR LD A6,SCTDMI GET INDEX BUFFER RECORD SIZE ANK A2,1 DM-TASK D0? RF(Z) DMTT10 NO! LDKL A1,'#D' DM-TASK ID CALL DMTGEN DMTT10 EQU * LDR A2,A3 GET DATA MANAGEMENT INDICATOR ANK A2,2 DM-TASK D1? RF(Z) DMTT20 NO! LDKL A1,'#E' TASK ID CALL DMTGEN DMTT20 EQU * LDR A2,A3 GET DATA MANAGEMENT INDICATOR ANK A2,4 DM-TASK D2? RF(Z) DMTT30 NO! LDKL A1,'#F' TASK ID CALL DMTGEN DMTT30 EQU * DMTTEX EQU * RTN A14 EJECT ************************************************** * DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * ************************************************** * * ENTRY: A1 - TASK ID * A6 - INDEX RECORD BUFFER SIZE * A7 - TCTAB ENTRY FOR CURRENT TASK * A12 - START OF FREE AREA * * EXIT: * * WORK REGISTERS: * * SUBROUTINES: * DMTGEN EQU * LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? RF(Z) DMTG20 NO! LDK A4,0 RESET PAGE POINTER DMTG10 EQU * CWK A4,/4000 LAST PAGE? RF(E) DMTG30 YES! STR A4,A12 STORE PAGE POINTER ADKL A4,/400 INCREMENT PAGE POINTER ADKL A12,2 INCREMENT MMU ENTRY POINTER RB DMTG10 DMTG20 EQU * LD A2,SCTOPT GET OPTION WORD ANK A2,2 DISC PAGING? RF(Z) DMTG40 NO! DMTG30 EQU * ADKL A12,2 SEGMENT BLOCK ADDRESS DMTG40 EQU * STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB ADK A7,2 NEXT ENTRY IN TC:TAB ST A1,TTB:ID,A12 TASK IDENTIFICATION LDKL A1,/0031 TASK LEVEL ST A1,TTB:ST,A12 STORE SLL A1,10 MOVE LEVEL TO LEFT BYTE ORKL A1,/00C0 PROGRAM STATUS ST A1,TTB:PW,A12 STORE IN TTAB ADKL A12,40 TERMINAL DEVICES LDK A1,6 LENGTH STR A1,A12 STORE ADKL A12,40 TASK STACK+2 LDR A1,A6 GET INDEX RECORD BUFFER SIZE SLL A1,2 MULTIPLY BY 4 ADR A12,A1 RESERV SPACE FOR BUFFERS LD A2,SCTSFA SUK A2,2 DMTG50 ADK A2,2 CW A2,SCTEFA CHECK IF MEMORY OVERFLOW RF(NE) DMTG60 NO! LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW DMTG60 CWR A2,A12 RB(NE) DMTG50 ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 EJECT ****************************** * B:TT - BUILD TASK TABLES * ****************************** * * REFERENCED IN: MONCON * * ENTRY: SAVE01 - START OF SAVE01URATION DATA * * EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * * WORK REGISERS: A1-A12 * * SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC * EJECT * TASK TABLE LAYOUT * ________________________ * I MMU I * I TABLE I * I 16 I * I WORDS I * I______________________I * TTB:SB I SEGMENT POINTER I * ------------------------ * TASK ENTRY I QUEUE I * ------------------------ * TTB:ID I TASK IDENTIFICATION I * ------------------------ * TTB:ST I STATUS/LEVEL I * ------------------------ * TTB:PP I PENDING QUEUE I * ------------------------ * TTB:PW I PROGRAM STATUS WORD I * ------------------------ * TTB:SA I DISPATCH ADDRESS I * ------------------------ * I REGISTER I * I SAVE I * I AREA I * I 14 I * I WORDS I * ------------------------ * TTB:TD I TASK I * I SAVE01URATION I * I TABLE I * : : * : : * I______________________I * * * TASK SAVE01URATION TABLE LAYOUT * ______________________________ * I LENGTH I * ------------------------------ * I INDEX/FILCODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ * : : * : : * ------------------------------ * I INDEX/FILECODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ EJECT B:TT EQU * LD A12,SCTSFA GET START OF FREE AREA LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES SLL A2,2 MULTIPLY BY 4 ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE BTT10 EQU * LCR A2,A11 GET FIRST BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTT20 YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR BTT20 EQU * * * GET NUMBER OF TASKS IN THIS CLASS * CALL GETTSK ST A1,SAVE19,A13 SAVE * * GET TASK ID START VALUE * LC A5,TDBID+4,A11 GET FIRST ID CHAR SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBID+5,A11 GET SECOND ID DIGIT ST A5,SAVE16,A13 SAVE TASK ID START VALUE IFT CREDIT=1 * * GET TASK CLASS TO MATCH VALUE * LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL CALL GETTCL GET TCL START VALUE ST A5,SAVE17,A13 SAVE XIF EJECT * * GET TASK LEVEL * LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL CALL CONVRT CONVERT TO BINARY ST A1,SAVE24,A13 SAVE * * COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE * LDKL A10,TTB:TD STANDARD LENGTH LD A5,SCTOPT GET OPTION WORD ANK A5,1 MMU PAGING? RF(Z) BTT25 NO SUKL A10,TTB:MT 16+1 WORD EXTRA IF MMU SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS RF BTT30 BTT25 EQU * LD A5,SCTOPT GET OPTION WORD ANK A5,2 DISC PAGING? RF(Z) BTT30 NO SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD BTT30 EQU * * * ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE * ADKL A10,2 * * COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART * OF TASK SAVE01URATION TABLE * LDK A6,0 RESET LENGTH LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION CALL GETTDC GET NUMBER OF TDC:S LDR A7,A1 SAVE BTT35 EQU * RF(Z) BTT40 CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,SAVE18,A13 GET POINTER TO TCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT37 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT37 EQU * ADR A8,A1 GET ENTRY IN TCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,TDC+TLC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF TDC:S RB BTT35 EJECT BTT40 EQU * * * COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF * TASK SAVE01URATION TABLE * CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES ADKL A9,2 FIRST SDC RECORD LDR A7,A1 SAVE BTT50 EQU * RF(Z) BTT55 NO MOORE SDC:S CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,SAVE11,A13 GET POINTER TO SCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT52 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT52 EQU * ADR A8,A1 GET ENTRY IN SCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,SDC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF SDC:S RB BTT50 BTT55 EQU * LD A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV ADR A10,A7 ADD TO TOTAL TTAB LENGTH ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH ADK A6,2 INCLUDE LENGTH WORD LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB LD A8,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS BTT60 EQU * RF(Z) BTT70 * * STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB * ST A6,TTB:TD,A12 * * STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD * LD A5,SAVE24,A13 GET TASK LEVEL ST A5,TTB:ST,A12 STORE IN TTAB * * STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD * SLL A5,10 MOVE LEVEL TO LEFT BYTE ORKL A5,/00C0 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? ORR A5,A2 SET BIT 15 IF MMU ST A5,TTB:PW,A12 STORE IN TTAB * * STORE TASK IDENTIFICATION IN TTAB * LD A5,SAVE16,A13 GET THIS TASK ID ST A5,TTB:ID,A12 STORE IN TTAB ADK A5,1 INCREMENT TASK ID ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS IFT CREDIT=1 * * STORE TASK CLASS TO MATCH IN TTAB * LD A5,SAVE17,A13 GET TCL START VALUE ST A5,TTB:PP,A12 SAVE IN TTAB ADK A5,1 INCREMENT TCL ST A5,SAVE17,A13 SAVE XIF STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB ADK A7,2 NEXT ENTRY IN TC:TAB ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS RB BTT60 EJECT BTT70 EQU * * * RESET POINTER TO START OF FREE AREA * LD A5,SCTOPT GET OPTION WORD ANK A5,1 MMU PAGING? RF(Z) BTT80 NO ADKL A12,TTB:MT SUBTRACT 16+1 WORD RF BTT90 BTT80 EQU * LD A5,SCTOPT GET OPTION WORD ANK A5,2 DISC PAGING? RF(Z) BTT90 NO ADKL A12,TTB:SB SUBTRACT ONE WORD BTT90 EQU * CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RF(NE) BTT95 LDKL A2,BTT20 SUKL A2,REL ADR A2,A13 ABR A2 BTT95 EQU * LD A2,SCTSFA SUK A2,2 BTT100 ADK A2,2 CW A2,SCTEFA RF(NE) BTT105 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BTT105 CWR A2,A12 RB(NE) BTT100 ST A12,SCTSFA SAVE START OF FREE AREA RTN A14 RETURN IFT CREDIT=1 EJECT ************************************ * SEGGEN - BUILD SEGMENT TABLE * ************************************ * * ENTRY: SCTSFA - START OF FREE AREA * SCTEFA - END OF FREE AREA * SCTLAC - START OF APPLICATION * * EXIT: SCTPAG - ADDRESS TO PAGE TABLE * * WORK REGISTERS: A1-A12 * * SUBROUTINES: GETCON * EJECT SEGGEN EQU * LDK A5,0 RESET DISC ADDRESS LD A1,SCTOPT ANK A1,2 DISC PAGING? RF(Z) SEG:05 NO! LD A5,SCTADA APPLICATION DISC SECTOR ADDRESS SEG:05 EQU * LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART * * CHECK IF CREDIT APPLICATION * ADKL A2,PRGLG1 CALL GETCON CWK A1,'CR' RF(NE) SEGEX NOT CREDIT! * * BUILD SEGMENT TABLE * LD A12,SCTSFA START OF FREE AREA ST A12,SCTSEG START OF SEGMENT TABLE LDKL A1,/8400 STATUS FOR FIRST BLOCK STR A1,A12 STORE IN FIRST BLOCK LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART CALL GETCON GET POINTER TO P:MTAB LDR A2,A1 SAVE POINTER ADKL A2,6 ADDRESS TO P:BAS CALL GETCON GET P:BAS ST A1,2,A12 STORE IN FIRST BLOCK ADKL A12,8 BYPASS FIRST BLOCK LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART ADKL A2,NUMSEG GET NUMBER OF SEGMENTS CALL GETCON LDR A4,A1 SAVE NUMBER OF SEGMENTSS RF(Z) SEG:50 NO SEGMENTS! ADK A2,2 FIRST SEGMENT BLOCK LDK A3,1 INIT SEGMENT NUMBER SEG:10 EQU * LDK A7,0 STATUS CALL GETCON CCK A1,'RR' CORE RESIDENT SEGMENT? RF(E) SEG:30 YES! LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) SEG:35 YES! SEG:30 EQU * LDKL A7,/8800 INDICATE LOADED IN CORE SEG:35 EQU * ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE STR A7,A12 SET STATUS ADKL A12,2 NEXT WORD IN SEGBLK ADK A2,2 SEGMENT ADDRESS LDK A1,0 LD A6,SCTOPT GET OPTION WORD ANK A6,2 DISC PAGING? RF(Z) SEG:40 CALL GETCON ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS SEG:40 EQU * STR A1,A12 SAVE IN SEGBLK ADKL A12,2 NEXT ENTRY IN SEGBLK ADK A2,2 EFFECTIVE LENGTH CALL GETCON STR A1,A12 SAVE ADKL A12,4 NEXT SEGMENT BLOCK ADK A2,2 NEXT BLOCK IN S:GTAB ADK A3,1 INCREMENT SEGMENT NUMBER SUK A4,1 DECREMENT NUMBER OF SEGMENTS RB(P) SEG:10 SEG:50 LD A2,SCTSFA SUK A2,2 SEG:60 ADK A2,2 CW A2,SCTEFA RF(NE) SEG:70 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW SEG:70 CWR A2,A12 RB(NE) SEG:60 ST A12,SCTSFA SEGEX EQU * RTN A14 RETURN XIF IFT CREDIT+SWPBLK=2 EJECT *************************************************************** * * * * * * * B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * * ========================================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A12 * * * * REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * * A9 - ADDRESS TO S:BTAB PROTOTYPE * * A10 - SWB BLOCK POINTER * * A11 - POINTER IN CONF. FILE * * A12 - ADDRESS TABLE POINTER * * * * SUBROUTINES: ERROR,GETNUM,GETCON * * * * * *************************************************************** EJECT B:SWBT EQU * LD A12,SCTSFA START OF FREE AREA LD A11,SAVE01,A13 START OF CONFIGURATION FILE * * SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE * BSWT10 CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BSWT10 YES! CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? RF(NE) BSWT20 NO! ADKL A11,1 CALL NXTCOM SKIP COMMON BLOCK BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? RF(NE) BSWT40 NO! ADKL A11,1 NUMBER OF TYPES LDR A6,A11 CALL GETNUM NUMBER OF UWB RECORDS LDR A1,A5 SAVE RF(Z) SWBERR ILLEGAL NUMBER!!! ADKL A11,UDBFST-1 FIRST UWB RECORD BSWT30 ADKL A11,6 BYPASS UWB RECORD SUK A1,1 DECR. NUMBER OF TYPES RB(P) BSWT30 MOORE LEFT LCR A2,A11 GET NEXT CHAR. IN CONF.FILE BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK RF(E) BSWT44 YES! LDKL A1,0 NO SWB DEFINITION BLOCK! ST A1,SCTSWB CLEAR SWB POINTER RTN A14 BSWT44 ADKL A11,1 NUMBER OF TYPES ST A11,SAVE23,A13 START OF CONF. DATA LDR A6,A11 CALL GETNUM GET 3 DIGITS LDR A5,A5 ZERO? RF(Z) SWBERR ILLEGAL NUMBER!!! ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS LD A8,SCTSWB GET ADDRESS TO $SWAPP RF(NZ) BSWT48 FILE CREATED SWBERR LDKL A1,LMP6 SWB ERROR! CALL ERROR BSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP ADKL A12,2 FIRST POINTER LDR A10,A12 SAVE * * GET ADDRESS TO S:BTAB PROTOTYPE * LD A2,SCTLAC S:GTAB ADDRESS CALL GETCON GET P:MTAB ADDRESS LDR A2,A1 SAVE ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS CALL GETCON GET S:BTAB ADDRESS LDR A2,A1 GET ADDRESS TO PROT. S:BTAB RB(Z) SWBERR NO SWB:S IN APPLICATION! ADK A1,2 ADDRESS TO NAME ST A1,SAVE21,A13 SAVE SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB CALL GETCON GET LENGTH OF PROT. S:BTAB LDR A4,A1 SAVE SUK A1,2 SKIP LENGTH BSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE RB(P) BSWT50 NEXT SWB-PROTOTYPE SUK A4,2 SKIP LENGTH WORD LDKL A9,0 RESET BLOCK COUNTER BSWT60 STR A10,A12 SAVE POINTER TO BLOCK ST A4,SAVE19,A13 SAVE LD A11,SAVE23,A13 START OF CONF. DATA LD A7,SAVE24,A13 NUMBER OF SWB RECORDS BSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. CALL GETCON GET TWO FIRST CHAR. ADKL A11,NAMUWB NAME IN CONF. FILE LCR A3,A11 GET FIRST CHAR. SLL A3,8 MOVE TO LEFT BYTE LC A3,1,A11 GET SECOND CHAR. CWR A1,A3 TWO FIRST CHAR. EQUAL? RF(NE) BSWT70 NO! ADK A2,2 NEXT CHAR. IN PROT. CALL GETCON GET THIRD CHAR. SRL A1,8 ISOLATE CHAR. LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE ANK A3,/FF ISOLATE CHAR. CWR A1,A3 THIRD CHAR. EQUAL? RF(E) BSWT75 YES! BSWT70 ADKL A11,NAMUWB SKIP NAME SUK A7,1 DECREMENT NUMBER OF TYPES RB(P) BSWT65 NEXT TYPE * * NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK * STR A7,A10 1:ST WORD ST A7,2,A10 2:ND WORD ST A7,4,A10 3:RD WORD ST A7,6,A10 4:TH WORD RF BSWT95 BSWT75 EQU * * * MATCHING NAME FOUND * ADKL A11,NAMUWB NUMBER OF COPIES LDR A6,A11 LDR A3,A2 SAVE POINTER CALL GETNUM GET NUMBER OF COPIES STR A5,A10 STORE IN SWB BLOCK LDR A2,A3 RESTORE POINTER SUK A2,UPNAME PROTOTYPE ADDRESS CALL GETCON GET PROTOTYPE ADDRESS LDR A2,A1 SAVE SUK A2,UPNAME LENGTH OF WORKBLOCK CALL GETCON ST A1,SWBLEN,A10 STORE LENGTH OF SWB ST A8,2,A10 STORE DISC ADDRESS TO 1:ST COPY BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK LDK A1,0 RESET SECTOR COUNTER BSWT90 ADKL A8,1 INCREMENT SECTOR NUMBER ADK A1,1 INCREMENT SECTOR COUNTER SUKL A3,400 DECREMENT LENGTH RB(P) BSWT90 MOORE SECTORS? SUK A5,1 MOORE COPIES? RB(P) BSWT85 YES! ST A1,SWBSEC,A10 STORE SECTOR LENGTH CW A8,SAVE25,A13 CHECK IF OVERFLOW RB(G) SWBERR $SWAP-FILE TOO SMALL! BSWT95 ADKL A10,8 START OF NEXT BLOCK ADKL A12,2 NEXT POINTER ADKL A9,1 INCREMENT BLOCK COUNTER LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB ST A2,SAVE21,A13 SAVE LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB SUK A4,UP:REC DECREMENT RB(P) BSWT60 MOORE TYPES CW A8,SAVE14,A13 ANY BLOCKS GENERATED? RF(NE) BSWT99 YES LDKL A1,LMP6 CALL ERROR SWB ERROR! BSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES ST A10,SCTSFA UPDATE START OF FREE AREA RTN A14 XIF EJECT ************************************** * MONBLK - GENERATE MONITOR BLOCKS * ************************************** * * NUMBER OF BLOCKS TO BE GENERATED: * 20+N*(NUMBER OF TASKS IN SYSTEM) * WHERE N IS A SYSTEM CONSTANT * DEFINED AT SYSTEM GENERATION * * * REFERENCED IN: SYSLOD * * ENTRY: SCTSFA - START OF FREE AREA * SCTEFA - END OF FREE AREA * * EXIT: BLOCKS - POINTER TO FIRST BLOCK * * WORK REGISTERS: A1,A2,A7,A12 * * SUBROUTINES: BLKGEN * EJECT MONBLK EQU * LDK A1,0 LD A12,SCTSFA START OF FREE AREA ST A12,FREQUE SAVE POINTER TO FIRST BLOCK * * GET NUMBER OF TASKS IN SYSTEM * LD* A7,SCTTCT GET LENGTH OF TC:TAB * * GET NUMBER OF BLOCKS PER TASK TO GENERATE * LD A2,SCTBLK MON:10 EQU * SUK A7,2 MOORE TASKS? RF(Z) MON:20 NO CALL BLKGEN RB MON:10 MON:20 EQU * * * GENERATE 19 MOORE BLOCKS * LDK A2,19 CALL BLKGEN * * GENERATE END BLOCK * STR A1,A12 ST A1,2,A12 ST A1,4,A12 * * CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A * IF NOT - USE LAST MONITOR BLOCK AS BUFFER * LD A1,BUFSIZ,A13 GET BUFFER SIZE CWK A1,6 >6? RF(NL) MON:30 NOT LESS ANYWAY! LDK A1,6 BUFFER SIZE ST A1,BUFSIZ,A13 STORE ST A12,SYSBUF,A13 START OF BUFFER MON:30 EQU * ADKL A12,6 LD A2,SCTSFA SUK A2,2 MON:40 ADK A2,2 CW A2,SCTEFA RF(NE) MON:50 LDKL A1,LMP3 CALL ERROR MON:50 CWR A2,A12 RB(NE) MON:40 ST A12,SCTSFA UPDATE END OF FREE AREA RTN A14 EJECT ************************************* * BLKGEN - GENERATE MONITOR BLOCK * ************************************* * * REFERENCED IN: MONBLK * * ENTRY: A1=0 * A2 - NUMBER OF BLOCKS TO BE GENERATED * A12 - NEXT FREE ENTRY * * EXIT: A1=0 * A12 - NEXT FREE ENTRY * * WORK REGISTES: A3 * * SUBROUTINES: * * MONITOR BLOCK LAYOUT * -------------------- * I DATA *+6 I * -------------------- * I DATA 0 I * -------------------- * I DATA 0 I * -------------------- * EJECT BLKGEN EQU * LDR A3,A2 BLK:10 EQU * RF(Z) BLKEX ADKL A12,6 ST A12,-6,A12 ST A1,-4,A12 ST A1,-2,A12 SUK A3,1 RB BLK:10 BLKEX EQU * RTN A14 EJECT ************************************************************************ * B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES ************************************************************************ * * REFERENCED IN: MONCON * * ENTRY: SCTSFA - START OF FREE ARE (X) * SAVE01 - START OF SAVE01URATION FILE * SCTEFA - END OF FREE AREA * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR * EJECT B:DWTS EQU * * * GET START OF SAVE01URATION FILE * LD A11,SAVE01,A13 START OF SAVE01URATION FILE LD A12,SCTSFA START OF FREE AREA * * CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK * LCR A2,A11 GET FIRST CHARACTER CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) DWTS YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR DWTS EQU * * * GET ADDRESS TO TC:TAB * LD A7,SAVE02,A13 FIRST USER TASK ENTRY SUK A7,2 EJECT DWTS10 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK DWTS20 EQU * ST A1,SAVE19,A13 SAVE * * GET CORRESPONDING TASK TABLE (TTAB) * DWTS25 EQU * ADK A7,2 NEXT ENTRY IN TC:TAB LDR* A10,A7 GET TTAB ADDRESS ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY * * INIT SUB-POINTER IN TASK DEFINITION BLOCK * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST START OF TDC DEFINITION EJECT * * GET NUMBER OF TERMINAL DEVICES IN THIS CLASS * CALL GETTDC LDR A6,A1 DWTS30 EQU * RF(Z) DWTS40 CALL GETCLN GET TDC ID ADR A1,A1 LD A8,SAVE18,A13 GET POINTER TO TCLASS ADR A8,A1 GET CLASS ENTRY LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 INCREMENT POINTER IN TTAB ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD SUK A6,1 DECREMENT NUMBER OF TDC:S RB DWTS30 DWTS40 EQU * * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A1,A1 DWTS50 EQU * RF(Z) DWTS90 ST A1,SAVE17,A13 SAVE * * GET SPECIAL DEVICE CLASS NUMBER OM * CALL GETCLN ST A1,SAVE03,A13 SAVE CLASS NUMBER * * GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS * ADR A1,A1 LD A6,SAVE11,A13 POINTER TO SCLASS ADR A6,A1 SELECT ENTRY LDR* A6,A6 GET POINTER TO CLASS LDR A5,A6 SAVE LDR* A6,A6 GET LENGTH SUK A6,2 EXCLUDE LENGTH WORD DWTS60 EQU * ADK A5,4 GET DEVICE LDR* A1,A5 GET ADDRESS TO TYPE DWT LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) DWTS70 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT EJECT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) DWTS65 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS SUR A4,A3 RELOCATE ANKL A4,/FFFE MAKE EVEN ADDRESS ST A4,DWTMEC,A2 STORE IT BACK DWTS65 EQU * LDR A1,A2 DT-ADDRESS TO BE USED DWTS70 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,2,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET INDEX/FILECODE STR A1,A10 SAVE IN TTAB ADKL A10,4 UPDATE TASK SAVE01URATION POINTER DWTS80 EQU * SUK A6,4 DECREMENT NUMBER OF DEVICES RB(P) DWTS60 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS * ADKL A9,SDC LD A1,SAVE17,A13 SUK A1,1 RB DWTS50 DWTS90 EQU * * * CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION * LD A1,SAVE19,A13 SUK A1,1 RB(P) DWTS20 * * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) DWTS10 YES LD A2,SCTSFA SUK A2,2 DWTS95 ADK A2,2 CW A2,SCTEFA RF(NE) DWTS99 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW DWTS99 CWR A2,A12 RB(NE) DWTS95 ST A12,SCTSFA RTN A14 RETURN EJECT ************************************************ * B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * ************************************************ ************************************************ * * REFERENCED IN: MONCON * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK * EJECT B:DWTT EQU * * * ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE * LDK A1,0 LDKL A11,BDWT05 GET END OF TEMP. WORK AREA AD A11,M:REL,A13 RELOCATE ADDRESS LDR A7,A11 SAVE SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA CWK A7,1808 IS AREA BIG ENOUGH? RF(L) BDWT02 NO! LD A1,SCTEFA SAVE REAL END OF FREE AREA ST A11,SCTEFA END OF TEMPORARY AREA * * ALLOCATE MEMORY FOR TEMPORARY INTERRUPT TABLE AT END OF FREE AREA * BDWT02 EQU * LD A11,SCTEFA GET END OF FREE AREA LD A9,SCTSFA GET START OF FREE AREA BDWT05 EQU * LDK A7,0 RESET WORD COUNTER BDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BDWT15 EQU * CWK A7,896 ALL WORDS RESERVED? RF(E) BDWT20 YES SUKL A11,2 RESERV ANOTHER WORD CMR A11 CLEAR MEMORY WORD ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 BDWT20 EQU * * * INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES * ADK A1,0 NEW END OF FREE AREA? RF(NZ) BDWT25 NO! LDR A1,A11 BDWT25 EQU * LD A7,SCTSFA+2 BDWT30 EQU * STR A11,A7 SAVE INTERRUPT TABLE ADDRESS ADK A7,2 NEXT ADDRESS TABLE ENTRY ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS CW A11,SCTEFA ALL POINTERS INTIATED? RB(NE) BDWT30 NO ST A1,SCTEFA UPDATE END OF FREE AREA EJECT * * INIT DWT POINTER * LD A11,SAVE01,A13 LD A12,SCTSFA GET START OF FREE AREA * * INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY * LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY BDWT40 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK GET NUMBER OF TASKS BDWT50 EQU * ST A1,SAVE19,A13 SAVE BINARY VALUE * * GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS * CALL GETTDC * * CHECK IF TASK WITHOUT DEVICES * LDR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS LD* A10,SAVE13,A13 GET TTAB ADDRESS ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * * GET TERMINAL DEVICE CLASS NUMBER * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION BDWT55 EQU * CALL GETCLN GET CLASS NUMBER ST A1,SAVE14,A13 SAVE BINARY VALUE * * GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS * IN THIS TASK * CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE BINARY VALUE ADK A1,1 INCREMENT LINE CONNECTION NUMBER CALL BINASC CONVERT INCREMENTED VALUE TO ASCII SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT * * FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID ADR A2,A2 2*ID LD A7,SAVE18,A13 POINTER TO TCLASS ADR A7,A2 GET ENTRY * * CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED * LDR* A7,A7 GET POINTER TO CLASS EJECT * * GENERATE DWT:S FOR THIS CLASS * A6 - LINE CONNECTION NUMBER (BINARY VALUE) * A7 - POINTER TO TERMINAL DEVICE CLASS * * THE ENTRY IN TEMPORARY INTERRUPT TABLE * IS DERIVED FROM LINE CONNECTION NUMBER, * DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) * CALL DWTGEN BDWT90 EQU * LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO ST A1,SAVE15,A13 SAVE REMAINING NUMBER ADKL A9,TDC+TLC NEXT TDC RECORD RB BDWT55 BDW100 EQU * LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB ADK A1,2 INCREMENT ENTRY POINTER ST A1,SAVE13,A13 SAVE LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS SUK A1,1 ANY MOORE TASKS LEFT RB(P) BDWT50 * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BDWT40 YES * * ALL TERMINAL DEVICE WORK TABLES GENERATED * LD A2,SCTSFA SUK A2,2 BDW105 ADK A2,2 CW A2,SCTEFA RF(NE) BDW110 LDKL A1,LMP3 CALL ERROR BDW110 CWR A2,A12 RB(NE) BDW105 ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN EJECT **************************************** * B:CDT - BUILD COMMON DEVICE TABLE * **************************************** * * REFERENCED IN: MONCON * * ENTRY: SCTSFA - START OF FREE AREA * SAVE01 - START OF SAVE01URATION DATA * SCTEFA - END OF FREE AREA * * EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE * * WORK REGISTERS: A1-A12 * * SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * EJECT B:CDT EQU * LD A11,SAVE01,A13 START OF SAVE01URATION DATA LD A12,SCTSFA START OF FREE AREA LDK A7,0 RESET LENGTH * * GET COMMON DEVICE DEFINITION BLOCK * CDG:10 EQU * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) CDG:10 YES CCK A2,'CC' COMMON DEV. DEF. BLOCK? RF(NE) BCDTEX NO EJECT * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEFINITION BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A6,A1 SAVE B:CT10 RF(Z) B:CT30 NO MOORE! CALL GETCLN GET CLASS IDENT NUMBER (1-99) ADR A1,A1 DISPLACEMENT TO CLASS POINTER LD A5,SAVE18,A13 GET POINTER TO TCLASS LDR* A2,A5 GET LENGTH OF TCLASS SUK A2,2 EXCLUDE LENGTH CWR A1,A2 MAKE SURE CLASS EXISTS RF(NG) B:CT20 OK! LDKL A1,LMP4 FORMAT ERROR! CALL ERROR B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH OF CLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A7,A1 INCREMENT CDTAB LENGTH ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE SUK A6,1 DECR. NBR OF C.T.C. RB B:CT10 EJECT B:CT30 EQU * * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A6,A1 BCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 LD A5,SAVE11,A13 GET POINTER TO SCLASS LDR* A2,A5 SUK A2,2 CWR A1,A2 RF(NG) BCDT15 LDKL A1,LMP4 CALL ERROR BCDT15 EQU * ADR A1,A5 SELECT ENTRY LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH SUK A1,2 ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 BCDTEX EQU * EJECT * * RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC * * ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR * FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION * * FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS * LD A1,SCTDCT DATA COMMUNICATION? LD A6,SCTDMT DATA MANAGEMENT ORR A6,A1 DM OR DC? LD A1,SCTOPT GET OPTION WORD ANK A1,/A DISC PAGING OR SWB:S? ORR A6,A1 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:15 NO! LD A6,SAVE11,A13 GET POINTER TO SCLASS LDR* A1,A6 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A6,A1 LAST ENTRY IN SCLASS LDR* A6,A6 GET POINTER TO LAST CLASS LDR* A6,A6 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD ADR A7,A6 ADD TO LENGTH OF CD:TAB CDG:15 EQU * LD A6,SCTDMC GET NUMBER OF GLOBAL FILES SLL A6,2 MULTIPLY BY 4 ADR A7,A6 ADD TO LENGTH OF CD:TAB ADK A7,2 STR A7,A12 ST A12,SCTCDT ADR A12,A7 EJECT * * INIT POINTER TO START OF FREE AREA AND TO CDTAB * LD A10,SCTCDT FIRST ENTRY IN SCTCDT LCR A2,A11 COMMON DEVICE BLOCK? CCK A2,'CC' RF(E) CDG:18 ADKL A10,2 FIRST FREE ENTRY IN CDTAB LDKL A8,0 RF CDGEX CDG:18 EQU * * * GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEF. BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A1,A1 ANY COMMON TERMINAL CLASSES? B:CT40 RF(Z) B:CT50 NO! ST A1,SAVE15,A13 SAVE CALL GETCLN GET CLASS IDENT NUMBER ST A1,SAVE14,A13 SAVE CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE LD A2,SAVE14,A13 GET CLASS IDENT NUMBER ADR A2,A2 CONVERT TO DISPLACEMENT LD A7,SAVE18,A13 GET POINTER TO TCLASS ADR A7,A2 SELECT ENTRY IN TCLASS LDR* A7,A7 GET POINTER TO CLASS CALL DWTGEN GENERATE DWT:S FOR THIS CLASS ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE LD A1,SAVE15,A13 GET NUMBER OF C.T.C. SUK A1,1 DECREMENT COUNTER RB B:CT40 B:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB EJECT * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A8,A1 CDG:20 EQU * RF(NP) CDGEX * * GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * * GET CORRESPONDING DEVICE CLASS IN SCLASS * ADR A1,A1 T LD A6,SAVE11,A13 GET POINTER TO SCLASS CDG:25 EQU * ADR A6,A1 SELECT CLASS LDR* A5,A6 SAVE POINTER TO CLASS LDR* A6,A6 GET POINTER TO CLASS LDR* A6,A6 GET LENGTH OF CLASS SUK A6,2 EXCLUDE LENGTH WORD CDG:30 EQU * ADK A5,4 NEXT DEVICE LDR* A1,A5 GET DWT-ADDRESS LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) CDG:35 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS ANKL A4,/FFFE MAKE IT EVEN! SUR A4,A3 RELOCATE ST A4,DWTMEC,A2 STORE IT BACK CDG:35 EQU * LDR A1,A2 DWT-ADDRESS TO USE CDG:40 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,2,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET FILE CODE STR A1,A10 STORE IN TTAB ADKL A10,4 NEXT ENTRY IN CD:TAB SUK A6,4 DECREMENT DEVICE COUNTER RB(P) CDG:30 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICE CLASSES * ADKL A9,SDC SUKL A8,1 RB CDG:20 CDGEX EQU * RF(N) CDG:EX CD:TAB COMPLETE! LD A1,SCTDMT DATA MANAGEMENT LD A5,SCTDCT DATA COMMUNICATION ORR A1,A5 DM OR DC? LD A5,SCTOPT GET OPTION WORD ANK A5,/A DISC PAGING OR SWB:S? ORR A1,A5 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:EX NO! LD A5,SAVE11,A13 GET POINTER TO SCLASS LDR* A1,A5 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A5,A1 GET LAST ENTRY LDR* A5,A5 GET POINTER TO LAST CLASS LDR* A6,A5 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD RB CDG:30 CDG:EX EQU * LD A2,SCTSFA SUK A2,2 CDG:50 ADK A2,2 CW A2,SCTEFA RF(NE) CDG:60 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW CDG:60 CWR A2,A12 RB(NE) CDG:50 ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN EJECT ********************************************************************** * DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS ********************************************************************** * * ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) * A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT DWTGEN EQU * ST A6,SAVE08,A13 SAVE LINE CONNECTION NUMBER LDR* A8,A7 GET LENGTH OF THIS CLASS SUKL A8,2 EXCLUSIVE LENGTH WORD ADK A7,2 FIRST FILECODE DWT10 EQU * LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT * * DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO * THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE * FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT * CALL I:CHP * * GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) * AND SAVE06 (SELECTS ENTRY) * * SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) * SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 * OF THE GENERATED CHANNEL PARAMETER LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6 LD A3,SCTSFA+2 FIRST INT TABLE POINTER ADR A4,A3 SELECT INTERRUPT TABLE LDR* A4,A4 GET INTERRUPT TABLE ADDRESS LD A3,SAVE06,A13 LINE PARAMETER DWT15 EQU * RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE SUK A3,1 DECREMENT LINE PARAMETER RB DWT15 EJECT DWT17 EQU * ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY * * GET DEVICE ADDRESS: * USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE * OR DEVICE WITHOUT DATA REQUEST * USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES * LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT LDR A2,A6 SAVE ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT SLC A6,7 CHECK IF INPUT DEVICE RF(N) DWT20 YES! * * NOT INPUT DEVICE - CHECK IF DEVICE WITH DATA REQUEST * ANKL A2,/8000 DATA REQUEST BIT SET? RF(Z) DWT20 NO! SRL A6,2 ADK A6,12 RF DWT30 DWT20 EQU * SRL A6,2 SUK A6,2 DWT30 EQU * ANK A6,/1E * * CHECK IF DWT ALREADY GENERATED ON THIS LINE * ADR A6,A4 TABLE ENTRY LDR* A2,A6 DWT ALREADY GENERATED? RF(Z) DWT32 NO! LD A5,DWTECB,A1 CHECK IF ECHO RF(Z) DWT70 NO! ST A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS CM DWTECB,A1 RESET POINTER TO INPUT-DWT RF DWT70 EJECT * * CHECK IF DWT IN DRIVER * DWT32 LDKL A2,SYSLOD TNM A1,A2 RF(NN) DWT34 CWR A1,A2 RF DWT36 DWT34 CWR A2,A1 DWT36 RF(L) DWT38 STR A1,A6 LDR A2,A1 DWT IN DRIVER RF DWT70 DWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS * * COPY DEVICE TYPE DWT * LDR A2,A12 TO-ADDRESS LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE EJECT * * A1 - ADDRESS TO PROTOTYPE DWT * A2 - ADDRESS TO REAL DWT * STR A5,A2 STORE CHANNEL PARAMETER * * CHECK IF INPUT DEVICE * LDR* A3,A1 GET FIRST WORD OF TYPE DWT ANKL A3,/0100 INPUT DEVICE? RF(Z) DWT50 NO * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3 CWK A3,6 RF(NE) DWT60 NOT KEYBOARD * * INPUT DEVICE = KEYBOARD * IF ECHO: * STORE ADDRESS OF KEYBOARD DWT IN THIRD WORD * OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE * LD A5,DWTECH,A1 ECHO? RF(Z) DWT40 NO AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS ST A2,4,A5 SAVE INPUT DWT-ADDRESS EJECT DWT40 EQU * * * RELOCATE POINTERS TO CIRCULAR INPUT BUFFER * LDR A5,A2 GET DWT-ADDRESS ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER ST A5,DWTSQ-4,A2 STORE POINTER ST A5,DWTSQ-2,A2 STORE POINTER * * IF DOUBLE KEYBOARD: * ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE * IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS * LDR* A3,A1 GET FIRST WORD OF TYPE DWT ANK A3,/F GET FOUR RIGHTMOST BITS RF(Z) DWT60 NOT DOUBLE KEYBOARD LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 ADR A3,A3 BYTE DISPLACEMENT AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE STR A5,A3 STORE DEVICE-ADDRESS RF DWT60 EJECT DWT50 EQU * * * OUTPUT DEVICE * IF ECHO OUTPUT DEVICE: * GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD * IN THE DWT. * SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT * AND CLEAR WORD 3 OF THIS DWT. * LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT RF(Z) DWT60 NOT ECHO OUTPUT DEVICE ST A2,DWTECH,A5 STORE DWT-ADDRESS OF REAL OUTPUT DWT CM DWTECB,A1 CLEAR THIRD WORD OF THIS DWT =2 DWT60 EQU * * * CHECK IF PAGING * LD A5,SCTOPT GET OPTION WORD ANK A5,1 MMU PAGING? RF(Z) DWT70 EJECT LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS LDR A4,A1 GET PROTOTYPE DWT-ADDRESS SUR A4,A2 COMPUTE RELOCATION CONSTANT SUR A5,A4 RELOCATE MONITOR ECB ADDRESS ANKL A5,/FFFE MAKE EVEN ADDRESS ST A5,DWTMEC,A2 STORE IT BACK * * PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * LD A5,DWTADR,A2 GET ADDRESS BLOCK LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER RF(Z) DWT70 ALLOCATE NO BUFFER! * * ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS ST A3,2,A5 SAVE LDR A3,A4 GET LENGTH ADK A3,3 ADD BO FERMS CONSTANT+1 ANKL A3,/FFFE MAKE LENGTH EVEN EJECT * * CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN * THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. * IF YES,THAN STORE THE ADDRESS AND SIZE OF THE * INTERNAL BUFFER IN SYSBUF AND BUFSIZ. * CW A3,BUFSIZ,A13 RF(NG) DWT65 ST A3,BUFSIZ,A13 ST A12,SYSBUF,A13 DWT65 EQU * ADR A12,A3 NEXT FREE ENTRY EJECT DWT70 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ADKL A10,2 NEXT ENTRY IN TTAB LDR* A5,A7 GET INDEX/FILECODE STR A5,A10 STORE IN TASK CONF. TABLE ADKL A10,2 NEXT ENTRY IN TTAB STR A2,A10 STORE DWT-ADDRESS * * CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE LDKL A1,DWT10 START OF LOOP AD A1,M:REL,A13 RELOCATE START OF LOOP ABR A1 DWTEX EQU * RTN A14 RETURN EJECT ************************************* * I:CHP - INIT CHANNEL PARAMETER * ************************************* * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * A9 - POINTER TO TDC RECORD * * EXIT: A5 - CHANNEL PARAMETER * SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) * SAVE06 - SELECTS LINE ENTRY (1-8) * * WORK REGISTERS: A3,A4,A5 * * SUBROUTINES: * EJECT I:CHP EQU * LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER SUK A6,1 MODIFY LINE CONNECTION NUMBER LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ANKL A5,/F1F0 CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR NO: REMOTE I:CHPL EQU * ANK A3,7 GET BITS 13-15 ST A3,SAVE06,A13 SAVE SLL A3,9 MOVE TO BITS 4-6 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET LINE CONNECTION NUMBER ANK A3,/18 GET BITS 11-12 SRL A3,2 MOVE TO BITS 13-14 ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 ORR A5,A3 MERGE WITH OLD CONTENTS RF I:CHPE EJECT I:CHPR EQU * * * REMOTE LINE * ANK A3,3 GET BITS 14-15 RF(NZ) I:CH10 ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) ST A3,SAVE06,A13 SAVE ENTRY SELECTOR RF I:CH50 I:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECTOR ST A3,SAVE06,A13 SAVE RF I:CH50 I:CH20 EQU * LDR A3,A6 GET LINE CONNECTION ANK A3,1 GET BIT 15 RF(NZ) I:CH30 ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR ST A3,SAVE06,A13 SAVE RF I:CH50 I:CH30 EQU * ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR ST A3,SAVE06,A13 SAVE EJECT I:CH50 EQU * LDR A3,A6 GET LINE CONNECTION LDK A4,4 INIT COUNTER I:CH60 EQU * SUK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 ADK A4,1 INCREMENT TABLE SELECTOR RB I:CH60 I:CH70 EQU * ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 ST A4,SAVE05,A13 SAVE I:CHPE EQU * RTN A14 RETURN EJECT ********************************************** * B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * ********************************************** * * REFERENCED IN: DWTGEN * * ENTRY: SCTSFA - START OF FREE AREA * * EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABLES * * REGISTER USE: A1 - WORK REGISTER * A2 - " * A3 - " * A4 - LENGTH OF LINE SAVE01URATION TABLE * A5 - DEVICE COUNTER * A6 - LINE COUNTER * A7 - DISPLACEMENT IN SAVE21 * A10- ADDRESS TO TEMPORARY INTERRUPT TABLE * A11- POINTER IN LINE CONF. PART OF REAL INT. TABLE * A12- LINE ENTRY IN REAL INTERRUPT TABLE * * SUBROUTINES * EJECT B:ITAB EQU * LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. LDR A11,A12 LDK A7,0 RESET POINTER IN IABAT BIT10 EQU * LDK A1,0 ST A1,SAVE24,A13 ST A12,SAVE21,A13 SAVE ADKL A11,16 INIT POINTER TO LINE CONF. TABLE * * GET ADDRESS TO TEMPORARY INTERRUPT TABLE * LD A10,SCTSFA+2 ADR A10,A7 LDR* A10,A10 LDK A6,0 RESET LINE ENTRY POINTER BIT20 EQU * * * SAVE POINTER TO START OF LINE SAVE01URATION TABLE * IN TEMPORARY AREA AND RESET LENGTH OF LINE SAVE01URATION TABLE * ST A11,SAVE23,A13 SAVE START OF LINE SAVE01URATION TABLE LDK A4,0 RESET LENGTH OF LINE CONF.TABLE * * INIT POINTER IN TEMPORARY INTERRUPT TABLE * TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,14 EJECT * * CHECK INPUT PART OF TEMPORARY INTERUPT TABLE STARTING * WITH THE LAST DEVICE ENTRY * BIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES BIT35 EQU * SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY RF(Z) BIT50 YES * * NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY * INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR * SUKL A10,2 NEXT ENTRY IN TEMP. INT. TABLE SUKL A11,2 NEXT ENTRY IN REAL INT. TABLE RB BIT30 * * AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. * COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) * OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. * BIT40 EQU * STR A1,A11 STORE CONTENT IN R. I. T. ADK A4,2 INCREMENT LENGTH SUK A5,1 LAS DEVICE ENTRY? RF(Z) BIT50 YES SUKL A10,2 NEXT ENTRY IN T.I.T. SUKL A11,2 NEXT ENTRY IN R.I.T. LDR* A1,A10 GET CONTENT OF NEXT ENTRY RB BIT40 EJECT BIT50 EQU * * * ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT * TABLE HAS BEEN SCANNED. * -INIT POINTER TO FIRST ENTRY IN OUTPUT DEVICE PART * OF THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. * ADKL A10,14 LDK A5,7 * * SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. * -IF AN OCCUPIED ENTRY OCCUR: * FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION * TABLE OF THE REAL INTERRUPT TABLE AND STORE CONTENT IN THIS ENTRY. * -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH * BIT70 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES BIT80 EQU * ADKL A10,2 NEXT ENTRY RB BIT70 BIT90 EQU * * * AN OCCUPIED ENTRY IN OUPUT DEVICE PART OF THE TEMPORARU INTERRUPT TAB * HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. * LDR* A2,A11 RF(Z) BIT100 ADKL A11,2 RB BIT90 EJECT BIT100 EQU * * * AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATION TABLE. * -STORE THE CONTENT IN THIS ENTRY. * -UPDATE LENGTH IF TABLE WAS EXTENDED. * STR A1,A11 STORE CONTENT LD A1,SAVE23,A13 GET START OF L.C.T. LDR A3,A11 GET CURRENT ENTRY SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3 SAVE NEW LENGTH BIT110 EQU * SUK A5,1 LAST ENTRY? RB(P) BIT80 NO BIT120 EQU * * * ALL ENTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE * -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE * SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * LDR A4,A4 ANY ENTRY OCCUPIED? RF(Z) BIT130 NO IM SAVE24,A13 INDICATE DEVICE PRESENT! LD A1,SAVE23,A13 GET POINTER TO L.C.T. STR A1,A12 STORE IN LINE ENTRY STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT BIT130 EQU * * * NO DEVICES ON THIS LINE. * -NO LINE SAVE01URATION TABLE GENERATED * -SKIP LENGTH WORD * -LINE ENTRY CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD BIT140 EQU * ADKL A10,2 NEXT ENTRY IN T.I.T. ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY RB BIT20 BIT150 EQU * * * STORE ADDRESS TO THIS INTERRUPT TABLE IN MONTAB * IF ANY DEVICE PRESENT ON ANY LINE * LD A1,SAVE24,A13 ANY DEVICE PRESENT? RF(Z) BIT155 NO! LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS ST A1,INTLT1,A7 SAVE RF BIT158 BIT155 EQU * LD A11,SAVE21,A13 GET START OF FREE AREA BIT158 EQU * * * ALL LINES OF THIS INTERRUPT TABLE HAS BEEN SCANNED. * -CHECK IF ALL INTERRUPT TABLES (INTLT1-INTRT4) HAS BEEN GENERATED * ADK A7,2 NEXT ENTRY IN ITAB CWK A7,16 LAST ENTRY? RF(E) BIT160 YES LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 BIT160 EQU * * * ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED * AND ALL THE REAL INTERRUPT TABLES HAS BEEN GENERATED. * POINTERS TO THE REAL INTERRUPT TABLES HAS BEEN INSERTED IN MOXTAB. * LD A2,SCTSFA SUK A2,2 BIT165 ADK A2,2 CW A2,SCTEFA CHECK IF MEMORY OVERFLOW RF(NE) BIT170 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BIT170 CWR A2,A11 RB(NE) BIT165 ST A13,SCTEFA SKIP TEMP. INT. TABLE ST A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN EJECT
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDM REL 9.2 80-03-19 870105040920 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005a Head {h00=0x0018, h01=0x0050, text=» REL 9.2 79-12-20 «, t00=0x0000, t01=0x0042}
0x0005a…0007c Head {h00=0x001e, h01=0x0050, text=» =2,FAULTY ECHO FUNCTION«, t00=0x0000, t01=0x005e}
0x0007c…000ba Head {h00=0x003a, h01=0x0050, text=» =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE «, t00=0x0000, t01=0x0080}
0x000ba…000d8 Head {h00=0x001a, h01=0x0050, text=» REL 9.2 79-12-20 ST«, t00=0x0000, t01=0x00be}
0x000d8…000ee Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDM «, t00=0x0000, t01=0x00dc}
0x000ee…00112 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x00f2}
0x00112…00136 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0116}
0x00136…0015a Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0000, t01=0x013a}
0x0015a…0017e Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x015e}
0x0017e…001a2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0182}
0x001a2…001b8 Head {h00=0x0012, h01=0x0050, text=» EXTRN FREQUE «, t00=0x0001, t01=0x0016}
0x001b8…001ce Head {h00=0x0012, h01=0x0050, text=» EXTRN INTLT1 «, t00=0x0001, t01=0x002c}
0x001ce…001e0 Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0001, t01=0x0042}
0x001e0…001f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCLASS «, t00=0x0001, t01=0x0054}
0x001f6…0020c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTADA «, t00=0x0001, t01=0x006a}
0x0020c…00222 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0001, t01=0x0080}
0x00222…00238 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBLK «, t00=0x0001, t01=0x0096}
0x00238…0024e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0001, t01=0x00ac}
0x0024e…00264 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTCDT «, t00=0x0001, t01=0x00c2}
0x00264…0027a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDCT «, t00=0x0001, t01=0x00d8}
0x0027a…00290 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMC «, t00=0x0001, t01=0x00ee}
0x00290…002a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMI «, t00=0x0001, t01=0x0104}
0x002a6…002bc Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDML «, t00=0x0001, t01=0x011a}
0x002bc…002d2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMT «, t00=0x0001, t01=0x0130}
0x002d2…002e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0001, t01=0x0146}
0x002e8…002fe Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAC «, t00=0x0001, t01=0x015c}
0x002fe…00314 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAP «, t00=0x0001, t01=0x0172}
0x00314…0032a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0001, t01=0x0188}
0x0032a…00340 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOS «, t00=0x0002, t01=0x000e}
0x00340…00356 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0002, t01=0x0024}
0x00356…0036c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPAG «, t00=0x0002, t01=0x003a}
0x0036c…00382 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPLD «, t00=0x0002, t01=0x0050}
0x00382…00398 Head {h00=0x0012, h01=0x0050, text=» EXTRN STTPSZ «, t00=0x0002, t01=0x0066}
0x00398…003ae Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0002, t01=0x007c}
0x003ae…003c4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSEG «, t00=0x0002, t01=0x0092}
0x003c4…003da Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0002, t01=0x00a8}
0x003da…003f0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSWB «, t00=0x0002, t01=0x00be}
0x003f0…00406 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0002, t01=0x00d4}
0x00406…0041c Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBAS «, t00=0x0002, t01=0x00ea}
0x0041c…00432 Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLOD «, t00=0x0002, t01=0x0100}
0x00432…00448 Head {h00=0x0012, h01=0x0050, text=» EXTRN TCLASS «, t00=0x0002, t01=0x0116}
0x00448…0045e Head {h00=0x0012, h01=0x0050, text=» EXTRN TTMJOB «, t00=0x0002, t01=0x012c}
0x0045e…00474 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECH «, t00=0x0002, t01=0x0142}
0x00474…00488 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTSQ«, t00=0x0002, t01=0x0158}
0x00488…00496 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x016c}
0x00496…004aa Head {h00=0x0010, h01=0x0050, text=» EXTRN M:REL«, t00=0x0002, t01=0x017a}
0x004aa…004be Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0002, t01=0x018e}
0x004be…004d2 Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0003, t01=0x0012}
0x004d2…004e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0003, t01=0x0026}
0x004e8…004fe Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0003, t01=0x003c}
0x004fe…00514 Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTBLK «, t00=0x0003, t01=0x0052}
0x00514…0052a Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDA «, t00=0x0003, t01=0x0068}
0x0052a…00540 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE01 «, t00=0x0003, t01=0x007e}
0x00540…00556 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE02 «, t00=0x0003, t01=0x0094}
0x00556…0056c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE03 «, t00=0x0003, t01=0x00aa}
0x0056c…00582 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE04 «, t00=0x0003, t01=0x00c0}
0x00582…00598 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE05 «, t00=0x0003, t01=0x00d6}
0x00598…005ae Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE06 «, t00=0x0003, t01=0x00ec}
0x005ae…005c4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE07 «, t00=0x0003, t01=0x0102}
0x005c4…005da Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE08 «, t00=0x0003, t01=0x0118}
0x005da…005f0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE09 «, t00=0x0003, t01=0x012e}
0x005f0…00606 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE10 «, t00=0x0003, t01=0x0144}
0x00606…0061c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE11 «, t00=0x0003, t01=0x015a}
0x0061c…00632 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE12 «, t00=0x0003, t01=0x0170}
0x00632…00648 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE13 «, t00=0x0003, t01=0x0186}
0x00648…0065e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE14 «, t00=0x0004, t01=0x000c}
0x0065e…00674 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE15 «, t00=0x0004, t01=0x0022}
0x00674…0068a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE16 «, t00=0x0004, t01=0x0038}
0x0068a…006a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE17 «, t00=0x0004, t01=0x004e}
0x006a0…006b6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE18 «, t00=0x0004, t01=0x0064}
0x006b6…006cc Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE19 «, t00=0x0004, t01=0x007a}
0x006cc…006e2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE20 «, t00=0x0004, t01=0x0090}
0x006e2…006f8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE21 «, t00=0x0004, t01=0x00a6}
0x006f8…0070e Head {h00=0x0012, h01=0x0050, text=» EXTRN NUMSEG «, t00=0x0004, t01=0x00bc}
0x0070e…00724 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE23 «, t00=0x0004, t01=0x00d2}
0x00724…0073a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE24 «, t00=0x0004, t01=0x00e8}
0x0073a…00750 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE25 «, t00=0x0004, t01=0x00fe}
0x00750…00766 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSIZ «, t00=0x0004, t01=0x0114}
0x00766…0077c Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBUF «, t00=0x0004, t01=0x012a}
0x0077c…00792 Head {h00=0x0012, h01=0x0050, text=» EXTRN PRGLG1 «, t00=0x0004, t01=0x0140}
0x00792…007a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0156}
0x007a0…007aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0164}
0x007aa…007ca Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL SUBROUTINES «, t00=0x0004, t01=0x016e}
0x007ca…007d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x007d4…007ea Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTCOM «, t00=0x0005, t01=0x0008}
0x007ea…00800 Head {h00=0x0012, h01=0x0050, text=» EXTRN GETNUM «, t00=0x0005, t01=0x001e}
0x00800…0080e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0034}
0x0080e…00816 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0042}
0x00816…0081e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x004a}
0x0081e…0084e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x0052}
0x0084e…0087e Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0005, t01=0x0082}
0x0087e…008ae Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x00b2}
0x008ae…008b6 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00e2}
0x008b6…008e2 Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 0 MEMORY MANAGEMENT UNIT «, t00=0x0005, t01=0x00ea}
0x008e2…0090c Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x0005, t01=0x0116}
0x0090c…00934 Head {h00=0x0024, h01=0x0050, text=»CREDIT EQU 1 CREDIT APPLICATION «, t00=0x0005, t01=0x0140}
0x00934…00942 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0168}
0x00942…0094e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0176}
0x0094e…00958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x00958…0096c Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0005, t01=0x018c}
0x0096c…00976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x00976…009a4 Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0006, t01=0x001a}
0x009a4…009d8 Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0006, t01=0x0048}
0x009d8…009fc Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0006, t01=0x007c}
0x009fc…00a24 Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0006, t01=0x00a0}
0x00a24…00a30 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x00c8}
0x00a30…00a3c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x00d4}
0x00a3c…00a64 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x00e0}
0x00a64…00a8c Head {h00=0x0024, h01=0x0050, text=»* SAVE01URATION FILE (SAVE01) * «, t00=0x0006, t01=0x0108}
0x00a8c…00ab4 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x0130}
0x00ab4…00ac0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x0158}
0x00ac0…00ae0 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x0164}
0x00ae0…00b02 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x0184}
0x00b02…00b2e Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0007, t01=0x0016}
0x00b2e…00b5e Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0007, t01=0x0042}
0x00b5e…00b8e Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0007, t01=0x0072}
0x00b8e…00bb6 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0007, t01=0x00a2}
0x00bb6…00bf4 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0007, t01=0x00ca}
0x00bf4…00bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x00bfe…00c28 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0007, t01=0x0112}
0x00c28…00c50 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x013c}
0x00c50…00c72 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x0007, t01=0x0164}
0x00c72…00c9e Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0007, t01=0x0186}
0x00c9e…00ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x00ca8…00cd6 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0008, t01=0x002c}
0x00cd6…00ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005a}
0x00ce0…00d04 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0008, t01=0x0064}
0x00d04…00d26 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x0088}
0x00d26…00d60 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0008, t01=0x00aa}
0x00d60…00d8c Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x0008, t01=0x00e4}
0x00d8c…00d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x00d96…00da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011a}
0x00da0…00dca Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x0124}
0x00dca…00dec Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x014e}
0x00dec…00e1c Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x0170}
0x00e1c…00e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x00e26…00e52 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x0009, t01=0x001a}
0x00e52…00e72 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0009, t01=0x0046}
0x00e72…00e98 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0009, t01=0x0066}
0x00e98…00eca Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0009, t01=0x008c}
0x00eca…00ed8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00be}
0x00ed8…00ef0 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x00cc}
0x00ef0…00f08 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0009, t01=0x00e4}
0x00f08…00f20 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x00fc}
0x00f20…00f42 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x0114}
0x00f42…00f4a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0136}
0x00f4a…00f6c Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x013e}
0x00f6c…00f82 Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x0160}
0x00f82…00f98 Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x0176}
0x00f98…00fac Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0009, t01=0x018c}
0x00fac…00fc0 Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x000a, t01=0x0010}
0x00fc0…00fd4 Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x000a, t01=0x0024}
0x00fd4…00fe8 Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x000a, t01=0x0038}
0x00fe8…00ffa Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x000a, t01=0x004c}
0x00ffa…0100c Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x000a, t01=0x005e}
0x0100c…01020 Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x000a, t01=0x0070}
0x01020…01034 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x000a, t01=0x0084}
0x01034…01040 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000a, t01=0x0098}
0x01040…0108a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000a, t01=0x00a4}
0x0108a…010d4 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000a, t01=0x00ee}
0x010d4…0111e Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000a, t01=0x0138}
0x0111e…01168 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0182}
0x01168…011b2 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x003c}
0x011b2…011be Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x0086}
0x011be…011ca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x0092}
0x011ca…011d6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x009e}
0x011d6…011f4 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000b, t01=0x00aa}
0x011f4…01202 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00c8}
0x01202…0124c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x00d6}
0x0124c…01296 Head {h00=0x0046, h01=0x0050, text=»* CONSTANTS USED IN SYSLOD PART M * «, t00=0x000b, t01=0x0120}
0x01296…012e0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x016a}
0x012e0…012ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x012ea…0130e Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000c, t01=0x002e}
0x0130e…01332 Head {h00=0x0020, h01=0x0050, text=»* * TTAB * «, t00=0x000c, t01=0x0052}
0x01332…01356 Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000c, t01=0x0076}
0x01356…01360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x01360…01376 Head {h00=0x0012, h01=0x0050, text=»TTB:MT EQU -34«, t00=0x000c, t01=0x00a4}
0x01376…0138c Head {h00=0x0012, h01=0x0050, text=»TTB:SB EQU -2 «, t00=0x000c, t01=0x00ba}
0x0138c…013a0 Head {h00=0x0010, h01=0x0050, text=»TTB:ID EQU 2«, t00=0x000c, t01=0x00d0}
0x013a0…013b4 Head {h00=0x0010, h01=0x0050, text=»TTB:ST EQU 4«, t00=0x000c, t01=0x00e4}
0x013b4…013c8 Head {h00=0x0010, h01=0x0050, text=»TTB:PP EQU 6«, t00=0x000c, t01=0x00f8}
0x013c8…013dc Head {h00=0x0010, h01=0x0050, text=»TTB:PW EQU 8«, t00=0x000c, t01=0x010c}
0x013dc…013f2 Head {h00=0x0012, h01=0x0050, text=»TTB:SA EQU 10 «, t00=0x000c, t01=0x0120}
0x013f2…01408 Head {h00=0x0012, h01=0x0050, text=»TTB:TD EQU 40 «, t00=0x000c, t01=0x0136}
0x01408…01416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x014c}
0x01416…01420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015a}
0x01420…01442 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000c, t01=0x0164}
0x01442…01464 Head {h00=0x001e, h01=0x0050, text=»* * DWT * «, t00=0x000c, t01=0x0186}
0x01464…01486 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000d, t01=0x0018}
0x01486…01490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x01490…014b6 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x000d, t01=0x0044}
0x014b6…014d0 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STATUS«, t00=0x000d, t01=0x006a}
0x014d0…014f0 Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB ADDRESS«, t00=0x000d, t01=0x0084}
0x014f0…0150a Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x000d, t01=0x00a4}
0x0150a…0152c Head {h00=0x001e, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK«, t00=0x000d, t01=0x00be}
0x0152c…0154e Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB ADDRESS«, t00=0x000d, t01=0x00e0}
0x0154e…0157c Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x000d, t01=0x0102}
0x0157c…015a0 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x000d, t01=0x0130}
0x015a0…015c6 Head {h00=0x0022, h01=0x0050, text=»DWTUEC EQU 16 USER ECB ADDRESS«, t00=0x000d, t01=0x0154}
0x015c6…015f0 Head {h00=0x0026, h01=0x0050, text=»DWTMEC EQU 18 MONITOR ECB ADDRESS «, t00=0x000d, t01=0x017a}
0x015f0…015fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0014}
0x015fe…01608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0022}
0x01608…0162e Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x000e, t01=0x002c}
0x0162e…01654 Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x000e, t01=0x0052}
0x01654…0167a Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x000e, t01=0x0078}
0x0167a…01684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009e}
0x01684…01698 Head {h00=0x0010, h01=0x0050, text=»PAGQF EQU 0 «, t00=0x000e, t01=0x00a8}
0x01698…016ac Head {h00=0x0010, h01=0x0050, text=»PAGQB EQU 2 «, t00=0x000e, t01=0x00bc}
0x016ac…016c0 Head {h00=0x0010, h01=0x0050, text=»PAGPA EQU 4 «, t00=0x000e, t01=0x00d0}
0x016c0…016d4 Head {h00=0x0010, h01=0x0050, text=»PAGSB EQU 6 «, t00=0x000e, t01=0x00e4}
0x016d4…016e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00f8}
0x016e2…016ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x016ec…01716 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x000e, t01=0x0110}
0x01716…01740 Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x000e, t01=0x013a}
0x01740…0176a Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x000e, t01=0x0164}
0x0176a…01774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x01774…01788 Head {h00=0x0010, h01=0x0050, text=»SEGPB EQU 6 «, t00=0x000f, t01=0x0008}
0x01788…0179c Head {h00=0x0010, h01=0x0050, text=»SEGSB EQU 6 «, t00=0x000f, t01=0x001c}
0x0179c…017a4 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0030}
0x017a4…017b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0038}
0x017b2…017bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x017bc…017ea Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x000f, t01=0x0050}
0x017ea…01818 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x000f, t01=0x007e}
0x01818…01846 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x000f, t01=0x00ac}
0x01846…01850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x01850…01866 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x000f, t01=0x00e4}
0x01866…0187c Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x000f, t01=0x00fa}
0x0187c…01890 Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x000f, t01=0x0110}
0x01890…018a4 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x000f, t01=0x0124}
0x018a4…018b8 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x000f, t01=0x0138}
0x018b8…018cc Head {h00=0x0010, h01=0x0050, text=»LCND1 EQU 10«, t00=0x000f, t01=0x014c}
0x018cc…018e0 Head {h00=0x0010, h01=0x0050, text=»LCND2 EQU 11«, t00=0x000f, t01=0x0160}
0x018e0…0190c Head {h00=0x0028, h01=0x0050, text=»SWBLEN EQU 4 DISPL. TO LENGTH OF SWB«, t00=0x000f, t01=0x0174}
0x0190c…0193c Head {h00=0x002c, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO LENGTH IN SECTORS«, t00=0x0010, t01=0x0010}
0x0193c…0194a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0040}
0x0194a…01988 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0010, t01=0x004e}
0x01988…019c6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x008c}
0x019c6…01a04 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00ca}
0x01a04…01a42 Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0010, t01=0x0108}
0x01a42…01a80 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0146}
0x01a80…01abe Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0010, t01=0x0184}
0x01abe…01afc Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0011, t01=0x0032}
0x01afc…01b3a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0070}
0x01b3a…01b78 Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDA *«, t00=0x0011, t01=0x00ae}
0x01b78…01bb6 Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA *«, t00=0x0011, t01=0x00ec}
0x01bb6…01bf4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x012a}
0x01bf4…01c32 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0168}
0x01c32…01c70 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0012, t01=0x0016}
0x01c70…01c84 Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0012, t01=0x0054}
0x01c84…01cb0 Head {h00=0x0028, h01=0x0050, text=» ST P,SCTSFA+2 SAVE LOCATION COUNTER«, t00=0x0012, t01=0x0068}
0x01cb0…01ce2 Head {h00=0x002e, h01=0x0050, text=» LDKL A11,SYSBAS GET SYSBAS START ADDRESS «, t00=0x0012, t01=0x0094}
0x01ce2…01d12 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x0012, t01=0x00c6}
0x01d12…01d36 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0012, t01=0x00f6}
0x01d36…01d60 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 RELOCATION ROUTINE ENTRY«, t00=0x0012, t01=0x011a}
0x01d60…01d72 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0012, t01=0x0144}
0x01d72…01da0 Head {h00=0x002a, h01=0x0050, text=» ST A13,SCTEFA UPDATE END OF FREE AREA«, t00=0x0012, t01=0x0156}
0x01da0…01dce Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0012, t01=0x0184}
0x01dce…01e00 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0013, t01=0x0022}
0x01e00…01e28 Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0013, t01=0x0054}
0x01e28…01e58 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0013, t01=0x007c}
0x01e58…01e92 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS«, t00=0x0013, t01=0x00ac}
0x01e92…01ec6 Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0013, t01=0x00e6}
0x01ec6…01ef6 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0013, t01=0x011a}
0x01ef6…01f30 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS«, t00=0x0013, t01=0x014a}
0x01f30…01f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0184}
0x01f3a…01f64 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x0013, t01=0x018e}
0x01f64…01f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0028}
0x01f6e…01f84 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTEFA «, t00=0x0014, t01=0x0032}
0x01f84…01f9a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0014, t01=0x0048}
0x01f9a…01fae Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x0014, t01=0x005e}
0x01fae…01fc0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0014, t01=0x0072}
0x01fc0…01fd0 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x0014, t01=0x0084}
0x01fd0…01fe2 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0014, t01=0x0094}
0x01fe2…01ff8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x0014, t01=0x00a6}
0x01ff8…02010 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x0014, t01=0x00bc}
0x02010…02028 Head {h00=0x0014, h01=0x0050, text=» AD A1,M:REL,A13«, t00=0x0014, t01=0x00d4}
0x02028…02038 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0014, t01=0x00ec}
0x02038…02046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00fc}
0x02046…0207e Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0014, t01=0x010a}
0x0207e…020b6 Head {h00=0x0034, h01=0x002f, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0014, t01=0x0142}
0x020b6…020ee Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0014, t01=0x017a}
0x020ee…020f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0022}
0x020f8…02128 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0015, t01=0x002c}
0x02128…02154 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0015, t01=0x005c}
0x02154…02180 Head {h00=0x0028, h01=0x0023, text=»* A12 - RELOCATION CONSTANT «, t00=0x0015, t01=0x0088}
0x02180…0218a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00b4}
0x0218a…021c0 Head {h00=0x0032, h01=0x002e, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0015, t01=0x00be}
0x021c0…021ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00f4}
0x021ca…021e8 Head {h00=0x001a, h01=0x0016, text=»* WORK REGISTER:A1-A7«, t00=0x0015, t01=0x00fe}
0x021e8…021f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x011c}
0x021f2…0220a Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0015, t01=0x0126}
0x0220a…02214 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x013e}
0x02214…02228 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0015, t01=0x0148}
0x02228…0224c Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0015, t01=0x015c}
0x0224c…02282 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0015, t01=0x0180}
0x02282…022b2 Head {h00=0x002c, h01=0x0027, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0016, t01=0x0026}
0x022b2…022c6 Head {h00=0x0010, h01=0x000c, text=»CHPT10 EQU *«, t00=0x0016, t01=0x0056}
0x022c6…022f8 Head {h00=0x002e, h01=0x0029, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0016, t01=0x006a}
0x022f8…02312 Head {h00=0x0016, h01=0x0011, text=» RF(Z) CHPT30 NO! «, t00=0x0016, t01=0x009c}
0x02312…0232e Head {h00=0x0018, h01=0x0014, text=» ADK A3,2 NEXT ENTRY«, t00=0x0016, t01=0x00b6}
0x0232e…02356 Head {h00=0x0024, h01=0x0021, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0016, t01=0x00d2}
0x02356…02372 Head {h00=0x0018, h01=0x0014, text=» ADR A5,A12 RELOCATE«, t00=0x0016, t01=0x00fa}
0x02372…0238a Head {h00=0x0014, h01=0x0010, text=» STR A5,A3 STORE«, t00=0x0016, t01=0x0116}
0x0238a…023b2 Head {h00=0x0024, h01=0x001f, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0016, t01=0x012e}
0x023b2…023c6 Head {h00=0x0010, h01=0x000c, text=»CHPT20 EQU *«, t00=0x0016, t01=0x0156}
0x023c6…023f4 Head {h00=0x002a, h01=0x0026, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0016, t01=0x016a}
0x023f4…0240e Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0017, t01=0x0008}
0x0240e…0242c Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x0017, t01=0x0022}
0x0242c…02450 Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0017, t01=0x0040}
0x02450…02472 Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x0017, t01=0x0064}
0x02472…02498 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x0017, t01=0x0086}
0x02498…024bc Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x0017, t01=0x00ac}
0x024bc…024d8 Head {h00=0x0018, h01=0x0014, text=» ADR A7,A12 RELOCATE«, t00=0x0017, t01=0x00d0}
0x024d8…02506 Head {h00=0x002a, h01=0x0025, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x0017, t01=0x00ec}
0x02506…0252c Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x0017, t01=0x011a}
0x0252c…0254e Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x0017, t01=0x0140}
0x0254e…02568 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x0017, t01=0x0162}
0x02568…02598 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x0017, t01=0x017c}
0x02598…025c2 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x0018, t01=0x001c}
0x025c2…025f0 Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x0018, t01=0x0046}
0x025f0…0260c Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x0018, t01=0x0074}
0x0260c…02628 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x0018, t01=0x0090}
0x02628…0265a Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x0018, t01=0x00ac}
0x0265a…0268a Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x0018, t01=0x00de}
0x0268a…0269c Head {h00=0x000e, h01=0x000a, text=» RB CHPT20«, t00=0x0018, t01=0x010e}
0x0269c…026b0 Head {h00=0x0010, h01=0x000c, text=»CHPT30 EQU *«, t00=0x0018, t01=0x0120}
0x026b0…026c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0134}
0x026c0…026ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0144}
0x026ce…02708 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0018, t01=0x0152}
0x02708…02742 Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x0018, t01=0x018c}
0x02742…0277c Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0019, t01=0x0036}
0x0277c…02786 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0070}
0x02786…027a6 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0019, t01=0x007a}
0x027a6…027b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x009a}
0x027b0…027e6 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA«, t00=0x0019, t01=0x00a4}
0x027e6…027f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00da}
0x027f4…0282e Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0019, t01=0x00e8}
0x0282e…02868 Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x0019, t01=0x0122}
0x02868…028a2 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0019, t01=0x015c}
0x028a2…028ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0008}
0x028ac…028cc Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x001a, t01=0x0012}
0x028cc…028d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0032}
0x028d6…0290c Head {h00=0x0032, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA«, t00=0x001a, t01=0x003c}
0x0290c…02916 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0072}
0x02916…0293c Head {h00=0x0022, h01=0x001e, text=»* EXIT: A6 - START OF TC:TAB«, t00=0x001a, t01=0x007c}
0x0293c…02964 Head {h00=0x0024, h01=0x001f, text=»* A7 - LENGTH OF TC:TAB «, t00=0x001a, t01=0x00a2}
0x02964…0296e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00ca}
0x0296e…02990 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A2,A3 «, t00=0x001a, t01=0x00d4}
0x02990…0299a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00f6}
0x0299a…029b2 Head {h00=0x0014, h01=0x0011, text=»* SUBROUTINES: «, t00=0x001a, t01=0x0100}
0x029b2…029bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0118}
0x029bc…029ee Head {h00=0x002e, h01=0x0029, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x001a, t01=0x0122}
0x029ee…02a20 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001a, t01=0x0154}
0x02a20…02a52 Head {h00=0x002e, h01=0x002a, text=»* I LENGTH I«, t00=0x001a, t01=0x0186}
0x02a52…02a84 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001b, t01=0x0028}
0x02a84…02ab6 Head {h00=0x002e, h01=0x002a, text=»* I TTMJOB I«, t00=0x001b, t01=0x005a}
0x02ab6…02ae8 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001b, t01=0x008c}
0x02ae8…02b1a Head {h00=0x002e, h01=0x002a, text=»* I MONITOR TASKS I«, t00=0x001b, t01=0x00be}
0x02b1a…02b4c Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001b, t01=0x00f0}
0x02b4c…02b7e Head {h00=0x002e, h01=0x002a, text=»* I USER TASKS I«, t00=0x001b, t01=0x0122}
0x02b7e…02bb0 Head {h00=0x002e, h01=0x0029, text=»* __________________________ «, t00=0x001b, t01=0x0154}
0x02bb0…02bba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0186}
0x02bba…02bc8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001b, t01=0x0190}
0x02bc8…02bdc Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x001c, t01=0x000e}
0x02bdc…02c16 Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x001c, t01=0x0022}
0x02c16…02c42 Head {h00=0x0028, h01=0x0024, text=» LD A7,SCTSFA GET START OF FREE AREA«, t00=0x001c, t01=0x005c}
0x02c42…02c5a Head {h00=0x0014, h01=0x000f, text=» LDR A6,A7 SAVE «, t00=0x001c, t01=0x0088}
0x02c5a…02c84 Head {h00=0x0026, h01=0x0022, text=» LDKL A2,TTMJOB GET TTMJOB ADDRESS«, t00=0x001c, t01=0x00a0}
0x02c84…02ca8 Head {h00=0x0020, h01=0x001b, text=» ST A2,2,A7 STORE IN TC:TAB «, t00=0x001c, t01=0x00ca}
0x02ca8…02cd6 Head {h00=0x002a, h01=0x0025, text=» ADK A7,4 CONTINUE WITH MONITOR TASKS «, t00=0x001c, t01=0x00ee}
0x02cd6…02d02 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTOPT ANY OPTIONS AVALIABLE?«, t00=0x001c, t01=0x011c}
0x02d02…02d1c Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT15 NO! «, t00=0x001c, t01=0x0148}
0x02d1c…02d60 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x0162}
0x02d60…02da4 Head {h00=0x0040, h01=0x0050, text=»* RESERV ENTRIES IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * «, t00=0x001d, t01=0x0016}
0x02da4…02de8 Head {h00=0x0040, h01=0x0050, text=»* - TO BE PROVIDED * «, t00=0x001d, t01=0x005a}
0x02de8…02e2c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001d, t01=0x009e}
0x02e2c…02e40 Head {h00=0x0010, h01=0x0050, text=»BTCT15 EQU *«, t00=0x001d, t01=0x00e2}
0x02e40…02e66 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTDMT DATA MANAGEMENT?«, t00=0x001d, t01=0x00f6}
0x02e66…02e80 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT30 NO! «, t00=0x001d, t01=0x011c}
0x02e80…02e9e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE SCTDMT«, t00=0x001d, t01=0x0136}
0x02e9e…02eba Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 DMTASK D0?«, t00=0x001d, t01=0x0154}
0x02eba…02ed4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT20 NO! «, t00=0x001d, t01=0x0170}
0x02ed4…02f00 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DMTASK D0«, t00=0x001d, t01=0x018a}
0x02f00…02f14 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x001e, t01=0x0026}
0x02f14…02f32 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 GET SCTDMT «, t00=0x001e, t01=0x003a}
0x02f32…02f50 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DM-TASK D1? «, t00=0x001e, t01=0x0058}
0x02f50…02f6a Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT25 NO! «, t00=0x001e, t01=0x0076}
0x02f6a…02f98 Head {h00=0x002a, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DM-TASK D0 «, t00=0x001e, t01=0x0090}
0x02f98…02fac Head {h00=0x0010, h01=0x0050, text=»BTCT25 EQU *«, t00=0x001e, t01=0x00be}
0x02fac…02fca Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 GET SCTDMT «, t00=0x001e, t01=0x00d2}
0x02fca…02fe6 Head {h00=0x0018, h01=0x0050, text=» ANK A2,4 DMTASK D2?«, t00=0x001e, t01=0x00f0}
0x02fe6…03000 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT30 NO! «, t00=0x001e, t01=0x010c}
0x03000…0302c Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DMTASK D2«, t00=0x001e, t01=0x0126}
0x0302c…03040 Head {h00=0x0010, h01=0x0050, text=»BTCT30 EQU *«, t00=0x001e, t01=0x0152}
0x03040…0304a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0166}
0x0304a…03088 Head {h00=0x003a, h01=0x0035, text=»* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB «, t00=0x001e, t01=0x0170}
0x03088…03092 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x001e}
0x03092…030c4 Head {h00=0x002e, h01=0x0029, text=»* A11 - POINTER TO TASK DEFINITION BLOCK «, t00=0x001f, t01=0x0028}
0x030c4…030ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x005a}
0x030ce…03104 Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x001f, t01=0x0064}
0x03104…03134 Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x001f, t01=0x009a}
0x03134…03156 Head {h00=0x001e, h01=0x001a, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x001f, t01=0x00ca}
0x03156…03182 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x001f, t01=0x00ec}
0x03182…0319c Head {h00=0x0016, h01=0x0011, text=» RF(E) BTCT35 YES «, t00=0x001f, t01=0x0118}
0x0319c…031be Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x001f, t01=0x0132}
0x031be…031d6 Head {h00=0x0014, h01=0x0010, text=» CALL ERROR HALT«, t00=0x001f, t01=0x0154}
0x031d6…031ea Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x001f, t01=0x016c}
0x031ea…031f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0180}
0x031f4…03228 Head {h00=0x0030, h01=0x002c, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x001f, t01=0x018a}
0x03228…03232 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x002e}
0x03232…03246 Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0020, t01=0x0038}
0x03246…0326e Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0020, t01=0x004c}
0x0326e…03282 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0020, t01=0x0074}
0x03282…032b2 Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0020, t01=0x0088}
0x032b2…032dc Head {h00=0x0026, h01=0x0050, text=» CW A7,SCTEFA CHECK IF MEMORY LEFT«, t00=0x0020, t01=0x00b8}
0x032dc…032f8 Head {h00=0x0018, h01=0x0050, text=» RF(NE) BTCT55 YES! «, t00=0x0020, t01=0x00e2}
0x032f8…0330e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0020, t01=0x00fe}
0x0330e…0333a Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0020, t01=0x0114}
0x0333a…0334e Head {h00=0x0010, h01=0x0050, text=»BTCT55 EQU *«, t00=0x0020, t01=0x0140}
0x0334e…0337a Head {h00=0x0028, h01=0x0024, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0020, t01=0x0154}
0x0337a…03394 Head {h00=0x0016, h01=0x0011, text=» RB(P) BTCT50 YES «, t00=0x0020, t01=0x0180}
0x03394…033bc Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0021, t01=0x000a}
0x033bc…033e8 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0021, t01=0x0032}
0x033e8…03402 Head {h00=0x0016, h01=0x0011, text=» RB(E) BTCT40 YES «, t00=0x0021, t01=0x005e}
0x03402…0340c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0078}
0x0340c…03444 Head {h00=0x0034, h01=0x0030, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0021, t01=0x0082}
0x03444…0344e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x00ba}
0x0344e…0347c Head {h00=0x002a, h01=0x0025, text=» ST A7,SCTSFA UPDATE END OF FREE AREA «, t00=0x0021, t01=0x00c4}
0x0347c…034a0 Head {h00=0x0020, h01=0x001b, text=» SUR A7,A6 LENGTH OF TC:TAB «, t00=0x0021, t01=0x00f2}
0x034a0…034ca Head {h00=0x0026, h01=0x0021, text=» STR A7,A6 STORE LENGTH IN TC:TAB «, t00=0x0021, t01=0x0116}
0x034ca…034f8 Head {h00=0x002a, h01=0x0050, text=» ST A6,SCTTCT STORE POINTER TO TC:TAB «, t00=0x0021, t01=0x0140}
0x034f8…03508 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0021, t01=0x016e}
0x03508…03516 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0021, t01=0x017e}
0x03516…03550 Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x0021, t01=0x018c}
0x03550…0358a Head {h00=0x0036, h01=0x0031, text=»* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * «, t00=0x0022, t01=0x0036}
0x0358a…035c4 Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x0022, t01=0x0070}
0x035c4…035ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x00aa}
0x035ce…035fc Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0022, t01=0x00b4}
0x035fc…0362a Head {h00=0x002a, h01=0x0050, text=»* SCTTCT - ADDRESS TO TC:TAB «, t00=0x0022, t01=0x00e2}
0x0362a…03660 Head {h00=0x0032, h01=0x002d, text=»* SCTDMT - DATA MANAGEMENT INDICATOR «, t00=0x0022, t01=0x0110}
0x03660…0366a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0146}
0x0366a…0367a Head {h00=0x000c, h01=0x000b, text=»* EXIT:«, t00=0x0022, t01=0x0150}
0x0367a…03684 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0160}
0x03684…036b0 Head {h00=0x0028, h01=0x0023, text=»* WORK REGISTERS: A1,A2,A3,A7,A12 «, t00=0x0022, t01=0x016a}
0x036b0…036ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0008}
0x036ba…036d8 Head {h00=0x001a, h01=0x0016, text=»* SUBROUTINES: DMTGEN«, t00=0x0023, t01=0x0012}
0x036d8…036e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0030}
0x036e2…036f6 Head {h00=0x0010, h01=0x0050, text=»B:DMTT EQU *«, t00=0x0023, t01=0x003a}
0x036f6…03724 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0023, t01=0x004e}
0x03724…03750 Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTTCT GET POINTER TO TC:TAB «, t00=0x0023, t01=0x007c}
0x03750…03776 Head {h00=0x0022, h01=0x001d, text=» ADK A7,4 FIRST DM-TASK ENTRY «, t00=0x0023, t01=0x00a8}
0x03776…0379e Head {h00=0x0024, h01=0x001f, text=» LD A2,SCTDMT DATA MANAGEMENT? «, t00=0x0023, t01=0x00ce}
0x0379e…037b8 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTTEX NO! «, t00=0x0023, t01=0x00f6}
0x037b8…037ea Head {h00=0x002e, h01=0x0029, text=» LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR «, t00=0x0023, t01=0x0110}
0x037ea…0381c Head {h00=0x002e, h01=0x002a, text=» LD A6,SCTDMI GET INDEX BUFFER RECORD SIZE«, t00=0x0023, t01=0x0142}
0x0381c…0383a Head {h00=0x001a, h01=0x0015, text=» ANK A2,1 DM-TASK D0? «, t00=0x0023, t01=0x0174}
0x0383a…03854 (36, 0, 400) Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT10 NO! «, t00=0x0024, t01=0x0004}
0x03854…03874 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,'#D' DM-TASK ID«, t00=0x0024, t01=0x001e}
0x03874…03888 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0024, t01=0x003e}
0x03888…0389c Head {h00=0x0010, h01=0x000c, text=»DMTT10 EQU *«, t00=0x0024, t01=0x0052}
0x0389c…038cc Head {h00=0x002c, h01=0x0028, text=» LDR A2,A3 GET DATA MANAGEMENT INDICATOR«, t00=0x0024, t01=0x0066}
0x038cc…038ea Head {h00=0x001a, h01=0x0015, text=» ANK A2,2 DM-TASK D1? «, t00=0x0024, t01=0x0096}
0x038ea…03904 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT20 NO! «, t00=0x0024, t01=0x00b4}
0x03904…03922 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'#E' TASK ID «, t00=0x0024, t01=0x00ce}
0x03922…03936 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0024, t01=0x00ec}
0x03936…0394a Head {h00=0x0010, h01=0x000c, text=»DMTT20 EQU *«, t00=0x0024, t01=0x0100}
0x0394a…0397a Head {h00=0x002c, h01=0x0028, text=» LDR A2,A3 GET DATA MANAGEMENT INDICATOR«, t00=0x0024, t01=0x0114}
0x0397a…03998 Head {h00=0x001a, h01=0x0015, text=» ANK A2,4 DM-TASK D2? «, t00=0x0024, t01=0x0144}
0x03998…039b2 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT30 NO! «, t00=0x0024, t01=0x0162}
0x039b2…039d0 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'#F' TASK ID «, t00=0x0024, t01=0x017c}
0x039d0…039e4 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0025, t01=0x000a}
0x039e4…039f8 Head {h00=0x0010, h01=0x000c, text=»DMTT30 EQU *«, t00=0x0025, t01=0x001e}
0x039f8…03a0c Head {h00=0x0010, h01=0x000c, text=»DMTTEX EQU *«, t00=0x0025, t01=0x0032}
0x03a0c…03a1c Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0025, t01=0x0046}
0x03a1c…03a2a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0025, t01=0x0056}
0x03a2a…03a64 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0025, t01=0x0064}
0x03a64…03a9e Head {h00=0x0036, h01=0x0032, text=»* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE *«, t00=0x0025, t01=0x009e}
0x03a9e…03ad8 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0025, t01=0x00d8}
0x03ad8…03ae2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x0112}
0x03ae2…03b02 Head {h00=0x001c, h01=0x0017, text=»* ENTRY: A1 - TASK ID «, t00=0x0025, t01=0x011c}
0x03b02…03b32 Head {h00=0x002c, h01=0x0028, text=»* A6 - INDEX RECORD BUFFER SIZE«, t00=0x0025, t01=0x013c}
0x03b32…03b66 Head {h00=0x0030, h01=0x002c, text=»* A7 - TCTAB ENTRY FOR CURRENT TASK«, t00=0x0025, t01=0x016c}
0x03b66…03b90 Head {h00=0x0026, h01=0x0022, text=»* A12 - START OF FREE AREA«, t00=0x0026, t01=0x0010}
0x03b90…03b9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x003a}
0x03b9a…03baa Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x0026, t01=0x0044}
0x03baa…03bb4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0054}
0x03bb4…03bce Head {h00=0x0016, h01=0x0012, text=»* WORK REGISTERS:«, t00=0x0026, t01=0x005e}
0x03bce…03bd8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0078}
0x03bd8…03bf0 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0026, t01=0x0082}
0x03bf0…03bfa Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0026, t01=0x009a}
0x03bfa…03c0e Head {h00=0x0010, h01=0x0050, text=»DMTGEN EQU *«, t00=0x0026, t01=0x00a4}
0x03c0e…03c34 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0026, t01=0x00b8}
0x03c34…03c52 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x0026, t01=0x00de}
0x03c52…03c6c Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG20 NO! «, t00=0x0026, t01=0x00fc}
0x03c6c…03c90 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET PAGE POINTER«, t00=0x0026, t01=0x0116}
0x03c90…03ca4 Head {h00=0x0010, h01=0x0050, text=»DMTG10 EQU *«, t00=0x0026, t01=0x013a}
0x03ca4…03cc4 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/4000 LAST PAGE?«, t00=0x0026, t01=0x014e}
0x03cc4…03cde Head {h00=0x0016, h01=0x0050, text=» RF(E) DMTG30 YES!«, t00=0x0026, t01=0x016e}
0x03cde…03d04 Head {h00=0x0022, h01=0x0050, text=» STR A4,A12 STORE PAGE POINTER«, t00=0x0026, t01=0x0188}
0x03d04…03d30 Head {h00=0x0028, h01=0x0050, text=» ADKL A4,/400 INCREMENT PAGE POINTER«, t00=0x0027, t01=0x001e}
0x03d30…03d60 Head {h00=0x002c, h01=0x0050, text=» ADKL A12,2 INCREMENT MMU ENTRY POINTER «, t00=0x0027, t01=0x004a}
0x03d60…03d72 Head {h00=0x000e, h01=0x0050, text=» RB DMTG10«, t00=0x0027, t01=0x007a}
0x03d72…03d86 Head {h00=0x0010, h01=0x0050, text=»DMTG20 EQU *«, t00=0x0027, t01=0x008c}
0x03d86…03dac Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0027, t01=0x00a0}
0x03dac…03dca Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x0027, t01=0x00c6}
0x03dca…03de4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG40 NO! «, t00=0x0027, t01=0x00e4}
0x03de4…03df8 Head {h00=0x0010, h01=0x0050, text=»DMTG30 EQU *«, t00=0x0027, t01=0x00fe}
0x03df8…03e22 Head {h00=0x0026, h01=0x0050, text=» ADKL A12,2 SEGMENT BLOCK ADDRESS «, t00=0x0027, t01=0x0112}
0x03e22…03e36 Head {h00=0x0010, h01=0x0050, text=»DMTG40 EQU *«, t00=0x0027, t01=0x013c}
0x03e36…03e6c Head {h00=0x0032, h01=0x002e, text=» STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB«, t00=0x0027, t01=0x0150}
0x03e6c…03e92 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0027, t01=0x0186}
0x03e92…03ec0 Head {h00=0x002a, h01=0x0050, text=» ST A1,TTB:ID,A12 TASK IDENTIFICATION «, t00=0x0028, t01=0x001c}
0x03ec0…03ee2 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/0031 TASK LEVEL «, t00=0x0028, t01=0x004a}
0x03ee2…03f02 Head {h00=0x001c, h01=0x0050, text=» ST A1,TTB:ST,A12 STORE «, t00=0x0028, t01=0x006c}
0x03f02…03f2c Head {h00=0x0026, h01=0x0050, text=» SLL A1,10 MOVE LEVEL TO LEFT BYTE«, t00=0x0028, t01=0x008c}
0x03f2c…03f52 Head {h00=0x0022, h01=0x0050, text=» ORKL A1,/00C0 PROGRAM STATUS «, t00=0x0028, t01=0x00b6}
0x03f52…03f7a Head {h00=0x0024, h01=0x0050, text=» ST A1,TTB:PW,A12 STORE IN TTAB «, t00=0x0028, t01=0x00dc}
0x03f7a…03fa0 Head {h00=0x0022, h01=0x001d, text=» ADKL A12,40 TERMINAL DEVICES «, t00=0x0028, t01=0x0104}
0x03fa0…03fb8 Head {h00=0x0014, h01=0x0010, text=» LDK A1,6 LENGTH«, t00=0x0028, t01=0x012a}
0x03fb8…03fd2 Head {h00=0x0016, h01=0x0011, text=» STR A1,A12 STORE «, t00=0x0028, t01=0x0142}
0x03fd2…03ff4 Head {h00=0x001e, h01=0x0019, text=» ADKL A12,40 TASK STACK+2 «, t00=0x0028, t01=0x015c}
0x03ff4…04024 Head {h00=0x002c, h01=0x0027, text=» LDR A1,A6 GET INDEX RECORD BUFFER SIZE «, t00=0x0028, t01=0x017e}
0x04024…04044 Head {h00=0x001c, h01=0x0017, text=» SLL A1,2 MULTIPLY BY 4 «, t00=0x0029, t01=0x001e}
0x04044…04070 Head {h00=0x0028, h01=0x0050, text=» ADR A12,A1 RESERV SPACE FOR BUFFERS«, t00=0x0029, t01=0x003e}
0x04070…04086 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0029, t01=0x006a}
0x04086…04098 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0029, t01=0x0080}
0x04098…040b0 Head {h00=0x0014, h01=0x0050, text=»DMTG50 ADK A2,2 «, t00=0x0029, t01=0x0092}
0x040b0…040de Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x0029, t01=0x00aa}
0x040de…040f8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DMTG60 NO!«, t00=0x0029, t01=0x00d8}
0x040f8…0410e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0029, t01=0x00f2}
0x0410e…0413a Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0029, t01=0x0108}
0x0413a…04154 Head {h00=0x0016, h01=0x0050, text=»DMTG60 CWR A2,A12 «, t00=0x0029, t01=0x0134}
0x04154…0416a Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMTG50«, t00=0x0029, t01=0x014e}
0x0416a…0419a Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0029, t01=0x0164}
0x0419a…041aa (42, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0004}
0x041aa…041b8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002a, t01=0x0014}
0x041b8…041de Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x002a, t01=0x0022}
0x041de…04204 Head {h00=0x0022, h01=0x001e, text=»* B:TT - BUILD TASK TABLES *«, t00=0x002a, t01=0x0048}
0x04204…0422a Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x002a, t01=0x006e}
0x0422a…04234 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0094}
0x04234…04254 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x002a, t01=0x009e}
0x04254…0425e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x00be}
0x0425e…04296 Head {h00=0x0034, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA «, t00=0x002a, t01=0x00c8}
0x04296…042a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0100}
0x042a0…042dc Head {h00=0x0038, h01=0x0034, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x002a, t01=0x010a}
0x042dc…042e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0146}
0x042e6…04308 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISERS: A1-A12 «, t00=0x002a, t01=0x0150}
0x04308…04312 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0172}
0x04312…0434e Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x002a, t01=0x017c}
0x0434e…04358 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0028}
0x04358…04366 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0032}
0x04366…04392 Head {h00=0x0028, h01=0x0023, text=»* TASK TABLE LAYOUT «, t00=0x002b, t01=0x0040}
0x04392…043c0 Head {h00=0x002a, h01=0x0026, text=»* ________________________«, t00=0x002b, t01=0x006c}
0x043c0…043ee Head {h00=0x002a, h01=0x0026, text=»* I MMU I«, t00=0x002b, t01=0x009a}
0x043ee…0441c Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x002b, t01=0x00c8}
0x0441c…0444a Head {h00=0x002a, h01=0x0026, text=»* I 16 I«, t00=0x002b, t01=0x00f6}
0x0444a…04478 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x002b, t01=0x0124}
0x04478…044a6 Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x002b, t01=0x0152}
0x044a6…044d4 Head {h00=0x002a, h01=0x0026, text=»* TTB:SB I SEGMENT POINTER I«, t00=0x002b, t01=0x0180}
0x044d4…04502 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x001e}
0x04502…04530 Head {h00=0x002a, h01=0x0026, text=»* TASK ENTRY I QUEUE I«, t00=0x002c, t01=0x004c}
0x04530…0455e Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x007a}
0x0455e…0458c Head {h00=0x002a, h01=0x0026, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x002c, t01=0x00a8}
0x0458c…045ba Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x00d6}
0x045ba…045e8 Head {h00=0x002a, h01=0x0026, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x002c, t01=0x0104}
0x045e8…04616 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x0132}
0x04616…04644 Head {h00=0x002a, h01=0x0026, text=»* TTB:PP I PENDING QUEUE I«, t00=0x002c, t01=0x0160}
0x04644…04672 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x018e}
0x04672…046a0 Head {h00=0x002a, h01=0x0026, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x002d, t01=0x002c}
0x046a0…046ce Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002d, t01=0x005a}
0x046ce…046fc Head {h00=0x002a, h01=0x0026, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x002d, t01=0x0088}
0x046fc…0472a Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002d, t01=0x00b6}
0x0472a…04758 Head {h00=0x002a, h01=0x0026, text=»* I REGISTER I«, t00=0x002d, t01=0x00e4}
0x04758…04786 Head {h00=0x002a, h01=0x0026, text=»* I SAVE I«, t00=0x002d, t01=0x0112}
0x04786…047b4 Head {h00=0x002a, h01=0x0026, text=»* I AREA I«, t00=0x002d, t01=0x0140}
0x047b4…047e2 Head {h00=0x002a, h01=0x0026, text=»* I 14 I«, t00=0x002d, t01=0x016e}
0x047e2…04810 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x002e, t01=0x000c}
0x04810…0483e Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002e, t01=0x003a}
0x0483e…0486c Head {h00=0x002a, h01=0x0026, text=»* TTB:TD I TASK I«, t00=0x002e, t01=0x0068}
0x0486c…0489a Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x002e, t01=0x0096}
0x0489a…048c8 Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x002e, t01=0x00c4}
0x048c8…048f6 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x002e, t01=0x00f2}
0x048f6…04924 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x002e, t01=0x0120}
0x04924…04952 Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x002e, t01=0x014e}
0x04952…0495c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002e, t01=0x017c}
0x0495c…04966 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002e, t01=0x0186}
0x04966…0499c Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x002e, t01=0x0190}
0x0499c…049d0 Head {h00=0x0030, h01=0x002c, text=»* ______________________________«, t00=0x002f, t01=0x0036}
0x049d0…04a04 Head {h00=0x0030, h01=0x002c, text=»* I LENGTH I«, t00=0x002f, t01=0x006a}
0x04a04…04a38 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x009e}
0x04a38…04a6c Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILCODE I«, t00=0x002f, t01=0x00d2}
0x04a6c…04aa0 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x0106}
0x04aa0…04ad4 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x002f, t01=0x013a}
0x04ad4…04b08 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x016e}
0x04b08…04b3c Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x0030, t01=0x0012}
0x04b3c…04b70 Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x0030, t01=0x0046}
0x04b70…04ba4 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x007a}
0x04ba4…04bd8 Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILECODE I«, t00=0x0030, t01=0x00ae}
0x04bd8…04c0c Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x00e2}
0x04c0c…04c40 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x0030, t01=0x0116}
0x04c40…04c74 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x014a}
0x04c74…04c82 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0030, t01=0x017e}
0x04c82…04c94 Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0030, t01=0x018c}
0x04c94…04cc2 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0031, t01=0x000e}
0x04cc2…04cfc Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x0031, t01=0x003c}
0x04cfc…04d2e Head {h00=0x002e, h01=0x0050, text=» LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES«, t00=0x0031, t01=0x0076}
0x04d2e…04d4e Head {h00=0x001c, h01=0x0050, text=» SLL A2,2 MULTIPLY BY 4 «, t00=0x0031, t01=0x00a8}
0x04d4e…04d88 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE «, t00=0x0031, t01=0x00c8}
0x04d88…04d9c Head {h00=0x0010, h01=0x0050, text=»BTT10 EQU * «, t00=0x0031, t01=0x0102}
0x04d9c…04dc4 Head {h00=0x0024, h01=0x0020, text=» LCR A2,A11 GET FIRST BLOCK TYPE«, t00=0x0031, t01=0x0116}
0x04dc4…04df0 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0031, t01=0x013e}
0x04df0…04e08 Head {h00=0x0014, h01=0x0010, text=» RF(E) BTT20 YES«, t00=0x0031, t01=0x016a}
0x04e08…04e2a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0031, t01=0x0182}
0x04e2a…04e3e Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0032, t01=0x0014}
0x04e3e…04e52 Head {h00=0x0010, h01=0x0050, text=»BTT20 EQU * «, t00=0x0032, t01=0x0028}
0x04e52…04e5c Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0032, t01=0x003c}
0x04e5c…04e88 Head {h00=0x0028, h01=0x0024, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x0032, t01=0x0046}
0x04e88…04e92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0072}
0x04e92…04ea6 Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0032, t01=0x007c}
0x04ea6…04ec4 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x0032, t01=0x0090}
0x04ec4…04ece Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x00ae}
0x04ece…04ef0 Head {h00=0x001e, h01=0x001a, text=»* GET TASK ID START VALUE«, t00=0x0032, t01=0x00b8}
0x04ef0…04efa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x00da}
0x04efa…04f26 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x0032, t01=0x00e4}
0x04f26…04f4a Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0032, t01=0x0110}
0x04f4a…04f78 Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x0032, t01=0x0134}
0x04f78…04faa Head {h00=0x002e, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TASK ID START VALUE«, t00=0x0032, t01=0x0162}
0x04faa…04fc0 (51, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0033, t01=0x0004}
0x04fc0…04fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001a}
0x04fca…04ff2 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x0033, t01=0x0024}
0x04ff2…04ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x004c}
0x04ffc…0502c Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x0033, t01=0x0056}
0x0502c…05050 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0033, t01=0x0086}
0x05050…05082 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x0033, t01=0x00aa}
0x05082…050aa Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x0033, t01=0x00dc}
0x050aa…050c8 Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x0033, t01=0x0104}
0x050c8…050d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0122}
0x050d4…050e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x012e}
0x050e2…050ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x013c}
0x050ec…05106 Head {h00=0x0016, h01=0x0011, text=»* GET TASK LEVEL «, t00=0x0033, t01=0x0146}
0x05106…05110 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0033, t01=0x0160}
0x05110…05144 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x0033, t01=0x016a}
0x05144…05168 Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0034, t01=0x000e}
0x05168…0519c Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x0034, t01=0x0032}
0x0519c…051c2 Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0034, t01=0x0066}
0x051c2…051e0 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE24,A13 SAVE«, t00=0x0034, t01=0x008c}
0x051e0…051ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00aa}
0x051ea…05230 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE «, t00=0x0034, t01=0x00b4}
0x05230…0523a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00fa}
0x0523a…05262 Head {h00=0x0024, h01=0x0020, text=» LDKL A10,TTB:TD STANDARD LENGTH«, t00=0x0034, t01=0x0104}
0x05262…05288 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x0034, t01=0x012c}
0x05288…052a6 Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x0034, t01=0x0152}
0x052a6…052be Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT25 NO «, t00=0x0034, t01=0x0170}
0x052be…052ee Head {h00=0x002c, h01=0x0027, text=» SUKL A10,TTB:MT 16+1 WORD EXTRA IF MMU «, t00=0x0034, t01=0x0188}
0x052ee…05324 Head {h00=0x0032, h01=0x002d, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x0035, t01=0x0028}
0x05324…05336 Head {h00=0x000e, h01=0x0009, text=» RF BTT30 «, t00=0x0035, t01=0x005e}
0x05336…0534a Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x0035, t01=0x0070}
0x0534a…05370 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x0035, t01=0x0084}
0x05370…0538e Head {h00=0x001a, h01=0x0050, text=» ANK A5,2 DISC PAGING?«, t00=0x0035, t01=0x00aa}
0x0538e…053a6 Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT30 NO «, t00=0x0035, t01=0x00c8}
0x053a6…053dc Head {h00=0x0032, h01=0x002e, text=» SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING«, t00=0x0035, t01=0x00e0}
0x053dc…05410 Head {h00=0x0030, h01=0x002c, text=» SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD«, t00=0x0035, t01=0x0116}
0x05410…05424 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x0035, t01=0x014a}
0x05424…0542e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x015e}
0x0542e…0546c Head {h00=0x003a, h01=0x0050, text=»* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE«, t00=0x0035, t01=0x0168}
0x0546c…05476 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x0016}
0x05476…0548a Head {h00=0x0010, h01=0x000b, text=» ADKL A10,2 «, t00=0x0036, t01=0x0020}
0x0548a…05494 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x0034}
0x05494…054d4 Head {h00=0x003c, h01=0x0037, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x0036, t01=0x003e}
0x054d4…054fa Head {h00=0x0022, h01=0x0050, text=»* OF TASK SAVE01URATION TABLE«, t00=0x0036, t01=0x007e}
0x054fa…05504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x00a4}
0x05504…05522 Head {h00=0x001a, h01=0x0016, text=» LDK A6,0 RESET LENGTH«, t00=0x0036, t01=0x00ae}
0x05522…05560 Head {h00=0x003a, h01=0x0035, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x0036, t01=0x00cc}
0x05560…05598 Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0036, t01=0x010a}
0x05598…055c0 Head {h00=0x0024, h01=0x0020, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x0036, t01=0x0142}
0x055c0…055d8 Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0036, t01=0x016a}
0x055d8…055ec Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x0036, t01=0x0182}
0x055ec…05600 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT40«, t00=0x0037, t01=0x0008}
0x05600…0562c Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0037, t01=0x001c}
0x0562c…05656 Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0037, t01=0x0048}
0x05656…05686 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0037, t01=0x0072}
0x05686…0569a Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0037, t01=0x00a2}
0x0569a…056ac Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0037, t01=0x00b6}
0x056ac…056be Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0037, t01=0x00c8}
0x056be…056d4 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x0037, t01=0x00da}
0x056d4…056ea Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0037, t01=0x00f0}
0x056ea…05714 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x0037, t01=0x0106}
0x05714…05728 Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x0037, t01=0x0130}
0x05728…0574e Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x0037, t01=0x0144}
0x0574e…05776 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0037, t01=0x016a}
0x05776…0579e (56, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0038, t01=0x0004}
0x0579e…057c4 Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0038, t01=0x002c}
0x057c4…057f0 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x0038, t01=0x0052}
0x057f0…05822 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x0038, t01=0x007e}
0x05822…05846 Head {h00=0x0020, h01=0x001b, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x0038, t01=0x00b0}
0x05846…05872 Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x0038, t01=0x00d4}
0x05872…05884 Head {h00=0x000e, h01=0x0009, text=» RB BTT35 «, t00=0x0038, t01=0x0100}
0x05884…05892 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0112}
0x05892…058a6 Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x0038, t01=0x0120}
0x058a6…058b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x0134}
0x058b0…058f2 Head {h00=0x003e, h01=0x003a, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x0038, t01=0x013e}
0x058f2…05916 Head {h00=0x0020, h01=0x0050, text=»* TASK SAVE01URATION TABLE «, t00=0x0038, t01=0x0180}
0x05916…05920 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0039, t01=0x0014}
0x05920…0595a Head {h00=0x0036, h01=0x0031, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0039, t01=0x001e}
0x0595a…0597e Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x0039, t01=0x0058}
0x0597e…05996 Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0039, t01=0x007c}
0x05996…059aa Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x0039, t01=0x0094}
0x059aa…059ce Head {h00=0x0020, h01=0x001b, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x0039, t01=0x00a8}
0x059ce…059fa Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0039, t01=0x00cc}
0x059fa…05a24 Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0039, t01=0x00f8}
0x05a24…05a54 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0039, t01=0x0122}
0x05a54…05a68 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0039, t01=0x0152}
0x05a68…05a7a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0039, t01=0x0166}
0x05a7a…05a8c Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0039, t01=0x0178}
0x05a8c…05aa2 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x0039, t01=0x018a}
0x05aa2…05ab8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x003a, t01=0x0010}
0x05ab8…05ae2 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x003a, t01=0x0026}
0x05ae2…05af6 Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x003a, t01=0x0050}
0x05af6…05b1c Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x003a, t01=0x0064}
0x05b1c…05b44 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x003a, t01=0x008a}
0x05b44…05b6c Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x003a, t01=0x00b2}
0x05b6c…05b92 Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x003a, t01=0x00da}
0x05b92…05bbe Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x003a, t01=0x0100}
0x05bbe…05bf0 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x003a, t01=0x012c}
0x05bf0…05c10 Head {h00=0x001c, h01=0x0017, text=» ADKL A9,SDC NEXT CLASS «, t00=0x003a, t01=0x015e}
0x05c10…05c3c Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x003a, t01=0x017e}
0x05c3c…05c4e Head {h00=0x000e, h01=0x0009, text=» RB BTT50 «, t00=0x003b, t01=0x001a}
0x05c4e…05c62 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x003b, t01=0x002c}
0x05c62…05c9a Head {h00=0x0034, h01=0x0050, text=» LD A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV «, t00=0x003b, t01=0x0040}
0x05c9a…05cc6 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A7 ADD TO TOTAL TTAB LENGTH«, t00=0x003b, t01=0x0078}
0x05cc6…05cf8 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH «, t00=0x003b, t01=0x00a4}
0x05cf8…05d1e Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x003b, t01=0x00d6}
0x05d1e…05d54 Head {h00=0x0032, h01=0x0050, text=» LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x003b, t01=0x00fc}
0x05d54…05d90 Head {h00=0x0038, h01=0x0050, text=» LD A8,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x003b, t01=0x0132}
0x05d90…05da4 Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x003b, t01=0x016e}
0x05da4…05db8 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT70«, t00=0x003b, t01=0x0182}
0x05db8…05dc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0008}
0x05dc2…05dfe Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x003c, t01=0x0012}
0x05dfe…05e08 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x004e}
0x05e08…05e22 Head {h00=0x0016, h01=0x0011, text=» ST A6,TTB:TD,A12 «, t00=0x003c, t01=0x0058}
0x05e22…05e2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0072}
0x05e2c…05e6a Head {h00=0x003a, h01=0x0036, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x003c, t01=0x007c}
0x05e6a…05e74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x00ba}
0x05e74…05e9c Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE24,A13 GET TASK LEVEL«, t00=0x003c, t01=0x00c4}
0x05e9c…05ec4 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x003c, t01=0x00ec}
0x05ec4…05ece Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0114}
0x05ece…05f0e Head {h00=0x003c, h01=0x0037, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x003c, t01=0x011e}
0x05f0e…05f18 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x015e}
0x05f18…05f42 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x003c, t01=0x0168}
0x05f42…05f58 (61, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x003d, t01=0x0004}
0x05f58…05f7e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x003d, t01=0x001a}
0x05f7e…05f9c Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x003d, t01=0x0040}
0x05f9c…05fc0 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x003d, t01=0x005e}
0x05fc0…05fe8 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x003d, t01=0x0082}
0x05fe8…05ff2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x00aa}
0x05ff2…0601e Head {h00=0x0028, h01=0x0024, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x003d, t01=0x00b4}
0x0601e…06028 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x00e0}
0x06028…06052 Head {h00=0x0026, h01=0x0050, text=» LD A5,SAVE16,A13 GET THIS TASK ID«, t00=0x003d, t01=0x00ea}
0x06052…0607a Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x003d, t01=0x0114}
0x0607a…0609e Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x003d, t01=0x013c}
0x0609e…060d8 Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS «, t00=0x003d, t01=0x0160}
0x060d8…060ee Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x003e, t01=0x000a}
0x060ee…060f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0020}
0x060f8…06124 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x003e, t01=0x002a}
0x06124…0612e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0056}
0x0612e…0615c Head {h00=0x002a, h01=0x0050, text=» LD A5,SAVE17,A13 GET TCL START VALUE «, t00=0x003e, t01=0x0060}
0x0615c…06182 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x003e, t01=0x008e}
0x06182…061a2 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x003e, t01=0x00b4}
0x061a2…061c0 Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x003e, t01=0x00d4}
0x061c0…061cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00f2}
0x061cc…061fc Head {h00=0x002c, h01=0x0027, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x003e, t01=0x00fe}
0x061fc…06222 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x003e, t01=0x012e}
0x06222…06258 Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x003e, t01=0x0154}
0x06258…06290 Head {h00=0x0034, h01=0x002f, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x003e, t01=0x018a}
0x06290…062ca Head {h00=0x0036, h01=0x0032, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x003f, t01=0x0032}
0x062ca…062dc Head {h00=0x000e, h01=0x0009, text=» RB BTT60 «, t00=0x003f, t01=0x006c}
0x062dc…062ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x007e}
0x062ea…062fe Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x003f, t01=0x008c}
0x062fe…06308 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003f, t01=0x00a0}
0x06308…06336 Head {h00=0x002a, h01=0x0026, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x003f, t01=0x00aa}
0x06336…06340 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003f, t01=0x00d8}
0x06340…06366 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x003f, t01=0x00e2}
0x06366…06384 Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x003f, t01=0x0108}
0x06384…0639c Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT80 NO «, t00=0x003f, t01=0x0126}
0x0639c…063c8 Head {h00=0x0028, h01=0x0023, text=» ADKL A12,TTB:MT SUBTRACT 16+1 WORD «, t00=0x003f, t01=0x013e}
0x063c8…063da Head {h00=0x000e, h01=0x0009, text=» RF BTT90 «, t00=0x003f, t01=0x016a}
0x063da…063ee Head {h00=0x0010, h01=0x0050, text=»BTT80 EQU * «, t00=0x003f, t01=0x017c}
0x063ee…06414 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x003f, t01=0x0190}
0x06414…06432 Head {h00=0x001a, h01=0x0050, text=» ANK A5,2 DISC PAGING?«, t00=0x0040, t01=0x0026}
0x06432…0644a Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT90 NO «, t00=0x0040, t01=0x0044}
0x0644a…06474 Head {h00=0x0026, h01=0x0022, text=» ADKL A12,TTB:SB SUBTRACT ONE WORD«, t00=0x0040, t01=0x005c}
0x06474…06488 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x0040, t01=0x0086}
0x06488…064ac Head {h00=0x0020, h01=0x001b, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x0040, t01=0x009a}
0x064ac…064d8 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0040, t01=0x00be}
0x064d8…064ee Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x0040, t01=0x00ea}
0x064ee…06504 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,BTT20«, t00=0x0040, t01=0x0100}
0x06504…06518 Head {h00=0x0010, h01=0x0050, text=» SUKL A2,REL«, t00=0x0040, t01=0x0116}
0x06518…0652c Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0040, t01=0x012a}
0x0652c…0653c Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x0040, t01=0x013e}
0x0653c…06550 Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x0040, t01=0x014e}
0x06550…06566 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0040, t01=0x0162}
0x06566…06578 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0040, t01=0x0178}
0x06578…06590 Head {h00=0x0014, h01=0x0050, text=»BTT100 ADK A2,2 «, t00=0x0040, t01=0x018a}
0x06590…065a6 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0041, t01=0x0012}
0x065a6…065bc Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT105«, t00=0x0041, t01=0x0028}
0x065bc…065d2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0041, t01=0x003e}
0x065d2…065fe Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0041, t01=0x0054}
0x065fe…06618 Head {h00=0x0016, h01=0x0050, text=»BTT105 CWR A2,A12 «, t00=0x0041, t01=0x0080}
0x06618…0662e Head {h00=0x0012, h01=0x0050, text=» RB(NE) BTT100«, t00=0x0041, t01=0x009a}
0x0662e…0665c Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA SAVE START OF FREE AREA«, t00=0x0041, t01=0x00b0}
0x0665c…06674 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0041, t01=0x00de}
0x06674…0668a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0041, t01=0x00f6}
0x0668a…06698 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0041, t01=0x010c}
0x06698…066c4 Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0041, t01=0x011a}
0x066c4…066f0 Head {h00=0x0028, h01=0x0024, text=»* SEGGEN - BUILD SEGMENT TABLE *«, t00=0x0041, t01=0x0146}
0x066f0…0671c Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0041, t01=0x0172}
0x0671c…06726 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x000e}
0x06726…06754 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0042, t01=0x0018}
0x06754…06780 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x0042, t01=0x0046}
0x06780…067b0 Head {h00=0x002c, h01=0x0028, text=»* SCTLAC - START OF APPLICATION«, t00=0x0042, t01=0x0072}
0x067b0…067ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x00a2}
0x067ba…067ea Head {h00=0x002c, h01=0x0028, text=»* EXIT: SCTPAG - ADDRESS TO PAGE TABLE«, t00=0x0042, t01=0x00ac}
0x067ea…067f4 Head {h00=0x0006, h01=0x0005, text=»* «, t00=0x0042, t01=0x00dc}
0x067f4…06816 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x0042, t01=0x00e6}
0x06816…06820 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x0108}
0x06820…06840 Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: GETCON «, t00=0x0042, t01=0x0112}
0x06840…0684a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x0132}
0x0684a…06858 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0042, t01=0x013c}
0x06858…0686c Head {h00=0x0010, h01=0x0050, text=»SEGGEN EQU *«, t00=0x0042, t01=0x014a}
0x0686c…06890 Head {h00=0x0020, h01=0x0050, text=» LDK A5,0 RESET DISC ADDRESS«, t00=0x0042, t01=0x015e}
0x06890…068a6 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTOPT «, t00=0x0042, t01=0x0182}
0x068a6…068c4 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0043, t01=0x0008}
0x068c4…068de Head {h00=0x0016, h01=0x0050, text=» RF(Z) SEG:05 NO! «, t00=0x0043, t01=0x0026}
0x068de…06914 Head {h00=0x0032, h01=0x0050, text=» LD A5,SCTADA APPLICATION DISC SECTOR ADDRESS «, t00=0x0043, t01=0x0040}
0x06914…06928 Head {h00=0x0010, h01=0x0050, text=»SEG:05 EQU *«, t00=0x0043, t01=0x0076}
0x06928…0695c Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART«, t00=0x0043, t01=0x008a}
0x0695c…06966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00be}
0x06966…0698c Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x0043, t01=0x00c8}
0x0698c…06996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ee}
0x06996…069ae Head {h00=0x0014, h01=0x0050, text=» ADKL A2,PRGLG1 «, t00=0x0043, t01=0x00f8}
0x069ae…069c2 Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x0043, t01=0x0110}
0x069c2…069d6 Head {h00=0x0010, h01=0x0050, text=» CWK A1,'CR'«, t00=0x0043, t01=0x0124}
0x069d6…069f8 Head {h00=0x001e, h01=0x0050, text=» RF(NE) SEGEX NOT CREDIT! «, t00=0x0043, t01=0x0138}
0x069f8…06a02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x015a}
0x06a02…06a20 Head {h00=0x001a, h01=0x0016, text=»* BUILD SEGMENT TABLE«, t00=0x0043, t01=0x0164}
0x06a20…06a2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x0182}
0x06a2a…06a54 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0043, t01=0x018c}
0x06a54…06a82 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTSEG START OF SEGMENT TABLE «, t00=0x0044, t01=0x0026}
0x06a82…06ab0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/8400 STATUS FOR FIRST BLOCK «, t00=0x0044, t01=0x0054}
0x06ab0…06ad8 Head {h00=0x0024, h01=0x0050, text=» STR A1,A12 STORE IN FIRST BLOCK«, t00=0x0044, t01=0x0082}
0x06ad8…06b10 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0044, t01=0x00aa}
0x06b10…06b3a Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET POINTER TO P:MTAB«, t00=0x0044, t01=0x00e2}
0x06b3a…06b5a Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SAVE POINTER «, t00=0x0044, t01=0x010c}
0x06b5a…06b7e Head {h00=0x0020, h01=0x0050, text=» ADKL A2,6 ADDRESS TO P:BAS «, t00=0x0044, t01=0x012c}
0x06b7e…06b9c Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x0044, t01=0x0150}
0x06b9c…06bc6 Head {h00=0x0026, h01=0x0050, text=» ST A1,2,A12 STORE IN FIRST BLOCK«, t00=0x0044, t01=0x016e}
0x06bc6…06bec Head {h00=0x0022, h01=0x0050, text=» ADKL A12,8 BYPASS FIRST BLOCK«, t00=0x0045, t01=0x0008}
0x06bec…06c24 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0045, t01=0x002e}
0x06c24…06c52 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,NUMSEG GET NUMBER OF SEGMENTS«, t00=0x0045, t01=0x0066}
0x06c52…06c68 Head {h00=0x0012, h01=0x000e, text=» CALL GETCON «, t00=0x0045, t01=0x0094}
0x06c68…06c94 Head {h00=0x0028, h01=0x0023, text=» LDR A4,A1 SAVE NUMBER OF SEGMENTSS «, t00=0x0045, t01=0x00aa}
0x06c94…06cb6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) SEG:50 NO SEGMENTS!«, t00=0x0045, t01=0x00d6}
0x06cb6…06cdc Head {h00=0x0022, h01=0x001d, text=» ADK A2,2 FIRST SEGMENT BLOCK «, t00=0x0045, t01=0x00f8}
0x06cdc…06d02 Head {h00=0x0022, h01=0x0050, text=» LDK A3,1 INIT SEGMENT NUMBER «, t00=0x0045, t01=0x011e}
0x06d02…06d18 Head {h00=0x0012, h01=0x0050, text=»SEG:10 EQU * «, t00=0x0045, t01=0x0144}
0x06d18…06d30 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 STATUS«, t00=0x0045, t01=0x015a}
0x06d30…06d44 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0045, t01=0x0172}
0x06d44…06d70 Head {h00=0x0028, h01=0x0023, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x0045, t01=0x0186}
0x06d70…06d8a Head {h00=0x0016, h01=0x0050, text=» RF(E) SEG:30 YES!«, t00=0x0046, t01=0x0022}
0x06d8a…06db0 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0046, t01=0x003c}
0x06db0…06dce Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0046, t01=0x0062}
0x06dce…06dea Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SEG:35 YES! «, t00=0x0046, t01=0x0080}
0x06dea…06dfe Head {h00=0x0010, h01=0x0050, text=»SEG:30 EQU *«, t00=0x0046, t01=0x009c}
0x06dfe…06e2c Head {h00=0x002a, h01=0x0050, text=» LDKL A7,/8800 INDICATE LOADED IN CORE«, t00=0x0046, t01=0x00b0}
0x06e2c…06e40 Head {h00=0x0010, h01=0x0050, text=»SEG:35 EQU *«, t00=0x0046, t01=0x00de}
0x06e40…06e76 Head {h00=0x0032, h01=0x0050, text=» ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE«, t00=0x0046, t01=0x00f2}
0x06e76…06e94 Head {h00=0x001a, h01=0x0016, text=» STR A7,A12 SET STATUS«, t00=0x0046, t01=0x0128}
0x06e94…06ebc Head {h00=0x0024, h01=0x001f, text=» ADKL A12,2 NEXT WORD IN SEGBLK «, t00=0x0046, t01=0x0146}
0x06ebc…06ede Head {h00=0x001e, h01=0x0019, text=» ADK A2,2 SEGMENT ADDRESS «, t00=0x0046, t01=0x016e}
0x06ede…06ef2 Head {h00=0x0010, h01=0x000b, text=» LDK A1,0 «, t00=0x0046, t01=0x0190}
0x06ef2…06f18 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x0047, t01=0x0014}
0x06f18…06f36 Head {h00=0x001a, h01=0x0050, text=» ANK A6,2 DISC PAGING?«, t00=0x0047, t01=0x003a}
0x06f36…06f4e Head {h00=0x0014, h01=0x000f, text=» RF(Z) SEG:40 «, t00=0x0047, t01=0x0058}
0x06f4e…06f62 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0047, t01=0x0070}
0x06f62…06f92 Head {h00=0x002c, h01=0x0028, text=» ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS «, t00=0x0047, t01=0x0084}
0x06f92…06fa6 Head {h00=0x0010, h01=0x0050, text=»SEG:40 EQU *«, t00=0x0047, t01=0x00b4}
0x06fa6…06fc8 Head {h00=0x001e, h01=0x001a, text=» STR A1,A12 SAVE IN SEGBLK«, t00=0x0047, t01=0x00c8}
0x06fc8…06ff0 Head {h00=0x0024, h01=0x0020, text=» ADKL A12,2 NEXT ENTRY IN SEGBLK«, t00=0x0047, t01=0x00ea}
0x06ff0…07012 Head {h00=0x001e, h01=0x001a, text=» ADK A2,2 EFFECTIVE LENGTH«, t00=0x0047, t01=0x0112}
0x07012…07026 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0047, t01=0x0134}
0x07026…0703e Head {h00=0x0014, h01=0x0010, text=» STR A1,A12 SAVE«, t00=0x0047, t01=0x0148}
0x0703e…07064 Head {h00=0x0022, h01=0x001e, text=» ADKL A12,4 NEXT SEGMENT BLOCK«, t00=0x0047, t01=0x0160}
0x07064…0708a Head {h00=0x0022, h01=0x001e, text=» ADK A2,2 NEXT BLOCK IN S:GTAB«, t00=0x0047, t01=0x0186}
0x0708a…070b4 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT SEGMENT NUMBER«, t00=0x0048, t01=0x001c}
0x070b4…070e2 Head {h00=0x002a, h01=0x0026, text=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS«, t00=0x0048, t01=0x0046}
0x070e2…070f8 Head {h00=0x0012, h01=0x000d, text=» RB(P) SEG:10 «, t00=0x0048, t01=0x0074}
0x070f8…07114 Head {h00=0x0018, h01=0x0050, text=»SEG:50 LD A2,SCTSFA «, t00=0x0048, t01=0x008a}
0x07114…07126 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0048, t01=0x00a6}
0x07126…0713e Head {h00=0x0014, h01=0x0050, text=»SEG:60 ADK A2,2 «, t00=0x0048, t01=0x00b8}
0x0713e…07154 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0048, t01=0x00d0}
0x07154…0716a Head {h00=0x0012, h01=0x0050, text=» RF(NE) SEG:70«, t00=0x0048, t01=0x00e6}
0x0716a…07180 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0048, t01=0x00fc}
0x07180…071ac Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0048, t01=0x0112}
0x071ac…071c6 Head {h00=0x0016, h01=0x0050, text=»SEG:70 CWR A2,A12 «, t00=0x0048, t01=0x013e}
0x071c6…071dc Head {h00=0x0012, h01=0x0050, text=» RB(NE) SEG:60«, t00=0x0048, t01=0x0158}
0x071dc…071f2 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x0048, t01=0x016e}
0x071f2…07206 Head {h00=0x0010, h01=0x0050, text=»SEGEX EQU * «, t00=0x0048, t01=0x0184}
0x07206…0721e Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0049, t01=0x0008}
0x0721e…0722a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0020}
0x0722a…07246 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0049, t01=0x002c}
0x07246…07254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0048}
0x07254…0729c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0049, t01=0x0056}
0x0729c…072e4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x009e}
0x072e4…0732c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00e6}
0x0732c…07374 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x012e}
0x07374…073bc Head {h00=0x0044, h01=0x0050, text=»* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * «, t00=0x0049, t01=0x0176}
0x073bc…07404 Head {h00=0x0044, h01=0x0050, text=»* ========================================= * «, t00=0x004a, t01=0x002e}
0x07404…0744c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0076}
0x0744c…07494 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x004a, t01=0x00be}
0x07494…074dc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0106}
0x074dc…07524 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: * «, t00=0x004a, t01=0x014e}
0x07524…0756c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0008}
0x0756c…075b4 Head {h00=0x0044, h01=0x0050, text=»* EXIT: * «, t00=0x004b, t01=0x0050}
0x075b4…075fc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0098}
0x075fc…07644 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x004b, t01=0x00e0}
0x07644…0768c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0128}
0x0768c…076d4 Head {h00=0x0044, h01=0x0050, text=»* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * «, t00=0x004b, t01=0x0170}
0x076d4…0771c Head {h00=0x0044, h01=0x0050, text=»* A9 - ADDRESS TO S:BTAB PROTOTYPE * «, t00=0x004c, t01=0x0028}
0x0771c…07764 Head {h00=0x0044, h01=0x0050, text=»* A10 - SWB BLOCK POINTER * «, t00=0x004c, t01=0x0070}
0x07764…077ac Head {h00=0x0044, h01=0x0050, text=»* A11 - POINTER IN CONF. FILE * «, t00=0x004c, t01=0x00b8}
0x077ac…077f4 Head {h00=0x0044, h01=0x0050, text=»* A12 - ADDRESS TABLE POINTER * «, t00=0x004c, t01=0x0100}
0x077f4…0783c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004c, t01=0x0148}
0x0783c…07884 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETNUM,GETCON * «, t00=0x004c, t01=0x0190}
0x07884…078cc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004d, t01=0x0048}
0x078cc…07914 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004d, t01=0x0090}
0x07914…0795c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004d, t01=0x00d8}
0x0795c…0796a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0120}
0x0796a…0797e Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x004d, t01=0x012e}
0x0797e…079a8 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x004d, t01=0x0142}
0x079a8…079de Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF CONFIGURATION FILE«, t00=0x004d, t01=0x016c}
0x079de…079e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0012}
0x079e8…07a26 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x004e, t01=0x001c}
0x07a26…07a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x005a}
0x07a30…07a5a Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x004e, t01=0x0064}
0x07a5a…07a86 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x004e, t01=0x008e}
0x07a86…07aa0 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x004e, t01=0x00ba}
0x07aa0…07ad4 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x004e, t01=0x00d4}
0x07ad4…07aee Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x004e, t01=0x0108}
0x07aee…07b02 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x004e, t01=0x0122}
0x07b02…07b28 Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x004e, t01=0x0136}
0x07b28…07b5e Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x004e, t01=0x015c}
0x07b5e…07b78 (79, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x004f, t01=0x0004}
0x07b78…07b9c Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x004f, t01=0x001e}
0x07b9c…07bb0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x004f, t01=0x0042}
0x07bb0…07bda Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x004f, t01=0x0056}
0x07bda…07bf2 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x004f, t01=0x0080}
0x07bf2…07c1a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x004f, t01=0x0098}
0x07c1a…07c46 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x004f, t01=0x00c0}
0x07c46…07c72 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x004f, t01=0x00ec}
0x07c72…07c9a Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x004f, t01=0x0118}
0x07c9a…07cba Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x004f, t01=0x0140}
0x07cba…07cea Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x004f, t01=0x0160}
0x07cea…07d1e Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x004f, t01=0x0190}
0x07d1e…07d38 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x0050, t01=0x0034}
0x07d38…07d64 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x0050, t01=0x004e}
0x07d64…07d8c Head {h00=0x0024, h01=0x0050, text=» ST A1,SCTSWB CLEAR SWB POINTER «, t00=0x0050, t01=0x007a}
0x07d8c…07d9c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x00a2}
0x07d9c…07dc6 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x0050, t01=0x00b2}
0x07dc6…07df4 Head {h00=0x002a, h01=0x0050, text=» ST A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0050, t01=0x00dc}
0x07df4…07e08 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0050, t01=0x010a}
0x07e08…07e2a Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x0050, t01=0x011e}
0x07e2a…07e42 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x0050, t01=0x0140}
0x07e42…07e6a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x0050, t01=0x0158}
0x07e6a…07e9a Head {h00=0x002c, h01=0x0050, text=» ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS«, t00=0x0050, t01=0x0180}
0x07e9a…07ec6 Head {h00=0x0028, h01=0x0050, text=» LD A8,SCTSWB GET ADDRESS TO $SWAPP «, t00=0x0051, t01=0x0020}
0x07ec6…07eea Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x0051, t01=0x004c}
0x07eea…07f10 Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x0051, t01=0x0070}
0x07f10…07f24 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0051, t01=0x0096}
0x07f24…07f5e Head {h00=0x0036, h01=0x0050, text=»BSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE«, t00=0x0051, t01=0x00aa}
0x07f5e…07f8e Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP «, t00=0x0051, t01=0x00e4}
0x07f8e…07fb0 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x0051, t01=0x0114}
0x07fb0…07fca Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0051, t01=0x0136}
0x07fca…07fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0150}
0x07fd4…07ffe Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x0051, t01=0x015a}
0x07ffe…08008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0184}
0x08008…0802c Head {h00=0x0020, h01=0x0050, text=» LD A2,SCTLAC S:GTAB ADDRESS«, t00=0x0051, t01=0x018e}
0x0802c…08054 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x0052, t01=0x0022}
0x08054…0806c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0052, t01=0x004a}
0x0806c…0809c Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x0052, t01=0x0062}
0x0809c…080c4 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x0052, t01=0x0092}
0x080c4…080f2 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x0052, t01=0x00ba}
0x080f2…08120 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x0052, t01=0x00e8}
0x08120…08142 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x0052, t01=0x0116}
0x08142…08160 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE21,A13 SAVE«, t00=0x0052, t01=0x0138}
0x08160…08194 Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x0052, t01=0x0156}
0x08194…081c4 Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x0052, t01=0x018a}
0x081c4…081dc Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0053, t01=0x002a}
0x081dc…081fa Head {h00=0x001a, h01=0x0050, text=» SUK A1,2 SKIP LENGTH «, t00=0x0053, t01=0x0042}
0x081fa…0822c Head {h00=0x002e, h01=0x0050, text=»BSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER«, t00=0x0053, t01=0x0060}
0x0822c…08262 Head {h00=0x0032, h01=0x0050, text=» SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE«, t00=0x0053, t01=0x0092}
0x08262…0828a Head {h00=0x0024, h01=0x0050, text=» RB(P) BSWT50 NEXT SWB-PROTOTYPE«, t00=0x0053, t01=0x00c8}
0x0828a…082ac Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 SKIP LENGTH WORD«, t00=0x0053, t01=0x00f0}
0x082ac…082d2 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x0053, t01=0x0112}
0x082d2…08302 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x0053, t01=0x0138}
0x08302…08320 Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE19,A13 SAVE«, t00=0x0053, t01=0x0168}
0x08320…0834e Head {h00=0x002a, h01=0x0050, text=» LD A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0053, t01=0x0186}
0x0834e…0837e Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE24,A13 NUMBER OF SWB RECORDS «, t00=0x0054, t01=0x0024}
0x0837e…083b2 Head {h00=0x0030, h01=0x0050, text=»BSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT.«, t00=0x0054, t01=0x0054}
0x083b2…083da Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x0054, t01=0x0088}
0x083da…08406 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x0054, t01=0x00b0}
0x08406…0842a Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x0054, t01=0x00dc}
0x0842a…0844e Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x0054, t01=0x0100}
0x0844e…08474 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x0054, t01=0x0124}
0x08474…0849e Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x0054, t01=0x014a}
0x0849e…084b8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x0054, t01=0x0174}
0x084b8…084de Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x0054, t01=0x018e}
0x084de…08502 Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x0055, t01=0x0024}
0x08502…08522 Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x0055, t01=0x0048}
0x08522…08556 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x0055, t01=0x0068}
0x08556…08578 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x0055, t01=0x009c}
0x08578…0859e Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x0055, t01=0x00be}
0x0859e…085b8 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x0055, t01=0x00e4}
0x085b8…085e0 Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x0055, t01=0x00fe}
0x085e0…0860c Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x0055, t01=0x0126}
0x0860c…0862c Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x0055, t01=0x0152}
0x0862c…08636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0172}
0x08636…08688 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x0055, t01=0x017c}
0x08688…08692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x003e}
0x08692…086b0 Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x0056, t01=0x0048}
0x086b0…086ce Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x0056, t01=0x0066}
0x086ce…086ec Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x0056, t01=0x0084}
0x086ec…0870a Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x0056, t01=0x00a2}
0x0870a…0871c Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x0056, t01=0x00c0}
0x0871c…08730 Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x0056, t01=0x00d2}
0x08730…0873a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e6}
0x0873a…08758 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x0056, t01=0x00f0}
0x08758…08762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x010e}
0x08762…0878c Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x0056, t01=0x0118}
0x0878c…087a0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0056, t01=0x0142}
0x087a0…087c0 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x0056, t01=0x0156}
0x087c0…087ea Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x0056, t01=0x0176}
0x087ea…08810 Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x0057, t01=0x0010}
0x08810…08832 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x0057, t01=0x0036}
0x08832…0885a Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x0057, t01=0x0058}
0x0885a…08884 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x0057, t01=0x0080}
0x08884…0889c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0057, t01=0x00aa}
0x0889c…088c6 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x0057, t01=0x00c2}
0x088c6…088da Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x0057, t01=0x00ec}
0x088da…08908 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x0057, t01=0x0100}
0x08908…0893c Head {h00=0x0030, h01=0x0050, text=» ST A8,2,A10 STORE DISC ADDRESS TO 1:ST COPY«, t00=0x0057, t01=0x012e}
0x0893c…08970 Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x0057, t01=0x0162}
0x08970…08996 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x0058, t01=0x0008}
0x08996…089c6 Head {h00=0x002c, h01=0x0050, text=»BSWT90 ADKL A8,1 INCREMENT SECTOR NUMBER«, t00=0x0058, t01=0x002e}
0x089c6…089f0 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x0058, t01=0x005e}
0x089f0…08a16 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,400 DECREMENT LENGTH «, t00=0x0058, t01=0x0088}
0x08a16…08a3a Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT90 MOORE SECTORS?«, t00=0x0058, t01=0x00ae}
0x08a3a…08a5a Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x0058, t01=0x00d2}
0x08a5a…08a74 Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x0058, t01=0x00f2}
0x08a74…08aa2 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x0058, t01=0x010c}
0x08aa2…08ace Head {h00=0x0028, h01=0x0050, text=» CW A8,SAVE25,A13 CHECK IF OVERFLOW «, t00=0x0058, t01=0x013a}
0x08ace…08afa Head {h00=0x0028, h01=0x0050, text=» RB(G) SWBERR $SWAP-FILE TOO SMALL! «, t00=0x0058, t01=0x0166}
0x08afa…08b28 (89, 0, 400) Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x0059, t01=0x0004}
0x08b28…08b48 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x0059, t01=0x0032}
0x08b48…08b72 Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x0059, t01=0x0052}
0x08b72…08baa Head {h00=0x0034, h01=0x0050, text=» LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB«, t00=0x0059, t01=0x007c}
0x08baa…08bdc Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x0059, t01=0x00b4}
0x08bdc…08bfa Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE21,A13 SAVE«, t00=0x0059, t01=0x00e6}
0x08bfa…08c2e Head {h00=0x0030, h01=0x0050, text=» LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB«, t00=0x0059, t01=0x0104}
0x08c2e…08c4e Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x0059, t01=0x0138}
0x08c4e…08c70 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x0059, t01=0x0158}
0x08c70…08ca0 Head {h00=0x002c, h01=0x0050, text=» CW A8,SAVE14,A13 ANY BLOCKS GENERATED? «, t00=0x0059, t01=0x017a}
0x08ca0…08cba Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT99 YES«, t00=0x005a, t01=0x001a}
0x08cba…08cd0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP6 «, t00=0x005a, t01=0x0034}
0x08cd0…08cee Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x005a, t01=0x004a}
0x08cee…08d24 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES «, t00=0x005a, t01=0x0068}
0x08d24…08d54 Head {h00=0x002c, h01=0x0050, text=» ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x005a, t01=0x009e}
0x08d54…08d64 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x00ce}
0x08d64…08d70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x00de}
0x08d70…08d7e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005a, t01=0x00ea}
0x08d7e…08dac Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x005a, t01=0x00f8}
0x08dac…08dda Head {h00=0x002a, h01=0x0026, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x005a, t01=0x0126}
0x08dda…08e08 Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x005a, t01=0x0154}
0x08e08…08e12 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005a, t01=0x0182}
0x08e12…08e3e Head {h00=0x0028, h01=0x0024, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x005a, t01=0x018c}
0x08e3e…08e6a Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x005b, t01=0x0028}
0x08e6a…08e92 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x005b, t01=0x0054}
0x08e92…08eba Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x005b, t01=0x007c}
0x08eba…08ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a4}
0x08ec4…08ece Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x00ae}
0x08ece…08eee Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: SYSLOD«, t00=0x005b, t01=0x00b8}
0x08eee…08ef8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x00d8}
0x08ef8…08f26 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x005b, t01=0x00e2}
0x08f26…08f52 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x005b, t01=0x0110}
0x08f52…08f5c Head {h00=0x0006, h01=0x000b, text=»* «, t00=0x005b, t01=0x013c}
0x08f5c…08f8e Head {h00=0x002e, h01=0x002a, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x005b, t01=0x0146}
0x08f8e…08f98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x0178}
0x08f98…08fc0 Head {h00=0x0024, h01=0x0020, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x005b, t01=0x0182}
0x08fc0…08fca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x001a}
0x08fca…08fea Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: BLKGEN «, t00=0x005c, t01=0x0024}
0x08fea…08ff4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0044}
0x08ff4…09002 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005c, t01=0x004e}
0x09002…09016 Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x005c, t01=0x005c}
0x09016…09028 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x005c, t01=0x0070}
0x09028…09052 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x005c, t01=0x0082}
0x09052…09084 Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x005c, t01=0x00ac}
0x09084…0908e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x00de}
0x0908e…090b6 Head {h00=0x0024, h01=0x0020, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x005c, t01=0x00e8}
0x090b6…090c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0110}
0x090c0…090ec Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x005c, t01=0x011a}
0x090ec…090f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0146}
0x090f6…0912a Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x005c, t01=0x0150}
0x0912a…09134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0184}
0x09134…0914a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x005c, t01=0x018e}
0x0914a…0915e Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x005d, t01=0x0014}
0x0915e…0917c Head {h00=0x001a, h01=0x0016, text=» SUK A7,2 MOORE TASKS?«, t00=0x005d, t01=0x0028}
0x0917c…09196 Head {h00=0x0016, h01=0x0011, text=» RF(Z) MON:20 NO «, t00=0x005d, t01=0x0046}
0x09196…091aa Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x005d, t01=0x0060}
0x091aa…091bc Head {h00=0x000e, h01=0x000a, text=» RB MON:10«, t00=0x005d, t01=0x0074}
0x091bc…091d0 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x005d, t01=0x0086}
0x091d0…091da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x009a}
0x091da…091fe Head {h00=0x0020, h01=0x001b, text=»* GENERATE 19 MOORE BLOCKS «, t00=0x005d, t01=0x00a4}
0x091fe…09208 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x00c8}
0x09208…0921a Head {h00=0x000e, h01=0x000a, text=» LDK A2,19«, t00=0x005d, t01=0x00d2}
0x0921a…0922e Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x005d, t01=0x00e4}
0x0922e…09238 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x00f8}
0x09238…09256 Head {h00=0x001a, h01=0x0015, text=»* GENERATE END BLOCK «, t00=0x005d, t01=0x0102}
0x09256…09260 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x0120}
0x09260…09274 Head {h00=0x0010, h01=0x000b, text=» STR A1,A12 «, t00=0x005d, t01=0x012a}
0x09274…09288 Head {h00=0x0010, h01=0x000c, text=» ST A1,2,A12«, t00=0x005d, t01=0x013e}
0x09288…0929c Head {h00=0x0010, h01=0x000c, text=» ST A1,4,A12«, t00=0x005d, t01=0x0152}
0x0929c…092a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0166}
0x092a6…092f0 Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A«, t00=0x005d, t01=0x0170}
0x092f0…09324 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x005e, t01=0x002a}
0x09324…0932e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x005e}
0x0932e…09358 Head {h00=0x0026, h01=0x0050, text=» LD A1,BUFSIZ,A13 GET BUFFER SIZE «, t00=0x005e, t01=0x0068}
0x09358…0936e Head {h00=0x0012, h01=0x0050, text=» CWK A1,6 >6? «, t00=0x005e, t01=0x0092}
0x0936e…09396 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x005e, t01=0x00a8}
0x09396…093b4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 BUFFER SIZE«, t00=0x005e, t01=0x00d0}
0x093b4…093d4 Head {h00=0x001c, h01=0x0050, text=» ST A1,BUFSIZ,A13 STORE «, t00=0x005e, t01=0x00ee}
0x093d4…093fe Head {h00=0x0026, h01=0x0050, text=» ST A12,SYSBUF,A13 START OF BUFFER«, t00=0x005e, t01=0x010e}
0x093fe…09412 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x005e, t01=0x0138}
0x09412…09426 Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x005e, t01=0x014c}
0x09426…0943c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x005e, t01=0x0160}
0x0943c…0944e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005e, t01=0x0176}
0x0944e…09466 Head {h00=0x0014, h01=0x0050, text=»MON:40 ADK A2,2 «, t00=0x005e, t01=0x0188}
0x09466…0947c Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x005f, t01=0x0010}
0x0947c…09492 Head {h00=0x0012, h01=0x0050, text=» RF(NE) MON:50«, t00=0x005f, t01=0x0026}
0x09492…094a8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x005f, t01=0x003c}
0x094a8…094bc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005f, t01=0x0052}
0x094bc…094d6 Head {h00=0x0016, h01=0x0050, text=»MON:50 CWR A2,A12 «, t00=0x005f, t01=0x0066}
0x094d6…094ec Head {h00=0x0012, h01=0x0050, text=» RB(NE) MON:40«, t00=0x005f, t01=0x0080}
0x094ec…0951a Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x005f, t01=0x0096}
0x0951a…0952a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x005f, t01=0x00c4}
0x0952a…09538 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005f, t01=0x00d4}
0x09538…09566 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x005f, t01=0x00e2}
0x09566…09594 Head {h00=0x002a, h01=0x0025, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x005f, t01=0x0110}
0x09594…095c2 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x005f, t01=0x013e}
0x095c2…095cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005f, t01=0x016c}
0x095cc…095ee Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONBLK «, t00=0x005f, t01=0x0176}
0x095ee…095f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0008}
0x095f8…09610 Head {h00=0x0014, h01=0x000f, text=»* ENTRY: A1=0 «, t00=0x0060, t01=0x0012}
0x09610…09648 Head {h00=0x0034, h01=0x0030, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0060, t01=0x002a}
0x09648…09670 Head {h00=0x0024, h01=0x001f, text=»* A12 - NEXT FREE ENTRY «, t00=0x0060, t01=0x0062}
0x09670…0967a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x008a}
0x0967a…09690 Head {h00=0x0012, h01=0x000e, text=»* EXIT: A1=0«, t00=0x0060, t01=0x0094}
0x09690…096b6 Head {h00=0x0022, h01=0x001e, text=»* A12 - NEXT FREE ENTRY«, t00=0x0060, t01=0x00aa}
0x096b6…096c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x00d0}
0x096c0…096dc Head {h00=0x0018, h01=0x0014, text=»* WORK REGISTES: A3«, t00=0x0060, t01=0x00da}
0x096dc…096e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x00f6}
0x096e6…096fe Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0060, t01=0x0100}
0x096fe…09708 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0118}
0x09708…0973c Head {h00=0x0030, h01=0x002c, text=»* MONITOR BLOCK LAYOUT«, t00=0x0060, t01=0x0122}
0x0973c…09770 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0060, t01=0x0156}
0x09770…097a4 Head {h00=0x0030, h01=0x002c, text=»* I DATA *+6 I«, t00=0x0060, t01=0x018a}
0x097a4…097d8 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0061, t01=0x002e}
0x097d8…0980c Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0061, t01=0x0062}
0x0980c…09840 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0061, t01=0x0096}
0x09840…09874 Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0061, t01=0x00ca}
0x09874…098a8 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0061, t01=0x00fe}
0x098a8…098b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x0132}
0x098b2…098c0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0061, t01=0x013c}
0x098c0…098d4 Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0061, t01=0x014a}
0x098d4…098e8 Head {h00=0x0010, h01=0x000c, text=» LDR A3,A2 «, t00=0x0061, t01=0x015e}
0x098e8…098fc Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0061, t01=0x0172}
0x098fc…09910 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BLKEX«, t00=0x0061, t01=0x0186}
0x09910…09924 Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x0062, t01=0x000a}
0x09924…0993a Head {h00=0x0012, h01=0x000e, text=» ST A12,-6,A12«, t00=0x0062, t01=0x001e}
0x0993a…09950 Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0062, t01=0x0034}
0x09950…09966 Head {h00=0x0012, h01=0x000d, text=» ST A1,-2,A12 «, t00=0x0062, t01=0x004a}
0x09966…09978 Head {h00=0x000e, h01=0x0009, text=» SUK A3,1 «, t00=0x0062, t01=0x0060}
0x09978…0998a Head {h00=0x000e, h01=0x000a, text=» RB BLK:10«, t00=0x0062, t01=0x0072}
0x0998a…0999e Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0062, t01=0x0084}
0x0999e…099ae Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0062, t01=0x0098}
0x099ae…099bc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0062, t01=0x00a8}
0x099bc…09a0c Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x0062, t01=0x00b6}
0x09a0c…09a5a Head {h00=0x004a, h01=0x004a, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x0062, t01=0x0106}
0x09a5a…09aaa Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x0062, t01=0x0154}
0x09aaa…09ab4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x0014}
0x09ab4…09ad4 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0063, t01=0x001e}
0x09ad4…09ade Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x003e}
0x09ade…09b0e Head {h00=0x002c, h01=0x0028, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x0063, t01=0x0048}
0x09b0e…09b44 Head {h00=0x0032, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION FILE«, t00=0x0063, t01=0x0078}
0x09b44…09b70 Head {h00=0x0028, h01=0x0023, text=»* SCTEFA - END OF FREE AREA «, t00=0x0063, t01=0x00ae}
0x09b70…09b7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x00da}
0x09b7a…09b8a Head {h00=0x000c, h01=0x000a, text=»* EXIT:«, t00=0x0063, t01=0x00e4}
0x09b8a…09b94 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x00f4}
0x09b94…09bb6 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x0063, t01=0x00fe}
0x09bb6…09bc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x0120}
0x09bc0…09c00 Head {h00=0x003c, h01=0x0038, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x0063, t01=0x012a}
0x09c00…09c0a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x016a}
0x09c0a…09c18 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0063, t01=0x0174}
0x09c18…09c2c Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x0063, t01=0x0182}
0x09c2c…09c36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x0008}
0x09c36…09c60 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SAVE01URATION FILE«, t00=0x0064, t01=0x0012}
0x09c60…09c6a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x003c}
0x09c6a…09ca0 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION FILE«, t00=0x0064, t01=0x0046}
0x09ca0…09cca Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0064, t01=0x007c}
0x09cca…09cd4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x00a6}
0x09cd4…09d0e Head {h00=0x0036, h01=0x0032, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x0064, t01=0x00b0}
0x09d0e…09d18 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x00ea}
0x09d18…09d40 Head {h00=0x0024, h01=0x001f, text=» LCR A2,A11 GET FIRST CHARACTER «, t00=0x0064, t01=0x00f4}
0x09d40…09d6c Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0064, t01=0x011c}
0x09d6c…09d84 Head {h00=0x0014, h01=0x000f, text=» RF(E) DWTS YES «, t00=0x0064, t01=0x0148}
0x09d84…09da6 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0064, t01=0x0160}
0x09da6…09dba Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0064, t01=0x0182}
0x09dba…09dcc Head {h00=0x000e, h01=0x0050, text=»DWTS EQU *«, t00=0x0065, t01=0x0008}
0x09dcc…09dd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x001a}
0x09dd6…09df6 Head {h00=0x001c, h01=0x0018, text=»* GET ADDRESS TO TC:TAB«, t00=0x0065, t01=0x0024}
0x09df6…09e00 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0044}
0x09e00…09e30 Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x0065, t01=0x004e}
0x09e30…09e42 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0065, t01=0x007e}
0x09e42…09e50 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0065, t01=0x0090}
0x09e50…09e64 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x0065, t01=0x009e}
0x09e64…09e6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x00b2}
0x09e6e…09ea0 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0065, t01=0x00bc}
0x09ea0…09eaa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x00ee}
0x09eaa…09ebe Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0065, t01=0x00f8}
0x09ebe…09ed2 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x0065, t01=0x010c}
0x09ed2…09ef0 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x0065, t01=0x0120}
0x09ef0…09efa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x013e}
0x09efa…09f28 Head {h00=0x002a, h01=0x0026, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x0065, t01=0x0148}
0x09f28…09f32 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0176}
0x09f32…09f46 Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x0065, t01=0x0180}
0x09f46…09f6c (102, 0, 400) Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0066, t01=0x0004}
0x09f6c…09f92 Head {h00=0x0022, h01=0x001d, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x0066, t01=0x002a}
0x09f92…09fcc Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY «, t00=0x0066, t01=0x0050}
0x09fcc…09fd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x008a}
0x09fd6…0a00a Head {h00=0x0030, h01=0x002c, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x0066, t01=0x0094}
0x0a00a…0a014 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x00c8}
0x0a014…0a046 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0066, t01=0x00d2}
0x0a046…0a076 Head {h00=0x002c, h01=0x0027, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x0066, t01=0x0104}
0x0a076…0a084 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0134}
0x0a084…0a08e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0142}
0x0a08e…0a0c6 Head {h00=0x0034, h01=0x002f, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x0066, t01=0x014c}
0x0a0c6…0a0d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0184}
0x0a0d0…0a0e4 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0066, t01=0x018e}
0x0a0e4…0a0f6 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0067, t01=0x0012}
0x0a0f6…0a10a Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x0067, t01=0x0024}
0x0a10a…0a120 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x0067, t01=0x0038}
0x0a120…0a140 Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x0067, t01=0x004e}
0x0a140…0a152 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x0067, t01=0x006e}
0x0a152…0a182 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0067, t01=0x0080}
0x0a182…0a1a4 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x0067, t01=0x00b0}
0x0a1a4…0a1cc Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0067, t01=0x00d2}
0x0a1cc…0a1f4 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0067, t01=0x00fa}
0x0a1f4…0a21a Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0067, t01=0x0122}
0x0a21a…0a248 Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x0067, t01=0x0148}
0x0a248…0a27c Head {h00=0x0030, h01=0x002b, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x0067, t01=0x0176}
0x0a27c…0a2a8 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x0068, t01=0x001a}
0x0a2a8…0a2ba Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x0068, t01=0x0046}
0x0a2ba…0a2ce Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x0068, t01=0x0058}
0x0a2ce…0a2d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x006c}
0x0a2d8…0a308 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0068, t01=0x0076}
0x0a308…0a312 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x00a6}
0x0a312…0a326 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0068, t01=0x00b0}
0x0a326…0a344 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0068, t01=0x00c4}
0x0a344…0a356 Head {h00=0x000e, h01=0x000a, text=» LDR A1,A1«, t00=0x0068, t01=0x00e2}
0x0a356…0a36a Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x0068, t01=0x00f4}
0x0a36a…0a380 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x0068, t01=0x0108}
0x0a380…0a39e Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE17,A13 SAVE«, t00=0x0068, t01=0x011e}
0x0a39e…0a3a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x013c}
0x0a3a8…0a3d6 Head {h00=0x002a, h01=0x0026, text=»* GET SPECIAL DEVICE CLASS NUMBER OM «, t00=0x0068, t01=0x0146}
0x0a3d6…0a3e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x0174}
0x0a3e0…0a3f4 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0068, t01=0x017e}
0x0a3f4…0a420 (105, 0, 398) Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CLASS NUMBER «, t00=0x0069, t01=0x0004}
0x0a420…0a42a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x0030}
0x0a42a…0a466 Head {h00=0x0038, h01=0x0033, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x0069, t01=0x003a}
0x0a466…0a470 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x0076}
0x0a470…0a482 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x0069, t01=0x0080}
0x0a482…0a4ae Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE11,A13 POINTER TO SCLASS «, t00=0x0069, t01=0x0092}
0x0a4ae…0a4ce Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x0069, t01=0x00be}
0x0a4ce…0a4f6 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x0069, t01=0x00de}
0x0a4f6…0a50e Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x0069, t01=0x0106}
0x0a50e…0a52c Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x0069, t01=0x011e}
0x0a52c…0a552 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0069, t01=0x013c}
0x0a552…0a566 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x0069, t01=0x0162}
0x0a566…0a582 Head {h00=0x0018, h01=0x0014, text=» ADK A5,4 GET DEVICE«, t00=0x0069, t01=0x0176}
0x0a582…0a5ae (106, 0, 400) Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x006a, t01=0x0004}
0x0a5ae…0a5da Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x006a, t01=0x0030}
0x0a5da…0a5f2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x006a, t01=0x005c}
0x0a5f2…0a5fc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006a, t01=0x0074}
0x0a5fc…0a610 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x006a, t01=0x007e}
0x0a610…0a61a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006a, t01=0x0092}
0x0a61a…0a638 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x006a, t01=0x009c}
0x0a638…0a668 Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x006a, t01=0x00ba}
0x0a668…0a684 Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x006a, t01=0x00ea}
0x0a684…0a692 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0106}
0x0a692…0a69c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0114}
0x0a69c…0a6d4 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x006a, t01=0x011e}
0x0a6d4…0a6de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0156}
0x0a6de…0a704 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x006a, t01=0x0160}
0x0a704…0a724 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x006a, t01=0x0186}
0x0a724…0a73e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x006b, t01=0x0016}
0x0a73e…0a76a Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x006b, t01=0x0030}
0x0a76a…0a798 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x006b, t01=0x005c}
0x0a798…0a7c8 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x006b, t01=0x008a}
0x0a7c8…0a7e4 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x006b, t01=0x00ba}
0x0a7e4…0a80c Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x006b, t01=0x00d6}
0x0a80c…0a832 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x006b, t01=0x00fe}
0x0a832…0a846 Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x006b, t01=0x0124}
0x0a846…0a86e Head {h00=0x0024, h01=0x0020, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x006b, t01=0x0138}
0x0a86e…0a882 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x006b, t01=0x0160}
0x0a882…0a88c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006b, t01=0x0174}
0x0a88c…0a8be Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x006b, t01=0x017e}
0x0a8be…0a8c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x0020}
0x0a8c8…0a8ee Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x006c, t01=0x002a}
0x0a8ee…0a916 Head {h00=0x0024, h01=0x001f, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x006c, t01=0x0050}
0x0a916…0a936 Head {h00=0x001c, h01=0x0018, text=» STR A1,A10 SAVE IN TTAB«, t00=0x006c, t01=0x0078}
0x0a936…0a96c Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK SAVE01URATION POINTER «, t00=0x006c, t01=0x0098}
0x0a96c…0a980 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x006c, t01=0x00ce}
0x0a980…0a9ae Head {h00=0x002a, h01=0x0025, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x006c, t01=0x00e2}
0x0a9ae…0a9d0 Head {h00=0x001e, h01=0x0019, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x006c, t01=0x0110}
0x0a9d0…0a9de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0132}
0x0a9de…0a9e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x0140}
0x0a9e8…0aa20 Head {h00=0x0034, h01=0x002f, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x006c, t01=0x014a}
0x0aa20…0aa2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x0182}
0x0aa2a…0aa40 Head {h00=0x0012, h01=0x000e, text=» ADKL A9,SDC «, t00=0x006c, t01=0x018c}
0x0aa40…0aa5a Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE17,A13 «, t00=0x006d, t01=0x0012}
0x0aa5a…0aa6c Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x006d, t01=0x002c}
0x0aa6c…0aa7e Head {h00=0x000e, h01=0x000a, text=» RB DWTS50«, t00=0x006d, t01=0x003e}
0x0aa7e…0aa92 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x006d, t01=0x0050}
0x0aa92…0aa9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x0064}
0x0aa9c…0aad8 Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION «, t00=0x006d, t01=0x006e}
0x0aad8…0aae2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x00aa}
0x0aae2…0aafc Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE19,A13 «, t00=0x006d, t01=0x00b4}
0x0aafc…0ab0e Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x006d, t01=0x00ce}
0x0ab0e…0ab24 Head {h00=0x0012, h01=0x000d, text=» RB(P) DWTS20 «, t00=0x006d, t01=0x00e0}
0x0ab24…0ab2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x00f6}
0x0ab2e…0ab5e Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x006d, t01=0x0100}
0x0ab5e…0ab68 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x0130}
0x0ab68…0ab7c Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x006d, t01=0x013a}
0x0ab7c…0aba8 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x006d, t01=0x014e}
0x0aba8…0abc2 Head {h00=0x0016, h01=0x0011, text=» RB(E) DWTS10 YES «, t00=0x006d, t01=0x017a}
0x0abc2…0abd8 (110, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x006e, t01=0x0004}
0x0abd8…0abea Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x006e, t01=0x001a}
0x0abea…0ac02 Head {h00=0x0014, h01=0x0050, text=»DWTS95 ADK A2,2 «, t00=0x006e, t01=0x002c}
0x0ac02…0ac18 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x006e, t01=0x0044}
0x0ac18…0ac2e Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWTS99«, t00=0x006e, t01=0x005a}
0x0ac2e…0ac44 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006e, t01=0x0070}
0x0ac44…0ac70 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x006e, t01=0x0086}
0x0ac70…0ac8a Head {h00=0x0016, h01=0x0050, text=»DWTS99 CWR A2,A12 «, t00=0x006e, t01=0x00b2}
0x0ac8a…0aca0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWTS95«, t00=0x006e, t01=0x00cc}
0x0aca0…0acb6 Head {h00=0x0012, h01=0x000e, text=» ST A12,SCTSFA«, t00=0x006e, t01=0x00e2}
0x0acb6…0acce Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x006e, t01=0x00f8}
0x0acce…0acdc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006e, t01=0x0110}
0x0acdc…0ad14 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006e, t01=0x011e}
0x0ad14…0ad4c Head {h00=0x0034, h01=0x0030, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x006e, t01=0x0156}
0x0ad4c…0ad84 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006e, t01=0x018e}
0x0ad84…0adbc Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006f, t01=0x0036}
0x0adbc…0adc6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x006e}
0x0adc6…0ade6 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x006f, t01=0x0078}
0x0ade6…0adf0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0098}
0x0adf0…0ae02 Head {h00=0x000e, h01=0x000b, text=»* ENTRY: «, t00=0x006f, t01=0x00a2}
0x0ae02…0ae0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00b4}
0x0ae0c…0ae1c Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x006f, t01=0x00be}
0x0ae1c…0ae26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00ce}
0x0ae26…0ae48 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x006f, t01=0x00d8}
0x0ae48…0ae52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00fa}
0x0ae52…0ae9a Head {h00=0x0044, h01=0x0040, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x006f, t01=0x0104}
0x0ae9a…0aea4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x014c}
0x0aea4…0aeb2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006f, t01=0x0156}
0x0aeb2…0aec6 Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x006f, t01=0x0164}
0x0aec6…0aed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0178}
0x0aed0…0af1a Head {h00=0x0046, h01=0x0050, text=»* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE«, t00=0x006f, t01=0x0182}
0x0af1a…0af24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x003c}
0x0af24…0af36 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0070, t01=0x0046}
0x0af36…0af6a Head {h00=0x0030, h01=0x0050, text=» LDKL A11,BDWT05 GET END OF TEMP. WORK AREA «, t00=0x0070, t01=0x0058}
0x0af6a…0af94 Head {h00=0x0026, h01=0x0050, text=» AD A11,M:REL,A13 RELOCATE ADDRESS«, t00=0x0070, t01=0x008c}
0x0af94…0afac Head {h00=0x0014, h01=0x0050, text=» LDR A7,A11 SAVE«, t00=0x0070, t01=0x00b6}
0x0afac…0afe2 Head {h00=0x0032, h01=0x0050, text=» SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA«, t00=0x0070, t01=0x00ce}
0x0afe2…0b00a Head {h00=0x0024, h01=0x0050, text=» CWK A7,1808 IS AREA BIG ENOUGH?«, t00=0x0070, t01=0x0104}
0x0b00a…0b024 Head {h00=0x0016, h01=0x0050, text=» RF(L) BDWT02 NO! «, t00=0x0070, t01=0x012c}
0x0b024…0b054 Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTEFA SAVE REAL END OF FREE AREA«, t00=0x0070, t01=0x0146}
0x0b054…0b080 Head {h00=0x0028, h01=0x0050, text=» ST A11,SCTEFA END OF TEMPORARY AREA«, t00=0x0070, t01=0x0176}
0x0b080…0b08a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x0012}
0x0b08a…0b0d6 Head {h00=0x0048, h01=0x0044, text=»* ALLOCATE MEMORY FOR TEMPORARY INTERRUPT TABLE AT END OF FREE AREA«, t00=0x0071, t01=0x001c}
0x0b0d6…0b0e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x0068}
0x0b0e0…0b0f4 Head {h00=0x0010, h01=0x0050, text=»BDWT02 EQU *«, t00=0x0071, t01=0x0072}
0x0b0f4…0b120 Head {h00=0x0028, h01=0x0050, text=» LD A11,SCTEFA GET END OF FREE AREA «, t00=0x0071, t01=0x0086}
0x0b120…0b14c Head {h00=0x0028, h01=0x0024, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0071, t01=0x00b2}
0x0b14c…0b160 Head {h00=0x0010, h01=0x0050, text=»BDWT05 EQU *«, t00=0x0071, t01=0x00de}
0x0b160…0b184 Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET WORD COUNTER«, t00=0x0071, t01=0x00f2}
0x0b184…0b198 Head {h00=0x0010, h01=0x0050, text=»BDWT10 EQU *«, t00=0x0071, t01=0x0116}
0x0b198…0b1bc Head {h00=0x0020, h01=0x001c, text=» CWR A11,A9 MEMORY OVERFLOW?«, t00=0x0071, t01=0x012a}
0x0b1bc…0b1d6 Head {h00=0x0016, h01=0x0011, text=» RF(NE) BDWT15 NO «, t00=0x0071, t01=0x014e}
0x0b1d6…0b204 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0071, t01=0x0168}
0x0b204…0b218 Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0072, t01=0x0008}
0x0b218…0b22c Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x0072, t01=0x001c}
0x0b22c…0b254 Head {h00=0x0024, h01=0x001f, text=» CWK A7,896 ALL WORDS RESERVED? «, t00=0x0072, t01=0x0030}
0x0b254…0b26e Head {h00=0x0016, h01=0x0011, text=» RF(E) BDWT20 YES «, t00=0x0072, t01=0x0058}
0x0b26e…0b296 Head {h00=0x0024, h01=0x001f, text=» SUKL A11,2 RESERV ANOTHER WORD «, t00=0x0072, t01=0x0072}
0x0b296…0b2b8 Head {h00=0x001e, h01=0x0050, text=» CMR A11 CLEAR MEMORY WORD«, t00=0x0072, t01=0x009a}
0x0b2b8…0b2e0 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT WORD COUNTER«, t00=0x0072, t01=0x00bc}
0x0b2e0…0b2f2 Head {h00=0x000e, h01=0x000a, text=» RB BDWT10«, t00=0x0072, t01=0x00e4}
0x0b2f2…0b306 Head {h00=0x0010, h01=0x0050, text=»BDWT20 EQU *«, t00=0x0072, t01=0x00f6}
0x0b306…0b310 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x010a}
0x0b310…0b34a Head {h00=0x0036, h01=0x0032, text=»* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES«, t00=0x0072, t01=0x0114}
0x0b34a…0b354 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x014e}
0x0b354…0b37c Head {h00=0x0024, h01=0x0050, text=» ADK A1,0 NEW END OF FREE AREA? «, t00=0x0072, t01=0x0158}
0x0b37c…0b396 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BDWT25 NO!«, t00=0x0072, t01=0x0180}
0x0b396…0b3aa Head {h00=0x0010, h01=0x0050, text=» LDR A1,A11 «, t00=0x0073, t01=0x000a}
0x0b3aa…0b3be Head {h00=0x0010, h01=0x0050, text=»BDWT25 EQU *«, t00=0x0073, t01=0x001e}
0x0b3be…0b3d6 Head {h00=0x0014, h01=0x0050, text=» LD A7,SCTSFA+2 «, t00=0x0073, t01=0x0032}
0x0b3d6…0b3ea Head {h00=0x0010, h01=0x0050, text=»BDWT30 EQU *«, t00=0x0073, t01=0x004a}
0x0b3ea…0b41a Head {h00=0x002c, h01=0x0028, text=» STR A11,A7 SAVE INTERRUPT TABLE ADDRESS«, t00=0x0073, t01=0x005e}
0x0b41a…0b444 Head {h00=0x0026, h01=0x0022, text=» ADK A7,2 NEXT ADDRESS TABLE ENTRY«, t00=0x0073, t01=0x008e}
0x0b444…0b476 Head {h00=0x002e, h01=0x002a, text=» ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS«, t00=0x0073, t01=0x00b8}
0x0b476…0b4a4 Head {h00=0x002a, h01=0x0025, text=» CW A11,SCTEFA ALL POINTERS INTIATED? «, t00=0x0073, t01=0x00ea}
0x0b4a4…0b4be Head {h00=0x0016, h01=0x0011, text=» RB(NE) BDWT30 NO «, t00=0x0073, t01=0x0118}
0x0b4be…0b4ec Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTEFA UPDATE END OF FREE AREA «, t00=0x0073, t01=0x0132}
0x0b4ec…0b4fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0160}
0x0b4fa…0b504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0073, t01=0x016e}
0x0b504…0b520 Head {h00=0x0018, h01=0x0013, text=»* INIT DWT POINTER «, t00=0x0073, t01=0x0178}
0x0b520…0b52a (116, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0004}
0x0b52a…0b544 Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x0074, t01=0x000e}
0x0b544…0b572 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0074, t01=0x0028}
0x0b572…0b57c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0056}
0x0b57c…0b5c2 Head {h00=0x0042, h01=0x003e, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x0074, t01=0x0060}
0x0b5c2…0b5cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x00a6}
0x0b5cc…0b600 Head {h00=0x0030, h01=0x0050, text=» LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY «, t00=0x0074, t01=0x00b0}
0x0b600…0b63a Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY«, t00=0x0074, t01=0x00e4}
0x0b63a…0b64e Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x0074, t01=0x011e}
0x0b64e…0b658 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0132}
0x0b658…0b68a Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0074, t01=0x013c}
0x0b68a…0b694 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x016e}
0x0b694…0b6bc Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0074, t01=0x0178}
0x0b6bc…0b6d0 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x0075, t01=0x0010}
0x0b6d0…0b6fc Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE BINARY VALUE «, t00=0x0075, t01=0x0024}
0x0b6fc…0b706 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x0050}
0x0b706…0b74a Head {h00=0x0040, h01=0x003b, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x0075, t01=0x005a}
0x0b74a…0b754 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x009e}
0x0b754…0b768 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0075, t01=0x00a8}
0x0b768…0b772 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x00bc}
0x0b772…0b79a Head {h00=0x0024, h01=0x0020, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x0075, t01=0x00c6}
0x0b79a…0b7a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x00ee}
0x0b7a4…0b7cc Head {h00=0x0024, h01=0x0020, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x0075, t01=0x00f8}
0x0b7cc…0b7e4 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x0075, t01=0x0120}
0x0b7e4…0b81e Head {h00=0x0036, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS«, t00=0x0075, t01=0x0138}
0x0b81e…0b84a Head {h00=0x0028, h01=0x0050, text=» LD* A10,SAVE13,A13 GET TTAB ADDRESS«, t00=0x0075, t01=0x0172}
0x0b84a…0b884 Head {h00=0x0036, h01=0x0031, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x0076, t01=0x000e}
0x0b884…0b88e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x0048}
0x0b88e…0b8ba Head {h00=0x0028, h01=0x0023, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x0076, t01=0x0052}
0x0b8ba…0b8c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x007e}
0x0b8c4…0b8f6 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0076, t01=0x0088}
0x0b8f6…0b92e Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0076, t01=0x00ba}
0x0b92e…0b942 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x0076, t01=0x00f2}
0x0b942…0b968 Head {h00=0x0022, h01=0x001d, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x0076, t01=0x0106}
0x0b968…0b994 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE BINARY VALUE «, t00=0x0076, t01=0x012c}
0x0b994…0b99e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x0158}
0x0b99e…0b9e2 Head {h00=0x0040, h01=0x003c, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x0076, t01=0x0162}
0x0b9e2…0b9fa Head {h00=0x0014, h01=0x000f, text=»* IN THIS TASK «, t00=0x0077, t01=0x0016}
0x0b9fa…0ba04 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0077, t01=0x002e}
0x0ba04…0ba34 Head {h00=0x002c, h01=0x0027, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0077, t01=0x0038}
0x0ba34…0ba58 Head {h00=0x0020, h01=0x001c, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x0077, t01=0x0068}
0x0ba58…0ba8a Head {h00=0x002e, h01=0x002a, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x0077, t01=0x008c}
0x0ba8a…0bac2 Head {h00=0x0034, h01=0x002f, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x0077, t01=0x00be}
0x0bac2…0baf2 Head {h00=0x002c, h01=0x0027, text=» SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT «, t00=0x0077, t01=0x00f6}
0x0baf2…0bb28 Head {h00=0x0032, h01=0x002d, text=» SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE «, t00=0x0077, t01=0x0126}
0x0bb28…0bb56 Head {h00=0x002a, h01=0x0026, text=» SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT«, t00=0x0077, t01=0x015c}
0x0bb56…0bb60 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0077, t01=0x018a}
0x0bb60…0bb9e (120, 0, 400) Head {h00=0x003a, h01=0x0035, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x0078, t01=0x0004}
0x0bb9e…0bba8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x0042}
0x0bba8…0bbde Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID«, t00=0x0078, t01=0x004c}
0x0bbde…0bbf6 Head {h00=0x0014, h01=0x000f, text=» ADR A2,A2 2*ID «, t00=0x0078, t01=0x0082}
0x0bbf6…0bc22 Head {h00=0x0028, h01=0x0050, text=» LD A7,SAVE18,A13 POINTER TO TCLASS «, t00=0x0078, t01=0x009a}
0x0bc22…0bc3e Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x0078, t01=0x00c6}
0x0bc3e…0bc48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00e2}
0x0bc48…0bc86 Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED«, t00=0x0078, t01=0x00ec}
0x0bc86…0bc90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x012a}
0x0bc90…0bcb8 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0078, t01=0x0134}
0x0bcb8…0bcc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x015c}
0x0bcc6…0bcd0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x016a}
0x0bcd0…0bcf8 Head {h00=0x0024, h01=0x0020, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x0078, t01=0x0174}
0x0bcf8…0bd2e Head {h00=0x0032, h01=0x002d, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x0079, t01=0x000c}
0x0bd2e…0bd5e Head {h00=0x002c, h01=0x0028, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x0079, t01=0x0042}
0x0bd5e…0bd68 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0079, t01=0x0072}
0x0bd68…0bd9a Head {h00=0x002e, h01=0x002a, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x0079, t01=0x007c}
0x0bd9a…0bdcc Head {h00=0x002e, h01=0x002a, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x0079, t01=0x00ae}
0x0bdcc…0be0a Head {h00=0x003a, h01=0x0036, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x0079, t01=0x00e0}
0x0be0a…0be14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0079, t01=0x011e}
0x0be14…0be28 Head {h00=0x0010, h01=0x000c, text=» CALL DWTGEN«, t00=0x0079, t01=0x0128}
0x0be28…0be3c Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x0079, t01=0x013c}
0x0be3c…0be7c Head {h00=0x003c, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0079, t01=0x0150}
0x0be7c…0beac Head {h00=0x002c, h01=0x0027, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x0079, t01=0x0190}
0x0beac…0bec4 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x007a, t01=0x0030}
0x0bec4…0bef4 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE REMAINING NUMBER «, t00=0x007a, t01=0x0048}
0x0bef4…0bf1c Head {h00=0x0024, h01=0x0020, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x007a, t01=0x0078}
0x0bf1c…0bf2e Head {h00=0x000e, h01=0x000a, text=» RB BDWT55«, t00=0x007a, t01=0x00a0}
0x0bf2e…0bf42 Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x007a, t01=0x00b2}
0x0bf42…0bf78 Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x007a, t01=0x00c6}
0x0bf78…0bfa2 Head {h00=0x0026, h01=0x0021, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x007a, t01=0x00fc}
0x0bfa2…0bfc0 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE«, t00=0x007a, t01=0x0126}
0x0bfc0…0bffc Head {h00=0x0038, h01=0x0050, text=» LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x007a, t01=0x0144}
0x0bffc…0c022 Head {h00=0x0022, h01=0x001e, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x007a, t01=0x0180}
0x0c022…0c038 Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT50 «, t00=0x007b, t01=0x0016}
0x0c038…0c068 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x007b, t01=0x002c}
0x0c068…0c072 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x005c}
0x0c072…0c09a Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x007b, t01=0x0066}
0x0c09a…0c0c6 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x007b, t01=0x008e}
0x0c0c6…0c0e0 Head {h00=0x0016, h01=0x0011, text=» RB(E) BDWT40 YES «, t00=0x007b, t01=0x00ba}
0x0c0e0…0c0ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x00d4}
0x0c0ea…0c11e Head {h00=0x0030, h01=0x002c, text=»* ALL TERMINAL DEVICE WORK TABLES GENERATED«, t00=0x007b, t01=0x00de}
0x0c11e…0c128 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x0112}
0x0c128…0c13e Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x007b, t01=0x011c}
0x0c13e…0c150 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x007b, t01=0x0132}
0x0c150…0c168 Head {h00=0x0014, h01=0x0050, text=»BDW105 ADK A2,2 «, t00=0x007b, t01=0x0144}
0x0c168…0c17e Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x007b, t01=0x015c}
0x0c17e…0c194 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BDW110«, t00=0x007b, t01=0x0172}
0x0c194…0c1aa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007b, t01=0x0188}
0x0c1aa…0c1be Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x007c, t01=0x000e}
0x0c1be…0c1d8 Head {h00=0x0016, h01=0x0050, text=»BDW110 CWR A2,A12 «, t00=0x007c, t01=0x0022}
0x0c1d8…0c1ee Head {h00=0x0012, h01=0x0050, text=» RB(NE) BDW105«, t00=0x007c, t01=0x003c}
0x0c1ee…0c21e Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x007c, t01=0x0052}
0x0c21e…0c236 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x007c, t01=0x0082}
0x0c236…0c246 Head {h00=0x000c, h01=0x0007, text=» EJECT «, t00=0x007c, t01=0x009a}
0x0c246…0c276 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x007c, t01=0x00aa}
0x0c276…0c2a6 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x007c, t01=0x00da}
0x0c2a6…0c2d6 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x007c, t01=0x010a}
0x0c2d6…0c2e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007c, t01=0x013a}
0x0c2e0…0c302 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONCON «, t00=0x007c, t01=0x0144}
0x0c302…0c30c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007c, t01=0x0166}
0x0c30c…0c33a Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x007c, t01=0x0170}
0x0c33a…0c372 Head {h00=0x0034, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION DATA «, t00=0x007d, t01=0x000e}
0x0c372…0c39e Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x007d, t01=0x0046}
0x0c39e…0c3a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x0072}
0x0c3a8…0c3e0 Head {h00=0x0034, h01=0x0030, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x007d, t01=0x007c}
0x0c3e0…0c3ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x00b4}
0x0c3ea…0c40c Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x007d, t01=0x00be}
0x0c40c…0c416 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x00e0}
0x0c416…0c456 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x007d, t01=0x00ea}
0x0c456…0c460 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x012a}
0x0c460…0c46e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x007d, t01=0x0134}
0x0c46e…0c482 Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x007d, t01=0x0142}
0x0c482…0c4b8 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION DATA«, t00=0x007d, t01=0x0156}
0x0c4b8…0c4e2 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x007d, t01=0x018c}
0x0c4e2…0c500 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x007e, t01=0x0026}
0x0c500…0c50a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007e, t01=0x0044}
0x0c50a…0c538 Head {h00=0x002a, h01=0x0025, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x007e, t01=0x004e}
0x0c538…0c542 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007e, t01=0x007c}
0x0c542…0c556 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x007e, t01=0x0086}
0x0c556…0c56a Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x007e, t01=0x009a}
0x0c56a…0c596 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x007e, t01=0x00ae}
0x0c596…0c5b0 Head {h00=0x0016, h01=0x0011, text=» RB(E) CDG:10 YES «, t00=0x007e, t01=0x00da}
0x0c5b0…0c5dc Head {h00=0x0028, h01=0x0024, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x007e, t01=0x00f4}
0x0c5dc…0c5f6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x007e, t01=0x0120}
0x0c5f6…0c604 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x013a}
0x0c604…0c60e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0148}
0x0c60e…0c64c Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x007e, t01=0x0152}
0x0c64c…0c688 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x007e, t01=0x0190}
0x0c688…0c692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x003c}
0x0c692…0c6c6 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x007f, t01=0x0046}
0x0c6c6…0c700 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x007f, t01=0x007a}
0x0c700…0c72a Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x007f, t01=0x00b4}
0x0c72a…0c742 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x007f, t01=0x00de}
0x0c742…0c768 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x007f, t01=0x00f6}
0x0c768…0c79a Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x007f, t01=0x011c}
0x0c79a…0c7ca Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x007f, t01=0x014e}
0x0c7ca…0c7fa Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x007f, t01=0x017e}
0x0c7fa…0c822 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x0080, t01=0x001e}
0x0c822…0c842 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x0080, t01=0x0046}
0x0c842…0c86c Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x0080, t01=0x0066}
0x0c86c…0c886 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x0080, t01=0x0090}
0x0c886…0c8aa Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x0080, t01=0x00aa}
0x0c8aa…0c8be Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0080, t01=0x00ce}
0x0c8be…0c8ee Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x0080, t01=0x00e2}
0x0c8ee…0c916 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x0080, t01=0x0112}
0x0c916…0c93e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x0080, t01=0x013a}
0x0c93e…0c964 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x0080, t01=0x0162}
0x0c964…0c98e Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x0080, t01=0x0188}
0x0c98e…0c9c0 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x0081, t01=0x0022}
0x0c9c0…0c9e6 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x0081, t01=0x0054}
0x0c9e6…0c9f8 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x0081, t01=0x007a}
0x0c9f8…0ca06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x008c}
0x0ca06…0ca1a Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x0081, t01=0x009a}
0x0ca1a…0ca24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ae}
0x0ca24…0ca62 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x0081, t01=0x00b8}
0x0ca62…0ca9e Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x0081, t01=0x00f6}
0x0ca9e…0caa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0132}
0x0caa8…0cabc Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0081, t01=0x013c}
0x0cabc…0cada Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0081, t01=0x0150}
0x0cada…0caec Head {h00=0x000e, h01=0x000a, text=» LDR A6,A1«, t00=0x0081, t01=0x016e}
0x0caec…0cb00 Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x0081, t01=0x0180}
0x0cb00…0cb16 (130, 0, 400) Head {h00=0x0012, h01=0x000d, text=» RF(Z) BCDTEX «, t00=0x0082, t01=0x0004}
0x0cb16…0cb2a Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0082, t01=0x001a}
0x0cb2a…0cb3c Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x0082, t01=0x002e}
0x0cb3c…0cb6c Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0082, t01=0x0040}
0x0cb6c…0cb80 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0082, t01=0x0070}
0x0cb80…0cb92 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0082, t01=0x0084}
0x0cb92…0cba4 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0082, t01=0x0096}
0x0cba4…0cbba Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x0082, t01=0x00a8}
0x0cbba…0cbd0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0082, t01=0x00be}
0x0cbd0…0cbe4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0082, t01=0x00d4}
0x0cbe4…0cbf8 Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x0082, t01=0x00e8}
0x0cbf8…0cc18 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x0082, t01=0x00fc}
0x0cc18…0cc40 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x0082, t01=0x011c}
0x0cc40…0cc5e Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x0082, t01=0x0144}
0x0cc5e…0cc70 Head {h00=0x000e, h01=0x0009, text=» SUK A1,2 «, t00=0x0082, t01=0x0162}
0x0cc70…0cc84 Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x0082, t01=0x0174}
0x0cc84…0cc96 Head {h00=0x000e, h01=0x000a, text=» ADR A7,A1«, t00=0x0082, t01=0x0188}
0x0cc96…0cca8 Head {h00=0x000e, h01=0x0009, text=» SUK A6,1 «, t00=0x0083, t01=0x000a}
0x0cca8…0ccba Head {h00=0x000e, h01=0x000a, text=» RB BCDT10«, t00=0x0083, t01=0x001c}
0x0ccba…0ccce Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x0083, t01=0x002e}
0x0ccce…0ccdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0042}
0x0ccdc…0cce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0050}
0x0cce6…0cd26 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x0083, t01=0x005a}
0x0cd26…0cd60 Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x0083, t01=0x009a}
0x0cd60…0cd6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00d4}
0x0cd6a…0cda4 Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x0083, t01=0x00de}
0x0cda4…0cde8 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x0083, t01=0x0118}
0x0cde8…0cdf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x015c}
0x0cdf2…0ce40 Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x0083, t01=0x0166}
0x0ce40…0ce4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0024}
0x0ce4a…0ce74 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x0084, t01=0x002e}
0x0ce74…0ce9a Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x0084, t01=0x0058}
0x0ce9a…0ceb6 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x0084, t01=0x007e}
0x0ceb6…0cedc Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0084, t01=0x009a}
0x0cedc…0cf04 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/A DISC PAGING OR SWB:S?«, t00=0x0084, t01=0x00c0}
0x0cf04…0cf34 Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x0084, t01=0x00e8}
0x0cf34…0cf4e Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:15 NO! «, t00=0x0084, t01=0x0118}
0x0cf4e…0cf7e Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0084, t01=0x0132}
0x0cf7e…0cfa6 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x0084, t01=0x0162}
0x0cfa6…0cfcc Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x0084, t01=0x018a}
0x0cfcc…0cff4 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x0085, t01=0x0020}
0x0cff4…0d022 Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x0085, t01=0x0048}
0x0d022…0d04e Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x0085, t01=0x0076}
0x0d04e…0d074 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0085, t01=0x00a2}
0x0d074…0d09e Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x0085, t01=0x00c8}
0x0d09e…0d0b2 Head {h00=0x0010, h01=0x0050, text=»CDG:15 EQU *«, t00=0x0085, t01=0x00f2}
0x0d0b2…0d0e2 Head {h00=0x002c, h01=0x0050, text=» LD A6,SCTDMC GET NUMBER OF GLOBAL FILES«, t00=0x0085, t01=0x0106}
0x0d0e2…0d102 Head {h00=0x001c, h01=0x0050, text=» SLL A6,2 MULTIPLY BY 4 «, t00=0x0085, t01=0x0136}
0x0d102…0d12c Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x0085, t01=0x0156}
0x0d12c…0d13e Head {h00=0x000e, h01=0x0009, text=» ADK A7,2 «, t00=0x0085, t01=0x0180}
0x0d13e…0d152 (134, 0, 400) Head {h00=0x0010, h01=0x000b, text=» STR A7,A12 «, t00=0x0086, t01=0x0004}
0x0d152…0d168 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x0086, t01=0x0018}
0x0d168…0d17c Head {h00=0x0010, h01=0x000b, text=» ADR A12,A7 «, t00=0x0086, t01=0x002e}
0x0d17c…0d18a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0086, t01=0x0042}
0x0d18a…0d194 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x0050}
0x0d194…0d1ce Head {h00=0x0036, h01=0x0031, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x0086, t01=0x005a}
0x0d1ce…0d1d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x0094}
0x0d1d8…0d204 Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x0086, t01=0x009e}
0x0d204…0d22c Head {h00=0x0024, h01=0x0050, text=» LCR A2,A11 COMMON DEVICE BLOCK?«, t00=0x0086, t01=0x00ca}
0x0d22c…0d240 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0086, t01=0x00f2}
0x0d240…0d256 Head {h00=0x0012, h01=0x0050, text=» RF(E) CDG:18 «, t00=0x0086, t01=0x0106}
0x0d256…0d284 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,2 FIRST FREE ENTRY IN CDTAB «, t00=0x0086, t01=0x011c}
0x0d284…0d296 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0086, t01=0x014a}
0x0d296…0d2a8 Head {h00=0x000e, h01=0x0050, text=» RF CDGEX «, t00=0x0086, t01=0x015c}
0x0d2a8…0d2bc Head {h00=0x0010, h01=0x0050, text=»CDG:18 EQU *«, t00=0x0086, t01=0x016e}
0x0d2bc…0d2c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0182}
0x0d2c6…0d308 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x0086, t01=0x018c}
0x0d308…0d312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x003e}
0x0d312…0d340 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x0087, t01=0x0048}
0x0d340…0d37a Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x0087, t01=0x0076}
0x0d37a…0d3a4 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x0087, t01=0x00b0}
0x0d3a4…0d3d4 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x0087, t01=0x00da}
0x0d3d4…0d3f4 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x0087, t01=0x010a}
0x0d3f4…0d412 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE«, t00=0x0087, t01=0x012a}
0x0d412…0d43e Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x0087, t01=0x0148}
0x0d43e…0d45c Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE«, t00=0x0087, t01=0x0174}
0x0d45c…0d48c (136, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0088, t01=0x0004}
0x0d48c…0d4a4 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x0088, t01=0x0034}
0x0d4a4…0d4d4 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE14,A13 GET CLASS IDENT NUMBER«, t00=0x0088, t01=0x004c}
0x0d4d4…0d4fe Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x0088, t01=0x007c}
0x0d4fe…0d52e Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0088, t01=0x00a6}
0x0d52e…0d558 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x0088, t01=0x00d6}
0x0d558…0d580 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0088, t01=0x0100}
0x0d580…0d5b2 Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x0088, t01=0x0128}
0x0d5b2…0d5e4 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x0088, t01=0x015a}
0x0d5e4…0d612 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF C.T.C.«, t00=0x0088, t01=0x018c}
0x0d612…0d636 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x0089, t01=0x002a}
0x0d636…0d648 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x0089, t01=0x004e}
0x0d648…0d67a Head {h00=0x002e, h01=0x0050, text=»B:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB«, t00=0x0089, t01=0x0060}
0x0d67a…0d688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0092}
0x0d688…0d692 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x00a0}
0x0d692…0d6c2 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0089, t01=0x00aa}
0x0d6c2…0d6cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x00da}
0x0d6cc…0d6e0 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0089, t01=0x00e4}
0x0d6e0…0d6fe Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0089, t01=0x00f8}
0x0d6fe…0d710 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0089, t01=0x0116}
0x0d710…0d724 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x0089, t01=0x0128}
0x0d724…0d73a Head {h00=0x0012, h01=0x0050, text=» RF(NP) CDGEX «, t00=0x0089, t01=0x013c}
0x0d73a…0d744 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x0152}
0x0d744…0d76e Head {h00=0x0026, h01=0x0023, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x0089, t01=0x015c}
0x0d76e…0d778 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x0186}
0x0d778…0d78c Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0089, t01=0x0190}
0x0d78c…0d796 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x0014}
0x0d796…0d7ca Head {h00=0x0030, h01=0x002b, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x008a, t01=0x001e}
0x0d7ca…0d7d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x0052}
0x0d7d4…0d7ea Head {h00=0x0012, h01=0x000e, text=» ADR A1,A1 T «, t00=0x008a, t01=0x005c}
0x0d7ea…0d81a Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x008a, t01=0x0072}
0x0d81a…0d82e Head {h00=0x0010, h01=0x0050, text=»CDG:25 EQU *«, t00=0x008a, t01=0x00a2}
0x0d82e…0d84e Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x008a, t01=0x00b6}
0x0d84e…0d878 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x008a, t01=0x00d6}
0x0d878…0d8a0 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x008a, t01=0x0100}
0x0d8a0…0d8c8 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x008a, t01=0x0128}
0x0d8c8…0d8ee Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x008a, t01=0x0150}
0x0d8ee…0d902 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x008a, t01=0x0176}
0x0d902…0d920 Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x008a, t01=0x018a}
0x0d920…0d944 Head {h00=0x0020, h01=0x001b, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x008b, t01=0x0018}
0x0d944…0d970 Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x008b, t01=0x003c}
0x0d970…0d988 Head {h00=0x0014, h01=0x0010, text=» RF(Z) CDG:40 NO«, t00=0x008b, t01=0x0068}
0x0d988…0d992 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x0080}
0x0d992…0d9a6 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x008b, t01=0x008a}
0x0d9a6…0d9b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x009e}
0x0d9b0…0d9ce Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x008b, t01=0x00a8}
0x0d9ce…0d9fe Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x008b, t01=0x00c6}
0x0d9fe…0da1a Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x008b, t01=0x00f6}
0x0da1a…0da24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0112}
0x0da24…0da5c Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x008b, t01=0x011c}
0x0da5c…0da66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0154}
0x0da66…0da8c Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x008b, t01=0x015e}
0x0da8c…0daac Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x008b, t01=0x0184}
0x0daac…0dac6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x008c, t01=0x0014}
0x0dac6…0daf2 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x008c, t01=0x002e}
0x0daf2…0db20 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x008c, t01=0x005a}
0x0db20…0db50 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x008c, t01=0x0088}
0x0db50…0db74 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x008c, t01=0x00b8}
0x0db74…0db90 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x008c, t01=0x00dc}
0x0db90…0dbb6 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x008c, t01=0x00f8}
0x0dbb6…0dbca Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x008c, t01=0x011e}
0x0dbca…0dbf0 Head {h00=0x0022, h01=0x001d, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x008c, t01=0x0132}
0x0dbf0…0dc04 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x008c, t01=0x0158}
0x0dc04…0dc0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008c, t01=0x016c}
0x0dc0e…0dc40 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x008c, t01=0x0176}
0x0dc40…0dc4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008d, t01=0x0018}
0x0dc4a…0dc70 Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x008d, t01=0x0022}
0x0dc70…0dc92 Head {h00=0x001e, h01=0x001a, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x008d, t01=0x0048}
0x0dc92…0dcb4 Head {h00=0x001e, h01=0x0019, text=» STR A1,A10 STORE IN TTAB «, t00=0x008d, t01=0x006a}
0x0dcb4…0dcdc Head {h00=0x0024, h01=0x0020, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x008d, t01=0x008c}
0x0dcdc…0dd06 Head {h00=0x0026, h01=0x0022, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x008d, t01=0x00b4}
0x0dd06…0dd28 Head {h00=0x001e, h01=0x0019, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x008d, t01=0x00de}
0x0dd28…0dd36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x0100}
0x0dd36…0dd40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008d, t01=0x010e}
0x0dd40…0dd70 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x008d, t01=0x0118}
0x0dd70…0dd7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008d, t01=0x0148}
0x0dd7a…0dd8e Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x008d, t01=0x0152}
0x0dd8e…0dda0 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x008d, t01=0x0166}
0x0dda0…0ddb2 Head {h00=0x000e, h01=0x000a, text=» RB CDG:20«, t00=0x008d, t01=0x0178}
0x0ddb2…0ddc6 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x008d, t01=0x018a}
0x0ddc6…0ddec Head {h00=0x0022, h01=0x0050, text=» RF(N) CDG:EX CD:TAB COMPLETE!«, t00=0x008e, t01=0x000e}
0x0ddec…0de12 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x008e, t01=0x0034}
0x0de12…0de3a Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x008e, t01=0x005a}
0x0de3a…0de56 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x008e, t01=0x0082}
0x0de56…0de7c Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x008e, t01=0x009e}
0x0de7c…0dea4 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/A DISC PAGING OR SWB:S?«, t00=0x008e, t01=0x00c4}
0x0dea4…0ded4 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x008e, t01=0x00ec}
0x0ded4…0deee Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x008e, t01=0x011c}
0x0deee…0df1e Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x008e, t01=0x0136}
0x0df1e…0df46 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x008e, t01=0x0166}
0x0df46…0df6c Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x008e, t01=0x018e}
0x0df6c…0df8e Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x008f, t01=0x0024}
0x0df8e…0dfbc Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x008f, t01=0x0046}
0x0dfbc…0dfe8 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x008f, t01=0x0074}
0x0dfe8…0e00e Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x008f, t01=0x00a0}
0x0e00e…0e020 Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x008f, t01=0x00c6}
0x0e020…0e034 Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x008f, t01=0x00d8}
0x0e034…0e04a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x008f, t01=0x00ec}
0x0e04a…0e05c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x008f, t01=0x0102}
0x0e05c…0e074 Head {h00=0x0014, h01=0x0050, text=»CDG:50 ADK A2,2 «, t00=0x008f, t01=0x0114}
0x0e074…0e08a Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x008f, t01=0x012c}
0x0e08a…0e0a0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) CDG:60«, t00=0x008f, t01=0x0142}
0x0e0a0…0e0b6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x008f, t01=0x0158}
0x0e0b6…0e0e2 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x016e}
0x0e0e2…0e0fc Head {h00=0x0016, h01=0x0050, text=»CDG:60 CWR A2,A12 «, t00=0x0090, t01=0x000a}
0x0e0fc…0e112 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CDG:50«, t00=0x0090, t01=0x0024}
0x0e112…0e142 Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0090, t01=0x003a}
0x0e142…0e15a Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0090, t01=0x006a}
0x0e15a…0e168 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0090, t01=0x0082}
0x0e168…0e1b6 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0090, t01=0x0090}
0x0e1b6…0e202 Head {h00=0x0048, h01=0x0043, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x0090, t01=0x00de}
0x0e202…0e250 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0090, t01=0x012a}
0x0e250…0e25a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0090, t01=0x0178}
0x0e25a…0e292 Head {h00=0x0034, h01=0x002f, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x0090, t01=0x0182}
0x0e292…0e2d4 Head {h00=0x003e, h01=0x003a, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x0091, t01=0x002a}
0x0e2d4…0e302 Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0091, t01=0x006c}
0x0e302…0e30c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x009a}
0x0e30c…0e31c Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x0091, t01=0x00a4}
0x0e31c…0e326 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x00b4}
0x0e326…0e346 Head {h00=0x001c, h01=0x0018, text=»* WORK REGISTERS: A1-A8«, t00=0x0091, t01=0x00be}
0x0e346…0e350 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x00de}
0x0e350…0e372 Head {h00=0x001e, h01=0x001a, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x0091, t01=0x00e8}
0x0e372…0e37c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x010a}
0x0e37c…0e38a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0091, t01=0x0114}
0x0e38a…0e39e Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x0091, t01=0x0122}
0x0e39e…0e3d4 Head {h00=0x0032, h01=0x0050, text=» ST A6,SAVE08,A13 SAVE LINE CONNECTION NUMBER «, t00=0x0091, t01=0x0136}
0x0e3d4…0e400 Head {h00=0x0028, h01=0x0024, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x0091, t01=0x016c}
0x0e400…0e428 Head {h00=0x0024, h01=0x0020, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x0092, t01=0x0008}
0x0e428…0e448 Head {h00=0x001c, h01=0x0018, text=» ADK A7,2 FIRST FILECODE«, t00=0x0092, t01=0x0030}
0x0e448…0e45c Head {h00=0x0010, h01=0x0050, text=»DWT10 EQU * «, t00=0x0092, t01=0x0050}
0x0e45c…0e48e Head {h00=0x002e, h01=0x0029, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x0092, t01=0x0064}
0x0e48e…0e498 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x0096}
0x0e498…0e4d0 Head {h00=0x0034, h01=0x002f, text=»* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO «, t00=0x0092, t01=0x00a0}
0x0e4d0…0e50c Head {h00=0x0038, h01=0x0034, text=»* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE«, t00=0x0092, t01=0x00d8}
0x0e50c…0e544 Head {h00=0x0034, h01=0x0030, text=»* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT«, t00=0x0092, t01=0x0114}
0x0e544…0e54e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x014c}
0x0e54e…0e562 Head {h00=0x0010, h01=0x000b, text=» CALL I:CHP «, t00=0x0092, t01=0x0156}
0x0e562…0e56c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x016a}
0x0e56c…0e5b0 Head {h00=0x0040, h01=0x0050, text=»* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) «, t00=0x0092, t01=0x0174}
0x0e5b0…0e5d6 Head {h00=0x0022, h01=0x0050, text=»* AND SAVE06 (SELECTS ENTRY) «, t00=0x0093, t01=0x0028}
0x0e5d6…0e5e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0093, t01=0x004e}
0x0e5e0…0e614 Head {h00=0x0030, h01=0x0050, text=»* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6)«, t00=0x0093, t01=0x0058}
0x0e614…0e64c Head {h00=0x0034, h01=0x0050, text=»* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 «, t00=0x0093, t01=0x008c}
0x0e64c…0e67a Head {h00=0x002a, h01=0x0025, text=»* OF THE GENERATED CHANNEL PARAMETER «, t00=0x0093, t01=0x00c4}
0x0e67a…0e6b0 Head {h00=0x0032, h01=0x0050, text=» LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6«, t00=0x0093, t01=0x00f2}
0x0e6b0…0e6e0 Head {h00=0x002c, h01=0x0050, text=» LD A3,SCTSFA+2 FIRST INT TABLE POINTER «, t00=0x0093, t01=0x0128}
0x0e6e0…0e70a Head {h00=0x0026, h01=0x0021, text=» ADR A4,A3 SELECT INTERRUPT TABLE «, t00=0x0093, t01=0x0158}
0x0e70a…0e73a Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A4 GET INTERRUPT TABLE ADDRESS «, t00=0x0093, t01=0x0182}
0x0e73a…0e762 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVE06,A13 LINE PARAMETER«, t00=0x0094, t01=0x0022}
0x0e762…0e76a Head {h00=0x0004, h01=0x0002, t00=0x0094, t01=0x004a}
0x0e76a…0e77e Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0094, t01=0x0052}
0x0e77e…0e7a4 Head {h00=0x0022, h01=0x001d, text=» RF(Z) DWT17 LINE ENTRY FOUND «, t00=0x0094, t01=0x0066}
0x0e7a4…0e7c0 Head {h00=0x0018, h01=0x0014, text=» ADK A4,28 NEXT LINE«, t00=0x0094, t01=0x008c}
0x0e7c0…0e7ea Head {h00=0x0026, h01=0x0022, text=» SUK A3,1 DECREMENT LINE PARAMETER«, t00=0x0094, t01=0x00a8}
0x0e7ea…0e7fc Head {h00=0x000e, h01=0x0009, text=» RB DWT15 «, t00=0x0094, t01=0x00d2}
0x0e7fc…0e80a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0094, t01=0x00e4}
0x0e80a…0e81e Head {h00=0x0010, h01=0x0050, text=»DWT17 EQU * «, t00=0x0094, t01=0x00f2}
0x0e81e…0e858 Head {h00=0x0036, h01=0x0050, text=» ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY «, t00=0x0094, t01=0x0106}
0x0e858…0e862 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0094, t01=0x0140}
0x0e862…0e880 Head {h00=0x001a, h01=0x0016, text=»* GET DEVICE ADDRESS:«, t00=0x0094, t01=0x014a}
0x0e880…0e8b4 Head {h00=0x0030, h01=0x0050, text=»* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE«, t00=0x0094, t01=0x0168}
0x0e8b4…0e8de Head {h00=0x0026, h01=0x0050, text=»* OR DEVICE WITHOUT DATA REQUEST «, t00=0x0095, t01=0x000c}
0x0e8de…0e916 Head {h00=0x0034, h01=0x002f, text=»* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES «, t00=0x0095, t01=0x0036}
0x0e916…0e920 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0095, t01=0x006e}
0x0e920…0e954 Head {h00=0x0030, h01=0x002b, text=» LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT «, t00=0x0095, t01=0x0078}
0x0e954…0e96c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A6 SAVE «, t00=0x0095, t01=0x00ac}
0x0e96c…0e9aa Head {h00=0x003a, h01=0x0035, text=» ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT «, t00=0x0095, t01=0x00c4}
0x0e9aa…0e9d2 Head {h00=0x0024, h01=0x001f, text=» SLC A6,7 CHECK IF INPUT DEVICE «, t00=0x0095, t01=0x0102}
0x0e9d2…0e9ec Head {h00=0x0016, h01=0x0050, text=» RF(N) DWT20 YES! «, t00=0x0095, t01=0x012a}
0x0e9ec…0e9f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0144}
0x0e9f6…0ea36 Head {h00=0x003c, h01=0x0050, text=»* NOT INPUT DEVICE - CHECK IF DEVICE WITH DATA REQUEST «, t00=0x0095, t01=0x014e}
0x0ea36…0ea40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x018e}
0x0ea40…0ea6c Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/8000 DATA REQUEST BIT SET?«, t00=0x0096, t01=0x0008}
0x0ea6c…0ea84 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT20 NO!«, t00=0x0096, t01=0x0034}
0x0ea84…0ea96 Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x0096, t01=0x004c}
0x0ea96…0eaa8 Head {h00=0x000e, h01=0x0050, text=» ADK A6,12«, t00=0x0096, t01=0x005e}
0x0eaa8…0eaba Head {h00=0x000e, h01=0x0009, text=» RF DWT30 «, t00=0x0096, t01=0x0070}
0x0eaba…0eace Head {h00=0x0010, h01=0x0050, text=»DWT20 EQU * «, t00=0x0096, t01=0x0082}
0x0eace…0eae0 Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x0096, t01=0x0096}
0x0eae0…0eaf2 Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x0096, t01=0x00a8}
0x0eaf2…0eb06 Head {h00=0x0010, h01=0x0050, text=»DWT30 EQU * «, t00=0x0096, t01=0x00ba}
0x0eb06…0eb1a Head {h00=0x0010, h01=0x000b, text=» ANK A6,/1E «, t00=0x0096, t01=0x00ce}
0x0eb1a…0eb24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x00e2}
0x0eb24…0eb5a Head {h00=0x0032, h01=0x002e, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0096, t01=0x00ec}
0x0eb5a…0eb64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x0122}
0x0eb64…0eb82 Head {h00=0x001a, h01=0x0016, text=» ADR A6,A4 TABLE ENTRY«, t00=0x0096, t01=0x012c}
0x0eb82…0ebac Head {h00=0x0026, h01=0x0022, text=» LDR* A2,A6 DWT ALREADY GENERATED?«, t00=0x0096, t01=0x014a}
0x0ebac…0ebc4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT32 NO!«, t00=0x0096, t01=0x0174}
0x0ebc4…0ebea Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTECB,A1 CHECK IF ECHO«, t00=0x0096, t01=0x018c}
0x0ebea…0ec02 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT70 NO!«, t00=0x0097, t01=0x0022}
0x0ec02…0ec3c Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS «, t00=0x0097, t01=0x003a}
0x0ec3c…0ec6c Head {h00=0x002c, h01=0x0050, text=» CM DWTECB,A1 RESET POINTER TO INPUT-DWT«, t00=0x0097, t01=0x0074}
0x0ec6c…0ec7e Head {h00=0x000e, h01=0x0050, text=» RF DWT70 «, t00=0x0097, t01=0x00a4}
0x0ec7e…0ec8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x00b6}
0x0ec8c…0ec96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00c4}
0x0ec96…0ecb8 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF DWT IN DRIVER «, t00=0x0097, t01=0x00ce}
0x0ecb8…0ecc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00f0}
0x0ecc2…0ecde Head {h00=0x0018, h01=0x0050, text=»DWT32 LDKL A2,SYSLOD«, t00=0x0097, t01=0x00fa}
0x0ecde…0ecf0 Head {h00=0x000e, h01=0x0050, text=» TNM A1,A2«, t00=0x0097, t01=0x0116}
0x0ecf0…0ed06 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DWT34 «, t00=0x0097, t01=0x0128}
0x0ed06…0ed18 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0097, t01=0x013e}
0x0ed18…0ed2a Head {h00=0x000e, h01=0x0050, text=» RF DWT36 «, t00=0x0097, t01=0x0150}
0x0ed2a…0ed42 Head {h00=0x0014, h01=0x0050, text=»DWT34 CWR A2,A1 «, t00=0x0097, t01=0x0162}
0x0ed42…0ed5c Head {h00=0x0016, h01=0x0050, text=»DWT36 RF(L) DWT38 «, t00=0x0097, t01=0x017a}
0x0ed5c…0ed6e (152, 0, 400) Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x0098, t01=0x0004}
0x0ed6e…0ed8e Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 DWT IN DRIVER«, t00=0x0098, t01=0x0016}
0x0ed8e…0eda0 Head {h00=0x000e, h01=0x0050, text=» RF DWT70 «, t00=0x0098, t01=0x0036}
0x0eda0…0edb4 Head {h00=0x0010, h01=0x0050, text=»DWT38 EQU * «, t00=0x0098, t01=0x0048}
0x0edb4…0edd8 Head {h00=0x0020, h01=0x001c, text=» STR A12,A6 SAVE DWT-ADDRESS«, t00=0x0098, t01=0x005c}
0x0edd8…0ede2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x0080}
0x0ede2…0ee02 Head {h00=0x001c, h01=0x0017, text=»* COPY DEVICE TYPE DWT «, t00=0x0098, t01=0x008a}
0x0ee02…0ee0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x00aa}
0x0ee0c…0ee2a Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0098, t01=0x00b4}
0x0ee2a…0ee48 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0098, t01=0x00d2}
0x0ee48…0ee6c Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0098, t01=0x00f0}
0x0ee6c…0ee7e Head {h00=0x000e, h01=0x000a, text=» CALL MOVE«, t00=0x0098, t01=0x0114}
0x0ee7e…0ee8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0126}
0x0ee8c…0ee96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x0134}
0x0ee96…0eebe Head {h00=0x0024, h01=0x0020, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0098, t01=0x013e}
0x0eebe…0eee2 Head {h00=0x0020, h01=0x001b, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0098, t01=0x0166}
0x0eee2…0eeec Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0098, t01=0x018a}
0x0eeec…0ef16 (153, 0, 400) Head {h00=0x0026, h01=0x0022, text=» STR A5,A2 STORE CHANNEL PARAMETER«, t00=0x0099, t01=0x0004}
0x0ef16…0ef20 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x002e}
0x0ef20…0ef40 Head {h00=0x001c, h01=0x0018, text=»* CHECK IF INPUT DEVICE«, t00=0x0099, t01=0x0038}
0x0ef40…0ef4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x0058}
0x0ef4a…0ef78 Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x0099, t01=0x0062}
0x0ef78…0ef9c Head {h00=0x0020, h01=0x001c, text=» ANKL A3,/0100 INPUT DEVICE?«, t00=0x0099, t01=0x0090}
0x0ef9c…0efb4 Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT50 NO «, t00=0x0099, t01=0x00b4}
0x0efb4…0efbe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x00cc}
0x0efbe…0efd6 Head {h00=0x0014, h01=0x0010, text=»* INPUT DEVICE:«, t00=0x0099, t01=0x00d6}
0x0efd6…0eff2 Head {h00=0x0018, h01=0x0014, text=»* CHECK IF KEYBOARD«, t00=0x0099, t01=0x00ee}
0x0eff2…0effc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x010a}
0x0effc…0f016 Head {h00=0x0016, h01=0x0012, text=» LD A3,DWTADR,A1 «, t00=0x0099, t01=0x0114}
0x0f016…0f02e Head {h00=0x0014, h01=0x0010, text=» LD A3,DEVIND,A3«, t00=0x0099, t01=0x012e}
0x0f02e…0f040 Head {h00=0x000e, h01=0x0009, text=» CWK A3,6 «, t00=0x0099, t01=0x0146}
0x0f040…0f062 Head {h00=0x001e, h01=0x001a, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0099, t01=0x0158}
0x0f062…0f06c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x017a}
0x0f06c…0f08e Head {h00=0x001e, h01=0x001a, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0099, t01=0x0184}
0x0f08e…0f0a2 Head {h00=0x0010, h01=0x000c, text=»* IF ECHO: «, t00=0x009a, t01=0x0016}
0x0f0a2…0f0d8 Head {h00=0x0032, h01=0x002e, text=»* STORE ADDRESS OF KEYBOARD DWT IN THIRD WORD«, t00=0x009a, t01=0x002a}
0x0f0d8…0f10a Head {h00=0x002e, h01=0x0029, text=»* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE «, t00=0x009a, t01=0x0060}
0x0f10a…0f114 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x0092}
0x0f114…0f132 Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x009a, t01=0x009c}
0x0f132…0f14a Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT40 NO «, t00=0x009a, t01=0x00ba}
0x0f14a…0f184 Head {h00=0x0036, h01=0x0050, text=» AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS «, t00=0x009a, t01=0x00d2}
0x0f184…0f1ae Head {h00=0x0026, h01=0x0050, text=» ST A2,4,A5 SAVE INPUT DWT-ADDRESS«, t00=0x009a, t01=0x010c}
0x0f1ae…0f1bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x0136}
0x0f1bc…0f1d0 Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x009a, t01=0x0144}
0x0f1d0…0f1da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x0158}
0x0f1da…0f210 Head {h00=0x0032, h01=0x002d, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x009a, t01=0x0162}
0x0f210…0f21a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009b, t01=0x0008}
0x0f21a…0f23c Head {h00=0x001e, h01=0x001a, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x009b, t01=0x0012}
0x0f23c…0f272 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x009b, t01=0x0034}
0x0f272…0f29a Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x009b, t01=0x006a}
0x0f29a…0f2c2 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x009b, t01=0x0092}
0x0f2c2…0f2cc Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009b, t01=0x00ba}
0x0f2cc…0f2ea Head {h00=0x001a, h01=0x0016, text=»* IF DOUBLE KEYBOARD:«, t00=0x009b, t01=0x00c4}
0x0f2ea…0f332 Head {h00=0x0044, h01=0x0040, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x009b, t01=0x00e2}
0x0f332…0f36c Head {h00=0x0036, h01=0x0032, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x009b, t01=0x012a}
0x0f36c…0f376 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009b, t01=0x0164}
0x0f376…0f3a4 Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x009b, t01=0x016e}
0x0f3a4…0f3ce Head {h00=0x0026, h01=0x0022, text=» ANK A3,/F GET FOUR RIGHTMOST BITS«, t00=0x009c, t01=0x000c}
0x0f3ce…0f3f6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x009c, t01=0x0036}
0x0f3f6…0f41e Head {h00=0x0024, h01=0x001f, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x009c, t01=0x005e}
0x0f41e…0f438 Head {h00=0x0016, h01=0x0011, text=» ADK A5,1 ADD ONE «, t00=0x009c, t01=0x0086}
0x0f438…0f46c Head {h00=0x0030, h01=0x002c, text=» SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1«, t00=0x009c, t01=0x00a0}
0x0f46c…0f490 Head {h00=0x0020, h01=0x001c, text=» ADR A3,A3 BYTE DISPLACEMENT«, t00=0x009c, t01=0x00d4}
0x0f490…0f4c2 Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE«, t00=0x009c, t01=0x00f8}
0x0f4c2…0f4ea Head {h00=0x0024, h01=0x001f, text=» STR A5,A3 STORE DEVICE-ADDRESS «, t00=0x009c, t01=0x012a}
0x0f4ea…0f4fc Head {h00=0x000e, h01=0x0009, text=» RF DWT60 «, t00=0x009c, t01=0x0152}
0x0f4fc…0f50a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x009c, t01=0x0164}
0x0f50a…0f51e Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x009c, t01=0x0172}
0x0f51e…0f528 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009c, t01=0x0186}
0x0f528…0f540 Head {h00=0x0014, h01=0x0010, text=»* OUTPUT DEVICE«, t00=0x009c, t01=0x0190}
0x0f540…0f562 Head {h00=0x001e, h01=0x0019, text=»* IF ECHO OUTPUT DEVICE: «, t00=0x009d, t01=0x0018}
0x0f562…0f5a0 Head {h00=0x003a, h01=0x0036, text=»* GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD«, t00=0x009d, t01=0x003a}
0x0f5a0…0f5b6 Head {h00=0x0012, h01=0x000e, text=»* IN THE DWT.«, t00=0x009d, t01=0x0078}
0x0f5b6…0f5f2 Head {h00=0x0038, h01=0x0033, text=»* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT «, t00=0x009d, t01=0x008e}
0x0f5f2…0f61a Head {h00=0x0024, h01=0x0020, text=»* AND CLEAR WORD 3 OF THIS DWT.«, t00=0x009d, t01=0x00ca}
0x0f61a…0f624 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009d, t01=0x00f2}
0x0f624…0f658 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT «, t00=0x009d, t01=0x00fc}
0x0f658…0f684 Head {h00=0x0028, h01=0x0023, text=» RF(Z) DWT60 NOT ECHO OUTPUT DEVICE «, t00=0x009d, t01=0x0130}
0x0f684…0f6c2 Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTECH,A5 STORE DWT-ADDRESS OF REAL OUTPUT DWT «, t00=0x009d, t01=0x015c}
0x0f6c2…0f6f8 Head {h00=0x0032, h01=0x0050, text=» CM DWTECB,A1 CLEAR THIRD WORD OF THIS DWT =2 «, t00=0x009e, t01=0x000a}
0x0f6f8…0f70c Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x009e, t01=0x0040}
0x0f70c…0f716 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x0054}
0x0f716…0f730 Head {h00=0x0016, h01=0x0012, text=»* CHECK IF PAGING«, t00=0x009e, t01=0x005e}
0x0f730…0f73a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009e, t01=0x0078}
0x0f73a…0f760 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009e, t01=0x0082}
0x0f760…0f77e Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x009e, t01=0x00a8}
0x0f77e…0f792 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWT70«, t00=0x009e, t01=0x00c6}
0x0f792…0f7a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x00da}
0x0f7a0…0f7d0 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x009e, t01=0x00e8}
0x0f7d0…0f7fc Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x009e, t01=0x0118}
0x0f7fc…0f82a Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x009e, t01=0x0144}
0x0f82a…0f85a Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x009e, t01=0x0172}
0x0f85a…0f882 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x009f, t01=0x0012}
0x0f882…0f8a8 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x009f, t01=0x003a}
0x0f8a8…0f8b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009f, t01=0x0060}
0x0f8b2…0f8f2 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x009f, t01=0x006a}
0x0f8f2…0f8fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00aa}
0x0f8fc…0f926 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x009f, t01=0x00b4}
0x0f926…0f95c Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x009f, t01=0x00de}
0x0f95c…0f984 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x009f, t01=0x0114}
0x0f984…0f98e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009f, t01=0x013c}
0x0f98e…0f9de Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x009f, t01=0x0146}
0x0f9de…0f9e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a0, t01=0x0008}
0x0f9e8…0fa18 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00a0, t01=0x0012}
0x0fa18…0fa44 Head {h00=0x0028, h01=0x0023, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x00a0, t01=0x0042}
0x0fa44…0fa58 Head {h00=0x0010, h01=0x000b, text=» ADK A3,1 «, t00=0x00a0, t01=0x006e}
0x0fa58…0fa88 Head {h00=0x002c, h01=0x0028, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x00a0, t01=0x0082}
0x0fa88…0faa2 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x00a0, t01=0x00b2}
0x0faa2…0fac0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x00a0, t01=0x00cc}
0x0fac0…0faea Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x00a0, t01=0x00ea}
0x0faea…0fb12 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFFE MAKE LENGTH EVEN «, t00=0x00a0, t01=0x0114}
0x0fb12…0fb20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x013c}
0x0fb20…0fb2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a0, t01=0x014a}
0x0fb2a…0fb62 Head {h00=0x0034, h01=0x0030, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x00a0, t01=0x0154}
0x0fb62…0fb9c Head {h00=0x0036, h01=0x0031, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x00a0, t01=0x018c}
0x0fb9c…0fbd4 Head {h00=0x0034, h01=0x0030, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x00a1, t01=0x0036}
0x0fbd4…0fc04 Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x00a1, t01=0x006e}
0x0fc04…0fc0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x009e}
0x0fc0e…0fc2a Head {h00=0x0018, h01=0x0013, text=» CW A3,BUFSIZ,A13 «, t00=0x00a1, t01=0x00a8}
0x0fc2a…0fc40 Head {h00=0x0012, h01=0x000d, text=» RF(NG) DWT65 «, t00=0x00a1, t01=0x00c4}
0x0fc40…0fc5a Head {h00=0x0016, h01=0x0011, text=» ST A3,BUFSIZ,A13 «, t00=0x00a1, t01=0x00da}
0x0fc5a…0fc74 Head {h00=0x0016, h01=0x0050, text=» ST A12,SYSBUF,A13«, t00=0x00a1, t01=0x00f4}
0x0fc74…0fc88 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x00a1, t01=0x010e}
0x0fc88…0fcac Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x00a1, t01=0x0122}
0x0fcac…0fcba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0146}
0x0fcba…0fcce Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x00a1, t01=0x0154}
0x0fcce…0fcd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0168}
0x0fcd8…0fd0a Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00a1, t01=0x0172}
0x0fd0a…0fd14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0014}
0x0fd14…0fd3a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00a2, t01=0x001e}
0x0fd3a…0fd60 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x00a2, t01=0x0044}
0x0fd60…0fd8e Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x00a2, t01=0x006a}
0x0fd8e…0fdb4 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00a2, t01=0x0098}
0x0fdb4…0fdda Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x00a2, t01=0x00be}
0x0fdda…0fde4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x00e4}
0x0fde4…0fe14 Head {h00=0x002c, h01=0x0027, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x00a2, t01=0x00ee}
0x0fe14…0fe1e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00a2, t01=0x011e}
0x0fe1e…0fe30 Head {h00=0x000e, h01=0x000a, text=» SUKL A8,4«, t00=0x00a2, t01=0x0128}
0x0fe30…0fe44 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWTEX«, t00=0x00a2, t01=0x013a}
0x0fe44…0fe62 Head {h00=0x001a, h01=0x0015, text=» ADK A7,4 NEXT DEVICE «, t00=0x00a2, t01=0x014e}
0x0fe62…0fe86 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,DWT10 START OF LOOP«, t00=0x00a2, t01=0x016c}
0x0fe86…0feb6 Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL,A13 RELOCATE START OF LOOP «, t00=0x00a2, t01=0x0190}
0x0feb6…0fec6 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x00a3, t01=0x0030}
0x0fec6…0feda Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x00a3, t01=0x0040}
0x0feda…0fef2 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00a3, t01=0x0054}
0x0fef2…0ff00 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a3, t01=0x006c}
0x0ff00…0ff2e Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00a3, t01=0x007a}
0x0ff2e…0ff5c Head {h00=0x002a, h01=0x0025, text=»* I:CHP - INIT CHANNEL PARAMETER * «, t00=0x00a3, t01=0x00a8}
0x0ff5c…0ff8a Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00a3, t01=0x00d6}
0x0ff8a…0ff94 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a3, t01=0x0104}
0x0ff94…0ffb4 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: DWTGEN«, t00=0x00a3, t01=0x010e}
0x0ffb4…0ffbe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a3, t01=0x012e}
0x0ffbe…0ffee Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x00a3, t01=0x0138}
0x0ffee…1001a Head {h00=0x0028, h01=0x0023, text=»* A2 - POINTER TO REAL DWT «, t00=0x00a3, t01=0x0168}
0x1001a…10048 (164, 0, 400) Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00a4, t01=0x0004}
0x10048…10076 Head {h00=0x002a, h01=0x0050, text=»* A9 - POINTER TO TDC RECORD «, t00=0x00a4, t01=0x0032}
0x10076…10080 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x0060}
0x10080…100aa Head {h00=0x0026, h01=0x0021, text=»* EXIT: A5 - CHANNEL PARAMETER «, t00=0x00a4, t01=0x006a}
0x100aa…100ee Head {h00=0x0040, h01=0x0050, text=»* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) «, t00=0x00a4, t01=0x0094}
0x100ee…10122 Head {h00=0x0030, h01=0x0050, text=»* SAVE06 - SELECTS LINE ENTRY (1-8)«, t00=0x00a4, t01=0x00d8}
0x10122…1012c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x010c}
0x1012c…10150 Head {h00=0x0020, h01=0x001c, text=»* WORK REGISTERS: A3,A4,A5«, t00=0x00a4, t01=0x0116}
0x10150…1015a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x013a}
0x1015a…10172 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x00a4, t01=0x0144}
0x10172…1017c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x015c}
0x1017c…1018a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a4, t01=0x0166}
0x1018a…1019e Head {h00=0x0010, h01=0x0050, text=»I:CHP EQU * «, t00=0x00a4, t01=0x0174}
0x1019e…101d2 Head {h00=0x0030, h01=0x0050, text=» LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER«, t00=0x00a4, t01=0x0188}
0x101d2…10202 Head {h00=0x002c, h01=0x0027, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x00a5, t01=0x002c}
0x10202…10236 Head {h00=0x0030, h01=0x002b, text=» LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT «, t00=0x00a5, t01=0x005c}
0x10236…10262 Head {h00=0x0028, h01=0x0023, text=» ANKL A5,/F1F0 CLEAR BITS TO MODIFY «, t00=0x00a5, t01=0x0090}
0x10262…10298 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x00a5, t01=0x00bc}
0x10298…102c2 Head {h00=0x0026, h01=0x0022, text=» LC A4,TDC+5,A9 CHECK TYPE OF LINE«, t00=0x00a5, t01=0x00f2}
0x102c2…102e2 Head {h00=0x001c, h01=0x0018, text=» CCK A4,'LL' LOCAL LINE?«, t00=0x00a5, t01=0x011c}
0x102e2…10304 Head {h00=0x001e, h01=0x0019, text=» RF(NE) I:CHPR NO: REMOTE «, t00=0x00a5, t01=0x013c}
0x10304…10318 Head {h00=0x0010, h01=0x0050, text=»I:CHPL EQU *«, t00=0x00a5, t01=0x015e}
0x10318…10338 Head {h00=0x001c, h01=0x0018, text=» ANK A3,7 GET BITS 13-15«, t00=0x00a5, t01=0x0172}
0x10338…10356 (166, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a6, t01=0x0004}
0x10356…10378 Head {h00=0x001e, h01=0x001a, text=» SLL A3,9 MOVE TO BITS 4-6«, t00=0x00a6, t01=0x0022}
0x10378…103a2 Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00a6, t01=0x0044}
0x103a2…103d0 Head {h00=0x002a, h01=0x0025, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x00a6, t01=0x006e}
0x103d0…103f2 Head {h00=0x001e, h01=0x001a, text=» ANK A3,/18 GET BITS 11-12«, t00=0x00a6, t01=0x009c}
0x103f2…10416 Head {h00=0x0020, h01=0x001c, text=» SRL A3,2 MOVE TO BITS 13-14«, t00=0x00a6, t01=0x00be}
0x10416…10434 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE05,A13 SAVE«, t00=0x00a6, t01=0x00e2}
0x10434…10458 Head {h00=0x0020, h01=0x001c, text=» SRL A3,1 MOVE TO BITS 14-15«, t00=0x00a6, t01=0x0100}
0x10458…10482 Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00a6, t01=0x0124}
0x10482…10494 Head {h00=0x000e, h01=0x000a, text=» RF I:CHPE«, t00=0x00a6, t01=0x014e}
0x10494…104a2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a6, t01=0x0160}
0x104a2…104b6 Head {h00=0x0010, h01=0x0050, text=»I:CHPR EQU *«, t00=0x00a6, t01=0x016e}
0x104b6…104c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0182}
0x104c0…104d6 Head {h00=0x0012, h01=0x000e, text=»* REMOTE LINE«, t00=0x00a6, t01=0x018c}
0x104d6…104e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a7, t01=0x0012}
0x104e0…10500 Head {h00=0x001c, h01=0x0018, text=» ANK A3,3 GET BITS 14-15«, t00=0x00a7, t01=0x001c}
0x10500…10516 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH10«, t00=0x00a7, t01=0x003c}
0x10516…1054a Head {h00=0x0030, h01=0x002c, text=» ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO)«, t00=0x00a7, t01=0x0052}
0x1054a…10578 Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE ENTRY SELECTOR «, t00=0x00a7, t01=0x0086}
0x10578…1058a Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a7, t01=0x00b4}
0x1058a…1059e Head {h00=0x0010, h01=0x0050, text=»I:CH10 EQU *«, t00=0x00a7, t01=0x00c6}
0x1059e…105ba Head {h00=0x0018, h01=0x0014, text=» ANK A3,2 GET BIT 14«, t00=0x00a7, t01=0x00da}
0x105ba…105d0 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH20«, t00=0x00a7, t01=0x00f6}
0x105d0…105fa Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0800 STORE 4 IN BITS 4-6«, t00=0x00a7, t01=0x010c}
0x105fa…1061a Head {h00=0x001c, h01=0x0018, text=» LDK A3,4 ENTRY SELECTOR«, t00=0x00a7, t01=0x0136}
0x1061a…10638 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a7, t01=0x0156}
0x10638…1064a Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a7, t01=0x0174}
0x1064a…1065e Head {h00=0x0010, h01=0x0050, text=»I:CH20 EQU *«, t00=0x00a7, t01=0x0186}
0x1065e…10684 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00a8, t01=0x000a}
0x10684…106a0 Head {h00=0x0018, h01=0x0014, text=» ANK A3,1 GET BIT 15«, t00=0x00a8, t01=0x0030}
0x106a0…106b6 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH30«, t00=0x00a8, t01=0x004c}
0x106b6…106e0 Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0200 STORE 1 IN BITS 4-6«, t00=0x00a8, t01=0x0062}
0x106e0…10700 Head {h00=0x001c, h01=0x0018, text=» LDK A3,1 ENTRY SELECTOR«, t00=0x00a8, t01=0x008c}
0x10700…1071e Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a8, t01=0x00ac}
0x1071e…10730 Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a8, t01=0x00ca}
0x10730…10744 Head {h00=0x0010, h01=0x0050, text=»I:CH30 EQU *«, t00=0x00a8, t01=0x00dc}
0x10744…1076e Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0A00 STORE 5 IN BITS 4-6«, t00=0x00a8, t01=0x00f0}
0x1076e…1078e Head {h00=0x001c, h01=0x0018, text=» LDK A3,5 ENTRY SELECTOR«, t00=0x00a8, t01=0x011a}
0x1078e…107ac Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a8, t01=0x013a}
0x107ac…107ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0158}
0x107ba…107ce Head {h00=0x0010, h01=0x0050, text=»I:CH50 EQU *«, t00=0x00a8, t01=0x0166}
0x107ce…107f4 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00a8, t01=0x017a}
0x107f4…10812 Head {h00=0x001a, h01=0x0016, text=» LDK A4,4 INIT COUNTER«, t00=0x00a9, t01=0x0010}
0x10812…10826 Head {h00=0x0010, h01=0x0050, text=»I:CH60 EQU *«, t00=0x00a9, t01=0x002e}
0x10826…10858 Head {h00=0x002e, h01=0x002a, text=» SUK A3,2 DECREMENT LINE CONNECTION NUMBER«, t00=0x00a9, t01=0x0042}
0x10858…1086e Head {h00=0x0012, h01=0x000d, text=» RF(N) I:CH70 «, t00=0x00a9, t01=0x0074}
0x1086e…10898 Head {h00=0x0026, h01=0x0022, text=» ADK A4,1 INCREMENT TABLE SELECTOR«, t00=0x00a9, t01=0x008a}
0x10898…108aa Head {h00=0x000e, h01=0x000a, text=» RB I:CH60«, t00=0x00a9, t01=0x00b4}
0x108aa…108be Head {h00=0x0010, h01=0x0050, text=»I:CH70 EQU *«, t00=0x00a9, t01=0x00c6}
0x108be…108ea Head {h00=0x0028, h01=0x0024, text=» ORR A5,A4 STORE COMPUTED BITS 12-15«, t00=0x00a9, t01=0x00da}
0x108ea…108fc Head {h00=0x000e, h01=0x0009, text=» SUK A4,4 «, t00=0x00a9, t01=0x0106}
0x108fc…1090e Head {h00=0x000e, h01=0x0009, text=» ANK A4,6 «, t00=0x00a9, t01=0x0118}
0x1090e…10920 Head {h00=0x000e, h01=0x0009, text=» ADK A4,8 «, t00=0x00a9, t01=0x012a}
0x10920…1093e Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE05,A13 SAVE«, t00=0x00a9, t01=0x013c}
0x1093e…10952 Head {h00=0x0010, h01=0x0050, text=»I:CHPE EQU *«, t00=0x00a9, t01=0x015a}
0x10952…1096a Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00a9, t01=0x016e}
0x1096a…10978 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a9, t01=0x0186}
0x10978…109ae (170, 0, 400) Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00aa, t01=0x0004}
0x109ae…109e4 Head {h00=0x0032, h01=0x002e, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x00aa, t01=0x003a}
0x109e4…10a1a Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00aa, t01=0x0070}
0x10a1a…10a24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x00a6}
0x10a24…10a46 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: DWTGEN «, t00=0x00aa, t01=0x00b0}
0x10a46…10a50 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x00d2}
0x10a50…10a7e Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00aa, t01=0x00dc}
0x10a7e…10a88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x010a}
0x10a88…10ac4 Head {h00=0x0038, h01=0x0034, text=»* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABLES«, t00=0x00aa, t01=0x0114}
0x10ac4…10ace Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x0150}
0x10ace…10afa Head {h00=0x0028, h01=0x0024, text=»* REGISTER USE: A1 - WORK REGISTER«, t00=0x00aa, t01=0x015a}
0x10afa…10b20 Head {h00=0x0022, h01=0x001d, text=»* A2 - " «, t00=0x00aa, t01=0x0186}
0x10b20…10b46 Head {h00=0x0022, h01=0x001d, text=»* A3 - " «, t00=0x00ab, t01=0x001c}
0x10b46…10b88 Head {h00=0x003e, h01=0x0050, text=»* A4 - LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00ab, t01=0x0042}
0x10b88…10bb6 Head {h00=0x002a, h01=0x0025, text=»* A5 - DEVICE COUNTER «, t00=0x00ab, t01=0x0084}
0x10bb6…10be2 Head {h00=0x0028, h01=0x0023, text=»* A6 - LINE COUNTER «, t00=0x00ab, t01=0x00b2}
0x10be2…10c18 Head {h00=0x0032, h01=0x0050, text=»* A7 - DISPLACEMENT IN SAVE21 «, t00=0x00ab, t01=0x00de}
0x10c18…10c5c Head {h00=0x0040, h01=0x003b, text=»* A10- ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00ab, t01=0x0114}
0x10c5c…10ca8 Head {h00=0x0048, h01=0x0044, text=»* A11- POINTER IN LINE CONF. PART OF REAL INT. TABLE«, t00=0x00ab, t01=0x0158}
0x10ca8…10cea Head {h00=0x003e, h01=0x0039, text=»* A12- LINE ENTRY IN REAL INTERRUPT TABLE «, t00=0x00ac, t01=0x0014}
0x10cea…10cf4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ac, t01=0x0056}
0x10cf4…10d0a Head {h00=0x0012, h01=0x000e, text=»* SUBROUTINES«, t00=0x00ac, t01=0x0060}
0x10d0a…10d14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ac, t01=0x0076}
0x10d14…10d22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x0080}
0x10d22…10d36 Head {h00=0x0010, h01=0x0050, text=»B:ITAB EQU *«, t00=0x00ac, t01=0x008e}
0x10d36…10d6c Head {h00=0x0032, h01=0x002d, text=» LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. «, t00=0x00ac, t01=0x00a2}
0x10d6c…10d80 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A12«, t00=0x00ac, t01=0x00d8}
0x10d80…10da8 Head {h00=0x0024, h01=0x0020, text=» LDK A7,0 RESET POINTER IN IABAT«, t00=0x00ac, t01=0x00ec}
0x10da8…10dbc Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x00ac, t01=0x0114}
0x10dbc…10dce Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00ac, t01=0x0128}
0x10dce…10de8 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE24,A13 «, t00=0x00ac, t01=0x013a}
0x10de8…10e08 Head {h00=0x001c, h01=0x0050, text=» ST A12,SAVE21,A13 SAVE «, t00=0x00ac, t01=0x0154}
0x10e08…10e3e Head {h00=0x0032, h01=0x002d, text=» ADKL A11,16 INIT POINTER TO LINE CONF. TABLE «, t00=0x00ac, t01=0x0174}
0x10e3e…10e48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x001a}
0x10e48…10e7c Head {h00=0x0030, h01=0x002b, text=»* GET ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00ad, t01=0x0024}
0x10e7c…10e86 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x0058}
0x10e86…10e9e Head {h00=0x0014, h01=0x0050, text=» LD A10,SCTSFA+2«, t00=0x00ad, t01=0x0062}
0x10e9e…10eb2 Head {h00=0x0010, h01=0x000b, text=» ADR A10,A7 «, t00=0x00ad, t01=0x007a}
0x10eb2…10ec8 Head {h00=0x0012, h01=0x000d, text=» LDR* A10,A10 «, t00=0x00ad, t01=0x008e}
0x10ec8…10ef2 Head {h00=0x0026, h01=0x0050, text=» LDK A6,0 RESET LINE ENTRY POINTER«, t00=0x00ad, t01=0x00a4}
0x10ef2…10f06 Head {h00=0x0010, h01=0x0050, text=»BIT20 EQU * «, t00=0x00ad, t01=0x00ce}
0x10f06…10f10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x00e2}
0x10f10…10f4c Head {h00=0x0038, h01=0x0050, text=»* SAVE POINTER TO START OF LINE SAVE01URATION TABLE«, t00=0x00ad, t01=0x00ec}
0x10f4c…10f96 Head {h00=0x0046, h01=0x0050, text=»* IN TEMPORARY AREA AND RESET LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00ad, t01=0x0128}
0x10f96…10fa0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x0172}
0x10fa0…10fe2 Head {h00=0x003e, h01=0x0050, text=» ST A11,SAVE23,A13 SAVE START OF LINE SAVE01URATION TABLE «, t00=0x00ad, t01=0x017c}
0x10fe2…11014 Head {h00=0x002e, h01=0x0029, text=» LDK A4,0 RESET LENGTH OF LINE CONF.TABLE «, t00=0x00ae, t01=0x002e}
0x11014…1101e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x0060}
0x1101e…11052 Head {h00=0x0030, h01=0x002d, text=»* INIT POINTER IN TEMPORARY INTERRUPT TABLE«, t00=0x00ae, t01=0x006a}
0x11052…11080 Head {h00=0x002a, h01=0x0026, text=»* TO POINT AT LAST INPUT DEVICE ENTRY«, t00=0x00ae, t01=0x009e}
0x11080…1108a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x00cc}
0x1108a…1109e Head {h00=0x0010, h01=0x000c, text=» ADKL A10,12«, t00=0x00ae, t01=0x00d6}
0x1109e…110b0 Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00ae, t01=0x00ea}
0x110b0…110c4 Head {h00=0x0010, h01=0x000c, text=» ADKL A11,14«, t00=0x00ae, t01=0x00fc}
0x110c4…110d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ae, t01=0x0110}
0x110d2…110dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x011e}
0x110dc…1111c Head {h00=0x003c, h01=0x0039, text=»* CHECK INPUT PART OF TEMPORARY INTERUPT TABLE STARTING«, t00=0x00ae, t01=0x0128}
0x1111c…11142 Head {h00=0x0022, h01=0x001d, text=»* WITH THE LAST DEVICE ENTRY «, t00=0x00ae, t01=0x0168}
0x11142…1114c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x018e}
0x1114c…11160 Head {h00=0x0010, h01=0x0050, text=»BIT30 EQU * «, t00=0x00af, t01=0x0008}
0x11160…11184 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00af, t01=0x001c}
0x11184…1119e Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT40 YES «, t00=0x00af, t01=0x0040}
0x1119e…111b2 Head {h00=0x0010, h01=0x0050, text=»BIT35 EQU * «, t00=0x00af, t01=0x005a}
0x111b2…111e2 Head {h00=0x002c, h01=0x0028, text=» SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY«, t00=0x00af, t01=0x006e}
0x111e2…111fa Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00af, t01=0x009e}
0x111fa…11204 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x00b6}
0x11204…11244 Head {h00=0x003c, h01=0x0037, text=»* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY «, t00=0x00af, t01=0x00c0}
0x11244…11278 Head {h00=0x0030, h01=0x002b, text=»* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR «, t00=0x00af, t01=0x0100}
0x11278…11282 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x0134}
0x11282…112b4 Head {h00=0x002e, h01=0x0050, text=» SUKL A10,2 NEXT ENTRY IN TEMP. INT. TABLE«, t00=0x00af, t01=0x013e}
0x112b4…112e6 Head {h00=0x002e, h01=0x0050, text=» SUKL A11,2 NEXT ENTRY IN REAL INT. TABLE «, t00=0x00af, t01=0x0170}
0x112e6…112f8 Head {h00=0x000e, h01=0x0009, text=» RB BIT30 «, t00=0x00b0, t01=0x0012}
0x112f8…11302 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x0024}
0x11302…1134c Head {h00=0x0046, h01=0x0042, text=»* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED.«, t00=0x00b0, t01=0x002e}
0x1134c…11394 Head {h00=0x0044, h01=0x0040, text=»* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES)«, t00=0x00b0, t01=0x0078}
0x11394…113e0 Head {h00=0x0048, h01=0x0043, text=»* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. «, t00=0x00b0, t01=0x00c0}
0x113e0…113ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x010c}
0x113ea…113fe Head {h00=0x0010, h01=0x0050, text=»BIT40 EQU * «, t00=0x00b0, t01=0x0116}
0x113fe…1142c Head {h00=0x002a, h01=0x0025, text=» STR A1,A11 STORE CONTENT IN R. I. T. «, t00=0x00b0, t01=0x012a}
0x1142c…1144e Head {h00=0x001e, h01=0x001a, text=» ADK A4,2 INCREMENT LENGTH«, t00=0x00b0, t01=0x0158}
0x1144e…11472 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 LAS DEVICE ENTRY? «, t00=0x00b0, t01=0x017a}
0x11472…1148a Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00b1, t01=0x000e}
0x1148a…114b2 Head {h00=0x0024, h01=0x0020, text=» SUKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00b1, t01=0x0026}
0x114b2…114da Head {h00=0x0024, h01=0x0020, text=» SUKL A11,2 NEXT ENTRY IN R.I.T.«, t00=0x00b1, t01=0x004e}
0x114da…11508 Head {h00=0x002a, h01=0x0026, text=» LDR* A1,A10 GET CONTENT OF NEXT ENTRY«, t00=0x00b1, t01=0x0076}
0x11508…1151a Head {h00=0x000e, h01=0x0009, text=» RB BIT40 «, t00=0x00b1, t01=0x00a4}
0x1151a…11528 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b1, t01=0x00b6}
0x11528…1153c Head {h00=0x0010, h01=0x0050, text=»BIT50 EQU * «, t00=0x00b1, t01=0x00c4}
0x1153c…11546 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x00d8}
0x11546…1158c Head {h00=0x0042, h01=0x003e, text=»* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT«, t00=0x00b1, t01=0x00e2}
0x1158c…115ae Head {h00=0x001e, h01=0x001b, text=»* TABLE HAS BEEN SCANNED.«, t00=0x00b1, t01=0x0128}
0x115ae…115ec Head {h00=0x003a, h01=0x0035, text=»* -INIT POINTER TO FIRST ENTRY IN OUTPUT DEVICE PART «, t00=0x00b1, t01=0x014a}
0x115ec…1161a Head {h00=0x002a, h01=0x0025, text=»* OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00b1, t01=0x0188}
0x1161a…1163a Head {h00=0x001c, h01=0x0018, text=»* -INIT DEVICE COUNTER.«, t00=0x00b2, t01=0x0026}
0x1163a…11644 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x0046}
0x11644…11658 Head {h00=0x0010, h01=0x000c, text=» ADKL A10,14«, t00=0x00b2, t01=0x0050}
0x11658…1166a Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00b2, t01=0x0064}
0x1166a…11674 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x0076}
0x11674…116c4 Head {h00=0x004c, h01=0x0047, text=»* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00b2, t01=0x0080}
0x116c4…116ec Head {h00=0x0024, h01=0x001f, text=»* -IF AN OCCUPIED ENTRY OCCUR: «, t00=0x00b2, t01=0x00d0}
0x116ec…1173c Head {h00=0x004c, h01=0x0050, text=»* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION «, t00=0x00b2, t01=0x00f8}
0x1173c…1178a Head {h00=0x004a, h01=0x0045, text=»* TABLE OF THE REAL INTERRUPT TABLE AND STORE CONTENT IN THIS ENTRY. «, t00=0x00b2, t01=0x0148}
0x1178a…117c4 Head {h00=0x0036, h01=0x0050, text=»* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: «, t00=0x00b3, t01=0x0008}
0x117c4…117e0 Head {h00=0x0018, h01=0x0013, text=»* INCREMENT LENGTH «, t00=0x00b3, t01=0x0042}
0x117e0…117ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x005e}
0x117ea…117fe Head {h00=0x0010, h01=0x0050, text=»BIT70 EQU * «, t00=0x00b3, t01=0x0068}
0x117fe…11822 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00b3, t01=0x007c}
0x11822…1183c Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT90 YES «, t00=0x00b3, t01=0x00a0}
0x1183c…11858 Head {h00=0x0018, h01=0x0014, text=» SUK A5,1 LAST ENTRY«, t00=0x00b3, t01=0x00ba}
0x11858…11872 Head {h00=0x0016, h01=0x0011, text=» RF(Z) BIT120 YES «, t00=0x00b3, t01=0x00d6}
0x11872…11886 Head {h00=0x0010, h01=0x0050, text=»BIT80 EQU * «, t00=0x00b3, t01=0x00f0}
0x11886…118a4 Head {h00=0x001a, h01=0x0016, text=» ADKL A10,2 NEXT ENTRY«, t00=0x00b3, t01=0x0104}
0x118a4…118b6 Head {h00=0x000e, h01=0x0009, text=» RB BIT70 «, t00=0x00b3, t01=0x0122}
0x118b6…118ca Head {h00=0x0010, h01=0x0050, text=»BIT90 EQU * «, t00=0x00b3, t01=0x0134}
0x118ca…118d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x0148}
0x118d4…11924 Head {h00=0x004c, h01=0x004a, text=»* AN OCCUPIED ENTRY IN OUPUT DEVICE PART OF THE TEMPORARU INTERRUPT TAB«, t00=0x00b3, t01=0x0152}
0x11924…11974 Head {h00=0x004c, h01=0x0050, text=»* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE «, t00=0x00b4, t01=0x0012}
0x11974…11998 Head {h00=0x0020, h01=0x001b, text=»* OF REAL INTERRUPT TABLE. «, t00=0x00b4, t01=0x0062}
0x11998…119a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x0086}
0x119a2…119b6 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A11«, t00=0x00b4, t01=0x0090}
0x119b6…119cc Head {h00=0x0012, h01=0x000d, text=» RF(Z) BIT100 «, t00=0x00b4, t01=0x00a4}
0x119cc…119e0 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x00b4, t01=0x00ba}
0x119e0…119f2 Head {h00=0x000e, h01=0x0009, text=» RB BIT90 «, t00=0x00b4, t01=0x00ce}
0x119f2…11a00 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b4, t01=0x00e0}
0x11a00…11a14 Head {h00=0x0010, h01=0x0050, text=»BIT100 EQU *«, t00=0x00b4, t01=0x00ee}
0x11a14…11a1e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x0102}
0x11a1e…11a68 Head {h00=0x0046, h01=0x0050, text=»* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATION TABLE.«, t00=0x00b4, t01=0x010c}
0x11a68…11a94 Head {h00=0x0028, h01=0x0024, text=»* -STORE THE CONTENT IN THIS ENTRY.«, t00=0x00b4, t01=0x0156}
0x11a94…11ac4 Head {h00=0x002c, h01=0x0028, text=»* -UPDATE LENGTH IF TABLE WAS EXTENDED.«, t00=0x00b4, t01=0x0182}
0x11ac4…11ace Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b5, t01=0x0022}
0x11ace…11af0 Head {h00=0x001e, h01=0x0019, text=» STR A1,A11 STORE CONTENT «, t00=0x00b5, t01=0x002c}
0x11af0…11b1e Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE23,A13 GET START OF L.C.T. «, t00=0x00b5, t01=0x004e}
0x11b1e…11b44 Head {h00=0x0022, h01=0x001d, text=» LDR A3,A11 GET CURRENT ENTRY «, t00=0x00b5, t01=0x007c}
0x11b44…11b66 Head {h00=0x001e, h01=0x0050, text=» SUR A3,A1 COMPUTE LENGTH «, t00=0x00b5, t01=0x00a2}
0x11b66…11b8a Head {h00=0x0020, h01=0x001b, text=» CWR A3,A4 L.C.T. EXTENDED? «, t00=0x00b5, t01=0x00c4}
0x11b8a…11ba0 Head {h00=0x0012, h01=0x000e, text=» RF(NG) BIT110«, t00=0x00b5, t01=0x00e8}
0x11ba0…11bc2 Head {h00=0x001e, h01=0x001a, text=» LDR A4,A3 SAVE NEW LENGTH«, t00=0x00b5, t01=0x00fe}
0x11bc2…11bd6 Head {h00=0x0010, h01=0x0050, text=»BIT110 EQU *«, t00=0x00b5, t01=0x0120}
0x11bd6…11bf4 Head {h00=0x001a, h01=0x0015, text=» SUK A5,1 LAST ENTRY? «, t00=0x00b5, t01=0x0134}
0x11bf4…11c0c Head {h00=0x0014, h01=0x000f, text=» RB(P) BIT80 NO «, t00=0x00b5, t01=0x0152}
0x11c0c…11c20 Head {h00=0x0010, h01=0x0050, text=»BIT120 EQU *«, t00=0x00b5, t01=0x016a}
0x11c20…11c2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b5, t01=0x017e}
0x11c2a…11c7a Head {h00=0x004c, h01=0x004a, text=»* ALL ENTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE«, t00=0x00b5, t01=0x0188}
0x11c7a…11cc2 Head {h00=0x0044, h01=0x003f, text=»* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE «, t00=0x00b6, t01=0x0048}
0x11cc2…11d12 Head {h00=0x004c, h01=0x0050, text=»* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR«, t00=0x00b6, t01=0x0090}
0x11d12…11d1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b6, t01=0x00e0}
0x11d1c…11d42 Head {h00=0x0022, h01=0x001e, text=» LDR A4,A4 ANY ENTRY OCCUPIED?«, t00=0x00b6, t01=0x00ea}
0x11d42…11d5a Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT130 NO«, t00=0x00b6, t01=0x0110}
0x11d5a…11d8a Head {h00=0x002c, h01=0x0050, text=» IM SAVE24,A13 INDICATE DEVICE PRESENT! «, t00=0x00b6, t01=0x0128}
0x11d8a…11dba Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE23,A13 GET POINTER TO L.C.T. «, t00=0x00b6, t01=0x0158}
0x11dba…11de2 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LINE ENTRY «, t00=0x00b6, t01=0x0188}
0x11de2…11e1a Head {h00=0x0034, h01=0x002f, text=» STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. «, t00=0x00b7, t01=0x0020}
0x11e1a…11e3e Head {h00=0x0020, h01=0x001b, text=» LDR A11,A1 START OF L.C.T. «, t00=0x00b7, t01=0x0058}
0x11e3e…11e70 Head {h00=0x002e, h01=0x0029, text=» ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. «, t00=0x00b7, t01=0x007c}
0x11e70…11e94 Head {h00=0x0020, h01=0x001b, text=» ADKL A11,2 NEXT FREE ENTRY «, t00=0x00b7, t01=0x00ae}
0x11e94…11ea6 Head {h00=0x000e, h01=0x000a, text=» RF BIT140«, t00=0x00b7, t01=0x00d2}
0x11ea6…11eb4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b7, t01=0x00e4}
0x11eb4…11ec8 Head {h00=0x0010, h01=0x0050, text=»BIT130 EQU *«, t00=0x00b7, t01=0x00f2}
0x11ec8…11ed2 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00b7, t01=0x0106}
0x11ed2…11ef6 Head {h00=0x0020, h01=0x001b, text=»* NO DEVICES ON THIS LINE. «, t00=0x00b7, t01=0x0110}
0x11ef6…11f28 Head {h00=0x002e, h01=0x0050, text=»* -NO LINE SAVE01URATION TABLE GENERATED «, t00=0x00b7, t01=0x0134}
0x11f28…11f44 Head {h00=0x0018, h01=0x0014, text=»* -SKIP LENGTH WORD«, t00=0x00b7, t01=0x0166}
0x11f44…11f68 Head {h00=0x0020, h01=0x001b, text=»* -LINE ENTRY CONTAIN ZERO «, t00=0x00b7, t01=0x0182}
0x11f68…11f72 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x0016}
0x11f72…11f96 Head {h00=0x0020, h01=0x001c, text=» SUKL A11,2 SKIP LENGTH WORD«, t00=0x00b8, t01=0x0020}
0x11f96…11faa Head {h00=0x0010, h01=0x0050, text=»BIT140 EQU *«, t00=0x00b8, t01=0x0044}
0x11faa…11fd2 Head {h00=0x0024, h01=0x0020, text=» ADKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00b8, t01=0x0058}
0x11fd2…11ffa Head {h00=0x0024, h01=0x0020, text=» ADK A6,1 INCREMENT LINE COUNTER«, t00=0x00b8, t01=0x0080}
0x11ffa…1201e Head {h00=0x0020, h01=0x001c, text=» CWK A6,8 ALL LINES SCANNED?«, t00=0x00b8, t01=0x00a8}
0x1201e…12038 Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT150 YES «, t00=0x00b8, t01=0x00cc}
0x12038…1205c Head {h00=0x0020, h01=0x001b, text=» ADKL A12,2 NEXT LINE ENTRY «, t00=0x00b8, t01=0x00e6}
0x1205c…1206e Head {h00=0x000e, h01=0x0050, text=» RB BIT20 «, t00=0x00b8, t01=0x010a}
0x1206e…12082 Head {h00=0x0010, h01=0x0050, text=»BIT150 EQU *«, t00=0x00b8, t01=0x011c}
0x12082…1208c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0130}
0x1208c…120c6 Head {h00=0x0036, h01=0x0050, text=»* STORE ADDRESS TO THIS INTERRUPT TABLE IN MONTAB«, t00=0x00b8, t01=0x013a}
0x120c6…120f2 Head {h00=0x0028, h01=0x0050, text=»* IF ANY DEVICE PRESENT ON ANY LINE«, t00=0x00b8, t01=0x0174}
0x120f2…120fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0010}
0x120fc…1212a Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE24,A13 ANY DEVICE PRESENT? «, t00=0x00b9, t01=0x001a}
0x1212a…12144 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT155 NO! «, t00=0x00b9, t01=0x0048}
0x12144…1217a Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS «, t00=0x00b9, t01=0x0062}
0x1217a…12198 Head {h00=0x001a, h01=0x0050, text=» ST A1,INTLT1,A7 SAVE «, t00=0x00b9, t01=0x0098}
0x12198…121aa Head {h00=0x000e, h01=0x0050, text=» RF BIT158«, t00=0x00b9, t01=0x00b6}
0x121aa…121be Head {h00=0x0010, h01=0x0050, text=»BIT155 EQU *«, t00=0x00b9, t01=0x00c8}
0x121be…121f0 Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE21,A13 GET START OF FREE AREA «, t00=0x00b9, t01=0x00dc}
0x121f0…12204 Head {h00=0x0010, h01=0x0050, text=»BIT158 EQU *«, t00=0x00b9, t01=0x010e}
0x12204…1220e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b9, t01=0x0122}
0x1220e…1224c Head {h00=0x003a, h01=0x0036, text=»* ALL LINES OF THIS INTERRUPT TABLE HAS BEEN SCANNED.«, t00=0x00b9, t01=0x012c}
0x1224c…12298 Head {h00=0x0048, h01=0x0044, text=»* -CHECK IF ALL INTERRUPT TABLES (INTLT1-INTRT4) HAS BEEN GENERATED«, t00=0x00b9, t01=0x016a}
0x12298…122a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x0026}
0x122a2…122c6 Head {h00=0x0020, h01=0x001c, text=» ADK A7,2 NEXT ENTRY IN ITAB«, t00=0x00ba, t01=0x0030}
0x122c6…122e4 Head {h00=0x001a, h01=0x0016, text=» CWK A7,16 LAST ENTRY?«, t00=0x00ba, t01=0x0054}
0x122e4…122fe Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT160 YES «, t00=0x00ba, t01=0x0072}
0x122fe…12326 Head {h00=0x0024, h01=0x0020, text=» LDR A12,A11 GET NEXT FREE ENTRY«, t00=0x00ba, t01=0x008c}
0x12326…12338 Head {h00=0x000e, h01=0x0009, text=» RB BIT10 «, t00=0x00ba, t01=0x00b4}
0x12338…1234c Head {h00=0x0010, h01=0x0050, text=»BIT160 EQU *«, t00=0x00ba, t01=0x00c6}
0x1234c…12356 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x00da}
0x12356…1239e Head {h00=0x0044, h01=0x0040, text=»* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED«, t00=0x00ba, t01=0x00e4}
0x1239e…123de Head {h00=0x003c, h01=0x0038, text=»* AND ALL THE REAL INTERRUPT TABLES HAS BEEN GENERATED.«, t00=0x00ba, t01=0x012c}
0x123de…1242c Head {h00=0x004a, h01=0x0045, text=»* POINTERS TO THE REAL INTERRUPT TABLES HAS BEEN INSERTED IN MOXTAB. «, t00=0x00ba, t01=0x016c}
0x1242c…12436 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x002a}
0x12436…1244c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x00bb, t01=0x0034}
0x1244c…1245e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00bb, t01=0x004a}
0x1245e…12476 Head {h00=0x0014, h01=0x0050, text=»BIT165 ADK A2,2 «, t00=0x00bb, t01=0x005c}
0x12476…124a4 Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x00bb, t01=0x0074}
0x124a4…124ba Head {h00=0x0012, h01=0x0050, text=» RF(NE) BIT170«, t00=0x00bb, t01=0x00a2}
0x124ba…124d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x00bb, t01=0x00b8}
0x124d0…124fc Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x00bb, t01=0x00ce}
0x124fc…12516 Head {h00=0x0016, h01=0x0050, text=»BIT170 CWR A2,A11 «, t00=0x00bb, t01=0x00fa}
0x12516…1252c Head {h00=0x0012, h01=0x0050, text=» RB(NE) BIT165«, t00=0x00bb, t01=0x0114}
0x1252c…12558 Head {h00=0x0028, h01=0x0050, text=» ST A13,SCTEFA SKIP TEMP. INT. TABLE«, t00=0x00bb, t01=0x012a}
0x12558…12588 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bb, t01=0x0156}
0x12588…125a0 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00bb, t01=0x0186}
0x125a0…125ae Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00bc, t01=0x000e}
0x125ae…125b2 Head {h00=0x0054, h01=0x0050}
0x125b2…125b6 Head {h00=0x2a3d, h01=0x2a3d}
0x125b6…125c0 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆*=*=*=*=*=┆
0x125c0…12610 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 00 bc 00 1c 00 36 00 31 2a 20 20 20 20 20 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= 6 1* ┆
0x12610…12660 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 41 4c 20 53 55 42 52 4f 55 54 49 4e 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 bc 00 74 00 54 00 50 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆ GENERAL SUBROUTINES * t T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x12660…126b0 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 00 bc 00 ae 00 04 00 03 00 bc 01 06 00 04 00 03 00 bc 01 0e 00 04 00 03 00 bc 01 16 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= ┆
0x126b0…12700 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 bc 01 1e 00 38 00 34 2a 20 20 20 47 45 54 54 53 4b 20 2d 20 47 45 54 ┆ 8 4**************************************************** 8 4* GETTSK - GET┆
0x12700…12724 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 41 20 54 41 53 4b 2d 43 4c 41 53 53 20 20 20 2a ┆ NUMBER OF TASKS IN A TASK-CLASS *┆
0x12724…12774 (189, 0, 400) 00 bc 01 5a 00 06 00 50 2a 20 00 bd 00 08 00 36 00 50 2a 20 20 47 45 54 43 54 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 4d 4d 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 43 4c 41 53 53 45 53 20 00 bd 00 12 00 06 00 50 2a 20 00 bd ┆ Z P* 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES P* ┆
0x12774…127c4 00 4c 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 bd 00 56 00 06 00 03 2a 20 00 bd 00 92 00 22 00 50 2a 20 20 52 ┆ L 8 4**************************************************** V * " P* R┆
0x127c4…12814 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 43 54 2c 42 3a 43 44 54 00 bd 00 9c 00 06 00 03 2a 20 00 bd 00 c2 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 ┆EFERENCED IN: B:TCT,B:CDT * > :* ENTRY: A11 - POINTER TO START OF┆
0x12814…12864 20 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 bd 00 cc 00 06 00 03 2a 20 00 bd 01 0e 00 46 00 41 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 54 48 45 20 ┆ TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBER OF TASKS IN THE ┆
0x12864…128b4 54 41 53 4b 20 43 4c 41 53 53 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 00 bd 01 18 00 06 00 03 2a 20 00 bd 01 62 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 00 bd 01 6c 00 06 00 03 2a 20 00 bd 01 8a ┆TASK CLASS (BINARY VALUE) * b * WORK REGISTERS: A5 l * ┆
0x128b4…12904 (190, 0, 400) 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 00 be 00 04 00 06 00 03 2a 20 00 be 00 24 00 10 00 50 47 45 54 54 53 4b 5c 45 51 55 5c 2a 00 be 00 2e 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 5c 2a 00 be ┆ * SUBROUTINES: CONVRT * $ PGETTSK EQU * . PGETCTC EQU * ┆
0x12904…12954 00 42 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2c 41 31 31 00 be 00 56 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 00 be 00 6e 00 16 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2b 31 2c 41 31 31 00 be 00 80 00 10 00 0c 5c 43 41 4c 4c 5c ┆ B P LC A5,TDBNT,A11 V SLL A5,8 n P LC A5,TDBNT+1,A11 CALL ┆
0x12954…129a4 43 4f 4e 56 52 54 00 be 00 9a 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 be 00 ae 00 0a 00 06 5c 45 4a 45 43 54 00 be 00 be 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CONVRT RTN A14 EJECT 8 4************************************┆
0x129a4…129f4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 be 00 cc 00 38 00 34 2a 20 20 47 45 54 54 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 00 be 01 08 ┆**************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * ┆
0x129f4…12a44 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 be 01 44 00 06 00 03 2a 20 00 be 01 80 00 1c 00 17 2a 20 20 52 45 46 ┆ 8 4**************************************************** D * * REF┆
0x12a44…12a94 (191, 0, 400) 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 00 be 01 8a 00 06 00 03 2a 20 00 bf 00 1a 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 20 54 41 53 4b 20 44 45 ┆ERENCED IN: B:TT * > :* ENTRY: A11 - POINTER TO START OF TASK DE┆
0x12a94…12ae4 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 bf 00 24 00 06 00 03 2a 20 00 bf 00 66 00 44 00 40 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 ┆FINITION BLOCK $ * f D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASS┆
0x12ae4…12b34 45 53 20 28 42 49 4e 52 59 20 56 41 4c 55 45 29 00 bf 00 70 00 06 00 03 2a 20 00 bf 00 b8 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 00 bf 00 c2 00 06 00 03 2a 20 00 bf 00 e0 00 1a 00 16 2a 20 20 53 55 42 ┆ES (BINRY VALUE) p * * WORK REGISTERS: A5 * * SUB┆
0x12b34…12b84 52 4f 55 54 49 4e 45 53 3a 20 43 4f 4e 56 52 54 00 bf 00 ea 00 06 00 03 2a 20 00 bf 01 08 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 00 bf 01 12 00 14 00 10 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 00 bf 01 26 00 0e 00 09 5c 53 ┆ROUTINES: CONVRT * PGETTDC EQU * LC A5,TDBNC,A11 & S┆
0x12b84…12bd4 4c 4c 5c 41 35 2c 38 20 00 bf 01 3e 00 16 00 12 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2b 31 2c 41 31 31 00 bf 01 50 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 bf 01 6a 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 bf 01 7e 00 0a 00 06 5c 45 ┆LL A5,8 > LC A5,TDBNC+1,A11 P CALL CONVRT j RTN A14 ~ E┆
0x12bd4…12c24 (192, 0, 400) 4a 45 43 54 00 bf 01 8e 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c0 00 0c 00 38 00 33 2a 20 20 47 45 54 53 44 ┆JECT 8 3*************************************************** 8 3* GETSD┆
0x12c24…12c74 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 20 00 c0 00 48 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆C - GET NUMBER OF SPECIAL DEVICE CLASSES * H 8 3****************************┆
0x12c74…12cc4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c0 00 84 00 06 00 03 2a 20 00 c0 00 c0 00 1c 00 17 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 00 c0 00 ca 00 06 00 03 2a 20 00 c0 00 ea ┆*********************** * * REFERENCED IN: B:TT * ┆
0x12cc4…12d14 00 34 00 2f 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 4e 55 4d 42 45 52 20 4f 46 20 53 44 43 20 52 45 43 4f 52 44 20 00 c0 00 f4 00 06 00 03 2a 20 00 c0 01 2c 00 44 00 3f 2a 20 20 45 58 49 54 3a 20 20 ┆ 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * , D ?* EXIT: ┆
0x12d14…12d64 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 00 c0 01 36 00 06 00 03 2a 20 00 c0 01 7e 00 1a 00 15 2a 20 20 57 4f 52 4b 20 ┆ A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) 6 * ~ * WORK ┆
0x12d64…12db4 (193, 0, 400) 52 45 47 49 53 54 45 52 53 3a 20 41 35 20 00 c0 01 88 00 06 00 03 2a 20 00 c1 00 16 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 00 c1 00 20 00 06 00 03 2a 20 00 c1 00 40 00 10 00 50 47 45 54 53 44 43 ┆REGISTERS: A5 * * SUBROUTINES: CONVRT * @ PGETSDC┆
0x12db4…12e04 5c 45 51 55 5c 2a 00 c1 00 4a 00 0e 00 0a 5c 4c 43 52 5c 41 35 2c 41 39 00 c1 00 5e 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c1 00 70 00 10 00 0b 5c 4c 43 5c 41 35 2c 31 2c 41 39 20 00 c1 00 82 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 ┆ EQU * J LCR A5,A9 ^ P SLL A5,8 p LC A5,1,A9 CALL CONV┆
0x12e04…12e54 52 54 00 c1 00 96 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 c1 00 aa 00 0a 00 06 5c 45 4a 45 43 54 00 c1 00 ba 00 32 00 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RT RTN A14 EJECT 2 .****************************************┆
0x12e54…12ea4 2a 2a 2a 2a 2a 2a 00 c1 00 c8 00 32 00 2e 2a 20 20 47 45 54 43 4c 4e 20 2d 20 47 45 54 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 00 c1 00 fe 00 32 00 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER * 2 .************┆
0x12ea4…12ef4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 c1 01 34 00 06 00 03 2a 20 00 c1 01 6a 00 1c 00 17 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 00 c1 01 74 ┆********************************** 4 * j * REFERENCED IN: B:TT t┆
0x12ef4…12f44 (194, 0, 400) 00 06 00 03 2a 20 00 c2 00 04 00 36 00 32 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 52 45 43 4f 52 44 00 c2 00 0e 00 06 00 03 2a 20 00 c2 00 48 00 3e ┆ * 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * H >┆
0x12f44…12f94 00 3a 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 00 c2 00 52 00 06 00 03 2a 20 00 c2 00 94 00 1a 00 16 2a 20 ┆ :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) R * * ┆
0x12f94…12fe4 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 00 c2 00 9e 00 06 00 03 2a 20 00 c2 00 bc 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 00 c2 00 c6 00 06 00 03 2a 20 00 c2 00 e6 00 10 00 50 ┆ WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * P┆
0x12fe4…13034 47 45 54 43 4c 4e 5c 45 51 55 5c 2a 00 c2 00 f0 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 31 2c 41 39 00 c2 01 04 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c2 01 1c 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 00 c2 ┆GETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 P LC A5,TDCDD2,A9 ┆
0x13034…13084 01 2e 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c2 01 46 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 c2 01 5a 00 0a 00 50 5c 45 4a 45 43 54 00 c2 01 72 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ . P CALL CONVRT F RTN A14 RETURN Z P EJECT r . )****************┆
0x13084…130d4 (195, 0, 398) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c2 01 80 00 2e 00 29 2a 20 20 47 45 54 4c 43 4e 20 2d 20 47 45 54 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 20 00 c3 00 22 ┆************************* . )* GETLCN - GET LINE CONNECTION NUMBER * "┆
0x130d4…13124 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c3 00 54 00 06 00 02 2a 20 00 c3 00 86 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e ┆ . )***************************************** T * * REFERENCED IN┆
0x13124…13174 3a 20 20 42 3a 44 57 54 54 20 00 c3 00 90 00 06 00 03 2a 20 00 c3 00 b2 00 38 00 33 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 20 52 45 43 4f 52 44 20 ┆: B:DWTT * 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD ┆
0x13174…131c4 00 c3 00 bc 00 06 00 03 2a 20 00 c3 00 f8 00 3a 00 35 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 00 c3 01 02 00 06 00 03 ┆ * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) ┆
0x131c4…13212 2a 20 00 c3 01 40 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 00 c3 01 4a 00 06 00 03 2a 20 00 c3 01 68 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 00 c3 01 72 ┆* @ * WORK REGISTERS: A5 J * h * SUBROUTINES: CONVRT r┆
0x13212…13262 (196, 0, 400) 00 06 00 03 2a 20 00 c4 00 04 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 00 c4 00 0e 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 31 2c 41 39 20 00 c4 00 22 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c4 00 3a 00 14 00 50 5c 4c 43 5c ┆ * PGETLCN EQU * P LC A5,LCND1,A9 " P SLL A5,8 : P LC ┆
0x13262…132b2 41 35 2c 4c 43 4e 44 32 2c 41 39 20 00 c4 00 4c 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c4 00 64 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 c4 00 78 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 00 c4 00 88 00 0a 00 50 5c 45 ┆A5,LCND2,A9 L P CALL CONVRT d RTN A14 x P IFT CREDIT=1 P E┆
0x132b2…13302 4a 45 43 54 00 c4 00 9e 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c4 00 ac 00 3a 00 50 2a 20 20 20 20 20 ┆JECT : P***************************************************** : P* ┆
0x13302…13352 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 00 ea 00 3a 00 50 2a 20 20 47 45 54 54 43 4c 20 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 ┆ * : P* GETTCL - GET TASK CLA┆
0x13352…133a2 53 53 20 54 4f 20 4d 41 54 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 01 28 00 3a 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 ┆SS TO MATCH * ( : P* ================================ ┆
0x133a2…133f2 (197, 0, 400) 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 01 66 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c5 00 14 00 3a ┆ * f : P* * :┆
0x133f2…13442 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c5 00 52 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* REFERENCED IN: B:TT * R : P* ┆
0x13442…13492 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c5 00 90 00 3a 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 35 20 2d 20 54 43 4c 20 49 4e 20 43 55 52 52 45 4e 54 20 54 41 53 ┆ * : P* ENTRY: A5 - TCL IN CURRENT TAS┆
0x13492…134e2 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 20 20 20 20 20 2a 20 00 c5 00 ce 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆K DEF. BLOCK * : P* ┆
0x134e2…13532 2a 20 00 c5 01 0c 00 3a 00 50 2a 20 20 45 58 49 54 3a 20 20 41 35 20 2d 20 54 43 4c 20 53 54 41 52 54 20 56 41 4c 55 45 20 46 4f 52 20 54 48 49 53 20 54 41 53 4b 20 43 4c 41 53 53 20 20 2a 20 00 c5 01 4a 00 3a 00 50 2a 20 20 20 20 20 20 20 ┆* : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * J : P* ┆
0x13532…13582 (198, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c5 01 88 00 3a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2d 41 37 2c ┆ * : P* WORK REGISTERS: A1-A7,┆
0x13582…135d2 41 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c6 00 36 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆A10 * 6 : P* ┆
0x135d2…13622 20 20 20 20 20 20 20 20 2a 20 00 c6 00 74 00 3a 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 47 45 54 54 53 4b 2c 4e 58 54 42 4c 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c6 00 b2 00 3a 00 50 ┆ * t : P* SUBROUTINES: GETTSK,NXTBLK * : P┆
0x13622…13672 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c6 00 f0 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* * : P******************┆
0x13672…136c2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c6 01 2e 00 04 00 50 00 c6 01 6c 00 10 00 50 47 45 54 54 43 4c 5c 45 51 55 5c 2a 00 c6 01 74 00 18 00 50 5c 4c 44 52 5c 41 36 2c ┆*********************************** . P l PGETTCL EQU * t P LDR A6,┆
0x136c2…13712 (199, 0, 400) 41 35 5c 53 41 56 45 20 54 43 4c 20 00 c6 01 88 00 1e 00 50 5c 4c 44 52 5c 41 37 2c 41 36 5c 54 43 4c 20 53 54 41 52 54 20 56 41 4c 55 45 00 c7 00 14 00 38 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 31 5c 53 41 56 45 20 50 4f 49 4e 54 45 52 20 ┆A5 SAVE TCL P LDR A7,A6 TCL START VALUE 8 P LDR A10,A11 SAVE POINTER ┆
0x13712…13762 54 4f 20 43 55 52 52 45 4e 54 20 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 00 c7 00 36 00 32 00 50 5c 4c 44 5c 41 31 31 2c 53 41 56 45 30 31 2c 41 31 33 5c 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 ┆TO CURRENT TASK DEF. BLOCK 6 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA┆
0x13762…137b2 00 c7 00 72 00 34 00 50 54 43 4c 3a 31 30 5c 43 57 52 5c 41 31 31 2c 41 31 30 5c 41 4c 4c 20 50 52 45 56 49 4f 55 53 20 42 4c 4f 43 4b 53 20 53 43 41 4e 4e 45 44 3f 20 00 c7 00 a8 00 16 00 50 5c 52 46 28 45 29 5c 54 43 4c 3a 36 30 5c 59 45 ┆ r 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) TCL:60 YE┆
0x137b2…13802 53 21 00 c7 00 e0 00 2e 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4d 43 2b 34 2c 41 31 31 5c 47 45 54 20 46 49 52 53 54 20 43 48 41 52 2e 20 49 4e 20 54 43 4c 20 00 c7 00 fa 00 20 00 50 5c 53 4c 4c 5c 41 35 2c 38 5c 4d 4f 56 45 20 54 4f 20 4c 45 ┆S! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P SLL A5,8 MOVE TO LE┆
0x13802…13852 46 54 20 42 59 54 45 20 00 c7 01 2c 00 2e 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4d 43 2b 35 2c 41 31 31 5c 47 45 54 20 53 45 43 4f 4e 44 20 43 48 41 52 20 49 4e 20 54 43 4c 20 00 c7 01 50 00 18 00 50 5c 43 57 52 5c 41 35 2c 41 36 5c 53 41 4d ┆FT BYTE , . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL P P CWR A5,A6 SAM┆
0x13852…138a2 (200, 0, 400) 45 20 54 43 4c 3f 00 c7 01 82 00 16 00 50 5c 52 46 28 4e 45 29 5c 54 43 4c 3a 35 30 5c 4e 4f 21 00 c8 00 0e 00 26 00 50 5c 43 41 4c 4c 5c 47 45 54 54 53 4b 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 20 00 c8 00 28 00 1c ┆E TCL? P RF(NE) TCL:50 NO! & P CALL GETTSK GET NUMBER OF COPIES ( ┆
0x138a2…138f2 00 50 5c 41 44 52 5c 41 37 2c 41 31 5c 49 4e 43 52 45 4d 45 4e 54 20 54 43 4c 00 c8 00 52 00 30 00 50 54 43 4c 3a 35 30 5c 43 41 4c 4c 5c 4e 58 54 42 4c 4b 5c 47 45 54 20 4e 45 58 54 20 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 00 c8 ┆ P ADR A7,A1 INCREMENT TCL R 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK ┆
0x138f2…13942 00 72 00 0e 00 50 5c 52 42 5c 54 43 4c 3a 31 30 00 c8 00 a6 00 2c 00 50 54 43 4c 3a 36 30 5c 4c 44 52 5c 41 35 2c 41 37 5c 53 41 56 45 20 53 54 41 52 54 20 56 41 4c 55 45 20 4f 46 20 54 43 4c 00 c8 00 b8 00 0c 00 50 5c 52 54 4e 5c 41 31 34 ┆ r P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P RTN A14┆
0x13942…13992 00 c8 00 e8 00 08 00 50 5c 58 49 46 00 c8 00 f8 00 0a 00 06 5c 45 4a 45 43 54 00 c8 01 04 00 42 00 3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P XIF EJECT B >**********************************************┆
0x13992…139e2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 c8 01 12 00 42 00 3e 2a 20 20 42 49 4e 41 53 43 20 2d 20 43 4f 4e 56 45 52 54 20 41 20 42 49 4e 41 52 59 20 4e 55 4d 42 45 52 20 54 4f 20 41 20 41 53 43 49 49 2d 43 4f 44 45 44 20 4e 55 4d ┆**************** B >* BINASC - CONVERT A BINARY NUMBER TO A ASCII-CODED NUM┆
0x139e2…13a32 (201, 0, 400) 42 45 52 20 20 2a 00 c8 01 58 00 06 00 03 2a 20 00 c9 00 0e 00 44 00 3f 2a 20 20 4e 55 4d 42 45 52 53 20 49 4e 20 54 48 45 20 44 4f 4d 41 49 4e 20 31 2d 39 39 20 4d 41 59 20 42 45 20 43 4f 4e 56 45 52 54 45 44 20 20 20 20 20 20 20 20 20 20 ┆BER * X * D ?* NUMBERS IN THE DOMAIN 1-99 MAY BE CONVERTED ┆
0x13a32…13a82 20 20 20 20 20 20 2a 20 00 c9 00 18 00 06 00 03 2a 20 00 c9 00 60 00 42 00 3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * * ` B >******************************************************┆
0x13a82…13ad2 2a 2a 2a 2a 2a 2a 2a 2a 00 c9 00 6a 00 06 00 03 2a 20 00 c9 00 b0 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 44 57 54 54 20 00 c9 00 ba 00 06 00 03 2a 20 00 c9 00 dc 00 2c 00 28 2a 20 20 45 4e 54 52 59 3a 20 ┆******** j * * REFERENCED IN: B:DWTT * , (* ENTRY: ┆
0x13ad2…13b22 20 41 31 20 2d 20 42 49 4e 41 52 59 20 4e 55 4d 42 45 52 20 54 4f 20 43 4f 4e 56 45 52 54 00 c9 00 e6 00 06 00 03 2a 20 00 c9 01 16 00 30 00 2c 2a 20 20 45 58 49 54 3a 20 20 20 41 35 20 2d 20 54 57 4f 2d 44 49 47 49 54 20 41 53 43 49 49 2d ┆ A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-┆
0x13b22…13b72 43 4f 44 45 44 20 4e 55 4d 42 45 52 00 c9 01 20 00 06 00 03 2a 20 00 c9 01 54 00 1a 00 15 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 3a 20 20 41 32 20 00 c9 01 5e 00 06 00 03 2a 20 00 c9 01 7c 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 ┆CODED NUMBER * T * WORK REGISTER: A2 ^ * | * SUBROUT┆
0x13b72…13bc2 (202, 0, 398) 49 4e 45 53 3a 20 00 c9 01 86 00 06 00 03 2a 20 00 ca 00 0e 00 10 00 50 42 49 4e 41 53 43 5c 45 51 55 5c 2a 00 ca 00 18 00 10 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 ca 00 2c 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 ca 00 40 00 10 ┆INES: * PBINASC EQU * P LCK A5,'00' , P SLL A5,8 @ ┆
0x13bc2…13c12 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 ca 00 52 00 0e 00 09 5c 4c 44 4b 5c 41 32 2c 30 20 00 ca 00 66 00 0e 00 0a 5c 4c 44 52 5c 41 31 2c 41 31 00 ca 00 78 00 10 00 50 42 49 4e 3a 32 30 5c 45 51 55 5c 2a 00 ca 00 8a 00 10 00 0c 5c 52 ┆ P LCK A5,'00' R LDK A2,0 f LDR A1,A1 x PBIN:20 EQU * R┆
0x13c12…13c62 46 28 5a 29 5c 42 49 4e 45 58 00 ca 00 9e 00 0e 00 09 5c 41 44 4b 5c 41 32 2c 31 20 00 ca 00 b2 00 0e 00 0a 5c 43 57 4b 5c 41 32 2c 31 30 00 ca 00 c4 00 12 00 0d 5c 52 46 28 45 29 5c 42 49 4e 3a 33 30 20 00 ca 00 d6 00 0e 00 09 5c 53 55 4b ┆F(Z) BINEX ADK A2,1 CWK A2,10 RF(E) BIN:30 SUK┆
0x13c62…13cb2 5c 41 31 2c 31 20 00 ca 00 ec 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a 32 30 00 ca 00 fe 00 10 00 50 42 49 4e 3a 33 30 5c 45 51 55 5c 2a 00 ca 01 10 00 12 00 0e 5c 41 44 4b 4c 5c 41 35 2c 2f 30 31 30 30 00 ca 01 24 00 0e 00 09 5c 4c 44 4b 5c 41 ┆ A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 $ LDK A┆
0x13cb2…13d00 32 2c 30 20 00 ca 01 3a 00 0e 00 09 5c 53 55 4b 5c 41 31 2c 31 20 00 ca 01 4c 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a 32 30 00 ca 01 5e 00 10 00 50 42 49 4e 45 58 5c 45 51 55 5c 2a 20 00 ca 01 70 00 0e 00 50 5c 41 44 52 5c 41 35 2c 41 32 ┆2,0 : SUK A1,1 L RB BIN:20 ^ PBINEX EQU * p P ADR A5,A2┆
0x13d00…13d50 (203, 0, 400) 00 ca 01 84 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 cb 00 08 00 0a 00 06 5c 45 4a 45 43 54 00 cb 00 18 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆ RTN A14 EJECT . )***************************************** ┆
0x13d50…13da0 00 cb 00 26 00 2e 00 29 2a 20 20 47 45 54 43 4f 4e 20 2d 20 47 45 54 20 43 4f 4e 54 45 4e 54 20 49 4e 20 4d 45 4d 4f 52 59 20 57 4f 52 44 20 20 2a 20 00 cb 00 58 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ & . )* GETCON - GET CONTENT IN MEMORY WORD * X . )**********************┆
0x13da0…13df0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 cb 00 8a 00 06 00 03 2a 20 00 cb 00 bc 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 53 45 47 47 45 4e 20 00 cb 00 c6 00 06 00 03 2a 20 00 cb 00 e8 00 22 ┆******************* * * REFERENCED IN: SEGGEN * "┆
0x13df0…13e40 00 1e 2a 20 20 45 4e 54 52 59 3a 20 20 41 32 20 2d 20 4d 45 4d 4f 52 59 20 41 44 44 52 45 53 53 00 cb 00 f2 00 2e 00 29 2a 20 20 20 20 20 20 20 20 20 20 4d 4d 55 4f 50 54 20 2d 20 4d 4d 55 20 4f 50 54 49 4f 4e 20 53 57 49 54 43 48 20 28 58 ┆ * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X┆
0x13e40…13e90 29 20 00 cb 01 18 00 06 00 03 2a 20 00 cb 01 4a 00 2c 00 28 2a 20 20 45 58 49 54 3a 20 20 41 31 20 2d 20 43 4f 4e 54 45 4e 54 20 4f 46 20 4d 45 4d 4f 52 59 20 41 44 44 52 45 53 53 00 cb 01 54 00 06 00 03 2a 20 00 cb 01 84 00 16 00 13 2a 20 ┆) * J , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS T * * ┆
0x13e90…13ee0 (204, 0, 400) 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 3a 20 00 cb 01 8e 00 06 00 03 2a 20 00 cc 00 18 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 00 cc 00 22 00 06 00 03 2a 20 00 cc 00 3a 00 10 00 50 47 45 54 43 4f 4e 5c 45 51 55 5c 2a ┆ WORK REGISTER: * * SUBROUTINES: " * : PGETCON EQU *┆
0x13ee0…13f30 00 cc 00 44 00 22 00 50 5c 4c 44 5c 41 31 2c 53 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 cc 00 58 00 18 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 4d 4d 55 20 4f 50 54 49 4f 4e 00 cc 00 7e 00 18 00 50 5c 52 46 28 5a 29 ┆ D " P LD A1,SCTOPT GET OPTION WORD X P ANK A1,1 MMU OPTION ~ P RF(Z)┆
0x13f30…13f80 5c 47 43 4f 4e 31 30 5c 4e 4f 20 4d 4d 55 00 cc 00 9a 00 0e 00 0a 5c 45 4c 52 5c 41 31 2c 41 32 00 cc 00 b6 00 0e 00 50 5c 52 46 5c 47 43 4f 4e 32 30 00 cc 00 c8 00 10 00 50 47 43 4f 4e 31 30 5c 45 51 55 5c 2a 00 cc 00 da 00 10 00 0b 5c 4c ┆ GCON10 NO MMU ELR A1,A2 P RF GCON20 PGCON10 EQU * L┆
0x13f80…13fd0 44 52 2a 5c 41 31 2c 41 32 20 00 cc 00 ee 00 10 00 50 47 43 4f 4e 32 30 5c 45 51 55 5c 2a 00 cc 01 02 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 cc 01 16 00 0a 00 50 5c 45 4a 45 43 54 00 cc 01 2e 00 10 00 50 43 4f 4e 4d ┆DR* A1,A2 PGCON20 EQU * RTN A14 RETURN P EJECT . PCONM┆
0x13fd0…14020 4f 4e 5c 45 51 55 5c 2a 00 cc 01 3c 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ON EQU * < D P****************************************************************┆
0x14020…14070 (205, 0, 400) 00 cc 01 50 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 cd 00 08 00 44 00 50 ┆ P D P* START MONITOR SAVE01URATION * D P┆
0x14070…140c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 cd 00 50 00 22 00 50 5c 43 41 4c 4c 5c 42 3a ┆**************************************************************** P " P CALL B:┆
0x140c0…14110 54 43 54 5c 42 55 49 4c 44 20 54 41 53 4b 20 54 41 42 4c 45 53 20 00 cd 00 98 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 4d 54 54 5c 42 55 49 4c 44 20 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 20 54 41 53 4b 20 54 41 42 4c 45 53 00 cd 00 be ┆TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES ┆
0x14110…14160 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 54 54 5c 42 55 49 4c 44 20 55 53 45 52 20 54 41 53 4b 20 54 41 42 4c 45 53 20 00 cd 00 f4 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 00 cd 01 1e 00 24 00 50 5c 43 41 4c 4c 5c 53 45 47 47 45 4e ┆ & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 $ P CALL SEGGEN┆
0x14160…141b0 5c 42 55 49 4c 44 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 00 cd 01 34 00 08 00 50 5c 58 49 46 00 cd 01 5c 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b 53 57 50 42 4c 4b 3d 32 00 cd 01 68 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 53 57 42 54 ┆ BUILD SEGMENT TABLE 4 P XIF P IFT CREDIT+SWPBLK=2 h 2 P CALL B:SWBT┆
0x141b0…14200 (206, 0, 400) 5c 42 55 49 4c 44 20 53 57 41 50 50 41 42 4c 45 20 57 4f 52 4b 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 00 cd 01 84 00 08 00 50 5c 58 49 46 00 ce 00 2a 00 28 00 50 5c 43 41 4c 4c 5c 4d 4f 4e 42 4c 4b 5c 47 45 4e 45 52 41 54 45 20 4d 4f 4e 49 ┆ BUILD SWAPPABLE WORK BLOCK TABLE P XIF * ( P CALL MONBLK GENERATE MONI┆
0x14200…14250 54 4f 52 20 42 4c 4f 43 4b 53 00 ce 00 36 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 53 5c 42 55 49 4c 44 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 20 00 ce 00 62 00 32 00 50 5c 43 41 4c 4c 5c 42 3a ┆TOR BLOCKS 6 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES b 2 P CALL B:┆
0x14250…142a0 44 57 54 54 5c 42 55 49 4c 44 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 00 ce 00 98 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 49 4c 44 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 ┆DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TA┆
0x142a0…142f0 42 4c 45 53 00 ce 00 ce 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 49 54 41 42 5c 42 55 49 4c 44 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 ce 00 fc 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 00 ce 01 26 00 0a 00 50 5c 45 4a 45 ┆BLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT CREDIT=1 & P EJE┆
0x142f0…14340 43 54 00 ce 01 3c 00 06 00 50 2a 20 00 ce 01 4a 00 22 00 50 2a 20 20 43 48 45 43 4b 20 49 46 20 43 52 45 44 49 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 00 ce 01 54 00 06 00 50 2a 20 00 ce 01 7a 00 12 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4c 41 ┆CT < P* J " P* CHECK IF CREDIT APPLICATION T P* z P LD A2,SCTLA┆
0x14340…14390 (207, 0, 400) 43 20 00 ce 01 84 00 14 00 50 5c 41 44 4b 4c 5c 41 32 2c 50 52 47 4c 47 31 20 00 cf 00 0a 00 10 00 50 5c 43 41 4c 4c 5c 47 45 54 43 4f 4e 00 cf 00 22 00 10 00 50 5c 43 57 4b 5c 41 31 2c 27 43 52 27 00 cf 00 36 00 12 00 50 5c 52 46 28 4e 45 ┆C P ADKL A2,PRGLG1 P CALL GETCON " P CWK A1,'CR' 6 P RF(NE┆
0x14390…143e0 29 5c 53 4c 44 4d 37 30 00 cf 00 4a 00 06 00 50 2a 20 00 cf 00 60 00 3a 00 50 2a 20 20 53 54 4f 52 45 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 28 53 43 54 4f 50 54 29 20 49 4e 20 55 53 45 52 20 41 52 45 41 20 28 50 3a 4d 54 41 42 2b 33 34 29 ┆) SLDM70 J P* ` : P* STORE OPTION WORD (SCTOPT) IN USER AREA (P:MTAB+34)┆
0x143e0…14430 00 cf 00 6a 00 06 00 50 2a 20 00 cf 00 a8 00 22 00 50 5c 4c 44 5c 41 31 2c 53 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 cf 00 b2 00 1a 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 4d 4d 55 20 4f 50 54 49 4f 4e 3f 20 00 cf ┆ j P* " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION? ┆
0x14430…14480 00 d8 00 12 00 50 5c 52 46 28 5a 29 5c 53 4c 44 4d 35 30 20 00 cf 00 f6 00 28 00 50 5c 45 4c 2a 5c 41 31 2c 53 43 54 4c 41 43 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 50 3a 4d 54 41 42 00 cf 01 0c 00 22 00 50 5c 4c 44 5c 41 32 2c 53 ┆ P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:MTAB " P LD A2,S┆
0x14480…144d0 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 cf 01 38 00 24 00 50 5c 45 53 5c 41 32 2c 33 34 2c 41 31 5c 53 54 4f 52 45 20 49 4e 20 55 53 45 52 20 41 52 45 41 20 00 cf 01 5e 00 0e 00 50 5c 52 46 5c 53 4c 44 4d 37 30 ┆CTOPT GET OPTION WORD 8 $ P ES A2,34,A1 STORE IN USER AREA ^ P RF SLDM70┆
0x144d0…14520 (208, 0, 400) 00 cf 01 86 00 2e 00 50 53 4c 44 4d 35 30 5c 4c 44 2a 5c 41 31 2c 53 43 54 4c 41 43 5c 47 45 54 20 41 44 44 52 45 53 20 54 4f 20 50 3a 4d 54 41 42 20 00 d0 00 08 00 22 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 ┆ . PSLDM50 LD* A1,SCTLAC GET ADDRES TO P:MTAB " P LD A2,SCTOPT GET OPTI┆
0x14520…14570 4f 4e 20 57 4f 52 44 20 00 d0 00 3a 00 24 00 50 5c 53 54 5c 41 32 2c 33 34 2c 41 31 5c 53 54 4f 52 45 20 49 4e 20 55 53 45 52 20 41 52 45 41 20 00 d0 00 60 00 10 00 50 53 4c 44 4d 37 30 5c 45 51 55 5c 2a 00 d0 00 88 00 08 00 50 5c 58 49 46 ┆ON WORD : $ P ST A2,34,A1 STORE IN USER AREA ` PSLDM70 EQU * P XIF┆
0x14570…145c0 00 d0 00 9c 00 0a 00 50 5c 45 4a 45 43 54 00 d0 00 a8 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P EJECT F P**********************************************************┆
0x145c0…14610 2a 2a 2a 2a 2a 2a 2a 20 00 d0 00 b6 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 4f 46 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******* F P* END OF MONITOR SAVE01URATION PART ┆
0x14610…14660 2a 20 00 d0 01 00 00 46 00 50 2a 20 20 20 20 20 20 20 2d 43 4f 4e 54 49 4e 55 45 20 57 49 54 48 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d0 01 4a ┆* F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * J┆
0x14660…146b0 (209, 2, 254) 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 d1 00 04 00 12 00 50 5c 4c ┆ F P***************************************************************** P L┆
0x146b0…14700 44 4b 4c 5c 41 38 2c 2f 46 46 46 46 00 d1 00 4e 00 2a 00 50 5c 53 54 5c 41 38 2c 53 43 54 45 46 41 5c 4d 4f 44 49 46 59 20 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 20 00 d1 00 64 00 20 00 50 5c 4c 44 52 5c 41 38 2c 41 31 33 5c 47 45 ┆DKL A8,/FFFF N * P ST A8,SCTEFA MODIFY END OF FREE AREA d P LDR A8,A13 GE┆
0x14700…14750 54 20 42 41 53 45 2d 41 44 44 52 45 53 53 00 d1 00 92 00 24 00 50 5c 41 44 4b 4c 5c 41 38 2c 53 59 53 4c 44 41 5c 53 54 41 52 54 20 4f 46 20 53 59 53 4c 4f 44 41 00 d1 00 b6 00 0c 00 50 5c 41 42 52 5c 41 38 20 00 d1 00 de 00 08 00 50 5c 45 ┆T BASE-ADDRESS $ P ADKL A8,SYSLDA START OF SYSLODA P ABR A8 P E┆
0x14750…1475e 4e 44 00 d1 00 ee 40 04 00 00 00 d1 00 fa ┆ND @ ┆
0x1475e…1479a (210, 2, 60) 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 d2 00 04 40 04 00 00 00 d2 00 38 ┆ 0 P******************************************** @ 8┆
0x1479a…147a2 (211, 1, 8) 20 04 00 00 00 d3 00 04 ┆ ┆
0x147a2…147f2 (212, 0, 400) 00 06 00 03 2a 20 00 c4 00 04 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 00 c4 00 0e 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 31 2c 41 39 20 00 c4 00 22 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c4 00 3a 00 14 00 50 5c 4c 43 5c ┆ * PGETLCN EQU * P LC A5,LCND1,A9 " P SLL A5,8 : P LC ┆
0x147f2…14842 41 35 2c 4c 43 4e 44 32 2c 41 39 20 00 c4 00 4c 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c4 00 64 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 c4 00 78 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 00 c4 00 88 00 0a 00 50 5c 45 ┆A5,LCND2,A9 L P CALL CONVRT d RTN A14 x P IFT CREDIT=1 P E┆
0x14842…14892 4a 45 43 54 00 c4 00 9e 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 c4 00 ac 00 3a 00 50 2a 20 20 20 20 20 ┆JECT : P***************************************************** : P* ┆
0x14892…148e2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 00 ea 00 3a 00 50 2a 20 20 47 45 54 54 43 4c 20 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 ┆ * : P* GETTCL - GET TASK CLA┆
0x148e2…14932 53 53 20 54 4f 20 4d 41 54 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c4 01 28 00 3a 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 ┆SS TO MATCH * ( : P* ================================ ┆