|
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: 83808 (0x14760)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:PTB/SYSLDM.SC«
IDENT SYSLDM REL 9.2 79-12-20 870105040920 =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,A2 CLEAR THIRD WORD OF THIS DWT 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 79-12-20 870105040920 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0007c Head {h00=0x003a, h01=0x0050, text=» =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE «, t00=0x0000, t01=0x0042}
0x0007c…0009a Head {h00=0x001a, h01=0x0050, text=» REL 9.2 79-12-20 ST«, t00=0x0000, t01=0x0080}
0x0009a…000b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDM «, t00=0x0000, t01=0x009e}
0x000b0…000d4 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x00b4}
0x000d4…000f8 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00d8}
0x000f8…0011c Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0000, t01=0x00fc}
0x0011c…00140 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0120}
0x00140…00164 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0144}
0x00164…0017a Head {h00=0x0012, h01=0x0050, text=» EXTRN FREQUE «, t00=0x0000, t01=0x0168}
0x0017a…00190 Head {h00=0x0012, h01=0x0050, text=» EXTRN INTLT1 «, t00=0x0000, t01=0x017e}
0x00190…001a2 (1, 0, 400) Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0001, t01=0x0004}
0x001a2…001b8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCLASS «, t00=0x0001, t01=0x0016}
0x001b8…001ce Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTADA «, t00=0x0001, t01=0x002c}
0x001ce…001e4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0001, t01=0x0042}
0x001e4…001fa Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBLK «, t00=0x0001, t01=0x0058}
0x001fa…00210 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0001, t01=0x006e}
0x00210…00226 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTCDT «, t00=0x0001, t01=0x0084}
0x00226…0023c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDCT «, t00=0x0001, t01=0x009a}
0x0023c…00252 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMC «, t00=0x0001, t01=0x00b0}
0x00252…00268 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMI «, t00=0x0001, t01=0x00c6}
0x00268…0027e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDML «, t00=0x0001, t01=0x00dc}
0x0027e…00294 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMT «, t00=0x0001, t01=0x00f2}
0x00294…002aa Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0001, t01=0x0108}
0x002aa…002c0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAC «, t00=0x0001, t01=0x011e}
0x002c0…002d6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAP «, t00=0x0001, t01=0x0134}
0x002d6…002ec Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0001, t01=0x014a}
0x002ec…00302 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOS «, t00=0x0001, t01=0x0160}
0x00302…00318 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0001, t01=0x0176}
0x00318…0032e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPAG «, t00=0x0001, t01=0x018c}
0x0032e…00344 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPLD «, t00=0x0002, t01=0x0012}
0x00344…0035a Head {h00=0x0012, h01=0x0050, text=» EXTRN STTPSZ «, t00=0x0002, t01=0x0028}
0x0035a…00370 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0002, t01=0x003e}
0x00370…00386 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSEG «, t00=0x0002, t01=0x0054}
0x00386…0039c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0002, t01=0x006a}
0x0039c…003b2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSWB «, t00=0x0002, t01=0x0080}
0x003b2…003c8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0002, t01=0x0096}
0x003c8…003de Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBAS «, t00=0x0002, t01=0x00ac}
0x003de…003f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLOD «, t00=0x0002, t01=0x00c2}
0x003f4…0040a Head {h00=0x0012, h01=0x0050, text=» EXTRN TCLASS «, t00=0x0002, t01=0x00d8}
0x0040a…00420 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTMJOB «, t00=0x0002, t01=0x00ee}
0x00420…00436 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECH «, t00=0x0002, t01=0x0104}
0x00436…0044a Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTSQ«, t00=0x0002, t01=0x011a}
0x0044a…00458 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x012e}
0x00458…0046c Head {h00=0x0010, h01=0x0050, text=» EXTRN M:REL«, t00=0x0002, t01=0x013c}
0x0046c…00480 Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0002, t01=0x0150}
0x00480…00494 Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0002, t01=0x0164}
0x00494…004aa Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0002, t01=0x0178}
0x004aa…004c0 Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0002, t01=0x018e}
0x004c0…004d6 Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTBLK «, t00=0x0003, t01=0x0014}
0x004d6…004ec Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDA «, t00=0x0003, t01=0x002a}
0x004ec…00502 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE01 «, t00=0x0003, t01=0x0040}
0x00502…00518 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE02 «, t00=0x0003, t01=0x0056}
0x00518…0052e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE03 «, t00=0x0003, t01=0x006c}
0x0052e…00544 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE04 «, t00=0x0003, t01=0x0082}
0x00544…0055a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE05 «, t00=0x0003, t01=0x0098}
0x0055a…00570 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE06 «, t00=0x0003, t01=0x00ae}
0x00570…00586 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE07 «, t00=0x0003, t01=0x00c4}
0x00586…0059c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE08 «, t00=0x0003, t01=0x00da}
0x0059c…005b2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE09 «, t00=0x0003, t01=0x00f0}
0x005b2…005c8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE10 «, t00=0x0003, t01=0x0106}
0x005c8…005de Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE11 «, t00=0x0003, t01=0x011c}
0x005de…005f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE12 «, t00=0x0003, t01=0x0132}
0x005f4…0060a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE13 «, t00=0x0003, t01=0x0148}
0x0060a…00620 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE14 «, t00=0x0003, t01=0x015e}
0x00620…00636 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE15 «, t00=0x0003, t01=0x0174}
0x00636…0064c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE16 «, t00=0x0003, t01=0x018a}
0x0064c…00662 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE17 «, t00=0x0004, t01=0x0010}
0x00662…00678 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE18 «, t00=0x0004, t01=0x0026}
0x00678…0068e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE19 «, t00=0x0004, t01=0x003c}
0x0068e…006a4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE20 «, t00=0x0004, t01=0x0052}
0x006a4…006ba Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE21 «, t00=0x0004, t01=0x0068}
0x006ba…006d0 Head {h00=0x0012, h01=0x0050, text=» EXTRN NUMSEG «, t00=0x0004, t01=0x007e}
0x006d0…006e6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE23 «, t00=0x0004, t01=0x0094}
0x006e6…006fc Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE24 «, t00=0x0004, t01=0x00aa}
0x006fc…00712 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE25 «, t00=0x0004, t01=0x00c0}
0x00712…00728 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSIZ «, t00=0x0004, t01=0x00d6}
0x00728…0073e Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBUF «, t00=0x0004, t01=0x00ec}
0x0073e…00754 Head {h00=0x0012, h01=0x0050, text=» EXTRN PRGLG1 «, t00=0x0004, t01=0x0102}
0x00754…00762 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0118}
0x00762…0076c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0126}
0x0076c…0078c Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL SUBROUTINES «, t00=0x0004, t01=0x0130}
0x0078c…00796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0150}
0x00796…007ac Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTCOM «, t00=0x0004, t01=0x015a}
0x007ac…007c2 Head {h00=0x0012, h01=0x0050, text=» EXTRN GETNUM «, t00=0x0004, t01=0x0170}
0x007c2…007d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0186}
0x007d0…007d8 (5, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0004}
0x007d8…007e0 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x000c}
0x007e0…00810 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x0014}
0x00810…00840 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0005, t01=0x0044}
0x00840…00870 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x0074}
0x00870…00878 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00a4}
0x00878…008a4 Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 0 MEMORY MANAGEMENT UNIT «, t00=0x0005, t01=0x00ac}
0x008a4…008ce Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x0005, t01=0x00d8}
0x008ce…008f6 Head {h00=0x0024, h01=0x0050, text=»CREDIT EQU 1 CREDIT APPLICATION «, t00=0x0005, t01=0x0102}
0x008f6…00904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x012a}
0x00904…00910 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0138}
0x00910…0091a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0144}
0x0091a…0092e Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0005, t01=0x014e}
0x0092e…00938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0162}
0x00938…00966 Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0005, t01=0x016c}
0x00966…0099a Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0006, t01=0x000a}
0x0099a…009be Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0006, t01=0x003e}
0x009be…009e6 Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0006, t01=0x0062}
0x009e6…009f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x008a}
0x009f2…009fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x0096}
0x009fe…00a26 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x00a2}
0x00a26…00a4e Head {h00=0x0024, h01=0x0050, text=»* SAVE01URATION FILE (SAVE01) * «, t00=0x0006, t01=0x00ca}
0x00a4e…00a76 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x00f2}
0x00a76…00a82 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x011a}
0x00a82…00aa2 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x0126}
0x00aa2…00ac4 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x0146}
0x00ac4…00af0 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0006, t01=0x0168}
0x00af0…00b20 (7, 0, 400) Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0007, t01=0x0004}
0x00b20…00b50 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0007, t01=0x0034}
0x00b50…00b78 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0007, t01=0x0064}
0x00b78…00bb6 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0007, t01=0x008c}
0x00bb6…00bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ca}
0x00bc0…00bea Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0007, t01=0x00d4}
0x00bea…00c12 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x00fe}
0x00c12…00c34 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x0007, t01=0x0126}
0x00c34…00c60 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0007, t01=0x0148}
0x00c60…00c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x00c6a…00c98 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0007, t01=0x017e}
0x00c98…00ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x00ca2…00cc6 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0008, t01=0x0026}
0x00cc6…00ce8 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x004a}
0x00ce8…00d22 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0008, t01=0x006c}
0x00d22…00d4e Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x0008, t01=0x00a6}
0x00d4e…00d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d2}
0x00d58…00d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00dc}
0x00d62…00d8c Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x00e6}
0x00d8c…00dae Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x0110}
0x00dae…00dde Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x0132}
0x00dde…00de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x00de8…00e14 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x0008, t01=0x016c}
0x00e14…00e34 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0009, t01=0x0008}
0x00e34…00e5a Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0009, t01=0x0028}
0x00e5a…00e8c Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0009, t01=0x004e}
0x00e8c…00e9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0080}
0x00e9a…00eb2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x008e}
0x00eb2…00eca Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0009, t01=0x00a6}
0x00eca…00ee2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x00be}
0x00ee2…00f04 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x00d6}
0x00f04…00f0c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00f8}
0x00f0c…00f2e Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x0100}
0x00f2e…00f44 Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x0122}
0x00f44…00f5a Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x0138}
0x00f5a…00f6e Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0009, t01=0x014e}
0x00f6e…00f82 Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0009, t01=0x0162}
0x00f82…00f96 Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0009, t01=0x0176}
0x00f96…00faa Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0009, t01=0x018a}
0x00faa…00fbc Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x000a, t01=0x000e}
0x00fbc…00fce Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x000a, t01=0x0020}
0x00fce…00fe2 Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x000a, t01=0x0032}
0x00fe2…00ff6 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x000a, t01=0x0046}
0x00ff6…01002 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000a, t01=0x005a}
0x01002…0104c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000a, t01=0x0066}
0x0104c…01096 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000a, t01=0x00b0}
0x01096…010e0 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000a, t01=0x00fa}
0x010e0…0112a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0144}
0x0112a…01174 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000a, t01=0x018e}
0x01174…01180 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x0048}
0x01180…0118c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x0054}
0x0118c…01198 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x0060}
0x01198…011b6 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000b, t01=0x006c}
0x011b6…011c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x008a}
0x011c4…0120e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x0098}
0x0120e…01258 Head {h00=0x0046, h01=0x0050, text=»* CONSTANTS USED IN SYSLOD PART M * «, t00=0x000b, t01=0x00e2}
0x01258…012a2 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x012c}
0x012a2…012ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0176}
0x012ac…012d0 Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000b, t01=0x0180}
0x012d0…012f4 Head {h00=0x0020, h01=0x0050, text=»* * TTAB * «, t00=0x000c, t01=0x0014}
0x012f4…01318 Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000c, t01=0x0038}
0x01318…01322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005c}
0x01322…01338 Head {h00=0x0012, h01=0x0050, text=»TTB:MT EQU -34«, t00=0x000c, t01=0x0066}
0x01338…0134e Head {h00=0x0012, h01=0x0050, text=»TTB:SB EQU -2 «, t00=0x000c, t01=0x007c}
0x0134e…01362 Head {h00=0x0010, h01=0x0050, text=»TTB:ID EQU 2«, t00=0x000c, t01=0x0092}
0x01362…01376 Head {h00=0x0010, h01=0x0050, text=»TTB:ST EQU 4«, t00=0x000c, t01=0x00a6}
0x01376…0138a Head {h00=0x0010, h01=0x0050, text=»TTB:PP EQU 6«, t00=0x000c, t01=0x00ba}
0x0138a…0139e Head {h00=0x0010, h01=0x0050, text=»TTB:PW EQU 8«, t00=0x000c, t01=0x00ce}
0x0139e…013b4 Head {h00=0x0012, h01=0x0050, text=»TTB:SA EQU 10 «, t00=0x000c, t01=0x00e2}
0x013b4…013ca Head {h00=0x0012, h01=0x0050, text=»TTB:TD EQU 40 «, t00=0x000c, t01=0x00f8}
0x013ca…013d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x010e}
0x013d8…013e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011c}
0x013e2…01404 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000c, t01=0x0126}
0x01404…01426 Head {h00=0x001e, h01=0x0050, text=»* * DWT * «, t00=0x000c, t01=0x0148}
0x01426…01448 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000c, t01=0x016a}
0x01448…01452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018c}
0x01452…01478 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x000d, t01=0x0008}
0x01478…01492 Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STATUS«, t00=0x000d, t01=0x002e}
0x01492…014b2 Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB ADDRESS«, t00=0x000d, t01=0x0048}
0x014b2…014cc Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x000d, t01=0x0068}
0x014cc…014ee Head {h00=0x001e, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK«, t00=0x000d, t01=0x0082}
0x014ee…01510 Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB ADDRESS«, t00=0x000d, t01=0x00a4}
0x01510…0153e Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x000d, t01=0x00c6}
0x0153e…01562 Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x000d, t01=0x00f4}
0x01562…01588 Head {h00=0x0022, h01=0x0050, text=»DWTUEC EQU 16 USER ECB ADDRESS«, t00=0x000d, t01=0x0118}
0x01588…015b2 Head {h00=0x0026, h01=0x0050, text=»DWTMEC EQU 18 MONITOR ECB ADDRESS «, t00=0x000d, t01=0x013e}
0x015b2…015c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0168}
0x015c0…015ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x015ca…015f0 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x000d, t01=0x0180}
0x015f0…01616 Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x000e, t01=0x0016}
0x01616…0163c Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x000e, t01=0x003c}
0x0163c…01646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0062}
0x01646…0165a Head {h00=0x0010, h01=0x0050, text=»PAGQF EQU 0 «, t00=0x000e, t01=0x006c}
0x0165a…0166e Head {h00=0x0010, h01=0x0050, text=»PAGQB EQU 2 «, t00=0x000e, t01=0x0080}
0x0166e…01682 Head {h00=0x0010, h01=0x0050, text=»PAGPA EQU 4 «, t00=0x000e, t01=0x0094}
0x01682…01696 Head {h00=0x0010, h01=0x0050, text=»PAGSB EQU 6 «, t00=0x000e, t01=0x00a8}
0x01696…016a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00bc}
0x016a4…016ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ca}
0x016ae…016d8 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x000e, t01=0x00d4}
0x016d8…01702 Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x000e, t01=0x00fe}
0x01702…0172c Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x000e, t01=0x0128}
0x0172c…01736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x01736…0174a Head {h00=0x0010, h01=0x0050, text=»SEGPB EQU 6 «, t00=0x000e, t01=0x015c}
0x0174a…0175e Head {h00=0x0010, h01=0x0050, text=»SEGSB EQU 6 «, t00=0x000e, t01=0x0170}
0x0175e…01766 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0184}
0x01766…01774 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x018c}
0x01774…0177e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x0177e…017ac Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x000f, t01=0x0014}
0x017ac…017da Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x000f, t01=0x0042}
0x017da…01808 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x000f, t01=0x0070}
0x01808…01812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x01812…01828 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x000f, t01=0x00a8}
0x01828…0183e Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x000f, t01=0x00be}
0x0183e…01852 Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x000f, t01=0x00d4}
0x01852…01866 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x000f, t01=0x00e8}
0x01866…0187a Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x000f, t01=0x00fc}
0x0187a…0188e Head {h00=0x0010, h01=0x0050, text=»LCND1 EQU 10«, t00=0x000f, t01=0x0110}
0x0188e…018a2 Head {h00=0x0010, h01=0x0050, text=»LCND2 EQU 11«, t00=0x000f, t01=0x0124}
0x018a2…018ce Head {h00=0x0028, h01=0x0050, text=»SWBLEN EQU 4 DISPL. TO LENGTH OF SWB«, t00=0x000f, t01=0x0138}
0x018ce…018fe Head {h00=0x002c, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO LENGTH IN SECTORS«, t00=0x000f, t01=0x0164}
0x018fe…0190c (16, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0004}
0x0190c…0194a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0010, t01=0x0012}
0x0194a…01988 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0050}
0x01988…019c6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x008e}
0x019c6…01a04 Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0010, t01=0x00cc}
0x01a04…01a42 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x010a}
0x01a42…01a80 Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0010, t01=0x0148}
0x01a80…01abe Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0010, t01=0x0186}
0x01abe…01afc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0034}
0x01afc…01b3a Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDA *«, t00=0x0011, t01=0x0072}
0x01b3a…01b78 Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA *«, t00=0x0011, t01=0x00b0}
0x01b78…01bb6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x00ee}
0x01bb6…01bf4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x012c}
0x01bf4…01c32 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0011, t01=0x016a}
0x01c32…01c46 Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0012, t01=0x0018}
0x01c46…01c72 Head {h00=0x0028, h01=0x0050, text=» ST P,SCTSFA+2 SAVE LOCATION COUNTER«, t00=0x0012, t01=0x002c}
0x01c72…01ca4 Head {h00=0x002e, h01=0x0050, text=» LDKL A11,SYSBAS GET SYSBAS START ADDRESS «, t00=0x0012, t01=0x0058}
0x01ca4…01cd4 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x0012, t01=0x008a}
0x01cd4…01cf8 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0012, t01=0x00ba}
0x01cf8…01d22 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 RELOCATION ROUTINE ENTRY«, t00=0x0012, t01=0x00de}
0x01d22…01d34 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0012, t01=0x0108}
0x01d34…01d62 Head {h00=0x002a, h01=0x0050, text=» ST A13,SCTEFA UPDATE END OF FREE AREA«, t00=0x0012, t01=0x011a}
0x01d62…01d90 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0012, t01=0x0148}
0x01d90…01dc2 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0012, t01=0x0176}
0x01dc2…01dea Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0013, t01=0x0018}
0x01dea…01e1a Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0013, t01=0x0040}
0x01e1a…01e54 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS«, t00=0x0013, t01=0x0070}
0x01e54…01e88 Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0013, t01=0x00aa}
0x01e88…01eb8 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0013, t01=0x00de}
0x01eb8…01ef2 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS«, t00=0x0013, t01=0x010e}
0x01ef2…01efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0148}
0x01efc…01f26 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x0013, t01=0x0152}
0x01f26…01f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x017c}
0x01f30…01f46 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTEFA «, t00=0x0013, t01=0x0186}
0x01f46…01f5c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0014, t01=0x000c}
0x01f5c…01f70 Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x0014, t01=0x0022}
0x01f70…01f82 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0014, t01=0x0036}
0x01f82…01f92 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x0014, t01=0x0048}
0x01f92…01fa4 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0014, t01=0x0058}
0x01fa4…01fba Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x0014, t01=0x006a}
0x01fba…01fd2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x0014, t01=0x0080}
0x01fd2…01fea Head {h00=0x0014, h01=0x0050, text=» AD A1,M:REL,A13«, t00=0x0014, t01=0x0098}
0x01fea…01ffa Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0014, t01=0x00b0}
0x01ffa…02008 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c0}
0x02008…02040 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0014, t01=0x00ce}
0x02040…02078 Head {h00=0x0034, h01=0x002f, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0014, t01=0x0106}
0x02078…020b0 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0014, t01=0x013e}
0x020b0…020ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0176}
0x020ba…020ea Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0014, t01=0x0180}
0x020ea…02116 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0015, t01=0x0020}
0x02116…02142 Head {h00=0x0028, h01=0x0023, text=»* A12 - RELOCATION CONSTANT «, t00=0x0015, t01=0x004c}
0x02142…0214c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0078}
0x0214c…02182 Head {h00=0x0032, h01=0x002e, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0015, t01=0x0082}
0x02182…0218c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00b8}
0x0218c…021aa Head {h00=0x001a, h01=0x0016, text=»* WORK REGISTER:A1-A7«, t00=0x0015, t01=0x00c2}
0x021aa…021b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00e0}
0x021b4…021cc Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0015, t01=0x00ea}
0x021cc…021d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0102}
0x021d6…021ea Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0015, t01=0x010c}
0x021ea…0220e Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0015, t01=0x0120}
0x0220e…02244 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0015, t01=0x0144}
0x02244…02274 Head {h00=0x002c, h01=0x0027, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0015, t01=0x017a}
0x02274…02288 Head {h00=0x0010, h01=0x000c, text=»CHPT10 EQU *«, t00=0x0016, t01=0x001a}
0x02288…022ba Head {h00=0x002e, h01=0x0029, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0016, t01=0x002e}
0x022ba…022d4 Head {h00=0x0016, h01=0x0011, text=» RF(Z) CHPT30 NO! «, t00=0x0016, t01=0x0060}
0x022d4…022f0 Head {h00=0x0018, h01=0x0014, text=» ADK A3,2 NEXT ENTRY«, t00=0x0016, t01=0x007a}
0x022f0…02318 Head {h00=0x0024, h01=0x0021, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0016, t01=0x0096}
0x02318…02334 Head {h00=0x0018, h01=0x0014, text=» ADR A5,A12 RELOCATE«, t00=0x0016, t01=0x00be}
0x02334…0234c Head {h00=0x0014, h01=0x0010, text=» STR A5,A3 STORE«, t00=0x0016, t01=0x00da}
0x0234c…02374 Head {h00=0x0024, h01=0x001f, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0016, t01=0x00f2}
0x02374…02388 Head {h00=0x0010, h01=0x000c, text=»CHPT20 EQU *«, t00=0x0016, t01=0x011a}
0x02388…023b6 Head {h00=0x002a, h01=0x0026, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0016, t01=0x012e}
0x023b6…023d0 Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0016, t01=0x015c}
0x023d0…023ee Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x0016, t01=0x0176}
0x023ee…02412 (23, 0, 400) Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0017, t01=0x0004}
0x02412…02434 Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x0017, t01=0x0028}
0x02434…0245a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x0017, t01=0x004a}
0x0245a…0247e Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x0017, t01=0x0070}
0x0247e…0249a Head {h00=0x0018, h01=0x0014, text=» ADR A7,A12 RELOCATE«, t00=0x0017, t01=0x0094}
0x0249a…024c8 Head {h00=0x002a, h01=0x0025, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x0017, t01=0x00b0}
0x024c8…024ee Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x0017, t01=0x00de}
0x024ee…02510 Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x0017, t01=0x0104}
0x02510…0252a Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x0017, t01=0x0126}
0x0252a…0255a Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x0017, t01=0x0140}
0x0255a…02584 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x0017, t01=0x0170}
0x02584…025b2 Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x0018, t01=0x000a}
0x025b2…025ce Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x0018, t01=0x0038}
0x025ce…025ea Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x0018, t01=0x0054}
0x025ea…0261c Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x0018, t01=0x0070}
0x0261c…0264c Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x0018, t01=0x00a2}
0x0264c…0265e Head {h00=0x000e, h01=0x000a, text=» RB CHPT20«, t00=0x0018, t01=0x00d2}
0x0265e…02672 Head {h00=0x0010, h01=0x000c, text=»CHPT30 EQU *«, t00=0x0018, t01=0x00e4}
0x02672…02682 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00f8}
0x02682…02690 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0108}
0x02690…026ca Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0018, t01=0x0116}
0x026ca…02704 Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x0018, t01=0x0150}
0x02704…0273e Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0018, t01=0x018a}
0x0273e…02748 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0034}
0x02748…02768 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0019, t01=0x003e}
0x02768…02772 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x005e}
0x02772…027a8 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA«, t00=0x0019, t01=0x0068}
0x027a8…027b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x009e}
0x027b6…027f0 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0019, t01=0x00ac}
0x027f0…0282a Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x0019, t01=0x00e6}
0x0282a…02864 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0019, t01=0x0120}
0x02864…0286e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x015a}
0x0286e…0288e Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0019, t01=0x0164}
0x0288e…02898 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0184}
0x02898…028ce Head {h00=0x0032, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA«, t00=0x0019, t01=0x018e}
0x028ce…028d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0034}
0x028d8…028fe Head {h00=0x0022, h01=0x001e, text=»* EXIT: A6 - START OF TC:TAB«, t00=0x001a, t01=0x003e}
0x028fe…02926 Head {h00=0x0024, h01=0x001f, text=»* A7 - LENGTH OF TC:TAB «, t00=0x001a, t01=0x0064}
0x02926…02930 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x008c}
0x02930…02952 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A2,A3 «, t00=0x001a, t01=0x0096}
0x02952…0295c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00b8}
0x0295c…02974 Head {h00=0x0014, h01=0x0011, text=»* SUBROUTINES: «, t00=0x001a, t01=0x00c2}
0x02974…0297e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x00da}
0x0297e…029b0 Head {h00=0x002e, h01=0x0029, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x001a, t01=0x00e4}
0x029b0…029e2 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001a, t01=0x0116}
0x029e2…02a14 Head {h00=0x002e, h01=0x002a, text=»* I LENGTH I«, t00=0x001a, t01=0x0148}
0x02a14…02a46 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001a, t01=0x017a}
0x02a46…02a78 Head {h00=0x002e, h01=0x002a, text=»* I TTMJOB I«, t00=0x001b, t01=0x001c}
0x02a78…02aaa Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001b, t01=0x004e}
0x02aaa…02adc Head {h00=0x002e, h01=0x002a, text=»* I MONITOR TASKS I«, t00=0x001b, t01=0x0080}
0x02adc…02b0e Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001b, t01=0x00b2}
0x02b0e…02b40 Head {h00=0x002e, h01=0x002a, text=»* I USER TASKS I«, t00=0x001b, t01=0x00e4}
0x02b40…02b72 Head {h00=0x002e, h01=0x0029, text=»* __________________________ «, t00=0x001b, t01=0x0116}
0x02b72…02b7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0148}
0x02b7c…02b8a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001b, t01=0x0152}
0x02b8a…02b9e Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x001b, t01=0x0160}
0x02b9e…02bd8 Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x001b, t01=0x0174}
0x02bd8…02c04 Head {h00=0x0028, h01=0x0024, text=» LD A7,SCTSFA GET START OF FREE AREA«, t00=0x001c, t01=0x001e}
0x02c04…02c1c Head {h00=0x0014, h01=0x000f, text=» LDR A6,A7 SAVE «, t00=0x001c, t01=0x004a}
0x02c1c…02c46 Head {h00=0x0026, h01=0x0022, text=» LDKL A2,TTMJOB GET TTMJOB ADDRESS«, t00=0x001c, t01=0x0062}
0x02c46…02c6a Head {h00=0x0020, h01=0x001b, text=» ST A2,2,A7 STORE IN TC:TAB «, t00=0x001c, t01=0x008c}
0x02c6a…02c98 Head {h00=0x002a, h01=0x0025, text=» ADK A7,4 CONTINUE WITH MONITOR TASKS «, t00=0x001c, t01=0x00b0}
0x02c98…02cc4 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTOPT ANY OPTIONS AVALIABLE?«, t00=0x001c, t01=0x00de}
0x02cc4…02cde Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT15 NO! «, t00=0x001c, t01=0x010a}
0x02cde…02d22 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x0124}
0x02d22…02d66 Head {h00=0x0040, h01=0x0050, text=»* RESERV ENTRIES IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * «, t00=0x001c, t01=0x0168}
0x02d66…02daa Head {h00=0x0040, h01=0x0050, text=»* - TO BE PROVIDED * «, t00=0x001d, t01=0x001c}
0x02daa…02dee Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001d, t01=0x0060}
0x02dee…02e02 Head {h00=0x0010, h01=0x0050, text=»BTCT15 EQU *«, t00=0x001d, t01=0x00a4}
0x02e02…02e28 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTDMT DATA MANAGEMENT?«, t00=0x001d, t01=0x00b8}
0x02e28…02e42 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT30 NO! «, t00=0x001d, t01=0x00de}
0x02e42…02e60 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE SCTDMT«, t00=0x001d, t01=0x00f8}
0x02e60…02e7c Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 DMTASK D0?«, t00=0x001d, t01=0x0116}
0x02e7c…02e96 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT20 NO! «, t00=0x001d, t01=0x0132}
0x02e96…02ec2 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DMTASK D0«, t00=0x001d, t01=0x014c}
0x02ec2…02ed6 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x001d, t01=0x0178}
0x02ed6…02ef4 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 GET SCTDMT «, t00=0x001d, t01=0x018c}
0x02ef4…02f12 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DM-TASK D1? «, t00=0x001e, t01=0x001a}
0x02f12…02f2c Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT25 NO! «, t00=0x001e, t01=0x0038}
0x02f2c…02f5a Head {h00=0x002a, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DM-TASK D0 «, t00=0x001e, t01=0x0052}
0x02f5a…02f6e Head {h00=0x0010, h01=0x0050, text=»BTCT25 EQU *«, t00=0x001e, t01=0x0080}
0x02f6e…02f8c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 GET SCTDMT «, t00=0x001e, t01=0x0094}
0x02f8c…02fa8 Head {h00=0x0018, h01=0x0050, text=» ANK A2,4 DMTASK D2?«, t00=0x001e, t01=0x00b2}
0x02fa8…02fc2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT30 NO! «, t00=0x001e, t01=0x00ce}
0x02fc2…02fee Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DMTASK D2«, t00=0x001e, t01=0x00e8}
0x02fee…03002 Head {h00=0x0010, h01=0x0050, text=»BTCT30 EQU *«, t00=0x001e, t01=0x0114}
0x03002…0300c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0128}
0x0300c…0304a Head {h00=0x003a, h01=0x0035, text=»* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB «, t00=0x001e, t01=0x0132}
0x0304a…03054 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0170}
0x03054…03086 Head {h00=0x002e, h01=0x0029, text=»* A11 - POINTER TO TASK DEFINITION BLOCK «, t00=0x001e, t01=0x017a}
0x03086…03090 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x001c}
0x03090…030c6 Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x001f, t01=0x0026}
0x030c6…030f6 Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x001f, t01=0x005c}
0x030f6…03118 Head {h00=0x001e, h01=0x001a, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x001f, t01=0x008c}
0x03118…03144 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x001f, t01=0x00ae}
0x03144…0315e Head {h00=0x0016, h01=0x0011, text=» RF(E) BTCT35 YES «, t00=0x001f, t01=0x00da}
0x0315e…03180 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x001f, t01=0x00f4}
0x03180…03198 Head {h00=0x0014, h01=0x0010, text=» CALL ERROR HALT«, t00=0x001f, t01=0x0116}
0x03198…031ac Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x001f, t01=0x012e}
0x031ac…031b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0142}
0x031b6…031ea Head {h00=0x0030, h01=0x002c, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x001f, t01=0x014c}
0x031ea…031f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0180}
0x031f4…03208 Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x001f, t01=0x018a}
0x03208…03230 Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0020, t01=0x000e}
0x03230…03244 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0020, t01=0x0036}
0x03244…03274 Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0020, t01=0x004a}
0x03274…0329e Head {h00=0x0026, h01=0x0050, text=» CW A7,SCTEFA CHECK IF MEMORY LEFT«, t00=0x0020, t01=0x007a}
0x0329e…032ba Head {h00=0x0018, h01=0x0050, text=» RF(NE) BTCT55 YES! «, t00=0x0020, t01=0x00a4}
0x032ba…032d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0020, t01=0x00c0}
0x032d0…032fc Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0020, t01=0x00d6}
0x032fc…03310 Head {h00=0x0010, h01=0x0050, text=»BTCT55 EQU *«, t00=0x0020, t01=0x0102}
0x03310…0333c Head {h00=0x0028, h01=0x0024, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0020, t01=0x0116}
0x0333c…03356 Head {h00=0x0016, h01=0x0011, text=» RB(P) BTCT50 YES «, t00=0x0020, t01=0x0142}
0x03356…0337e Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0020, t01=0x015c}
0x0337e…033aa Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0020, t01=0x0184}
0x033aa…033c4 Head {h00=0x0016, h01=0x0011, text=» RB(E) BTCT40 YES «, t00=0x0021, t01=0x0020}
0x033c4…033ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x003a}
0x033ce…03406 Head {h00=0x0034, h01=0x0030, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0021, t01=0x0044}
0x03406…03410 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x007c}
0x03410…0343e Head {h00=0x002a, h01=0x0025, text=» ST A7,SCTSFA UPDATE END OF FREE AREA «, t00=0x0021, t01=0x0086}
0x0343e…03462 Head {h00=0x0020, h01=0x001b, text=» SUR A7,A6 LENGTH OF TC:TAB «, t00=0x0021, t01=0x00b4}
0x03462…0348c Head {h00=0x0026, h01=0x0021, text=» STR A7,A6 STORE LENGTH IN TC:TAB «, t00=0x0021, t01=0x00d8}
0x0348c…034ba Head {h00=0x002a, h01=0x0050, text=» ST A6,SCTTCT STORE POINTER TO TC:TAB «, t00=0x0021, t01=0x0102}
0x034ba…034ca Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0021, t01=0x0130}
0x034ca…034d8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0021, t01=0x0140}
0x034d8…03512 Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x0021, t01=0x014e}
0x03512…0354c Head {h00=0x0036, h01=0x0031, text=»* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * «, t00=0x0021, t01=0x0188}
0x0354c…03586 Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x0022, t01=0x0032}
0x03586…03590 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x006c}
0x03590…035be Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0022, t01=0x0076}
0x035be…035ec Head {h00=0x002a, h01=0x0050, text=»* SCTTCT - ADDRESS TO TC:TAB «, t00=0x0022, t01=0x00a4}
0x035ec…03622 Head {h00=0x0032, h01=0x002d, text=»* SCTDMT - DATA MANAGEMENT INDICATOR «, t00=0x0022, t01=0x00d2}
0x03622…0362c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0108}
0x0362c…0363c Head {h00=0x000c, h01=0x000b, text=»* EXIT:«, t00=0x0022, t01=0x0112}
0x0363c…03646 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0122}
0x03646…03672 Head {h00=0x0028, h01=0x0023, text=»* WORK REGISTERS: A1,A2,A3,A7,A12 «, t00=0x0022, t01=0x012c}
0x03672…0367c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0158}
0x0367c…0369a Head {h00=0x001a, h01=0x0016, text=»* SUBROUTINES: DMTGEN«, t00=0x0022, t01=0x0162}
0x0369a…036a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0180}
0x036a4…036b8 Head {h00=0x0010, h01=0x0050, text=»B:DMTT EQU *«, t00=0x0022, t01=0x018a}
0x036b8…036e6 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0023, t01=0x000e}
0x036e6…03712 Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTTCT GET POINTER TO TC:TAB «, t00=0x0023, t01=0x003c}
0x03712…03738 Head {h00=0x0022, h01=0x001d, text=» ADK A7,4 FIRST DM-TASK ENTRY «, t00=0x0023, t01=0x0068}
0x03738…03760 Head {h00=0x0024, h01=0x001f, text=» LD A2,SCTDMT DATA MANAGEMENT? «, t00=0x0023, t01=0x008e}
0x03760…0377a Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTTEX NO! «, t00=0x0023, t01=0x00b6}
0x0377a…037ac Head {h00=0x002e, h01=0x0029, text=» LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR «, t00=0x0023, t01=0x00d0}
0x037ac…037de Head {h00=0x002e, h01=0x002a, text=» LD A6,SCTDMI GET INDEX BUFFER RECORD SIZE«, t00=0x0023, t01=0x0102}
0x037de…037fc Head {h00=0x001a, h01=0x0015, text=» ANK A2,1 DM-TASK D0? «, t00=0x0023, t01=0x0134}
0x037fc…03816 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT10 NO! «, t00=0x0023, t01=0x0152}
0x03816…03836 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,'#D' DM-TASK ID«, t00=0x0023, t01=0x016c}
0x03836…0384a Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0023, t01=0x018c}
0x0384a…0385e Head {h00=0x0010, h01=0x000c, text=»DMTT10 EQU *«, t00=0x0024, t01=0x0010}
0x0385e…0388e Head {h00=0x002c, h01=0x0028, text=» LDR A2,A3 GET DATA MANAGEMENT INDICATOR«, t00=0x0024, t01=0x0024}
0x0388e…038ac Head {h00=0x001a, h01=0x0015, text=» ANK A2,2 DM-TASK D1? «, t00=0x0024, t01=0x0054}
0x038ac…038c6 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT20 NO! «, t00=0x0024, t01=0x0072}
0x038c6…038e4 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'#E' TASK ID «, t00=0x0024, t01=0x008c}
0x038e4…038f8 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0024, t01=0x00aa}
0x038f8…0390c Head {h00=0x0010, h01=0x000c, text=»DMTT20 EQU *«, t00=0x0024, t01=0x00be}
0x0390c…0393c Head {h00=0x002c, h01=0x0028, text=» LDR A2,A3 GET DATA MANAGEMENT INDICATOR«, t00=0x0024, t01=0x00d2}
0x0393c…0395a Head {h00=0x001a, h01=0x0015, text=» ANK A2,4 DM-TASK D2? «, t00=0x0024, t01=0x0102}
0x0395a…03974 Head {h00=0x0016, h01=0x0011, text=» RF(Z) DMTT30 NO! «, t00=0x0024, t01=0x0120}
0x03974…03992 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,'#F' TASK ID «, t00=0x0024, t01=0x013a}
0x03992…039a6 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x0024, t01=0x0158}
0x039a6…039ba Head {h00=0x0010, h01=0x000c, text=»DMTT30 EQU *«, t00=0x0024, t01=0x016c}
0x039ba…039ce Head {h00=0x0010, h01=0x000c, text=»DMTTEX EQU *«, t00=0x0024, t01=0x0180}
0x039ce…039de (37, 0, 398) Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0025, t01=0x0004}
0x039de…039ec Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0025, t01=0x0014}
0x039ec…03a26 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0025, t01=0x0022}
0x03a26…03a60 Head {h00=0x0036, h01=0x0032, text=»* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE *«, t00=0x0025, t01=0x005c}
0x03a60…03a9a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0025, t01=0x0096}
0x03a9a…03aa4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x00d0}
0x03aa4…03ac4 Head {h00=0x001c, h01=0x0017, text=»* ENTRY: A1 - TASK ID «, t00=0x0025, t01=0x00da}
0x03ac4…03af4 Head {h00=0x002c, h01=0x0028, text=»* A6 - INDEX RECORD BUFFER SIZE«, t00=0x0025, t01=0x00fa}
0x03af4…03b28 Head {h00=0x0030, h01=0x002c, text=»* A7 - TCTAB ENTRY FOR CURRENT TASK«, t00=0x0025, t01=0x012a}
0x03b28…03b52 Head {h00=0x0026, h01=0x0022, text=»* A12 - START OF FREE AREA«, t00=0x0025, t01=0x015e}
0x03b52…03b5c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x0188}
0x03b5c…03b6c (38, 0, 400) Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x0026, t01=0x0004}
0x03b6c…03b76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0014}
0x03b76…03b90 Head {h00=0x0016, h01=0x0012, text=»* WORK REGISTERS:«, t00=0x0026, t01=0x001e}
0x03b90…03b9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0038}
0x03b9a…03bb2 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0026, t01=0x0042}
0x03bb2…03bbc Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0026, t01=0x005a}
0x03bbc…03bd0 Head {h00=0x0010, h01=0x0050, text=»DMTGEN EQU *«, t00=0x0026, t01=0x0064}
0x03bd0…03bf6 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0026, t01=0x0078}
0x03bf6…03c14 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x0026, t01=0x009e}
0x03c14…03c2e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG20 NO! «, t00=0x0026, t01=0x00bc}
0x03c2e…03c52 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET PAGE POINTER«, t00=0x0026, t01=0x00d6}
0x03c52…03c66 Head {h00=0x0010, h01=0x0050, text=»DMTG10 EQU *«, t00=0x0026, t01=0x00fa}
0x03c66…03c86 Head {h00=0x001c, h01=0x0050, text=» CWK A4,/4000 LAST PAGE?«, t00=0x0026, t01=0x010e}
0x03c86…03ca0 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMTG30 YES!«, t00=0x0026, t01=0x012e}
0x03ca0…03cc6 Head {h00=0x0022, h01=0x0050, text=» STR A4,A12 STORE PAGE POINTER«, t00=0x0026, t01=0x0148}
0x03cc6…03cf2 Head {h00=0x0028, h01=0x0050, text=» ADKL A4,/400 INCREMENT PAGE POINTER«, t00=0x0026, t01=0x016e}
0x03cf2…03d22 Head {h00=0x002c, h01=0x0050, text=» ADKL A12,2 INCREMENT MMU ENTRY POINTER «, t00=0x0027, t01=0x000a}
0x03d22…03d34 Head {h00=0x000e, h01=0x0050, text=» RB DMTG10«, t00=0x0027, t01=0x003a}
0x03d34…03d48 Head {h00=0x0010, h01=0x0050, text=»DMTG20 EQU *«, t00=0x0027, t01=0x004c}
0x03d48…03d6e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0027, t01=0x0060}
0x03d6e…03d8c Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x0027, t01=0x0086}
0x03d8c…03da6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG40 NO! «, t00=0x0027, t01=0x00a4}
0x03da6…03dba Head {h00=0x0010, h01=0x0050, text=»DMTG30 EQU *«, t00=0x0027, t01=0x00be}
0x03dba…03de4 Head {h00=0x0026, h01=0x0050, text=» ADKL A12,2 SEGMENT BLOCK ADDRESS «, t00=0x0027, t01=0x00d2}
0x03de4…03df8 Head {h00=0x0010, h01=0x0050, text=»DMTG40 EQU *«, t00=0x0027, t01=0x00fc}
0x03df8…03e2e Head {h00=0x0032, h01=0x002e, text=» STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB«, t00=0x0027, t01=0x0110}
0x03e2e…03e54 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0027, t01=0x0146}
0x03e54…03e82 Head {h00=0x002a, h01=0x0050, text=» ST A1,TTB:ID,A12 TASK IDENTIFICATION «, t00=0x0027, t01=0x016c}
0x03e82…03ea4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/0031 TASK LEVEL «, t00=0x0028, t01=0x000a}
0x03ea4…03ec4 Head {h00=0x001c, h01=0x0050, text=» ST A1,TTB:ST,A12 STORE «, t00=0x0028, t01=0x002c}
0x03ec4…03eee Head {h00=0x0026, h01=0x0050, text=» SLL A1,10 MOVE LEVEL TO LEFT BYTE«, t00=0x0028, t01=0x004c}
0x03eee…03f14 Head {h00=0x0022, h01=0x0050, text=» ORKL A1,/00C0 PROGRAM STATUS «, t00=0x0028, t01=0x0076}
0x03f14…03f3c Head {h00=0x0024, h01=0x0050, text=» ST A1,TTB:PW,A12 STORE IN TTAB «, t00=0x0028, t01=0x009c}
0x03f3c…03f62 Head {h00=0x0022, h01=0x001d, text=» ADKL A12,40 TERMINAL DEVICES «, t00=0x0028, t01=0x00c4}
0x03f62…03f7a Head {h00=0x0014, h01=0x0010, text=» LDK A1,6 LENGTH«, t00=0x0028, t01=0x00ea}
0x03f7a…03f94 Head {h00=0x0016, h01=0x0011, text=» STR A1,A12 STORE «, t00=0x0028, t01=0x0102}
0x03f94…03fb6 Head {h00=0x001e, h01=0x0019, text=» ADKL A12,40 TASK STACK+2 «, t00=0x0028, t01=0x011c}
0x03fb6…03fe6 Head {h00=0x002c, h01=0x0027, text=» LDR A1,A6 GET INDEX RECORD BUFFER SIZE «, t00=0x0028, t01=0x013e}
0x03fe6…04006 Head {h00=0x001c, h01=0x0017, text=» SLL A1,2 MULTIPLY BY 4 «, t00=0x0028, t01=0x016e}
0x04006…04032 Head {h00=0x0028, h01=0x0050, text=» ADR A12,A1 RESERV SPACE FOR BUFFERS«, t00=0x0028, t01=0x018e}
0x04032…04048 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0029, t01=0x002a}
0x04048…0405a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0029, t01=0x0040}
0x0405a…04072 Head {h00=0x0014, h01=0x0050, text=»DMTG50 ADK A2,2 «, t00=0x0029, t01=0x0052}
0x04072…040a0 Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x0029, t01=0x006a}
0x040a0…040ba Head {h00=0x0016, h01=0x0050, text=» RF(NE) DMTG60 NO!«, t00=0x0029, t01=0x0098}
0x040ba…040d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0029, t01=0x00b2}
0x040d0…040fc Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0029, t01=0x00c8}
0x040fc…04116 Head {h00=0x0016, h01=0x0050, text=»DMTG60 CWR A2,A12 «, t00=0x0029, t01=0x00f4}
0x04116…0412c Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMTG50«, t00=0x0029, t01=0x010e}
0x0412c…0415c Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0029, t01=0x0124}
0x0415c…0416c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0154}
0x0416c…0417a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0029, t01=0x0164}
0x0417a…041a0 Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x0029, t01=0x0172}
0x041a0…041c6 Head {h00=0x0022, h01=0x001e, text=»* B:TT - BUILD TASK TABLES *«, t00=0x002a, t01=0x0008}
0x041c6…041ec Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x002a, t01=0x002e}
0x041ec…041f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0054}
0x041f6…04216 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x002a, t01=0x005e}
0x04216…04220 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x007e}
0x04220…04258 Head {h00=0x0034, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA «, t00=0x002a, t01=0x0088}
0x04258…04262 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x00c0}
0x04262…0429e Head {h00=0x0038, h01=0x0034, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x002a, t01=0x00ca}
0x0429e…042a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0106}
0x042a8…042ca Head {h00=0x001e, h01=0x0019, text=»* WORK REGISERS: A1-A12 «, t00=0x002a, t01=0x0110}
0x042ca…042d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0132}
0x042d4…04310 Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x002a, t01=0x013c}
0x04310…0431a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0178}
0x0431a…04328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0182}
0x04328…04354 Head {h00=0x0028, h01=0x0023, text=»* TASK TABLE LAYOUT «, t00=0x002a, t01=0x0190}
0x04354…04382 Head {h00=0x002a, h01=0x0026, text=»* ________________________«, t00=0x002b, t01=0x002c}
0x04382…043b0 Head {h00=0x002a, h01=0x0026, text=»* I MMU I«, t00=0x002b, t01=0x005a}
0x043b0…043de Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x002b, t01=0x0088}
0x043de…0440c Head {h00=0x002a, h01=0x0026, text=»* I 16 I«, t00=0x002b, t01=0x00b6}
0x0440c…0443a Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x002b, t01=0x00e4}
0x0443a…04468 Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x002b, t01=0x0112}
0x04468…04496 Head {h00=0x002a, h01=0x0026, text=»* TTB:SB I SEGMENT POINTER I«, t00=0x002b, t01=0x0140}
0x04496…044c4 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002b, t01=0x016e}
0x044c4…044f2 Head {h00=0x002a, h01=0x0026, text=»* TASK ENTRY I QUEUE I«, t00=0x002c, t01=0x000c}
0x044f2…04520 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x003a}
0x04520…0454e Head {h00=0x002a, h01=0x0026, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x002c, t01=0x0068}
0x0454e…0457c Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x0096}
0x0457c…045aa Head {h00=0x002a, h01=0x0026, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x002c, t01=0x00c4}
0x045aa…045d8 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x00f2}
0x045d8…04606 Head {h00=0x002a, h01=0x0026, text=»* TTB:PP I PENDING QUEUE I«, t00=0x002c, t01=0x0120}
0x04606…04634 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002c, t01=0x014e}
0x04634…04662 Head {h00=0x002a, h01=0x0026, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x002c, t01=0x017c}
0x04662…04690 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002d, t01=0x001a}
0x04690…046be Head {h00=0x002a, h01=0x0026, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x002d, t01=0x0048}
0x046be…046ec Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002d, t01=0x0076}
0x046ec…0471a Head {h00=0x002a, h01=0x0026, text=»* I REGISTER I«, t00=0x002d, t01=0x00a4}
0x0471a…04748 Head {h00=0x002a, h01=0x0026, text=»* I SAVE I«, t00=0x002d, t01=0x00d2}
0x04748…04776 Head {h00=0x002a, h01=0x0026, text=»* I AREA I«, t00=0x002d, t01=0x0100}
0x04776…047a4 Head {h00=0x002a, h01=0x0026, text=»* I 14 I«, t00=0x002d, t01=0x012e}
0x047a4…047d2 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x002d, t01=0x015c}
0x047d2…04800 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x002d, t01=0x018a}
0x04800…0482e Head {h00=0x002a, h01=0x0026, text=»* TTB:TD I TASK I«, t00=0x002e, t01=0x0028}
0x0482e…0485c Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x002e, t01=0x0056}
0x0485c…0488a Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x002e, t01=0x0084}
0x0488a…048b8 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x002e, t01=0x00b2}
0x048b8…048e6 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x002e, t01=0x00e0}
0x048e6…04914 Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x002e, t01=0x010e}
0x04914…0491e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002e, t01=0x013c}
0x0491e…04928 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002e, t01=0x0146}
0x04928…0495e Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x002e, t01=0x0150}
0x0495e…04992 Head {h00=0x0030, h01=0x002c, text=»* ______________________________«, t00=0x002e, t01=0x0186}
0x04992…049c6 Head {h00=0x0030, h01=0x002c, text=»* I LENGTH I«, t00=0x002f, t01=0x002a}
0x049c6…049fa Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x005e}
0x049fa…04a2e Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILCODE I«, t00=0x002f, t01=0x0092}
0x04a2e…04a62 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x00c6}
0x04a62…04a96 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x002f, t01=0x00fa}
0x04a96…04aca Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x002f, t01=0x012e}
0x04aca…04afe Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x002f, t01=0x0162}
0x04afe…04b32 Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x0030, t01=0x0008}
0x04b32…04b66 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x003c}
0x04b66…04b9a Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILECODE I«, t00=0x0030, t01=0x0070}
0x04b9a…04bce Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x00a4}
0x04bce…04c02 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x0030, t01=0x00d8}
0x04c02…04c36 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0030, t01=0x010c}
0x04c36…04c44 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0030, t01=0x0140}
0x04c44…04c56 Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0030, t01=0x014e}
0x04c56…04c84 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0030, t01=0x0160}
0x04c84…04cbe Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x0030, t01=0x018e}
0x04cbe…04cf0 Head {h00=0x002e, h01=0x0050, text=» LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES«, t00=0x0031, t01=0x0038}
0x04cf0…04d10 Head {h00=0x001c, h01=0x0050, text=» SLL A2,2 MULTIPLY BY 4 «, t00=0x0031, t01=0x006a}
0x04d10…04d4a Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE «, t00=0x0031, t01=0x008a}
0x04d4a…04d5e Head {h00=0x0010, h01=0x0050, text=»BTT10 EQU * «, t00=0x0031, t01=0x00c4}
0x04d5e…04d86 Head {h00=0x0024, h01=0x0020, text=» LCR A2,A11 GET FIRST BLOCK TYPE«, t00=0x0031, t01=0x00d8}
0x04d86…04db2 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0031, t01=0x0100}
0x04db2…04dca Head {h00=0x0014, h01=0x0010, text=» RF(E) BTT20 YES«, t00=0x0031, t01=0x012c}
0x04dca…04dec Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0031, t01=0x0144}
0x04dec…04e00 Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0031, t01=0x0166}
0x04e00…04e14 Head {h00=0x0010, h01=0x0050, text=»BTT20 EQU * «, t00=0x0031, t01=0x017a}
0x04e14…04e1e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0031, t01=0x018e}
0x04e1e…04e4a Head {h00=0x0028, h01=0x0024, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x0032, t01=0x0008}
0x04e4a…04e54 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0034}
0x04e54…04e68 Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0032, t01=0x003e}
0x04e68…04e86 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x0032, t01=0x0052}
0x04e86…04e90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0070}
0x04e90…04eb2 Head {h00=0x001e, h01=0x001a, text=»* GET TASK ID START VALUE«, t00=0x0032, t01=0x007a}
0x04eb2…04ebc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x009c}
0x04ebc…04ee8 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x0032, t01=0x00a6}
0x04ee8…04f0c Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0032, t01=0x00d2}
0x04f0c…04f3a Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x0032, t01=0x00f6}
0x04f3a…04f6c Head {h00=0x002e, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TASK ID START VALUE«, t00=0x0032, t01=0x0124}
0x04f6c…04f82 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0032, t01=0x0156}
0x04f82…04f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x016c}
0x04f8c…04fb4 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x0032, t01=0x0176}
0x04fb4…04fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x000e}
0x04fbe…04fee Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x0033, t01=0x0018}
0x04fee…05012 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0033, t01=0x0048}
0x05012…05044 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x0033, t01=0x006c}
0x05044…0506c Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x0033, t01=0x009e}
0x0506c…0508a Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x0033, t01=0x00c6}
0x0508a…05096 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00e4}
0x05096…050a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00f0}
0x050a4…050ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x00fe}
0x050ae…050c8 Head {h00=0x0016, h01=0x0011, text=»* GET TASK LEVEL «, t00=0x0033, t01=0x0108}
0x050c8…050d2 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0033, t01=0x0122}
0x050d2…05106 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x0033, t01=0x012c}
0x05106…0512a Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0033, t01=0x0160}
0x0512a…0515e Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x0033, t01=0x0184}
0x0515e…05184 Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0034, t01=0x0028}
0x05184…051a2 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE24,A13 SAVE«, t00=0x0034, t01=0x004e}
0x051a2…051ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x006c}
0x051ac…051f2 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE «, t00=0x0034, t01=0x0076}
0x051f2…051fc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00bc}
0x051fc…05224 Head {h00=0x0024, h01=0x0020, text=» LDKL A10,TTB:TD STANDARD LENGTH«, t00=0x0034, t01=0x00c6}
0x05224…0524a Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x0034, t01=0x00ee}
0x0524a…05268 Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x0034, t01=0x0114}
0x05268…05280 Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT25 NO «, t00=0x0034, t01=0x0132}
0x05280…052b0 Head {h00=0x002c, h01=0x0027, text=» SUKL A10,TTB:MT 16+1 WORD EXTRA IF MMU «, t00=0x0034, t01=0x014a}
0x052b0…052e6 Head {h00=0x0032, h01=0x002d, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x0034, t01=0x017a}
0x052e6…052f8 Head {h00=0x000e, h01=0x0009, text=» RF BTT30 «, t00=0x0035, t01=0x0020}
0x052f8…0530c Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x0035, t01=0x0032}
0x0530c…05332 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x0035, t01=0x0046}
0x05332…05350 Head {h00=0x001a, h01=0x0050, text=» ANK A5,2 DISC PAGING?«, t00=0x0035, t01=0x006c}
0x05350…05368 Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT30 NO «, t00=0x0035, t01=0x008a}
0x05368…0539e Head {h00=0x0032, h01=0x002e, text=» SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING«, t00=0x0035, t01=0x00a2}
0x0539e…053d2 Head {h00=0x0030, h01=0x002c, text=» SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD«, t00=0x0035, t01=0x00d8}
0x053d2…053e6 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x0035, t01=0x010c}
0x053e6…053f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0120}
0x053f0…0542e Head {h00=0x003a, h01=0x0050, text=»* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE«, t00=0x0035, t01=0x012a}
0x0542e…05438 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0168}
0x05438…0544c Head {h00=0x0010, h01=0x000b, text=» ADKL A10,2 «, t00=0x0035, t01=0x0172}
0x0544c…05456 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0186}
0x05456…05496 Head {h00=0x003c, h01=0x0037, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x0035, t01=0x0190}
0x05496…054bc Head {h00=0x0022, h01=0x0050, text=»* OF TASK SAVE01URATION TABLE«, t00=0x0036, t01=0x0040}
0x054bc…054c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x0066}
0x054c6…054e4 Head {h00=0x001a, h01=0x0016, text=» LDK A6,0 RESET LENGTH«, t00=0x0036, t01=0x0070}
0x054e4…05522 Head {h00=0x003a, h01=0x0035, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x0036, t01=0x008e}
0x05522…0555a Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0036, t01=0x00cc}
0x0555a…05582 Head {h00=0x0024, h01=0x0020, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x0036, t01=0x0104}
0x05582…0559a Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0036, t01=0x012c}
0x0559a…055ae Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x0036, t01=0x0144}
0x055ae…055c2 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT40«, t00=0x0036, t01=0x0158}
0x055c2…055ee Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0036, t01=0x016c}
0x055ee…05618 Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0037, t01=0x0008}
0x05618…05648 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0037, t01=0x0032}
0x05648…0565c Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0037, t01=0x0062}
0x0565c…0566e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0037, t01=0x0076}
0x0566e…05680 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0037, t01=0x0088}
0x05680…05696 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x0037, t01=0x009a}
0x05696…056ac Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0037, t01=0x00b0}
0x056ac…056d6 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x0037, t01=0x00c6}
0x056d6…056ea Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x0037, t01=0x00f0}
0x056ea…05710 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x0037, t01=0x0104}
0x05710…05738 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0037, t01=0x012a}
0x05738…05760 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0037, t01=0x0152}
0x05760…05786 Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0037, t01=0x017a}
0x05786…057b2 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x0038, t01=0x0010}
0x057b2…057e4 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x0038, t01=0x003c}
0x057e4…05808 Head {h00=0x0020, h01=0x001b, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x0038, t01=0x006e}
0x05808…05834 Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x0038, t01=0x0092}
0x05834…05846 Head {h00=0x000e, h01=0x0009, text=» RB BTT35 «, t00=0x0038, t01=0x00be}
0x05846…05854 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00d0}
0x05854…05868 Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x0038, t01=0x00de}
0x05868…05872 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x00f2}
0x05872…058b4 Head {h00=0x003e, h01=0x003a, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x0038, t01=0x00fc}
0x058b4…058d8 Head {h00=0x0020, h01=0x0050, text=»* TASK SAVE01URATION TABLE «, t00=0x0038, t01=0x013e}
0x058d8…058e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0038, t01=0x0162}
0x058e2…0591c Head {h00=0x0036, h01=0x0031, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0038, t01=0x016c}
0x0591c…05940 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x0039, t01=0x0016}
0x05940…05958 Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0039, t01=0x003a}
0x05958…0596c Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x0039, t01=0x0052}
0x0596c…05990 Head {h00=0x0020, h01=0x001b, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x0039, t01=0x0066}
0x05990…059bc Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0039, t01=0x008a}
0x059bc…059e6 Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0039, t01=0x00b6}
0x059e6…05a16 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0039, t01=0x00e0}
0x05a16…05a2a Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0039, t01=0x0110}
0x05a2a…05a3c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0039, t01=0x0124}
0x05a3c…05a4e Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0039, t01=0x0136}
0x05a4e…05a64 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x0039, t01=0x0148}
0x05a64…05a7a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0039, t01=0x015e}
0x05a7a…05aa4 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x0039, t01=0x0174}
0x05aa4…05ab8 Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x003a, t01=0x000e}
0x05ab8…05ade Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x003a, t01=0x0022}
0x05ade…05b06 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x003a, t01=0x0048}
0x05b06…05b2e Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x003a, t01=0x0070}
0x05b2e…05b54 Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x003a, t01=0x0098}
0x05b54…05b80 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x003a, t01=0x00be}
0x05b80…05bb2 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x003a, t01=0x00ea}
0x05bb2…05bd2 Head {h00=0x001c, h01=0x0017, text=» ADKL A9,SDC NEXT CLASS «, t00=0x003a, t01=0x011c}
0x05bd2…05bfe Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x003a, t01=0x013c}
0x05bfe…05c10 Head {h00=0x000e, h01=0x0009, text=» RB BTT50 «, t00=0x003a, t01=0x0168}
0x05c10…05c24 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x003a, t01=0x017a}
0x05c24…05c5c Head {h00=0x0034, h01=0x0050, text=» LD A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV «, t00=0x003a, t01=0x018e}
0x05c5c…05c88 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A7 ADD TO TOTAL TTAB LENGTH«, t00=0x003b, t01=0x0036}
0x05c88…05cba Head {h00=0x002e, h01=0x0050, text=» ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH «, t00=0x003b, t01=0x0062}
0x05cba…05ce0 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x003b, t01=0x0094}
0x05ce0…05d16 Head {h00=0x0032, h01=0x0050, text=» LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x003b, t01=0x00ba}
0x05d16…05d52 Head {h00=0x0038, h01=0x0050, text=» LD A8,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x003b, t01=0x00f0}
0x05d52…05d66 Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x003b, t01=0x012c}
0x05d66…05d7a Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT70«, t00=0x003b, t01=0x0140}
0x05d7a…05d84 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003b, t01=0x0154}
0x05d84…05dc0 Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x003b, t01=0x015e}
0x05dc0…05dca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x000a}
0x05dca…05de4 Head {h00=0x0016, h01=0x0011, text=» ST A6,TTB:TD,A12 «, t00=0x003c, t01=0x0014}
0x05de4…05dee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x002e}
0x05dee…05e2c Head {h00=0x003a, h01=0x0036, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x003c, t01=0x0038}
0x05e2c…05e36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x0076}
0x05e36…05e5e Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE24,A13 GET TASK LEVEL«, t00=0x003c, t01=0x0080}
0x05e5e…05e86 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x003c, t01=0x00a8}
0x05e86…05e90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x00d0}
0x05e90…05ed0 Head {h00=0x003c, h01=0x0037, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x003c, t01=0x00da}
0x05ed0…05eda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003c, t01=0x011a}
0x05eda…05f04 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x003c, t01=0x0124}
0x05f04…05f1a Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x003c, t01=0x014e}
0x05f1a…05f40 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x003c, t01=0x0164}
0x05f40…05f5e Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x003c, t01=0x018a}
0x05f5e…05f82 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x003d, t01=0x0018}
0x05f82…05faa Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x003d, t01=0x003c}
0x05faa…05fb4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x0064}
0x05fb4…05fe0 Head {h00=0x0028, h01=0x0024, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x003d, t01=0x006e}
0x05fe0…05fea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x009a}
0x05fea…06014 Head {h00=0x0026, h01=0x0050, text=» LD A5,SAVE16,A13 GET THIS TASK ID«, t00=0x003d, t01=0x00a4}
0x06014…0603c Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x003d, t01=0x00ce}
0x0603c…06060 Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x003d, t01=0x00f6}
0x06060…0609a Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS «, t00=0x003d, t01=0x011a}
0x0609a…060b0 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x003d, t01=0x0154}
0x060b0…060ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x016a}
0x060ba…060e6 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x003d, t01=0x0174}
0x060e6…060f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0010}
0x060f0…0611e Head {h00=0x002a, h01=0x0050, text=» LD A5,SAVE17,A13 GET TCL START VALUE «, t00=0x003e, t01=0x001a}
0x0611e…06144 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x003e, t01=0x0048}
0x06144…06164 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x003e, t01=0x006e}
0x06164…06182 Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x003e, t01=0x008e}
0x06182…0618e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00ac}
0x0618e…061be Head {h00=0x002c, h01=0x0027, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x003e, t01=0x00b8}
0x061be…061e4 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x003e, t01=0x00e8}
0x061e4…0621a Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x003e, t01=0x010e}
0x0621a…06252 Head {h00=0x0034, h01=0x002f, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x003e, t01=0x0144}
0x06252…0628c Head {h00=0x0036, h01=0x0032, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x003e, t01=0x017c}
0x0628c…0629e Head {h00=0x000e, h01=0x0009, text=» RB BTT60 «, t00=0x003f, t01=0x0026}
0x0629e…062ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0038}
0x062ac…062c0 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x003f, t01=0x0046}
0x062c0…062ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003f, t01=0x005a}
0x062ca…062f8 Head {h00=0x002a, h01=0x0026, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x003f, t01=0x0064}
0x062f8…06302 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003f, t01=0x0092}
0x06302…06328 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x003f, t01=0x009c}
0x06328…06346 Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x003f, t01=0x00c2}
0x06346…0635e Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT80 NO «, t00=0x003f, t01=0x00e0}
0x0635e…0638a Head {h00=0x0028, h01=0x0023, text=» ADKL A12,TTB:MT SUBTRACT 16+1 WORD «, t00=0x003f, t01=0x00f8}
0x0638a…0639c Head {h00=0x000e, h01=0x0009, text=» RF BTT90 «, t00=0x003f, t01=0x0124}
0x0639c…063b0 Head {h00=0x0010, h01=0x0050, text=»BTT80 EQU * «, t00=0x003f, t01=0x0136}
0x063b0…063d6 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x003f, t01=0x014a}
0x063d6…063f4 Head {h00=0x001a, h01=0x0050, text=» ANK A5,2 DISC PAGING?«, t00=0x003f, t01=0x0170}
0x063f4…0640c Head {h00=0x0014, h01=0x000f, text=» RF(Z) BTT90 NO «, t00=0x003f, t01=0x018e}
0x0640c…06436 Head {h00=0x0026, h01=0x0022, text=» ADKL A12,TTB:SB SUBTRACT ONE WORD«, t00=0x0040, t01=0x0016}
0x06436…0644a Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x0040, t01=0x0040}
0x0644a…0646e Head {h00=0x0020, h01=0x001b, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x0040, t01=0x0054}
0x0646e…0649a Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0040, t01=0x0078}
0x0649a…064b0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x0040, t01=0x00a4}
0x064b0…064c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,BTT20«, t00=0x0040, t01=0x00ba}
0x064c6…064da Head {h00=0x0010, h01=0x0050, text=» SUKL A2,REL«, t00=0x0040, t01=0x00d0}
0x064da…064ee Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0040, t01=0x00e4}
0x064ee…064fe Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x0040, t01=0x00f8}
0x064fe…06512 Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x0040, t01=0x0108}
0x06512…06528 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0040, t01=0x011c}
0x06528…0653a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0040, t01=0x0132}
0x0653a…06552 Head {h00=0x0014, h01=0x0050, text=»BTT100 ADK A2,2 «, t00=0x0040, t01=0x0144}
0x06552…06568 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0040, t01=0x015c}
0x06568…0657e Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT105«, t00=0x0040, t01=0x0172}
0x0657e…06594 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0040, t01=0x0188}
0x06594…065c0 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0041, t01=0x000e}
0x065c0…065da Head {h00=0x0016, h01=0x0050, text=»BTT105 CWR A2,A12 «, t00=0x0041, t01=0x003a}
0x065da…065f0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BTT100«, t00=0x0041, t01=0x0054}
0x065f0…0661e Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA SAVE START OF FREE AREA«, t00=0x0041, t01=0x006a}
0x0661e…06636 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0041, t01=0x0098}
0x06636…0664c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0041, t01=0x00b0}
0x0664c…0665a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0041, t01=0x00c6}
0x0665a…06686 Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0041, t01=0x00d4}
0x06686…066b2 Head {h00=0x0028, h01=0x0024, text=»* SEGGEN - BUILD SEGMENT TABLE *«, t00=0x0041, t01=0x0100}
0x066b2…066de Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0041, t01=0x012c}
0x066de…066e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0158}
0x066e8…06716 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0041, t01=0x0162}
0x06716…06742 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x0041, t01=0x0190}
0x06742…06772 Head {h00=0x002c, h01=0x0028, text=»* SCTLAC - START OF APPLICATION«, t00=0x0042, t01=0x002c}
0x06772…0677c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x005c}
0x0677c…067ac Head {h00=0x002c, h01=0x0028, text=»* EXIT: SCTPAG - ADDRESS TO PAGE TABLE«, t00=0x0042, t01=0x0066}
0x067ac…067b6 Head {h00=0x0006, h01=0x0005, text=»* «, t00=0x0042, t01=0x0096}
0x067b6…067d8 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x0042, t01=0x00a0}
0x067d8…067e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x00c2}
0x067e2…06802 Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: GETCON «, t00=0x0042, t01=0x00cc}
0x06802…0680c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x00ec}
0x0680c…0681a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0042, t01=0x00f6}
0x0681a…0682e Head {h00=0x0010, h01=0x0050, text=»SEGGEN EQU *«, t00=0x0042, t01=0x0104}
0x0682e…06852 Head {h00=0x0020, h01=0x0050, text=» LDK A5,0 RESET DISC ADDRESS«, t00=0x0042, t01=0x0118}
0x06852…06868 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTOPT «, t00=0x0042, t01=0x013c}
0x06868…06886 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0042, t01=0x0152}
0x06886…068a0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SEG:05 NO! «, t00=0x0042, t01=0x0170}
0x068a0…068d6 Head {h00=0x0032, h01=0x0050, text=» LD A5,SCTADA APPLICATION DISC SECTOR ADDRESS «, t00=0x0042, t01=0x018a}
0x068d6…068ea Head {h00=0x0010, h01=0x0050, text=»SEG:05 EQU *«, t00=0x0043, t01=0x0030}
0x068ea…0691e Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART«, t00=0x0043, t01=0x0044}
0x0691e…06928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0078}
0x06928…0694e Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x0043, t01=0x0082}
0x0694e…06958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00a8}
0x06958…06970 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,PRGLG1 «, t00=0x0043, t01=0x00b2}
0x06970…06984 Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x0043, t01=0x00ca}
0x06984…06998 Head {h00=0x0010, h01=0x0050, text=» CWK A1,'CR'«, t00=0x0043, t01=0x00de}
0x06998…069ba Head {h00=0x001e, h01=0x0050, text=» RF(NE) SEGEX NOT CREDIT! «, t00=0x0043, t01=0x00f2}
0x069ba…069c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x0114}
0x069c4…069e2 Head {h00=0x001a, h01=0x0016, text=»* BUILD SEGMENT TABLE«, t00=0x0043, t01=0x011e}
0x069e2…069ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x013c}
0x069ec…06a16 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0043, t01=0x0146}
0x06a16…06a44 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTSEG START OF SEGMENT TABLE «, t00=0x0043, t01=0x0170}
0x06a44…06a72 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/8400 STATUS FOR FIRST BLOCK «, t00=0x0044, t01=0x000e}
0x06a72…06a9a Head {h00=0x0024, h01=0x0050, text=» STR A1,A12 STORE IN FIRST BLOCK«, t00=0x0044, t01=0x003c}
0x06a9a…06ad2 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0044, t01=0x0064}
0x06ad2…06afc Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET POINTER TO P:MTAB«, t00=0x0044, t01=0x009c}
0x06afc…06b1c Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SAVE POINTER «, t00=0x0044, t01=0x00c6}
0x06b1c…06b40 Head {h00=0x0020, h01=0x0050, text=» ADKL A2,6 ADDRESS TO P:BAS «, t00=0x0044, t01=0x00e6}
0x06b40…06b5e Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x0044, t01=0x010a}
0x06b5e…06b88 Head {h00=0x0026, h01=0x0050, text=» ST A1,2,A12 STORE IN FIRST BLOCK«, t00=0x0044, t01=0x0128}
0x06b88…06bae Head {h00=0x0022, h01=0x0050, text=» ADKL A12,8 BYPASS FIRST BLOCK«, t00=0x0044, t01=0x0152}
0x06bae…06be6 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0044, t01=0x0178}
0x06be6…06c14 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,NUMSEG GET NUMBER OF SEGMENTS«, t00=0x0045, t01=0x0020}
0x06c14…06c2a Head {h00=0x0012, h01=0x000e, text=» CALL GETCON «, t00=0x0045, t01=0x004e}
0x06c2a…06c56 Head {h00=0x0028, h01=0x0023, text=» LDR A4,A1 SAVE NUMBER OF SEGMENTSS «, t00=0x0045, t01=0x0064}
0x06c56…06c78 Head {h00=0x001e, h01=0x0050, text=» RF(Z) SEG:50 NO SEGMENTS!«, t00=0x0045, t01=0x0090}
0x06c78…06c9e Head {h00=0x0022, h01=0x001d, text=» ADK A2,2 FIRST SEGMENT BLOCK «, t00=0x0045, t01=0x00b2}
0x06c9e…06cc4 Head {h00=0x0022, h01=0x0050, text=» LDK A3,1 INIT SEGMENT NUMBER «, t00=0x0045, t01=0x00d8}
0x06cc4…06cda Head {h00=0x0012, h01=0x0050, text=»SEG:10 EQU * «, t00=0x0045, t01=0x00fe}
0x06cda…06cf2 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 STATUS«, t00=0x0045, t01=0x0114}
0x06cf2…06d06 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0045, t01=0x012c}
0x06d06…06d32 Head {h00=0x0028, h01=0x0023, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x0045, t01=0x0140}
0x06d32…06d4c Head {h00=0x0016, h01=0x0050, text=» RF(E) SEG:30 YES!«, t00=0x0045, t01=0x016c}
0x06d4c…06d72 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0045, t01=0x0186}
0x06d72…06d90 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0046, t01=0x001c}
0x06d90…06dac Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SEG:35 YES! «, t00=0x0046, t01=0x003a}
0x06dac…06dc0 Head {h00=0x0010, h01=0x0050, text=»SEG:30 EQU *«, t00=0x0046, t01=0x0056}
0x06dc0…06dee Head {h00=0x002a, h01=0x0050, text=» LDKL A7,/8800 INDICATE LOADED IN CORE«, t00=0x0046, t01=0x006a}
0x06dee…06e02 Head {h00=0x0010, h01=0x0050, text=»SEG:35 EQU *«, t00=0x0046, t01=0x0098}
0x06e02…06e38 Head {h00=0x0032, h01=0x0050, text=» ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE«, t00=0x0046, t01=0x00ac}
0x06e38…06e56 Head {h00=0x001a, h01=0x0016, text=» STR A7,A12 SET STATUS«, t00=0x0046, t01=0x00e2}
0x06e56…06e7e Head {h00=0x0024, h01=0x001f, text=» ADKL A12,2 NEXT WORD IN SEGBLK «, t00=0x0046, t01=0x0100}
0x06e7e…06ea0 Head {h00=0x001e, h01=0x0019, text=» ADK A2,2 SEGMENT ADDRESS «, t00=0x0046, t01=0x0128}
0x06ea0…06eb4 Head {h00=0x0010, h01=0x000b, text=» LDK A1,0 «, t00=0x0046, t01=0x014a}
0x06eb4…06eda Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x0046, t01=0x015e}
0x06eda…06ef8 Head {h00=0x001a, h01=0x0050, text=» ANK A6,2 DISC PAGING?«, t00=0x0046, t01=0x0184}
0x06ef8…06f10 Head {h00=0x0014, h01=0x000f, text=» RF(Z) SEG:40 «, t00=0x0047, t01=0x0012}
0x06f10…06f24 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0047, t01=0x002a}
0x06f24…06f54 Head {h00=0x002c, h01=0x0028, text=» ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS «, t00=0x0047, t01=0x003e}
0x06f54…06f68 Head {h00=0x0010, h01=0x0050, text=»SEG:40 EQU *«, t00=0x0047, t01=0x006e}
0x06f68…06f8a Head {h00=0x001e, h01=0x001a, text=» STR A1,A12 SAVE IN SEGBLK«, t00=0x0047, t01=0x0082}
0x06f8a…06fb2 Head {h00=0x0024, h01=0x0020, text=» ADKL A12,2 NEXT ENTRY IN SEGBLK«, t00=0x0047, t01=0x00a4}
0x06fb2…06fd4 Head {h00=0x001e, h01=0x001a, text=» ADK A2,2 EFFECTIVE LENGTH«, t00=0x0047, t01=0x00cc}
0x06fd4…06fe8 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0047, t01=0x00ee}
0x06fe8…07000 Head {h00=0x0014, h01=0x0010, text=» STR A1,A12 SAVE«, t00=0x0047, t01=0x0102}
0x07000…07026 Head {h00=0x0022, h01=0x001e, text=» ADKL A12,4 NEXT SEGMENT BLOCK«, t00=0x0047, t01=0x011a}
0x07026…0704c Head {h00=0x0022, h01=0x001e, text=» ADK A2,2 NEXT BLOCK IN S:GTAB«, t00=0x0047, t01=0x0140}
0x0704c…07076 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT SEGMENT NUMBER«, t00=0x0047, t01=0x0166}
0x07076…070a4 Head {h00=0x002a, h01=0x0026, text=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS«, t00=0x0047, t01=0x0190}
0x070a4…070ba Head {h00=0x0012, h01=0x000d, text=» RB(P) SEG:10 «, t00=0x0048, t01=0x002e}
0x070ba…070d6 Head {h00=0x0018, h01=0x0050, text=»SEG:50 LD A2,SCTSFA «, t00=0x0048, t01=0x0044}
0x070d6…070e8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0048, t01=0x0060}
0x070e8…07100 Head {h00=0x0014, h01=0x0050, text=»SEG:60 ADK A2,2 «, t00=0x0048, t01=0x0072}
0x07100…07116 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0048, t01=0x008a}
0x07116…0712c Head {h00=0x0012, h01=0x0050, text=» RF(NE) SEG:70«, t00=0x0048, t01=0x00a0}
0x0712c…07142 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0048, t01=0x00b6}
0x07142…0716e Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0048, t01=0x00cc}
0x0716e…07188 Head {h00=0x0016, h01=0x0050, text=»SEG:70 CWR A2,A12 «, t00=0x0048, t01=0x00f8}
0x07188…0719e Head {h00=0x0012, h01=0x0050, text=» RB(NE) SEG:60«, t00=0x0048, t01=0x0112}
0x0719e…071b4 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x0048, t01=0x0128}
0x071b4…071c8 Head {h00=0x0010, h01=0x0050, text=»SEGEX EQU * «, t00=0x0048, t01=0x013e}
0x071c8…071e0 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0048, t01=0x0152}
0x071e0…071ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x016a}
0x071ec…07208 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0048, t01=0x0176}
0x07208…07216 (73, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0004}
0x07216…0725e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0049, t01=0x0012}
0x0725e…072a6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x005a}
0x072a6…072ee Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00a2}
0x072ee…07336 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00ea}
0x07336…0737e Head {h00=0x0044, h01=0x0050, text=»* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * «, t00=0x0049, t01=0x0132}
0x0737e…073c6 Head {h00=0x0044, h01=0x0050, text=»* ========================================= * «, t00=0x0049, t01=0x017a}
0x073c6…0740e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0032}
0x0740e…07456 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x004a, t01=0x007a}
0x07456…0749e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00c2}
0x0749e…074e6 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: * «, t00=0x004a, t01=0x010a}
0x074e6…0752e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0152}
0x0752e…07576 Head {h00=0x0044, h01=0x0050, text=»* EXIT: * «, t00=0x004b, t01=0x000a}
0x07576…075be Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0052}
0x075be…07606 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x004b, t01=0x009a}
0x07606…0764e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004b, t01=0x00e2}
0x0764e…07696 Head {h00=0x0044, h01=0x0050, text=»* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * «, t00=0x004b, t01=0x012a}
0x07696…076de Head {h00=0x0044, h01=0x0050, text=»* A9 - ADDRESS TO S:BTAB PROTOTYPE * «, t00=0x004b, t01=0x0172}
0x076de…07726 Head {h00=0x0044, h01=0x0050, text=»* A10 - SWB BLOCK POINTER * «, t00=0x004c, t01=0x002a}
0x07726…0776e Head {h00=0x0044, h01=0x0050, text=»* A11 - POINTER IN CONF. FILE * «, t00=0x004c, t01=0x0072}
0x0776e…077b6 Head {h00=0x0044, h01=0x0050, text=»* A12 - ADDRESS TABLE POINTER * «, t00=0x004c, t01=0x00ba}
0x077b6…077fe Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004c, t01=0x0102}
0x077fe…07846 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETNUM,GETCON * «, t00=0x004c, t01=0x014a}
0x07846…0788e (77, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004d, t01=0x0004}
0x0788e…078d6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x004d, t01=0x004c}
0x078d6…0791e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004d, t01=0x0094}
0x0791e…0792c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00dc}
0x0792c…07940 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x004d, t01=0x00ea}
0x07940…0796a Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x004d, t01=0x00fe}
0x0796a…079a0 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF CONFIGURATION FILE«, t00=0x004d, t01=0x0128}
0x079a0…079aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x015e}
0x079aa…079e8 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x004d, t01=0x0168}
0x079e8…079f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0016}
0x079f2…07a1c Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x004e, t01=0x0020}
0x07a1c…07a48 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x004e, t01=0x004a}
0x07a48…07a62 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x004e, t01=0x0076}
0x07a62…07a96 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x004e, t01=0x0090}
0x07a96…07ab0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x004e, t01=0x00c4}
0x07ab0…07ac4 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x004e, t01=0x00de}
0x07ac4…07aea Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x004e, t01=0x00f2}
0x07aea…07b20 Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x004e, t01=0x0118}
0x07b20…07b3a Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x004e, t01=0x014e}
0x07b3a…07b5e Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x004e, t01=0x0168}
0x07b5e…07b72 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x004e, t01=0x018c}
0x07b72…07b9c Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x004f, t01=0x0010}
0x07b9c…07bb4 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x004f, t01=0x003a}
0x07bb4…07bdc Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x004f, t01=0x0052}
0x07bdc…07c08 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x004f, t01=0x007a}
0x07c08…07c34 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x004f, t01=0x00a6}
0x07c34…07c5c Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x004f, t01=0x00d2}
0x07c5c…07c7c Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x004f, t01=0x00fa}
0x07c7c…07cac Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x004f, t01=0x011a}
0x07cac…07ce0 Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x004f, t01=0x014a}
0x07ce0…07cfa Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x004f, t01=0x017e}
0x07cfa…07d26 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x0050, t01=0x0008}
0x07d26…07d4e Head {h00=0x0024, h01=0x0050, text=» ST A1,SCTSWB CLEAR SWB POINTER «, t00=0x0050, t01=0x0034}
0x07d4e…07d5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x005c}
0x07d5e…07d88 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x0050, t01=0x006c}
0x07d88…07db6 Head {h00=0x002a, h01=0x0050, text=» ST A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0050, t01=0x0096}
0x07db6…07dca Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0050, t01=0x00c4}
0x07dca…07dec Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x0050, t01=0x00d8}
0x07dec…07e04 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x0050, t01=0x00fa}
0x07e04…07e2c Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x0050, t01=0x0112}
0x07e2c…07e5c Head {h00=0x002c, h01=0x0050, text=» ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS«, t00=0x0050, t01=0x013a}
0x07e5c…07e88 Head {h00=0x0028, h01=0x0050, text=» LD A8,SCTSWB GET ADDRESS TO $SWAPP «, t00=0x0050, t01=0x016a}
0x07e88…07eac Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x0051, t01=0x0008}
0x07eac…07ed2 Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x0051, t01=0x002c}
0x07ed2…07ee6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0051, t01=0x0052}
0x07ee6…07f20 Head {h00=0x0036, h01=0x0050, text=»BSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE«, t00=0x0051, t01=0x0066}
0x07f20…07f50 Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP «, t00=0x0051, t01=0x00a0}
0x07f50…07f72 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x0051, t01=0x00d0}
0x07f72…07f8c Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0051, t01=0x00f2}
0x07f8c…07f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x010c}
0x07f96…07fc0 Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x0051, t01=0x0116}
0x07fc0…07fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0140}
0x07fca…07fee Head {h00=0x0020, h01=0x0050, text=» LD A2,SCTLAC S:GTAB ADDRESS«, t00=0x0051, t01=0x014a}
0x07fee…08016 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x0051, t01=0x016e}
0x08016…0802e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0052, t01=0x0008}
0x0802e…0805e Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x0052, t01=0x0020}
0x0805e…08086 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x0052, t01=0x0050}
0x08086…080b4 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x0052, t01=0x0078}
0x080b4…080e2 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x0052, t01=0x00a6}
0x080e2…08104 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x0052, t01=0x00d4}
0x08104…08122 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE21,A13 SAVE«, t00=0x0052, t01=0x00f6}
0x08122…08156 Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x0052, t01=0x0114}
0x08156…08186 Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x0052, t01=0x0148}
0x08186…0819e Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0052, t01=0x0178}
0x0819e…081bc Head {h00=0x001a, h01=0x0050, text=» SUK A1,2 SKIP LENGTH «, t00=0x0052, t01=0x0190}
0x081bc…081ee Head {h00=0x002e, h01=0x0050, text=»BSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER«, t00=0x0053, t01=0x001e}
0x081ee…08224 Head {h00=0x0032, h01=0x0050, text=» SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE«, t00=0x0053, t01=0x0050}
0x08224…0824c Head {h00=0x0024, h01=0x0050, text=» RB(P) BSWT50 NEXT SWB-PROTOTYPE«, t00=0x0053, t01=0x0086}
0x0824c…0826e Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 SKIP LENGTH WORD«, t00=0x0053, t01=0x00ae}
0x0826e…08294 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x0053, t01=0x00d0}
0x08294…082c4 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x0053, t01=0x00f6}
0x082c4…082e2 Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE19,A13 SAVE«, t00=0x0053, t01=0x0126}
0x082e2…08310 Head {h00=0x002a, h01=0x0050, text=» LD A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0053, t01=0x0144}
0x08310…08340 Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE24,A13 NUMBER OF SWB RECORDS «, t00=0x0053, t01=0x0172}
0x08340…08374 Head {h00=0x0030, h01=0x0050, text=»BSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT.«, t00=0x0054, t01=0x0012}
0x08374…0839c Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x0054, t01=0x0046}
0x0839c…083c8 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x0054, t01=0x006e}
0x083c8…083ec Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x0054, t01=0x009a}
0x083ec…08410 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x0054, t01=0x00be}
0x08410…08436 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x0054, t01=0x00e2}
0x08436…08460 Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x0054, t01=0x0108}
0x08460…0847a Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x0054, t01=0x0132}
0x0847a…084a0 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x0054, t01=0x014c}
0x084a0…084c4 Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x0054, t01=0x0172}
0x084c4…084e4 Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x0055, t01=0x0008}
0x084e4…08518 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x0055, t01=0x0028}
0x08518…0853a Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x0055, t01=0x005c}
0x0853a…08560 Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x0055, t01=0x007e}
0x08560…0857a Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x0055, t01=0x00a4}
0x0857a…085a2 Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x0055, t01=0x00be}
0x085a2…085ce Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x0055, t01=0x00e6}
0x085ce…085ee Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x0055, t01=0x0112}
0x085ee…085f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0132}
0x085f8…0864a Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x0055, t01=0x013c}
0x0864a…08654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x018e}
0x08654…08672 Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x0056, t01=0x0008}
0x08672…08690 Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x0056, t01=0x0026}
0x08690…086ae Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x0056, t01=0x0044}
0x086ae…086cc Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x0056, t01=0x0062}
0x086cc…086de Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x0056, t01=0x0080}
0x086de…086f2 Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x0056, t01=0x0092}
0x086f2…086fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00a6}
0x086fc…0871a Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x0056, t01=0x00b0}
0x0871a…08724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ce}
0x08724…0874e Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x0056, t01=0x00d8}
0x0874e…08762 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0056, t01=0x0102}
0x08762…08782 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x0056, t01=0x0116}
0x08782…087ac Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x0056, t01=0x0136}
0x087ac…087d2 Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x0056, t01=0x0160}
0x087d2…087f4 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x0056, t01=0x0186}
0x087f4…0881c Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x0057, t01=0x0018}
0x0881c…08846 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x0057, t01=0x0040}
0x08846…0885e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0057, t01=0x006a}
0x0885e…08888 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x0057, t01=0x0082}
0x08888…0889c Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x0057, t01=0x00ac}
0x0889c…088ca Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x0057, t01=0x00c0}
0x088ca…088fe Head {h00=0x0030, h01=0x0050, text=» ST A8,2,A10 STORE DISC ADDRESS TO 1:ST COPY«, t00=0x0057, t01=0x00ee}
0x088fe…08932 Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x0057, t01=0x0122}
0x08932…08958 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x0057, t01=0x0156}
0x08958…08988 Head {h00=0x002c, h01=0x0050, text=»BSWT90 ADKL A8,1 INCREMENT SECTOR NUMBER«, t00=0x0057, t01=0x017c}
0x08988…089b2 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x0058, t01=0x001c}
0x089b2…089d8 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,400 DECREMENT LENGTH «, t00=0x0058, t01=0x0046}
0x089d8…089fc Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT90 MOORE SECTORS?«, t00=0x0058, t01=0x006c}
0x089fc…08a1c Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x0058, t01=0x0090}
0x08a1c…08a36 Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x0058, t01=0x00b0}
0x08a36…08a64 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x0058, t01=0x00ca}
0x08a64…08a90 Head {h00=0x0028, h01=0x0050, text=» CW A8,SAVE25,A13 CHECK IF OVERFLOW «, t00=0x0058, t01=0x00f8}
0x08a90…08abc Head {h00=0x0028, h01=0x0050, text=» RB(G) SWBERR $SWAP-FILE TOO SMALL! «, t00=0x0058, t01=0x0124}
0x08abc…08aea Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x0058, t01=0x0150}
0x08aea…08b0a Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x0058, t01=0x017e}
0x08b0a…08b34 Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x0059, t01=0x000e}
0x08b34…08b6c Head {h00=0x0034, h01=0x0050, text=» LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB«, t00=0x0059, t01=0x0038}
0x08b6c…08b9e Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x0059, t01=0x0070}
0x08b9e…08bbc Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE21,A13 SAVE«, t00=0x0059, t01=0x00a2}
0x08bbc…08bf0 Head {h00=0x0030, h01=0x0050, text=» LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB«, t00=0x0059, t01=0x00c0}
0x08bf0…08c10 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x0059, t01=0x00f4}
0x08c10…08c32 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x0059, t01=0x0114}
0x08c32…08c62 Head {h00=0x002c, h01=0x0050, text=» CW A8,SAVE14,A13 ANY BLOCKS GENERATED? «, t00=0x0059, t01=0x0136}
0x08c62…08c7c Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT99 YES«, t00=0x0059, t01=0x0166}
0x08c7c…08c92 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP6 «, t00=0x0059, t01=0x0180}
0x08c92…08cb0 Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x005a, t01=0x0008}
0x08cb0…08ce6 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES «, t00=0x005a, t01=0x0026}
0x08ce6…08d16 Head {h00=0x002c, h01=0x0050, text=» ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x005a, t01=0x005c}
0x08d16…08d26 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x008c}
0x08d26…08d32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x009c}
0x08d32…08d40 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005a, t01=0x00a8}
0x08d40…08d6e Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x005a, t01=0x00b6}
0x08d6e…08d9c Head {h00=0x002a, h01=0x0026, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x005a, t01=0x00e4}
0x08d9c…08dca Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x005a, t01=0x0112}
0x08dca…08dd4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005a, t01=0x0140}
0x08dd4…08e00 Head {h00=0x0028, h01=0x0024, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x005a, t01=0x014a}
0x08e00…08e2c Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x005a, t01=0x0176}
0x08e2c…08e54 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x005b, t01=0x0012}
0x08e54…08e7c Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x005b, t01=0x003a}
0x08e7c…08e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0062}
0x08e86…08e90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x006c}
0x08e90…08eb0 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: SYSLOD«, t00=0x005b, t01=0x0076}
0x08eb0…08eba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x0096}
0x08eba…08ee8 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x005b, t01=0x00a0}
0x08ee8…08f14 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x005b, t01=0x00ce}
0x08f14…08f1e Head {h00=0x0006, h01=0x000b, text=»* «, t00=0x005b, t01=0x00fa}
0x08f1e…08f50 Head {h00=0x002e, h01=0x002a, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x005b, t01=0x0104}
0x08f50…08f5a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x0136}
0x08f5a…08f82 Head {h00=0x0024, h01=0x0020, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x005b, t01=0x0140}
0x08f82…08f8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005b, t01=0x0168}
0x08f8c…08fac Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: BLKGEN «, t00=0x005b, t01=0x0172}
0x08fac…08fb6 (92, 0, 398) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0004}
0x08fb6…08fc4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005c, t01=0x000e}
0x08fc4…08fd8 Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x005c, t01=0x001c}
0x08fd8…08fea Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x005c, t01=0x0030}
0x08fea…09014 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x005c, t01=0x0042}
0x09014…09046 Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x005c, t01=0x006c}
0x09046…09050 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x009e}
0x09050…09078 Head {h00=0x0024, h01=0x0020, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x005c, t01=0x00a8}
0x09078…09082 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x00d0}
0x09082…090ae Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x005c, t01=0x00da}
0x090ae…090b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0106}
0x090b8…090ec Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x005c, t01=0x0110}
0x090ec…090f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0144}
0x090f6…0910c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x005c, t01=0x014e}
0x0910c…09120 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x005c, t01=0x0164}
0x09120…0913e Head {h00=0x001a, h01=0x0016, text=» SUK A7,2 MOORE TASKS?«, t00=0x005c, t01=0x0178}
0x0913e…09158 Head {h00=0x0016, h01=0x0011, text=» RF(Z) MON:20 NO «, t00=0x005d, t01=0x0008}
0x09158…0916c Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x005d, t01=0x0022}
0x0916c…0917e Head {h00=0x000e, h01=0x000a, text=» RB MON:10«, t00=0x005d, t01=0x0036}
0x0917e…09192 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x005d, t01=0x0048}
0x09192…0919c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x005c}
0x0919c…091c0 Head {h00=0x0020, h01=0x001b, text=»* GENERATE 19 MOORE BLOCKS «, t00=0x005d, t01=0x0066}
0x091c0…091ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x008a}
0x091ca…091dc Head {h00=0x000e, h01=0x000a, text=» LDK A2,19«, t00=0x005d, t01=0x0094}
0x091dc…091f0 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x005d, t01=0x00a6}
0x091f0…091fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x00ba}
0x091fa…09218 Head {h00=0x001a, h01=0x0015, text=»* GENERATE END BLOCK «, t00=0x005d, t01=0x00c4}
0x09218…09222 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x00e2}
0x09222…09236 Head {h00=0x0010, h01=0x000b, text=» STR A1,A12 «, t00=0x005d, t01=0x00ec}
0x09236…0924a Head {h00=0x0010, h01=0x000c, text=» ST A1,2,A12«, t00=0x005d, t01=0x0100}
0x0924a…0925e Head {h00=0x0010, h01=0x000c, text=» ST A1,4,A12«, t00=0x005d, t01=0x0114}
0x0925e…09268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0128}
0x09268…092b2 Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A«, t00=0x005d, t01=0x0132}
0x092b2…092e6 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x005d, t01=0x017c}
0x092e6…092f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0020}
0x092f0…0931a Head {h00=0x0026, h01=0x0050, text=» LD A1,BUFSIZ,A13 GET BUFFER SIZE «, t00=0x005e, t01=0x002a}
0x0931a…09330 Head {h00=0x0012, h01=0x0050, text=» CWK A1,6 >6? «, t00=0x005e, t01=0x0054}
0x09330…09358 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x005e, t01=0x006a}
0x09358…09376 Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 BUFFER SIZE«, t00=0x005e, t01=0x0092}
0x09376…09396 Head {h00=0x001c, h01=0x0050, text=» ST A1,BUFSIZ,A13 STORE «, t00=0x005e, t01=0x00b0}
0x09396…093c0 Head {h00=0x0026, h01=0x0050, text=» ST A12,SYSBUF,A13 START OF BUFFER«, t00=0x005e, t01=0x00d0}
0x093c0…093d4 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x005e, t01=0x00fa}
0x093d4…093e8 Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x005e, t01=0x010e}
0x093e8…093fe Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x005e, t01=0x0122}
0x093fe…09410 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005e, t01=0x0138}
0x09410…09428 Head {h00=0x0014, h01=0x0050, text=»MON:40 ADK A2,2 «, t00=0x005e, t01=0x014a}
0x09428…0943e Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x005e, t01=0x0162}
0x0943e…09454 Head {h00=0x0012, h01=0x0050, text=» RF(NE) MON:50«, t00=0x005e, t01=0x0178}
0x09454…0946a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x005e, t01=0x018e}
0x0946a…0947e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005f, t01=0x0014}
0x0947e…09498 Head {h00=0x0016, h01=0x0050, text=»MON:50 CWR A2,A12 «, t00=0x005f, t01=0x0028}
0x09498…094ae Head {h00=0x0012, h01=0x0050, text=» RB(NE) MON:40«, t00=0x005f, t01=0x0042}
0x094ae…094dc Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x005f, t01=0x0058}
0x094dc…094ec Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x005f, t01=0x0086}
0x094ec…094fa Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005f, t01=0x0096}
0x094fa…09528 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x005f, t01=0x00a4}
0x09528…09556 Head {h00=0x002a, h01=0x0025, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x005f, t01=0x00d2}
0x09556…09584 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x005f, t01=0x0100}
0x09584…0958e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005f, t01=0x012e}
0x0958e…095b0 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONBLK «, t00=0x005f, t01=0x0138}
0x095b0…095ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005f, t01=0x015a}
0x095ba…095d2 Head {h00=0x0014, h01=0x000f, text=»* ENTRY: A1=0 «, t00=0x005f, t01=0x0164}
0x095d2…0960a Head {h00=0x0034, h01=0x0030, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x005f, t01=0x017c}
0x0960a…09632 Head {h00=0x0024, h01=0x001f, text=»* A12 - NEXT FREE ENTRY «, t00=0x0060, t01=0x0024}
0x09632…0963c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x004c}
0x0963c…09652 Head {h00=0x0012, h01=0x000e, text=»* EXIT: A1=0«, t00=0x0060, t01=0x0056}
0x09652…09678 Head {h00=0x0022, h01=0x001e, text=»* A12 - NEXT FREE ENTRY«, t00=0x0060, t01=0x006c}
0x09678…09682 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0092}
0x09682…0969e Head {h00=0x0018, h01=0x0014, text=»* WORK REGISTES: A3«, t00=0x0060, t01=0x009c}
0x0969e…096a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x00b8}
0x096a8…096c0 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0060, t01=0x00c2}
0x096c0…096ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x00da}
0x096ca…096fe Head {h00=0x0030, h01=0x002c, text=»* MONITOR BLOCK LAYOUT«, t00=0x0060, t01=0x00e4}
0x096fe…09732 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0060, t01=0x0118}
0x09732…09766 Head {h00=0x0030, h01=0x002c, text=»* I DATA *+6 I«, t00=0x0060, t01=0x014c}
0x09766…0979a Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0060, t01=0x0180}
0x0979a…097ce Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0061, t01=0x0024}
0x097ce…09802 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0061, t01=0x0058}
0x09802…09836 Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0061, t01=0x008c}
0x09836…0986a Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0061, t01=0x00c0}
0x0986a…09874 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x00f4}
0x09874…09882 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0061, t01=0x00fe}
0x09882…09896 Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0061, t01=0x010c}
0x09896…098aa Head {h00=0x0010, h01=0x000c, text=» LDR A3,A2 «, t00=0x0061, t01=0x0120}
0x098aa…098be Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0061, t01=0x0134}
0x098be…098d2 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BLKEX«, t00=0x0061, t01=0x0148}
0x098d2…098e6 Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x0061, t01=0x015c}
0x098e6…098fc Head {h00=0x0012, h01=0x000e, text=» ST A12,-6,A12«, t00=0x0061, t01=0x0170}
0x098fc…09912 Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0061, t01=0x0186}
0x09912…09928 Head {h00=0x0012, h01=0x000d, text=» ST A1,-2,A12 «, t00=0x0062, t01=0x000c}
0x09928…0993a Head {h00=0x000e, h01=0x0009, text=» SUK A3,1 «, t00=0x0062, t01=0x0022}
0x0993a…0994c Head {h00=0x000e, h01=0x000a, text=» RB BLK:10«, t00=0x0062, t01=0x0034}
0x0994c…09960 Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0062, t01=0x0046}
0x09960…09970 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0062, t01=0x005a}
0x09970…0997e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0062, t01=0x006a}
0x0997e…099ce Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x0062, t01=0x0078}
0x099ce…09a1c Head {h00=0x004a, h01=0x004a, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x0062, t01=0x00c8}
0x09a1c…09a6c Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x0062, t01=0x0116}
0x09a6c…09a76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0062, t01=0x0166}
0x09a76…09a96 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0062, t01=0x0170}
0x09a96…09aa0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0062, t01=0x0190}
0x09aa0…09ad0 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x0063, t01=0x000a}
0x09ad0…09b06 Head {h00=0x0032, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION FILE«, t00=0x0063, t01=0x003a}
0x09b06…09b32 Head {h00=0x0028, h01=0x0023, text=»* SCTEFA - END OF FREE AREA «, t00=0x0063, t01=0x0070}
0x09b32…09b3c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x009c}
0x09b3c…09b4c Head {h00=0x000c, h01=0x000a, text=»* EXIT:«, t00=0x0063, t01=0x00a6}
0x09b4c…09b56 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x00b6}
0x09b56…09b78 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x0063, t01=0x00c0}
0x09b78…09b82 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x00e2}
0x09b82…09bc2 Head {h00=0x003c, h01=0x0038, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x0063, t01=0x00ec}
0x09bc2…09bcc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x012c}
0x09bcc…09bda Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0063, t01=0x0136}
0x09bda…09bee Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x0063, t01=0x0144}
0x09bee…09bf8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x0158}
0x09bf8…09c22 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SAVE01URATION FILE«, t00=0x0063, t01=0x0162}
0x09c22…09c2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0063, t01=0x018c}
0x09c2c…09c62 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION FILE«, t00=0x0064, t01=0x0008}
0x09c62…09c8c Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0064, t01=0x003e}
0x09c8c…09c96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x0068}
0x09c96…09cd0 Head {h00=0x0036, h01=0x0032, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x0064, t01=0x0072}
0x09cd0…09cda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x00ac}
0x09cda…09d02 Head {h00=0x0024, h01=0x001f, text=» LCR A2,A11 GET FIRST CHARACTER «, t00=0x0064, t01=0x00b6}
0x09d02…09d2e Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0064, t01=0x00de}
0x09d2e…09d46 Head {h00=0x0014, h01=0x000f, text=» RF(E) DWTS YES «, t00=0x0064, t01=0x010a}
0x09d46…09d68 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0064, t01=0x0122}
0x09d68…09d7c Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0064, t01=0x0144}
0x09d7c…09d8e Head {h00=0x000e, h01=0x0050, text=»DWTS EQU *«, t00=0x0064, t01=0x0158}
0x09d8e…09d98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x016a}
0x09d98…09db8 Head {h00=0x001c, h01=0x0018, text=»* GET ADDRESS TO TC:TAB«, t00=0x0064, t01=0x0174}
0x09db8…09dc2 (101, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0004}
0x09dc2…09df2 Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x0065, t01=0x000e}
0x09df2…09e04 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0065, t01=0x003e}
0x09e04…09e12 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0065, t01=0x0050}
0x09e12…09e26 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x0065, t01=0x005e}
0x09e26…09e30 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0072}
0x09e30…09e62 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0065, t01=0x007c}
0x09e62…09e6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x00ae}
0x09e6c…09e80 Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0065, t01=0x00b8}
0x09e80…09e94 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x0065, t01=0x00cc}
0x09e94…09eb2 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x0065, t01=0x00e0}
0x09eb2…09ebc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x00fe}
0x09ebc…09eea Head {h00=0x002a, h01=0x0026, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x0065, t01=0x0108}
0x09eea…09ef4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0065, t01=0x0136}
0x09ef4…09f08 Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x0065, t01=0x0140}
0x09f08…09f2e Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0065, t01=0x0154}
0x09f2e…09f54 Head {h00=0x0022, h01=0x001d, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x0065, t01=0x017a}
0x09f54…09f8e Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY «, t00=0x0066, t01=0x0010}
0x09f8e…09f98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x004a}
0x09f98…09fcc Head {h00=0x0030, h01=0x002c, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x0066, t01=0x0054}
0x09fcc…09fd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0088}
0x09fd6…0a008 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0066, t01=0x0092}
0x0a008…0a038 Head {h00=0x002c, h01=0x0027, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x0066, t01=0x00c4}
0x0a038…0a046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00f4}
0x0a046…0a050 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0102}
0x0a050…0a088 Head {h00=0x0034, h01=0x002f, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x0066, t01=0x010c}
0x0a088…0a092 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0144}
0x0a092…0a0a6 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0066, t01=0x014e}
0x0a0a6…0a0b8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0066, t01=0x0162}
0x0a0b8…0a0cc Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x0066, t01=0x0174}
0x0a0cc…0a0e2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x0066, t01=0x0188}
0x0a0e2…0a102 Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x0067, t01=0x000e}
0x0a102…0a114 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x0067, t01=0x002e}
0x0a114…0a144 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0067, t01=0x0040}
0x0a144…0a166 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x0067, t01=0x0070}
0x0a166…0a18e Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0067, t01=0x0092}
0x0a18e…0a1b6 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0067, t01=0x00ba}
0x0a1b6…0a1dc Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0067, t01=0x00e2}
0x0a1dc…0a20a Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x0067, t01=0x0108}
0x0a20a…0a23e Head {h00=0x0030, h01=0x002b, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x0067, t01=0x0136}
0x0a23e…0a26a Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x0067, t01=0x016a}
0x0a26a…0a27c Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x0068, t01=0x0008}
0x0a27c…0a290 Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x0068, t01=0x001a}
0x0a290…0a29a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x002e}
0x0a29a…0a2ca Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0068, t01=0x0038}
0x0a2ca…0a2d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x0068}
0x0a2d4…0a2e8 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0068, t01=0x0072}
0x0a2e8…0a306 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0068, t01=0x0086}
0x0a306…0a318 Head {h00=0x000e, h01=0x000a, text=» LDR A1,A1«, t00=0x0068, t01=0x00a4}
0x0a318…0a32c Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x0068, t01=0x00b6}
0x0a32c…0a342 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x0068, t01=0x00ca}
0x0a342…0a360 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE17,A13 SAVE«, t00=0x0068, t01=0x00e0}
0x0a360…0a36a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x00fe}
0x0a36a…0a398 Head {h00=0x002a, h01=0x0026, text=»* GET SPECIAL DEVICE CLASS NUMBER OM «, t00=0x0068, t01=0x0108}
0x0a398…0a3a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x0136}
0x0a3a2…0a3b6 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0068, t01=0x0140}
0x0a3b6…0a3e2 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CLASS NUMBER «, t00=0x0068, t01=0x0154}
0x0a3e2…0a3ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x0180}
0x0a3ec…0a428 Head {h00=0x0038, h01=0x0033, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x0068, t01=0x018a}
0x0a428…0a432 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x0036}
0x0a432…0a444 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x0069, t01=0x0040}
0x0a444…0a470 Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE11,A13 POINTER TO SCLASS «, t00=0x0069, t01=0x0052}
0x0a470…0a490 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x0069, t01=0x007e}
0x0a490…0a4b8 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x0069, t01=0x009e}
0x0a4b8…0a4d0 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x0069, t01=0x00c6}
0x0a4d0…0a4ee Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x0069, t01=0x00de}
0x0a4ee…0a514 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0069, t01=0x00fc}
0x0a514…0a528 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x0069, t01=0x0122}
0x0a528…0a544 Head {h00=0x0018, h01=0x0014, text=» ADK A5,4 GET DEVICE«, t00=0x0069, t01=0x0136}
0x0a544…0a570 Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x0069, t01=0x0152}
0x0a570…0a59c Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x0069, t01=0x017e}
0x0a59c…0a5b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x006a, t01=0x001a}
0x0a5b4…0a5be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006a, t01=0x0032}
0x0a5be…0a5d2 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x006a, t01=0x003c}
0x0a5d2…0a5dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006a, t01=0x0050}
0x0a5dc…0a5fa Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x006a, t01=0x005a}
0x0a5fa…0a62a Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x006a, t01=0x0078}
0x0a62a…0a646 Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x006a, t01=0x00a8}
0x0a646…0a654 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x00c4}
0x0a654…0a65e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d2}
0x0a65e…0a696 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x006a, t01=0x00dc}
0x0a696…0a6a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0114}
0x0a6a0…0a6c6 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x006a, t01=0x011e}
0x0a6c6…0a6e6 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x006a, t01=0x0144}
0x0a6e6…0a700 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x006a, t01=0x0164}
0x0a700…0a72c Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x006a, t01=0x017e}
0x0a72c…0a75a Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x006b, t01=0x001a}
0x0a75a…0a78a Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x006b, t01=0x0048}
0x0a78a…0a7a6 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x006b, t01=0x0078}
0x0a7a6…0a7ce Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x006b, t01=0x0094}
0x0a7ce…0a7f4 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x006b, t01=0x00bc}
0x0a7f4…0a808 Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x006b, t01=0x00e2}
0x0a808…0a830 Head {h00=0x0024, h01=0x0020, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x006b, t01=0x00f6}
0x0a830…0a844 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x006b, t01=0x011e}
0x0a844…0a84e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006b, t01=0x0132}
0x0a84e…0a880 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x006b, t01=0x013c}
0x0a880…0a88a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006b, t01=0x016e}
0x0a88a…0a8b0 Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x006b, t01=0x0178}
0x0a8b0…0a8d8 Head {h00=0x0024, h01=0x001f, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x006c, t01=0x000e}
0x0a8d8…0a8f8 Head {h00=0x001c, h01=0x0018, text=» STR A1,A10 SAVE IN TTAB«, t00=0x006c, t01=0x0036}
0x0a8f8…0a92e Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK SAVE01URATION POINTER «, t00=0x006c, t01=0x0056}
0x0a92e…0a942 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x006c, t01=0x008c}
0x0a942…0a970 Head {h00=0x002a, h01=0x0025, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x006c, t01=0x00a0}
0x0a970…0a992 Head {h00=0x001e, h01=0x0019, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x006c, t01=0x00ce}
0x0a992…0a9a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x00f0}
0x0a9a0…0a9aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x00fe}
0x0a9aa…0a9e2 Head {h00=0x0034, h01=0x002f, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x006c, t01=0x0108}
0x0a9e2…0a9ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x0140}
0x0a9ec…0aa02 Head {h00=0x0012, h01=0x000e, text=» ADKL A9,SDC «, t00=0x006c, t01=0x014a}
0x0aa02…0aa1c Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE17,A13 «, t00=0x006c, t01=0x0160}
0x0aa1c…0aa2e Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x006c, t01=0x017a}
0x0aa2e…0aa40 Head {h00=0x000e, h01=0x000a, text=» RB DWTS50«, t00=0x006c, t01=0x018c}
0x0aa40…0aa54 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x006d, t01=0x000e}
0x0aa54…0aa5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x0022}
0x0aa5e…0aa9a Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION «, t00=0x006d, t01=0x002c}
0x0aa9a…0aaa4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x0068}
0x0aaa4…0aabe Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE19,A13 «, t00=0x006d, t01=0x0072}
0x0aabe…0aad0 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x006d, t01=0x008c}
0x0aad0…0aae6 Head {h00=0x0012, h01=0x000d, text=» RB(P) DWTS20 «, t00=0x006d, t01=0x009e}
0x0aae6…0aaf0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x00b4}
0x0aaf0…0ab20 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x006d, t01=0x00be}
0x0ab20…0ab2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006d, t01=0x00ee}
0x0ab2a…0ab3e Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x006d, t01=0x00f8}
0x0ab3e…0ab6a Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x006d, t01=0x010c}
0x0ab6a…0ab84 Head {h00=0x0016, h01=0x0011, text=» RB(E) DWTS10 YES «, t00=0x006d, t01=0x0138}
0x0ab84…0ab9a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x006d, t01=0x0152}
0x0ab9a…0abac Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x006d, t01=0x0168}
0x0abac…0abc4 Head {h00=0x0014, h01=0x0050, text=»DWTS95 ADK A2,2 «, t00=0x006d, t01=0x017a}
0x0abc4…0abda (110, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x006e, t01=0x0004}
0x0abda…0abf0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWTS99«, t00=0x006e, t01=0x001a}
0x0abf0…0ac06 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006e, t01=0x0030}
0x0ac06…0ac32 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x006e, t01=0x0046}
0x0ac32…0ac4c Head {h00=0x0016, h01=0x0050, text=»DWTS99 CWR A2,A12 «, t00=0x006e, t01=0x0072}
0x0ac4c…0ac62 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWTS95«, t00=0x006e, t01=0x008c}
0x0ac62…0ac78 Head {h00=0x0012, h01=0x000e, text=» ST A12,SCTSFA«, t00=0x006e, t01=0x00a2}
0x0ac78…0ac90 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x006e, t01=0x00b8}
0x0ac90…0ac9e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006e, t01=0x00d0}
0x0ac9e…0acd6 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006e, t01=0x00de}
0x0acd6…0ad0e Head {h00=0x0034, h01=0x0030, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x006e, t01=0x0116}
0x0ad0e…0ad46 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006e, t01=0x014e}
0x0ad46…0ad7e Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x006e, t01=0x0186}
0x0ad7e…0ad88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x002e}
0x0ad88…0ada8 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x006f, t01=0x0038}
0x0ada8…0adb2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0058}
0x0adb2…0adc4 Head {h00=0x000e, h01=0x000b, text=»* ENTRY: «, t00=0x006f, t01=0x0062}
0x0adc4…0adce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0074}
0x0adce…0adde Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x006f, t01=0x007e}
0x0adde…0ade8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x008e}
0x0ade8…0ae0a Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x006f, t01=0x0098}
0x0ae0a…0ae14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00ba}
0x0ae14…0ae5c Head {h00=0x0044, h01=0x0040, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x006f, t01=0x00c4}
0x0ae5c…0ae66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x010c}
0x0ae66…0ae74 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006f, t01=0x0116}
0x0ae74…0ae88 Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x006f, t01=0x0124}
0x0ae88…0ae92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0138}
0x0ae92…0aedc Head {h00=0x0046, h01=0x0050, text=»* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE«, t00=0x006f, t01=0x0142}
0x0aedc…0aee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x018c}
0x0aee6…0aef8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0070, t01=0x0008}
0x0aef8…0af2c Head {h00=0x0030, h01=0x0050, text=» LDKL A11,BDWT05 GET END OF TEMP. WORK AREA «, t00=0x0070, t01=0x001a}
0x0af2c…0af56 Head {h00=0x0026, h01=0x0050, text=» AD A11,M:REL,A13 RELOCATE ADDRESS«, t00=0x0070, t01=0x004e}
0x0af56…0af6e Head {h00=0x0014, h01=0x0050, text=» LDR A7,A11 SAVE«, t00=0x0070, t01=0x0078}
0x0af6e…0afa4 Head {h00=0x0032, h01=0x0050, text=» SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA«, t00=0x0070, t01=0x0090}
0x0afa4…0afcc Head {h00=0x0024, h01=0x0050, text=» CWK A7,1808 IS AREA BIG ENOUGH?«, t00=0x0070, t01=0x00c6}
0x0afcc…0afe6 Head {h00=0x0016, h01=0x0050, text=» RF(L) BDWT02 NO! «, t00=0x0070, t01=0x00ee}
0x0afe6…0b016 Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTEFA SAVE REAL END OF FREE AREA«, t00=0x0070, t01=0x0108}
0x0b016…0b042 Head {h00=0x0028, h01=0x0050, text=» ST A11,SCTEFA END OF TEMPORARY AREA«, t00=0x0070, t01=0x0138}
0x0b042…0b04c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0070, t01=0x0164}
0x0b04c…0b098 Head {h00=0x0048, h01=0x0044, text=»* ALLOCATE MEMORY FOR TEMPORARY INTERRUPT TABLE AT END OF FREE AREA«, t00=0x0070, t01=0x016e}
0x0b098…0b0a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x002a}
0x0b0a2…0b0b6 Head {h00=0x0010, h01=0x0050, text=»BDWT02 EQU *«, t00=0x0071, t01=0x0034}
0x0b0b6…0b0e2 Head {h00=0x0028, h01=0x0050, text=» LD A11,SCTEFA GET END OF FREE AREA «, t00=0x0071, t01=0x0048}
0x0b0e2…0b10e Head {h00=0x0028, h01=0x0024, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0071, t01=0x0074}
0x0b10e…0b122 Head {h00=0x0010, h01=0x0050, text=»BDWT05 EQU *«, t00=0x0071, t01=0x00a0}
0x0b122…0b146 Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET WORD COUNTER«, t00=0x0071, t01=0x00b4}
0x0b146…0b15a Head {h00=0x0010, h01=0x0050, text=»BDWT10 EQU *«, t00=0x0071, t01=0x00d8}
0x0b15a…0b17e Head {h00=0x0020, h01=0x001c, text=» CWR A11,A9 MEMORY OVERFLOW?«, t00=0x0071, t01=0x00ec}
0x0b17e…0b198 Head {h00=0x0016, h01=0x0011, text=» RF(NE) BDWT15 NO «, t00=0x0071, t01=0x0110}
0x0b198…0b1c6 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0071, t01=0x012a}
0x0b1c6…0b1da Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0071, t01=0x0158}
0x0b1da…0b1ee Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x0071, t01=0x016c}
0x0b1ee…0b216 Head {h00=0x0024, h01=0x001f, text=» CWK A7,896 ALL WORDS RESERVED? «, t00=0x0071, t01=0x0180}
0x0b216…0b230 Head {h00=0x0016, h01=0x0011, text=» RF(E) BDWT20 YES «, t00=0x0072, t01=0x0018}
0x0b230…0b258 Head {h00=0x0024, h01=0x001f, text=» SUKL A11,2 RESERV ANOTHER WORD «, t00=0x0072, t01=0x0032}
0x0b258…0b27a Head {h00=0x001e, h01=0x0050, text=» CMR A11 CLEAR MEMORY WORD«, t00=0x0072, t01=0x005a}
0x0b27a…0b2a2 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT WORD COUNTER«, t00=0x0072, t01=0x007c}
0x0b2a2…0b2b4 Head {h00=0x000e, h01=0x000a, text=» RB BDWT10«, t00=0x0072, t01=0x00a4}
0x0b2b4…0b2c8 Head {h00=0x0010, h01=0x0050, text=»BDWT20 EQU *«, t00=0x0072, t01=0x00b6}
0x0b2c8…0b2d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x00ca}
0x0b2d2…0b30c Head {h00=0x0036, h01=0x0032, text=»* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES«, t00=0x0072, t01=0x00d4}
0x0b30c…0b316 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x010e}
0x0b316…0b33e Head {h00=0x0024, h01=0x0050, text=» ADK A1,0 NEW END OF FREE AREA? «, t00=0x0072, t01=0x0118}
0x0b33e…0b358 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BDWT25 NO!«, t00=0x0072, t01=0x0140}
0x0b358…0b36c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A11 «, t00=0x0072, t01=0x015a}
0x0b36c…0b380 Head {h00=0x0010, h01=0x0050, text=»BDWT25 EQU *«, t00=0x0072, t01=0x016e}
0x0b380…0b398 Head {h00=0x0014, h01=0x0050, text=» LD A7,SCTSFA+2 «, t00=0x0072, t01=0x0182}
0x0b398…0b3ac Head {h00=0x0010, h01=0x0050, text=»BDWT30 EQU *«, t00=0x0073, t01=0x000a}
0x0b3ac…0b3dc Head {h00=0x002c, h01=0x0028, text=» STR A11,A7 SAVE INTERRUPT TABLE ADDRESS«, t00=0x0073, t01=0x001e}
0x0b3dc…0b406 Head {h00=0x0026, h01=0x0022, text=» ADK A7,2 NEXT ADDRESS TABLE ENTRY«, t00=0x0073, t01=0x004e}
0x0b406…0b438 Head {h00=0x002e, h01=0x002a, text=» ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS«, t00=0x0073, t01=0x0078}
0x0b438…0b466 Head {h00=0x002a, h01=0x0025, text=» CW A11,SCTEFA ALL POINTERS INTIATED? «, t00=0x0073, t01=0x00aa}
0x0b466…0b480 Head {h00=0x0016, h01=0x0011, text=» RB(NE) BDWT30 NO «, t00=0x0073, t01=0x00d8}
0x0b480…0b4ae Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTEFA UPDATE END OF FREE AREA «, t00=0x0073, t01=0x00f2}
0x0b4ae…0b4bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0120}
0x0b4bc…0b4c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0073, t01=0x012e}
0x0b4c6…0b4e2 Head {h00=0x0018, h01=0x0013, text=»* INIT DWT POINTER «, t00=0x0073, t01=0x0138}
0x0b4e2…0b4ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0073, t01=0x0154}
0x0b4ec…0b506 Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x0073, t01=0x015e}
0x0b506…0b534 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0073, t01=0x0178}
0x0b534…0b53e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0016}
0x0b53e…0b584 Head {h00=0x0042, h01=0x003e, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x0074, t01=0x0020}
0x0b584…0b58e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0066}
0x0b58e…0b5c2 Head {h00=0x0030, h01=0x0050, text=» LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY «, t00=0x0074, t01=0x0070}
0x0b5c2…0b5fc Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY«, t00=0x0074, t01=0x00a4}
0x0b5fc…0b610 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x0074, t01=0x00de}
0x0b610…0b61a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x00f2}
0x0b61a…0b64c Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0074, t01=0x00fc}
0x0b64c…0b656 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x012e}
0x0b656…0b67e Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0074, t01=0x0138}
0x0b67e…0b692 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x0074, t01=0x0160}
0x0b692…0b6be Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE BINARY VALUE «, t00=0x0074, t01=0x0174}
0x0b6be…0b6c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x0010}
0x0b6c8…0b70c Head {h00=0x0040, h01=0x003b, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x0075, t01=0x001a}
0x0b70c…0b716 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x005e}
0x0b716…0b72a Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0075, t01=0x0068}
0x0b72a…0b734 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x007c}
0x0b734…0b75c Head {h00=0x0024, h01=0x0020, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x0075, t01=0x0086}
0x0b75c…0b766 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x00ae}
0x0b766…0b78e Head {h00=0x0024, h01=0x0020, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x0075, t01=0x00b8}
0x0b78e…0b7a6 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x0075, t01=0x00e0}
0x0b7a6…0b7e0 Head {h00=0x0036, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS«, t00=0x0075, t01=0x00f8}
0x0b7e0…0b80c Head {h00=0x0028, h01=0x0050, text=» LD* A10,SAVE13,A13 GET TTAB ADDRESS«, t00=0x0075, t01=0x0132}
0x0b80c…0b846 Head {h00=0x0036, h01=0x0031, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x0075, t01=0x015e}
0x0b846…0b850 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x0008}
0x0b850…0b87c Head {h00=0x0028, h01=0x0023, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x0076, t01=0x0012}
0x0b87c…0b886 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x003e}
0x0b886…0b8b8 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0076, t01=0x0048}
0x0b8b8…0b8f0 Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0076, t01=0x007a}
0x0b8f0…0b904 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x0076, t01=0x00b2}
0x0b904…0b92a Head {h00=0x0022, h01=0x001d, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x0076, t01=0x00c6}
0x0b92a…0b956 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE BINARY VALUE «, t00=0x0076, t01=0x00ec}
0x0b956…0b960 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x0118}
0x0b960…0b9a4 Head {h00=0x0040, h01=0x003c, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x0076, t01=0x0122}
0x0b9a4…0b9bc Head {h00=0x0014, h01=0x000f, text=»* IN THIS TASK «, t00=0x0076, t01=0x0166}
0x0b9bc…0b9c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x017e}
0x0b9c6…0b9f6 Head {h00=0x002c, h01=0x0027, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0076, t01=0x0188}
0x0b9f6…0ba1a Head {h00=0x0020, h01=0x001c, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x0077, t01=0x0028}
0x0ba1a…0ba4c Head {h00=0x002e, h01=0x002a, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x0077, t01=0x004c}
0x0ba4c…0ba84 Head {h00=0x0034, h01=0x002f, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x0077, t01=0x007e}
0x0ba84…0bab4 Head {h00=0x002c, h01=0x0027, text=» SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT «, t00=0x0077, t01=0x00b6}
0x0bab4…0baea Head {h00=0x0032, h01=0x002d, text=» SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE «, t00=0x0077, t01=0x00e6}
0x0baea…0bb18 Head {h00=0x002a, h01=0x0026, text=» SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT«, t00=0x0077, t01=0x011c}
0x0bb18…0bb22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0077, t01=0x014a}
0x0bb22…0bb60 Head {h00=0x003a, h01=0x0035, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x0077, t01=0x0154}
0x0bb60…0bb6a (120, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x0004}
0x0bb6a…0bba0 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID«, t00=0x0078, t01=0x000e}
0x0bba0…0bbb8 Head {h00=0x0014, h01=0x000f, text=» ADR A2,A2 2*ID «, t00=0x0078, t01=0x0044}
0x0bbb8…0bbe4 Head {h00=0x0028, h01=0x0050, text=» LD A7,SAVE18,A13 POINTER TO TCLASS «, t00=0x0078, t01=0x005c}
0x0bbe4…0bc00 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x0078, t01=0x0088}
0x0bc00…0bc0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00a4}
0x0bc0a…0bc48 Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED«, t00=0x0078, t01=0x00ae}
0x0bc48…0bc52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00ec}
0x0bc52…0bc7a Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0078, t01=0x00f6}
0x0bc7a…0bc88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x011e}
0x0bc88…0bc92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x012c}
0x0bc92…0bcba Head {h00=0x0024, h01=0x0020, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x0078, t01=0x0136}
0x0bcba…0bcf0 Head {h00=0x0032, h01=0x002d, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x0078, t01=0x015e}
0x0bcf0…0bd20 (121, 0, 400) Head {h00=0x002c, h01=0x0028, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x0079, t01=0x0004}
0x0bd20…0bd2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0079, t01=0x0034}
0x0bd2a…0bd5c Head {h00=0x002e, h01=0x002a, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x0079, t01=0x003e}
0x0bd5c…0bd8e Head {h00=0x002e, h01=0x002a, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x0079, t01=0x0070}
0x0bd8e…0bdcc Head {h00=0x003a, h01=0x0036, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x0079, t01=0x00a2}
0x0bdcc…0bdd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0079, t01=0x00e0}
0x0bdd6…0bdea Head {h00=0x0010, h01=0x000c, text=» CALL DWTGEN«, t00=0x0079, t01=0x00ea}
0x0bdea…0bdfe Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x0079, t01=0x00fe}
0x0bdfe…0be3e Head {h00=0x003c, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0079, t01=0x0112}
0x0be3e…0be6e Head {h00=0x002c, h01=0x0027, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x0079, t01=0x0152}
0x0be6e…0be86 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x0079, t01=0x0182}
0x0be86…0beb6 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE REMAINING NUMBER «, t00=0x007a, t01=0x000a}
0x0beb6…0bede Head {h00=0x0024, h01=0x0020, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x007a, t01=0x003a}
0x0bede…0bef0 Head {h00=0x000e, h01=0x000a, text=» RB BDWT55«, t00=0x007a, t01=0x0062}
0x0bef0…0bf04 Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x007a, t01=0x0074}
0x0bf04…0bf3a Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x007a, t01=0x0088}
0x0bf3a…0bf64 Head {h00=0x0026, h01=0x0021, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x007a, t01=0x00be}
0x0bf64…0bf82 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE«, t00=0x007a, t01=0x00e8}
0x0bf82…0bfbe Head {h00=0x0038, h01=0x0050, text=» LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x007a, t01=0x0106}
0x0bfbe…0bfe4 Head {h00=0x0022, h01=0x001e, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x007a, t01=0x0142}
0x0bfe4…0bffa Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT50 «, t00=0x007a, t01=0x0168}
0x0bffa…0c02a Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x007a, t01=0x017e}
0x0c02a…0c034 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x001e}
0x0c034…0c05c Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x007b, t01=0x0028}
0x0c05c…0c088 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x007b, t01=0x0050}
0x0c088…0c0a2 Head {h00=0x0016, h01=0x0011, text=» RB(E) BDWT40 YES «, t00=0x007b, t01=0x007c}
0x0c0a2…0c0ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x0096}
0x0c0ac…0c0e0 Head {h00=0x0030, h01=0x002c, text=»* ALL TERMINAL DEVICE WORK TABLES GENERATED«, t00=0x007b, t01=0x00a0}
0x0c0e0…0c0ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x00d4}
0x0c0ea…0c100 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x007b, t01=0x00de}
0x0c100…0c112 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x007b, t01=0x00f4}
0x0c112…0c12a Head {h00=0x0014, h01=0x0050, text=»BDW105 ADK A2,2 «, t00=0x007b, t01=0x0106}
0x0c12a…0c140 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x007b, t01=0x011e}
0x0c140…0c156 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BDW110«, t00=0x007b, t01=0x0134}
0x0c156…0c16c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007b, t01=0x014a}
0x0c16c…0c180 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x007b, t01=0x0160}
0x0c180…0c19a Head {h00=0x0016, h01=0x0050, text=»BDW110 CWR A2,A12 «, t00=0x007b, t01=0x0174}
0x0c19a…0c1b0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BDW105«, t00=0x007b, t01=0x018e}
0x0c1b0…0c1e0 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x007c, t01=0x0014}
0x0c1e0…0c1f8 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x007c, t01=0x0044}
0x0c1f8…0c208 Head {h00=0x000c, h01=0x0007, text=» EJECT «, t00=0x007c, t01=0x005c}
0x0c208…0c238 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x007c, t01=0x006c}
0x0c238…0c268 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x007c, t01=0x009c}
0x0c268…0c298 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x007c, t01=0x00cc}
0x0c298…0c2a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007c, t01=0x00fc}
0x0c2a2…0c2c4 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONCON «, t00=0x007c, t01=0x0106}
0x0c2c4…0c2ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007c, t01=0x0128}
0x0c2ce…0c2fc Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x007c, t01=0x0132}
0x0c2fc…0c334 Head {h00=0x0034, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION DATA «, t00=0x007c, t01=0x0160}
0x0c334…0c360 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x007d, t01=0x0008}
0x0c360…0c36a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x0034}
0x0c36a…0c3a2 Head {h00=0x0034, h01=0x0030, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x007d, t01=0x003e}
0x0c3a2…0c3ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x0076}
0x0c3ac…0c3ce Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x007d, t01=0x0080}
0x0c3ce…0c3d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x00a2}
0x0c3d8…0c418 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x007d, t01=0x00ac}
0x0c418…0c422 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007d, t01=0x00ec}
0x0c422…0c430 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x007d, t01=0x00f6}
0x0c430…0c444 Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x007d, t01=0x0104}
0x0c444…0c47a Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION DATA«, t00=0x007d, t01=0x0118}
0x0c47a…0c4a4 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x007d, t01=0x014e}
0x0c4a4…0c4c2 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x007d, t01=0x0178}
0x0c4c2…0c4cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007e, t01=0x0008}
0x0c4cc…0c4fa Head {h00=0x002a, h01=0x0025, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x007e, t01=0x0012}
0x0c4fa…0c504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007e, t01=0x0040}
0x0c504…0c518 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x007e, t01=0x004a}
0x0c518…0c52c Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x007e, t01=0x005e}
0x0c52c…0c558 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x007e, t01=0x0072}
0x0c558…0c572 Head {h00=0x0016, h01=0x0011, text=» RB(E) CDG:10 YES «, t00=0x007e, t01=0x009e}
0x0c572…0c59e Head {h00=0x0028, h01=0x0024, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x007e, t01=0x00b8}
0x0c59e…0c5b8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x007e, t01=0x00e4}
0x0c5b8…0c5c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x00fe}
0x0c5c6…0c5d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x010c}
0x0c5d0…0c60e Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x007e, t01=0x0116}
0x0c60e…0c64a Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x007e, t01=0x0154}
0x0c64a…0c654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0190}
0x0c654…0c688 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x007f, t01=0x000a}
0x0c688…0c6c2 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x007f, t01=0x003e}
0x0c6c2…0c6ec Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x007f, t01=0x0078}
0x0c6ec…0c704 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x007f, t01=0x00a2}
0x0c704…0c72a Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x007f, t01=0x00ba}
0x0c72a…0c75c Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x007f, t01=0x00e0}
0x0c75c…0c78c Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x007f, t01=0x0112}
0x0c78c…0c7bc Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x007f, t01=0x0142}
0x0c7bc…0c7e4 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x007f, t01=0x0172}
0x0c7e4…0c804 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x0080, t01=0x000a}
0x0c804…0c82e Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x0080, t01=0x002a}
0x0c82e…0c848 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x0080, t01=0x0054}
0x0c848…0c86c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x0080, t01=0x006e}
0x0c86c…0c880 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0080, t01=0x0092}
0x0c880…0c8b0 Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x0080, t01=0x00a6}
0x0c8b0…0c8d8 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x0080, t01=0x00d6}
0x0c8d8…0c900 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x0080, t01=0x00fe}
0x0c900…0c926 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x0080, t01=0x0126}
0x0c926…0c950 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x0080, t01=0x014c}
0x0c950…0c982 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x0080, t01=0x0176}
0x0c982…0c9a8 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x0081, t01=0x0018}
0x0c9a8…0c9ba Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x0081, t01=0x003e}
0x0c9ba…0c9c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0050}
0x0c9c8…0c9dc Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x0081, t01=0x005e}
0x0c9dc…0c9e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0072}
0x0c9e6…0ca24 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x0081, t01=0x007c}
0x0ca24…0ca60 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x0081, t01=0x00ba}
0x0ca60…0ca6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00f6}
0x0ca6a…0ca7e Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0081, t01=0x0100}
0x0ca7e…0ca9c Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0081, t01=0x0114}
0x0ca9c…0caae Head {h00=0x000e, h01=0x000a, text=» LDR A6,A1«, t00=0x0081, t01=0x0132}
0x0caae…0cac2 Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x0081, t01=0x0144}
0x0cac2…0cad8 Head {h00=0x0012, h01=0x000d, text=» RF(Z) BCDTEX «, t00=0x0081, t01=0x0158}
0x0cad8…0caec Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0081, t01=0x016e}
0x0caec…0cafe Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x0081, t01=0x0182}
0x0cafe…0cb2e (130, 0, 398) Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0082, t01=0x0004}
0x0cb2e…0cb42 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0082, t01=0x0034}
0x0cb42…0cb54 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0082, t01=0x0048}
0x0cb54…0cb66 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0082, t01=0x005a}
0x0cb66…0cb7c Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x0082, t01=0x006c}
0x0cb7c…0cb92 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0082, t01=0x0082}
0x0cb92…0cba6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0082, t01=0x0098}
0x0cba6…0cbba Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x0082, t01=0x00ac}
0x0cbba…0cbda Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x0082, t01=0x00c0}
0x0cbda…0cc02 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x0082, t01=0x00e0}
0x0cc02…0cc20 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x0082, t01=0x0108}
0x0cc20…0cc32 Head {h00=0x000e, h01=0x0009, text=» SUK A1,2 «, t00=0x0082, t01=0x0126}
0x0cc32…0cc46 Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x0082, t01=0x0138}
0x0cc46…0cc58 Head {h00=0x000e, h01=0x000a, text=» ADR A7,A1«, t00=0x0082, t01=0x014c}
0x0cc58…0cc6a Head {h00=0x000e, h01=0x0009, text=» SUK A6,1 «, t00=0x0082, t01=0x015e}
0x0cc6a…0cc7c Head {h00=0x000e, h01=0x000a, text=» RB BCDT10«, t00=0x0082, t01=0x0170}
0x0cc7c…0cc90 Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x0082, t01=0x0182}
0x0cc90…0cc9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0008}
0x0cc9e…0cca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0016}
0x0cca8…0cce8 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x0083, t01=0x0020}
0x0cce8…0cd22 Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x0083, t01=0x0060}
0x0cd22…0cd2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x009a}
0x0cd2c…0cd66 Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x0083, t01=0x00a4}
0x0cd66…0cdaa Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x0083, t01=0x00de}
0x0cdaa…0cdb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0122}
0x0cdb4…0ce02 Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x0083, t01=0x012c}
0x0ce02…0ce0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x017a}
0x0ce0c…0ce36 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x0083, t01=0x0184}
0x0ce36…0ce5c Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x0084, t01=0x001e}
0x0ce5c…0ce78 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x0084, t01=0x0044}
0x0ce78…0ce9e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0084, t01=0x0060}
0x0ce9e…0cec6 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/A DISC PAGING OR SWB:S?«, t00=0x0084, t01=0x0086}
0x0cec6…0cef6 Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x0084, t01=0x00ae}
0x0cef6…0cf10 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:15 NO! «, t00=0x0084, t01=0x00de}
0x0cf10…0cf40 Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0084, t01=0x00f8}
0x0cf40…0cf68 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x0084, t01=0x0128}
0x0cf68…0cf8e Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x0084, t01=0x0150}
0x0cf8e…0cfb6 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x0084, t01=0x0176}
0x0cfb6…0cfe4 Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x0085, t01=0x000e}
0x0cfe4…0d010 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x0085, t01=0x003c}
0x0d010…0d036 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0085, t01=0x0068}
0x0d036…0d060 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x0085, t01=0x008e}
0x0d060…0d074 Head {h00=0x0010, h01=0x0050, text=»CDG:15 EQU *«, t00=0x0085, t01=0x00b8}
0x0d074…0d0a4 Head {h00=0x002c, h01=0x0050, text=» LD A6,SCTDMC GET NUMBER OF GLOBAL FILES«, t00=0x0085, t01=0x00cc}
0x0d0a4…0d0c4 Head {h00=0x001c, h01=0x0050, text=» SLL A6,2 MULTIPLY BY 4 «, t00=0x0085, t01=0x00fc}
0x0d0c4…0d0ee Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x0085, t01=0x011c}
0x0d0ee…0d100 Head {h00=0x000e, h01=0x0009, text=» ADK A7,2 «, t00=0x0085, t01=0x0146}
0x0d100…0d114 Head {h00=0x0010, h01=0x000b, text=» STR A7,A12 «, t00=0x0085, t01=0x0158}
0x0d114…0d12a Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x0085, t01=0x016c}
0x0d12a…0d13e Head {h00=0x0010, h01=0x000b, text=» ADR A12,A7 «, t00=0x0085, t01=0x0182}
0x0d13e…0d14c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0086, t01=0x0008}
0x0d14c…0d156 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x0016}
0x0d156…0d190 Head {h00=0x0036, h01=0x0031, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x0086, t01=0x0020}
0x0d190…0d19a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x005a}
0x0d19a…0d1c6 Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x0086, t01=0x0064}
0x0d1c6…0d1ee Head {h00=0x0024, h01=0x0050, text=» LCR A2,A11 COMMON DEVICE BLOCK?«, t00=0x0086, t01=0x0090}
0x0d1ee…0d202 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0086, t01=0x00b8}
0x0d202…0d218 Head {h00=0x0012, h01=0x0050, text=» RF(E) CDG:18 «, t00=0x0086, t01=0x00cc}
0x0d218…0d246 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,2 FIRST FREE ENTRY IN CDTAB «, t00=0x0086, t01=0x00e2}
0x0d246…0d258 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0086, t01=0x0110}
0x0d258…0d26a Head {h00=0x000e, h01=0x0050, text=» RF CDGEX «, t00=0x0086, t01=0x0122}
0x0d26a…0d27e Head {h00=0x0010, h01=0x0050, text=»CDG:18 EQU *«, t00=0x0086, t01=0x0134}
0x0d27e…0d288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0148}
0x0d288…0d2ca Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x0086, t01=0x0152}
0x0d2ca…0d2d4 (135, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0004}
0x0d2d4…0d302 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x0087, t01=0x000e}
0x0d302…0d33c Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x0087, t01=0x003c}
0x0d33c…0d366 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x0087, t01=0x0076}
0x0d366…0d396 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x0087, t01=0x00a0}
0x0d396…0d3b6 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x0087, t01=0x00d0}
0x0d3b6…0d3d4 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE«, t00=0x0087, t01=0x00f0}
0x0d3d4…0d400 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x0087, t01=0x010e}
0x0d400…0d41e Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE«, t00=0x0087, t01=0x013a}
0x0d41e…0d44e Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0087, t01=0x0158}
0x0d44e…0d466 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x0087, t01=0x0188}
0x0d466…0d496 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE14,A13 GET CLASS IDENT NUMBER«, t00=0x0088, t01=0x0010}
0x0d496…0d4c0 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x0088, t01=0x0040}
0x0d4c0…0d4f0 Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0088, t01=0x006a}
0x0d4f0…0d51a Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x0088, t01=0x009a}
0x0d51a…0d542 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0088, t01=0x00c4}
0x0d542…0d574 Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x0088, t01=0x00ec}
0x0d574…0d5a6 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x0088, t01=0x011e}
0x0d5a6…0d5d4 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF C.T.C.«, t00=0x0088, t01=0x0150}
0x0d5d4…0d5f8 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x0088, t01=0x017e}
0x0d5f8…0d60a Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x0089, t01=0x0012}
0x0d60a…0d63c Head {h00=0x002e, h01=0x0050, text=»B:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB«, t00=0x0089, t01=0x0024}
0x0d63c…0d64a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x0056}
0x0d64a…0d654 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x0064}
0x0d654…0d684 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0089, t01=0x006e}
0x0d684…0d68e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x009e}
0x0d68e…0d6a2 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0089, t01=0x00a8}
0x0d6a2…0d6c0 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0089, t01=0x00bc}
0x0d6c0…0d6d2 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0089, t01=0x00da}
0x0d6d2…0d6e6 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x0089, t01=0x00ec}
0x0d6e6…0d6fc Head {h00=0x0012, h01=0x0050, text=» RF(NP) CDGEX «, t00=0x0089, t01=0x0100}
0x0d6fc…0d706 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x0116}
0x0d706…0d730 Head {h00=0x0026, h01=0x0023, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x0089, t01=0x0120}
0x0d730…0d73a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x014a}
0x0d73a…0d74e Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0089, t01=0x0154}
0x0d74e…0d758 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x0168}
0x0d758…0d78c Head {h00=0x0030, h01=0x002b, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x0089, t01=0x0172}
0x0d78c…0d796 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x0016}
0x0d796…0d7ac Head {h00=0x0012, h01=0x000e, text=» ADR A1,A1 T «, t00=0x008a, t01=0x0020}
0x0d7ac…0d7dc Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x008a, t01=0x0036}
0x0d7dc…0d7f0 Head {h00=0x0010, h01=0x0050, text=»CDG:25 EQU *«, t00=0x008a, t01=0x0066}
0x0d7f0…0d810 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x008a, t01=0x007a}
0x0d810…0d83a Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x008a, t01=0x009a}
0x0d83a…0d862 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x008a, t01=0x00c4}
0x0d862…0d88a Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x008a, t01=0x00ec}
0x0d88a…0d8b0 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x008a, t01=0x0114}
0x0d8b0…0d8c4 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x008a, t01=0x013a}
0x0d8c4…0d8e2 Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x008a, t01=0x014e}
0x0d8e2…0d906 Head {h00=0x0020, h01=0x001b, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x008a, t01=0x016c}
0x0d906…0d932 Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x008a, t01=0x0190}
0x0d932…0d94a Head {h00=0x0014, h01=0x0010, text=» RF(Z) CDG:40 NO«, t00=0x008b, t01=0x002c}
0x0d94a…0d954 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x0044}
0x0d954…0d968 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x008b, t01=0x004e}
0x0d968…0d972 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x0062}
0x0d972…0d990 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x008b, t01=0x006c}
0x0d990…0d9c0 Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x008b, t01=0x008a}
0x0d9c0…0d9dc Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x008b, t01=0x00ba}
0x0d9dc…0d9e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00d6}
0x0d9e6…0da1e Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x008b, t01=0x00e0}
0x0da1e…0da28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0118}
0x0da28…0da4e Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x008b, t01=0x0122}
0x0da4e…0da6e Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x008b, t01=0x0148}
0x0da6e…0da88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x008b, t01=0x0168}
0x0da88…0dab4 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x008b, t01=0x0182}
0x0dab4…0dae2 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x008c, t01=0x001e}
0x0dae2…0db12 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x008c, t01=0x004c}
0x0db12…0db36 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x008c, t01=0x007c}
0x0db36…0db52 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x008c, t01=0x00a0}
0x0db52…0db78 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x008c, t01=0x00bc}
0x0db78…0db8c Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x008c, t01=0x00e2}
0x0db8c…0dbb2 Head {h00=0x0022, h01=0x001d, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x008c, t01=0x00f6}
0x0dbb2…0dbc6 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x008c, t01=0x011c}
0x0dbc6…0dbd0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008c, t01=0x0130}
0x0dbd0…0dc02 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x008c, t01=0x013a}
0x0dc02…0dc0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008c, t01=0x016c}
0x0dc0c…0dc32 Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x008c, t01=0x0176}
0x0dc32…0dc54 Head {h00=0x001e, h01=0x001a, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x008d, t01=0x000c}
0x0dc54…0dc76 Head {h00=0x001e, h01=0x0019, text=» STR A1,A10 STORE IN TTAB «, t00=0x008d, t01=0x002e}
0x0dc76…0dc9e Head {h00=0x0024, h01=0x0020, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x008d, t01=0x0050}
0x0dc9e…0dcc8 Head {h00=0x0026, h01=0x0022, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x008d, t01=0x0078}
0x0dcc8…0dcea Head {h00=0x001e, h01=0x0019, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x008d, t01=0x00a2}
0x0dcea…0dcf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x00c4}
0x0dcf8…0dd02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008d, t01=0x00d2}
0x0dd02…0dd32 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x008d, t01=0x00dc}
0x0dd32…0dd3c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008d, t01=0x010c}
0x0dd3c…0dd50 Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x008d, t01=0x0116}
0x0dd50…0dd62 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x008d, t01=0x012a}
0x0dd62…0dd74 Head {h00=0x000e, h01=0x000a, text=» RB CDG:20«, t00=0x008d, t01=0x013c}
0x0dd74…0dd88 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x008d, t01=0x014e}
0x0dd88…0ddae Head {h00=0x0022, h01=0x0050, text=» RF(N) CDG:EX CD:TAB COMPLETE!«, t00=0x008d, t01=0x0162}
0x0ddae…0ddd4 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x008d, t01=0x0188}
0x0ddd4…0ddfc Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x008e, t01=0x001e}
0x0ddfc…0de18 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x008e, t01=0x0046}
0x0de18…0de3e Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x008e, t01=0x0062}
0x0de3e…0de66 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/A DISC PAGING OR SWB:S?«, t00=0x008e, t01=0x0088}
0x0de66…0de96 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x008e, t01=0x00b0}
0x0de96…0deb0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x008e, t01=0x00e0}
0x0deb0…0dee0 Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x008e, t01=0x00fa}
0x0dee0…0df08 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x008e, t01=0x012a}
0x0df08…0df2e Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x008e, t01=0x0152}
0x0df2e…0df50 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x008e, t01=0x0178}
0x0df50…0df7e Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x008f, t01=0x000a}
0x0df7e…0dfaa Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x008f, t01=0x0038}
0x0dfaa…0dfd0 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x008f, t01=0x0064}
0x0dfd0…0dfe2 Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x008f, t01=0x008a}
0x0dfe2…0dff6 Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x008f, t01=0x009c}
0x0dff6…0e00c Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x008f, t01=0x00b0}
0x0e00c…0e01e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x008f, t01=0x00c6}
0x0e01e…0e036 Head {h00=0x0014, h01=0x0050, text=»CDG:50 ADK A2,2 «, t00=0x008f, t01=0x00d8}
0x0e036…0e04c Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x008f, t01=0x00f0}
0x0e04c…0e062 Head {h00=0x0012, h01=0x0050, text=» RF(NE) CDG:60«, t00=0x008f, t01=0x0106}
0x0e062…0e078 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x008f, t01=0x011c}
0x0e078…0e0a4 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x0132}
0x0e0a4…0e0be Head {h00=0x0016, h01=0x0050, text=»CDG:60 CWR A2,A12 «, t00=0x008f, t01=0x015e}
0x0e0be…0e0d4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CDG:50«, t00=0x008f, t01=0x0178}
0x0e0d4…0e104 Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x008f, t01=0x018e}
0x0e104…0e11c Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0090, t01=0x002e}
0x0e11c…0e12a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0090, t01=0x0046}
0x0e12a…0e178 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0090, t01=0x0054}
0x0e178…0e1c4 Head {h00=0x0048, h01=0x0043, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x0090, t01=0x00a2}
0x0e1c4…0e212 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0090, t01=0x00ee}
0x0e212…0e21c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0090, t01=0x013c}
0x0e21c…0e254 Head {h00=0x0034, h01=0x002f, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x0090, t01=0x0146}
0x0e254…0e296 Head {h00=0x003e, h01=0x003a, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x0090, t01=0x017e}
0x0e296…0e2c4 Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0091, t01=0x0030}
0x0e2c4…0e2ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x005e}
0x0e2ce…0e2de Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x0091, t01=0x0068}
0x0e2de…0e2e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x0078}
0x0e2e8…0e308 Head {h00=0x001c, h01=0x0018, text=»* WORK REGISTERS: A1-A8«, t00=0x0091, t01=0x0082}
0x0e308…0e312 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x00a2}
0x0e312…0e334 Head {h00=0x001e, h01=0x001a, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x0091, t01=0x00ac}
0x0e334…0e33e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x00ce}
0x0e33e…0e34c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0091, t01=0x00d8}
0x0e34c…0e360 Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x0091, t01=0x00e6}
0x0e360…0e396 Head {h00=0x0032, h01=0x0050, text=» ST A6,SAVE08,A13 SAVE LINE CONNECTION NUMBER «, t00=0x0091, t01=0x00fa}
0x0e396…0e3c2 Head {h00=0x0028, h01=0x0024, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x0091, t01=0x0130}
0x0e3c2…0e3ea Head {h00=0x0024, h01=0x0020, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x0091, t01=0x015c}
0x0e3ea…0e40a Head {h00=0x001c, h01=0x0018, text=» ADK A7,2 FIRST FILECODE«, t00=0x0091, t01=0x0184}
0x0e40a…0e41e Head {h00=0x0010, h01=0x0050, text=»DWT10 EQU * «, t00=0x0092, t01=0x0014}
0x0e41e…0e450 Head {h00=0x002e, h01=0x0029, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x0092, t01=0x0028}
0x0e450…0e45a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x005a}
0x0e45a…0e492 Head {h00=0x0034, h01=0x002f, text=»* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO «, t00=0x0092, t01=0x0064}
0x0e492…0e4ce Head {h00=0x0038, h01=0x0034, text=»* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE«, t00=0x0092, t01=0x009c}
0x0e4ce…0e506 Head {h00=0x0034, h01=0x0030, text=»* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT«, t00=0x0092, t01=0x00d8}
0x0e506…0e510 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x0110}
0x0e510…0e524 Head {h00=0x0010, h01=0x000b, text=» CALL I:CHP «, t00=0x0092, t01=0x011a}
0x0e524…0e52e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0092, t01=0x012e}
0x0e52e…0e572 Head {h00=0x0040, h01=0x0050, text=»* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) «, t00=0x0092, t01=0x0138}
0x0e572…0e598 Head {h00=0x0022, h01=0x0050, text=»* AND SAVE06 (SELECTS ENTRY) «, t00=0x0092, t01=0x017c}
0x0e598…0e5a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0093, t01=0x0012}
0x0e5a2…0e5d6 Head {h00=0x0030, h01=0x0050, text=»* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6)«, t00=0x0093, t01=0x001c}
0x0e5d6…0e60e Head {h00=0x0034, h01=0x0050, text=»* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 «, t00=0x0093, t01=0x0050}
0x0e60e…0e63c Head {h00=0x002a, h01=0x0025, text=»* OF THE GENERATED CHANNEL PARAMETER «, t00=0x0093, t01=0x0088}
0x0e63c…0e672 Head {h00=0x0032, h01=0x0050, text=» LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6«, t00=0x0093, t01=0x00b6}
0x0e672…0e6a2 Head {h00=0x002c, h01=0x0050, text=» LD A3,SCTSFA+2 FIRST INT TABLE POINTER «, t00=0x0093, t01=0x00ec}
0x0e6a2…0e6cc Head {h00=0x0026, h01=0x0021, text=» ADR A4,A3 SELECT INTERRUPT TABLE «, t00=0x0093, t01=0x011c}
0x0e6cc…0e6fc Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A4 GET INTERRUPT TABLE ADDRESS «, t00=0x0093, t01=0x0146}
0x0e6fc…0e724 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVE06,A13 LINE PARAMETER«, t00=0x0093, t01=0x0176}
0x0e724…0e72c Head {h00=0x0004, h01=0x0002, t00=0x0094, t01=0x000e}
0x0e72c…0e740 Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0094, t01=0x0016}
0x0e740…0e766 Head {h00=0x0022, h01=0x001d, text=» RF(Z) DWT17 LINE ENTRY FOUND «, t00=0x0094, t01=0x002a}
0x0e766…0e782 Head {h00=0x0018, h01=0x0014, text=» ADK A4,28 NEXT LINE«, t00=0x0094, t01=0x0050}
0x0e782…0e7ac Head {h00=0x0026, h01=0x0022, text=» SUK A3,1 DECREMENT LINE PARAMETER«, t00=0x0094, t01=0x006c}
0x0e7ac…0e7be Head {h00=0x000e, h01=0x0009, text=» RB DWT15 «, t00=0x0094, t01=0x0096}
0x0e7be…0e7cc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0094, t01=0x00a8}
0x0e7cc…0e7e0 Head {h00=0x0010, h01=0x0050, text=»DWT17 EQU * «, t00=0x0094, t01=0x00b6}
0x0e7e0…0e81a Head {h00=0x0036, h01=0x0050, text=» ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY «, t00=0x0094, t01=0x00ca}
0x0e81a…0e824 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0094, t01=0x0104}
0x0e824…0e842 Head {h00=0x001a, h01=0x0016, text=»* GET DEVICE ADDRESS:«, t00=0x0094, t01=0x010e}
0x0e842…0e876 Head {h00=0x0030, h01=0x0050, text=»* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE«, t00=0x0094, t01=0x012c}
0x0e876…0e8a0 Head {h00=0x0026, h01=0x0050, text=»* OR DEVICE WITHOUT DATA REQUEST «, t00=0x0094, t01=0x0160}
0x0e8a0…0e8d8 Head {h00=0x0034, h01=0x002f, text=»* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES «, t00=0x0094, t01=0x018a}
0x0e8d8…0e8e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0095, t01=0x0032}
0x0e8e2…0e916 Head {h00=0x0030, h01=0x002b, text=» LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT «, t00=0x0095, t01=0x003c}
0x0e916…0e92e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A6 SAVE «, t00=0x0095, t01=0x0070}
0x0e92e…0e96c Head {h00=0x003a, h01=0x0035, text=» ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT «, t00=0x0095, t01=0x0088}
0x0e96c…0e994 Head {h00=0x0024, h01=0x001f, text=» SLC A6,7 CHECK IF INPUT DEVICE «, t00=0x0095, t01=0x00c6}
0x0e994…0e9ae Head {h00=0x0016, h01=0x0050, text=» RF(N) DWT20 YES! «, t00=0x0095, t01=0x00ee}
0x0e9ae…0e9b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0108}
0x0e9b8…0e9f8 Head {h00=0x003c, h01=0x0050, text=»* NOT INPUT DEVICE - CHECK IF DEVICE WITH DATA REQUEST «, t00=0x0095, t01=0x0112}
0x0e9f8…0ea02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0152}
0x0ea02…0ea2e Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/8000 DATA REQUEST BIT SET?«, t00=0x0095, t01=0x015c}
0x0ea2e…0ea46 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT20 NO!«, t00=0x0095, t01=0x0188}
0x0ea46…0ea58 Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x0096, t01=0x0010}
0x0ea58…0ea6a Head {h00=0x000e, h01=0x0050, text=» ADK A6,12«, t00=0x0096, t01=0x0022}
0x0ea6a…0ea7c Head {h00=0x000e, h01=0x0009, text=» RF DWT30 «, t00=0x0096, t01=0x0034}
0x0ea7c…0ea90 Head {h00=0x0010, h01=0x0050, text=»DWT20 EQU * «, t00=0x0096, t01=0x0046}
0x0ea90…0eaa2 Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x0096, t01=0x005a}
0x0eaa2…0eab4 Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x0096, t01=0x006c}
0x0eab4…0eac8 Head {h00=0x0010, h01=0x0050, text=»DWT30 EQU * «, t00=0x0096, t01=0x007e}
0x0eac8…0eadc Head {h00=0x0010, h01=0x000b, text=» ANK A6,/1E «, t00=0x0096, t01=0x0092}
0x0eadc…0eae6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x00a6}
0x0eae6…0eb1c Head {h00=0x0032, h01=0x002e, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0096, t01=0x00b0}
0x0eb1c…0eb26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x00e6}
0x0eb26…0eb44 Head {h00=0x001a, h01=0x0016, text=» ADR A6,A4 TABLE ENTRY«, t00=0x0096, t01=0x00f0}
0x0eb44…0eb6e Head {h00=0x0026, h01=0x0022, text=» LDR* A2,A6 DWT ALREADY GENERATED?«, t00=0x0096, t01=0x010e}
0x0eb6e…0eb86 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT32 NO!«, t00=0x0096, t01=0x0138}
0x0eb86…0ebac Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTECB,A1 CHECK IF ECHO«, t00=0x0096, t01=0x0150}
0x0ebac…0ebc4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT70 NO!«, t00=0x0096, t01=0x0176}
0x0ebc4…0ebfe Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS «, t00=0x0096, t01=0x018e}
0x0ebfe…0ec2e Head {h00=0x002c, h01=0x0050, text=» CM DWTECB,A1 RESET POINTER TO INPUT-DWT«, t00=0x0097, t01=0x0038}
0x0ec2e…0ec40 Head {h00=0x000e, h01=0x0050, text=» RF DWT70 «, t00=0x0097, t01=0x0068}
0x0ec40…0ec4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x007a}
0x0ec4e…0ec58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0088}
0x0ec58…0ec7a Head {h00=0x001e, h01=0x0050, text=»* CHECK IF DWT IN DRIVER «, t00=0x0097, t01=0x0092}
0x0ec7a…0ec84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x00b4}
0x0ec84…0eca0 Head {h00=0x0018, h01=0x0050, text=»DWT32 LDKL A2,SYSLOD«, t00=0x0097, t01=0x00be}
0x0eca0…0ecb2 Head {h00=0x000e, h01=0x0050, text=» TNM A1,A2«, t00=0x0097, t01=0x00da}
0x0ecb2…0ecc8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DWT34 «, t00=0x0097, t01=0x00ec}
0x0ecc8…0ecda Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0097, t01=0x0102}
0x0ecda…0ecec Head {h00=0x000e, h01=0x0050, text=» RF DWT36 «, t00=0x0097, t01=0x0114}
0x0ecec…0ed04 Head {h00=0x0014, h01=0x0050, text=»DWT34 CWR A2,A1 «, t00=0x0097, t01=0x0126}
0x0ed04…0ed1e Head {h00=0x0016, h01=0x0050, text=»DWT36 RF(L) DWT38 «, t00=0x0097, t01=0x013e}
0x0ed1e…0ed30 Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x0097, t01=0x0158}
0x0ed30…0ed50 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 DWT IN DRIVER«, t00=0x0097, t01=0x016a}
0x0ed50…0ed62 Head {h00=0x000e, h01=0x0050, text=» RF DWT70 «, t00=0x0097, t01=0x018a}
0x0ed62…0ed76 Head {h00=0x0010, h01=0x0050, text=»DWT38 EQU * «, t00=0x0098, t01=0x000c}
0x0ed76…0ed9a Head {h00=0x0020, h01=0x001c, text=» STR A12,A6 SAVE DWT-ADDRESS«, t00=0x0098, t01=0x0020}
0x0ed9a…0eda4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x0044}
0x0eda4…0edc4 Head {h00=0x001c, h01=0x0017, text=»* COPY DEVICE TYPE DWT «, t00=0x0098, t01=0x004e}
0x0edc4…0edce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x006e}
0x0edce…0edec Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0098, t01=0x0078}
0x0edec…0ee0a Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0098, t01=0x0096}
0x0ee0a…0ee2e Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0098, t01=0x00b4}
0x0ee2e…0ee40 Head {h00=0x000e, h01=0x000a, text=» CALL MOVE«, t00=0x0098, t01=0x00d8}
0x0ee40…0ee4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x00ea}
0x0ee4e…0ee58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x00f8}
0x0ee58…0ee80 Head {h00=0x0024, h01=0x0020, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0098, t01=0x0102}
0x0ee80…0eea4 Head {h00=0x0020, h01=0x001b, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0098, t01=0x012a}
0x0eea4…0eeae Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0098, t01=0x014e}
0x0eeae…0eed8 Head {h00=0x0026, h01=0x0022, text=» STR A5,A2 STORE CHANNEL PARAMETER«, t00=0x0098, t01=0x0158}
0x0eed8…0eee2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x0182}
0x0eee2…0ef02 Head {h00=0x001c, h01=0x0018, text=»* CHECK IF INPUT DEVICE«, t00=0x0098, t01=0x018c}
0x0ef02…0ef0c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x001c}
0x0ef0c…0ef3a Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x0099, t01=0x0026}
0x0ef3a…0ef5e Head {h00=0x0020, h01=0x001c, text=» ANKL A3,/0100 INPUT DEVICE?«, t00=0x0099, t01=0x0054}
0x0ef5e…0ef76 Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT50 NO «, t00=0x0099, t01=0x0078}
0x0ef76…0ef80 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x0090}
0x0ef80…0ef98 Head {h00=0x0014, h01=0x0010, text=»* INPUT DEVICE:«, t00=0x0099, t01=0x009a}
0x0ef98…0efb4 Head {h00=0x0018, h01=0x0014, text=»* CHECK IF KEYBOARD«, t00=0x0099, t01=0x00b2}
0x0efb4…0efbe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x00ce}
0x0efbe…0efd8 Head {h00=0x0016, h01=0x0012, text=» LD A3,DWTADR,A1 «, t00=0x0099, t01=0x00d8}
0x0efd8…0eff0 Head {h00=0x0014, h01=0x0010, text=» LD A3,DEVIND,A3«, t00=0x0099, t01=0x00f2}
0x0eff0…0f002 Head {h00=0x000e, h01=0x0009, text=» CWK A3,6 «, t00=0x0099, t01=0x010a}
0x0f002…0f024 Head {h00=0x001e, h01=0x001a, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0099, t01=0x011c}
0x0f024…0f02e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x013e}
0x0f02e…0f050 Head {h00=0x001e, h01=0x001a, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0099, t01=0x0148}
0x0f050…0f064 Head {h00=0x0010, h01=0x000c, text=»* IF ECHO: «, t00=0x0099, t01=0x016a}
0x0f064…0f09a Head {h00=0x0032, h01=0x002e, text=»* STORE ADDRESS OF KEYBOARD DWT IN THIRD WORD«, t00=0x0099, t01=0x017e}
0x0f09a…0f0cc Head {h00=0x002e, h01=0x0029, text=»* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE «, t00=0x009a, t01=0x0024}
0x0f0cc…0f0d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x0056}
0x0f0d6…0f0f4 Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x009a, t01=0x0060}
0x0f0f4…0f10c Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT40 NO «, t00=0x009a, t01=0x007e}
0x0f10c…0f146 Head {h00=0x0036, h01=0x0050, text=» AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS «, t00=0x009a, t01=0x0096}
0x0f146…0f170 Head {h00=0x0026, h01=0x0050, text=» ST A2,4,A5 SAVE INPUT DWT-ADDRESS«, t00=0x009a, t01=0x00d0}
0x0f170…0f17e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x00fa}
0x0f17e…0f192 Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x009a, t01=0x0108}
0x0f192…0f19c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x011c}
0x0f19c…0f1d2 Head {h00=0x0032, h01=0x002d, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x009a, t01=0x0126}
0x0f1d2…0f1dc Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009a, t01=0x015c}
0x0f1dc…0f1fe Head {h00=0x001e, h01=0x001a, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x009a, t01=0x0166}
0x0f1fe…0f234 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x009a, t01=0x0188}
0x0f234…0f25c Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x009b, t01=0x002e}
0x0f25c…0f284 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x009b, t01=0x0056}
0x0f284…0f28e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009b, t01=0x007e}
0x0f28e…0f2ac Head {h00=0x001a, h01=0x0016, text=»* IF DOUBLE KEYBOARD:«, t00=0x009b, t01=0x0088}
0x0f2ac…0f2f4 Head {h00=0x0044, h01=0x0040, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x009b, t01=0x00a6}
0x0f2f4…0f32e Head {h00=0x0036, h01=0x0032, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x009b, t01=0x00ee}
0x0f32e…0f338 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009b, t01=0x0128}
0x0f338…0f366 Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x009b, t01=0x0132}
0x0f366…0f390 Head {h00=0x0026, h01=0x0022, text=» ANK A3,/F GET FOUR RIGHTMOST BITS«, t00=0x009b, t01=0x0160}
0x0f390…0f3b8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x009b, t01=0x018a}
0x0f3b8…0f3e0 Head {h00=0x0024, h01=0x001f, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x009c, t01=0x0022}
0x0f3e0…0f3fa Head {h00=0x0016, h01=0x0011, text=» ADK A5,1 ADD ONE «, t00=0x009c, t01=0x004a}
0x0f3fa…0f42e Head {h00=0x0030, h01=0x002c, text=» SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1«, t00=0x009c, t01=0x0064}
0x0f42e…0f452 Head {h00=0x0020, h01=0x001c, text=» ADR A3,A3 BYTE DISPLACEMENT«, t00=0x009c, t01=0x0098}
0x0f452…0f484 Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE«, t00=0x009c, t01=0x00bc}
0x0f484…0f4ac Head {h00=0x0024, h01=0x001f, text=» STR A5,A3 STORE DEVICE-ADDRESS «, t00=0x009c, t01=0x00ee}
0x0f4ac…0f4be Head {h00=0x000e, h01=0x0009, text=» RF DWT60 «, t00=0x009c, t01=0x0116}
0x0f4be…0f4cc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x009c, t01=0x0128}
0x0f4cc…0f4e0 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x009c, t01=0x0136}
0x0f4e0…0f4ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009c, t01=0x014a}
0x0f4ea…0f502 Head {h00=0x0014, h01=0x0010, text=»* OUTPUT DEVICE«, t00=0x009c, t01=0x0154}
0x0f502…0f524 Head {h00=0x001e, h01=0x0019, text=»* IF ECHO OUTPUT DEVICE: «, t00=0x009c, t01=0x016c}
0x0f524…0f562 Head {h00=0x003a, h01=0x0036, text=»* GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD«, t00=0x009c, t01=0x018e}
0x0f562…0f578 Head {h00=0x0012, h01=0x000e, text=»* IN THE DWT.«, t00=0x009d, t01=0x003c}
0x0f578…0f5b4 Head {h00=0x0038, h01=0x0033, text=»* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT «, t00=0x009d, t01=0x0052}
0x0f5b4…0f5dc Head {h00=0x0024, h01=0x0020, text=»* AND CLEAR WORD 3 OF THIS DWT.«, t00=0x009d, t01=0x008e}
0x0f5dc…0f5e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009d, t01=0x00b6}
0x0f5e6…0f61a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT «, t00=0x009d, t01=0x00c0}
0x0f61a…0f646 Head {h00=0x0028, h01=0x0023, text=» RF(Z) DWT60 NOT ECHO OUTPUT DEVICE «, t00=0x009d, t01=0x00f4}
0x0f646…0f684 Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTECH,A5 STORE DWT-ADDRESS OF REAL OUTPUT DWT «, t00=0x009d, t01=0x0120}
0x0f684…0f6b6 Head {h00=0x002e, h01=0x0050, text=» CM DWTECB,A2 CLEAR THIRD WORD OF THIS DWT«, t00=0x009d, t01=0x015e}
0x0f6b6…0f6ca Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x009d, t01=0x0190}
0x0f6ca…0f6d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x0014}
0x0f6d4…0f6ee Head {h00=0x0016, h01=0x0012, text=»* CHECK IF PAGING«, t00=0x009e, t01=0x001e}
0x0f6ee…0f6f8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009e, t01=0x0038}
0x0f6f8…0f71e Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009e, t01=0x0042}
0x0f71e…0f73c Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x009e, t01=0x0068}
0x0f73c…0f750 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWT70«, t00=0x009e, t01=0x0086}
0x0f750…0f75e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x009a}
0x0f75e…0f78e Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x009e, t01=0x00a8}
0x0f78e…0f7ba Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x009e, t01=0x00d8}
0x0f7ba…0f7e8 Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x009e, t01=0x0104}
0x0f7e8…0f818 Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x009e, t01=0x0132}
0x0f818…0f840 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x009e, t01=0x0162}
0x0f840…0f866 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x009e, t01=0x018a}
0x0f866…0f870 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009f, t01=0x0020}
0x0f870…0f8b0 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x009f, t01=0x002a}
0x0f8b0…0f8ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x006a}
0x0f8ba…0f8e4 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x009f, t01=0x0074}
0x0f8e4…0f91a Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x009f, t01=0x009e}
0x0f91a…0f942 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x009f, t01=0x00d4}
0x0f942…0f94c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009f, t01=0x00fc}
0x0f94c…0f99c Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x009f, t01=0x0106}
0x0f99c…0f9a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009f, t01=0x0156}
0x0f9a6…0f9d6 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x009f, t01=0x0160}
0x0f9d6…0fa02 Head {h00=0x0028, h01=0x0023, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x009f, t01=0x0190}
0x0fa02…0fa16 Head {h00=0x0010, h01=0x000b, text=» ADK A3,1 «, t00=0x00a0, t01=0x002c}
0x0fa16…0fa46 Head {h00=0x002c, h01=0x0028, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x00a0, t01=0x0040}
0x0fa46…0fa60 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x00a0, t01=0x0070}
0x0fa60…0fa7e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x00a0, t01=0x008a}
0x0fa7e…0faa8 Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x00a0, t01=0x00a8}
0x0faa8…0fad0 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFFE MAKE LENGTH EVEN «, t00=0x00a0, t01=0x00d2}
0x0fad0…0fade Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x00fa}
0x0fade…0fae8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a0, t01=0x0108}
0x0fae8…0fb20 Head {h00=0x0034, h01=0x0030, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x00a0, t01=0x0112}
0x0fb20…0fb5a Head {h00=0x0036, h01=0x0031, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x00a0, t01=0x014a}
0x0fb5a…0fb92 Head {h00=0x0034, h01=0x0030, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x00a0, t01=0x0184}
0x0fb92…0fbc2 Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x00a1, t01=0x002c}
0x0fbc2…0fbcc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x005c}
0x0fbcc…0fbe8 Head {h00=0x0018, h01=0x0013, text=» CW A3,BUFSIZ,A13 «, t00=0x00a1, t01=0x0066}
0x0fbe8…0fbfe Head {h00=0x0012, h01=0x000d, text=» RF(NG) DWT65 «, t00=0x00a1, t01=0x0082}
0x0fbfe…0fc18 Head {h00=0x0016, h01=0x0011, text=» ST A3,BUFSIZ,A13 «, t00=0x00a1, t01=0x0098}
0x0fc18…0fc32 Head {h00=0x0016, h01=0x0050, text=» ST A12,SYSBUF,A13«, t00=0x00a1, t01=0x00b2}
0x0fc32…0fc46 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x00a1, t01=0x00cc}
0x0fc46…0fc6a Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x00a1, t01=0x00e0}
0x0fc6a…0fc78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0104}
0x0fc78…0fc8c Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x00a1, t01=0x0112}
0x0fc8c…0fc96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0126}
0x0fc96…0fcc8 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00a1, t01=0x0130}
0x0fcc8…0fcd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0162}
0x0fcd2…0fcf8 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00a1, t01=0x016c}
0x0fcf8…0fd1e (162, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x00a2, t01=0x0004}
0x0fd1e…0fd4c Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x00a2, t01=0x002a}
0x0fd4c…0fd72 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00a2, t01=0x0058}
0x0fd72…0fd98 Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x00a2, t01=0x007e}
0x0fd98…0fda2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x00a4}
0x0fda2…0fdd2 Head {h00=0x002c, h01=0x0027, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x00a2, t01=0x00ae}
0x0fdd2…0fddc Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00a2, t01=0x00de}
0x0fddc…0fdee Head {h00=0x000e, h01=0x000a, text=» SUKL A8,4«, t00=0x00a2, t01=0x00e8}
0x0fdee…0fe02 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWTEX«, t00=0x00a2, t01=0x00fa}
0x0fe02…0fe20 Head {h00=0x001a, h01=0x0015, text=» ADK A7,4 NEXT DEVICE «, t00=0x00a2, t01=0x010e}
0x0fe20…0fe44 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,DWT10 START OF LOOP«, t00=0x00a2, t01=0x012c}
0x0fe44…0fe74 Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL,A13 RELOCATE START OF LOOP «, t00=0x00a2, t01=0x0150}
0x0fe74…0fe84 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x00a2, t01=0x0180}
0x0fe84…0fe98 Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x00a2, t01=0x0190}
0x0fe98…0feb0 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00a3, t01=0x0014}
0x0feb0…0febe Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a3, t01=0x002c}
0x0febe…0feec Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00a3, t01=0x003a}
0x0feec…0ff1a Head {h00=0x002a, h01=0x0025, text=»* I:CHP - INIT CHANNEL PARAMETER * «, t00=0x00a3, t01=0x0068}
0x0ff1a…0ff48 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00a3, t01=0x0096}
0x0ff48…0ff52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a3, t01=0x00c4}
0x0ff52…0ff72 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: DWTGEN«, t00=0x00a3, t01=0x00ce}
0x0ff72…0ff7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a3, t01=0x00ee}
0x0ff7c…0ffac Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x00a3, t01=0x00f8}
0x0ffac…0ffd8 Head {h00=0x0028, h01=0x0023, text=»* A2 - POINTER TO REAL DWT «, t00=0x00a3, t01=0x0128}
0x0ffd8…10006 Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00a3, t01=0x0154}
0x10006…10034 Head {h00=0x002a, h01=0x0050, text=»* A9 - POINTER TO TDC RECORD «, t00=0x00a3, t01=0x0182}
0x10034…1003e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x0020}
0x1003e…10068 Head {h00=0x0026, h01=0x0021, text=»* EXIT: A5 - CHANNEL PARAMETER «, t00=0x00a4, t01=0x002a}
0x10068…100ac Head {h00=0x0040, h01=0x0050, text=»* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) «, t00=0x00a4, t01=0x0054}
0x100ac…100e0 Head {h00=0x0030, h01=0x0050, text=»* SAVE06 - SELECTS LINE ENTRY (1-8)«, t00=0x00a4, t01=0x0098}
0x100e0…100ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x00cc}
0x100ea…1010e Head {h00=0x0020, h01=0x001c, text=»* WORK REGISTERS: A3,A4,A5«, t00=0x00a4, t01=0x00d6}
0x1010e…10118 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x00fa}
0x10118…10130 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x00a4, t01=0x0104}
0x10130…1013a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x011c}
0x1013a…10148 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a4, t01=0x0126}
0x10148…1015c Head {h00=0x0010, h01=0x0050, text=»I:CHP EQU * «, t00=0x00a4, t01=0x0134}
0x1015c…10190 Head {h00=0x0030, h01=0x0050, text=» LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER«, t00=0x00a4, t01=0x0148}
0x10190…101c0 Head {h00=0x002c, h01=0x0027, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x00a4, t01=0x017c}
0x101c0…101f4 Head {h00=0x0030, h01=0x002b, text=» LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT «, t00=0x00a5, t01=0x001c}
0x101f4…10220 Head {h00=0x0028, h01=0x0023, text=» ANKL A5,/F1F0 CLEAR BITS TO MODIFY «, t00=0x00a5, t01=0x0050}
0x10220…10256 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x00a5, t01=0x007c}
0x10256…10280 Head {h00=0x0026, h01=0x0022, text=» LC A4,TDC+5,A9 CHECK TYPE OF LINE«, t00=0x00a5, t01=0x00b2}
0x10280…102a0 Head {h00=0x001c, h01=0x0018, text=» CCK A4,'LL' LOCAL LINE?«, t00=0x00a5, t01=0x00dc}
0x102a0…102c2 Head {h00=0x001e, h01=0x0019, text=» RF(NE) I:CHPR NO: REMOTE «, t00=0x00a5, t01=0x00fc}
0x102c2…102d6 Head {h00=0x0010, h01=0x0050, text=»I:CHPL EQU *«, t00=0x00a5, t01=0x011e}
0x102d6…102f6 Head {h00=0x001c, h01=0x0018, text=» ANK A3,7 GET BITS 13-15«, t00=0x00a5, t01=0x0132}
0x102f6…10314 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a5, t01=0x0152}
0x10314…10336 Head {h00=0x001e, h01=0x001a, text=» SLL A3,9 MOVE TO BITS 4-6«, t00=0x00a5, t01=0x0170}
0x10336…10360 (166, 0, 400) Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00a6, t01=0x0004}
0x10360…1038e Head {h00=0x002a, h01=0x0025, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x00a6, t01=0x002e}
0x1038e…103b0 Head {h00=0x001e, h01=0x001a, text=» ANK A3,/18 GET BITS 11-12«, t00=0x00a6, t01=0x005c}
0x103b0…103d4 Head {h00=0x0020, h01=0x001c, text=» SRL A3,2 MOVE TO BITS 13-14«, t00=0x00a6, t01=0x007e}
0x103d4…103f2 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE05,A13 SAVE«, t00=0x00a6, t01=0x00a2}
0x103f2…10416 Head {h00=0x0020, h01=0x001c, text=» SRL A3,1 MOVE TO BITS 14-15«, t00=0x00a6, t01=0x00c0}
0x10416…10440 Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00a6, t01=0x00e4}
0x10440…10452 Head {h00=0x000e, h01=0x000a, text=» RF I:CHPE«, t00=0x00a6, t01=0x010e}
0x10452…10460 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a6, t01=0x0120}
0x10460…10474 Head {h00=0x0010, h01=0x0050, text=»I:CHPR EQU *«, t00=0x00a6, t01=0x012e}
0x10474…1047e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0142}
0x1047e…10494 Head {h00=0x0012, h01=0x000e, text=»* REMOTE LINE«, t00=0x00a6, t01=0x014c}
0x10494…1049e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0162}
0x1049e…104be Head {h00=0x001c, h01=0x0018, text=» ANK A3,3 GET BITS 14-15«, t00=0x00a6, t01=0x016c}
0x104be…104d4 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH10«, t00=0x00a6, t01=0x018c}
0x104d4…10508 Head {h00=0x0030, h01=0x002c, text=» ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO)«, t00=0x00a7, t01=0x0012}
0x10508…10536 Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE ENTRY SELECTOR «, t00=0x00a7, t01=0x0046}
0x10536…10548 Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a7, t01=0x0074}
0x10548…1055c Head {h00=0x0010, h01=0x0050, text=»I:CH10 EQU *«, t00=0x00a7, t01=0x0086}
0x1055c…10578 Head {h00=0x0018, h01=0x0014, text=» ANK A3,2 GET BIT 14«, t00=0x00a7, t01=0x009a}
0x10578…1058e Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH20«, t00=0x00a7, t01=0x00b6}
0x1058e…105b8 Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0800 STORE 4 IN BITS 4-6«, t00=0x00a7, t01=0x00cc}
0x105b8…105d8 Head {h00=0x001c, h01=0x0018, text=» LDK A3,4 ENTRY SELECTOR«, t00=0x00a7, t01=0x00f6}
0x105d8…105f6 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a7, t01=0x0116}
0x105f6…10608 Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a7, t01=0x0134}
0x10608…1061c Head {h00=0x0010, h01=0x0050, text=»I:CH20 EQU *«, t00=0x00a7, t01=0x0146}
0x1061c…10642 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00a7, t01=0x015a}
0x10642…1065e Head {h00=0x0018, h01=0x0014, text=» ANK A3,1 GET BIT 15«, t00=0x00a7, t01=0x0180}
0x1065e…10674 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH30«, t00=0x00a8, t01=0x000c}
0x10674…1069e Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0200 STORE 1 IN BITS 4-6«, t00=0x00a8, t01=0x0022}
0x1069e…106be Head {h00=0x001c, h01=0x0018, text=» LDK A3,1 ENTRY SELECTOR«, t00=0x00a8, t01=0x004c}
0x106be…106dc Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a8, t01=0x006c}
0x106dc…106ee Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00a8, t01=0x008a}
0x106ee…10702 Head {h00=0x0010, h01=0x0050, text=»I:CH30 EQU *«, t00=0x00a8, t01=0x009c}
0x10702…1072c Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0A00 STORE 5 IN BITS 4-6«, t00=0x00a8, t01=0x00b0}
0x1072c…1074c Head {h00=0x001c, h01=0x0018, text=» LDK A3,5 ENTRY SELECTOR«, t00=0x00a8, t01=0x00da}
0x1074c…1076a Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00a8, t01=0x00fa}
0x1076a…10778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0118}
0x10778…1078c Head {h00=0x0010, h01=0x0050, text=»I:CH50 EQU *«, t00=0x00a8, t01=0x0126}
0x1078c…107b2 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00a8, t01=0x013a}
0x107b2…107d0 Head {h00=0x001a, h01=0x0016, text=» LDK A4,4 INIT COUNTER«, t00=0x00a8, t01=0x0160}
0x107d0…107e4 Head {h00=0x0010, h01=0x0050, text=»I:CH60 EQU *«, t00=0x00a8, t01=0x017e}
0x107e4…10816 (169, 0, 400) Head {h00=0x002e, h01=0x002a, text=» SUK A3,2 DECREMENT LINE CONNECTION NUMBER«, t00=0x00a9, t01=0x0004}
0x10816…1082c Head {h00=0x0012, h01=0x000d, text=» RF(N) I:CH70 «, t00=0x00a9, t01=0x0036}
0x1082c…10856 Head {h00=0x0026, h01=0x0022, text=» ADK A4,1 INCREMENT TABLE SELECTOR«, t00=0x00a9, t01=0x004c}
0x10856…10868 Head {h00=0x000e, h01=0x000a, text=» RB I:CH60«, t00=0x00a9, t01=0x0076}
0x10868…1087c Head {h00=0x0010, h01=0x0050, text=»I:CH70 EQU *«, t00=0x00a9, t01=0x0088}
0x1087c…108a8 Head {h00=0x0028, h01=0x0024, text=» ORR A5,A4 STORE COMPUTED BITS 12-15«, t00=0x00a9, t01=0x009c}
0x108a8…108ba Head {h00=0x000e, h01=0x0009, text=» SUK A4,4 «, t00=0x00a9, t01=0x00c8}
0x108ba…108cc Head {h00=0x000e, h01=0x0009, text=» ANK A4,6 «, t00=0x00a9, t01=0x00da}
0x108cc…108de Head {h00=0x000e, h01=0x0009, text=» ADK A4,8 «, t00=0x00a9, t01=0x00ec}
0x108de…108fc Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE05,A13 SAVE«, t00=0x00a9, t01=0x00fe}
0x108fc…10910 Head {h00=0x0010, h01=0x0050, text=»I:CHPE EQU *«, t00=0x00a9, t01=0x011c}
0x10910…10928 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00a9, t01=0x0130}
0x10928…10936 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a9, t01=0x0148}
0x10936…1096c Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00a9, t01=0x0156}
0x1096c…109a2 Head {h00=0x0032, h01=0x002e, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x00a9, t01=0x018c}
0x109a2…109d8 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00aa, t01=0x0032}
0x109d8…109e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x0068}
0x109e2…10a04 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: DWTGEN «, t00=0x00aa, t01=0x0072}
0x10a04…10a0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x0094}
0x10a0e…10a3c Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00aa, t01=0x009e}
0x10a3c…10a46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x00cc}
0x10a46…10a82 Head {h00=0x0038, h01=0x0034, text=»* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABLES«, t00=0x00aa, t01=0x00d6}
0x10a82…10a8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x0112}
0x10a8c…10ab8 Head {h00=0x0028, h01=0x0024, text=»* REGISTER USE: A1 - WORK REGISTER«, t00=0x00aa, t01=0x011c}
0x10ab8…10ade Head {h00=0x0022, h01=0x001d, text=»* A2 - " «, t00=0x00aa, t01=0x0148}
0x10ade…10b04 Head {h00=0x0022, h01=0x001d, text=»* A3 - " «, t00=0x00aa, t01=0x016e}
0x10b04…10b46 (171, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* A4 - LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00ab, t01=0x0004}
0x10b46…10b74 Head {h00=0x002a, h01=0x0025, text=»* A5 - DEVICE COUNTER «, t00=0x00ab, t01=0x0046}
0x10b74…10ba0 Head {h00=0x0028, h01=0x0023, text=»* A6 - LINE COUNTER «, t00=0x00ab, t01=0x0074}
0x10ba0…10bd6 Head {h00=0x0032, h01=0x0050, text=»* A7 - DISPLACEMENT IN SAVE21 «, t00=0x00ab, t01=0x00a0}
0x10bd6…10c1a Head {h00=0x0040, h01=0x003b, text=»* A10- ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00ab, t01=0x00d6}
0x10c1a…10c66 Head {h00=0x0048, h01=0x0044, text=»* A11- POINTER IN LINE CONF. PART OF REAL INT. TABLE«, t00=0x00ab, t01=0x011a}
0x10c66…10ca8 Head {h00=0x003e, h01=0x0039, text=»* A12- LINE ENTRY IN REAL INTERRUPT TABLE «, t00=0x00ab, t01=0x0166}
0x10ca8…10cb2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ac, t01=0x0018}
0x10cb2…10cc8 Head {h00=0x0012, h01=0x000e, text=»* SUBROUTINES«, t00=0x00ac, t01=0x0022}
0x10cc8…10cd2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ac, t01=0x0038}
0x10cd2…10ce0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x0042}
0x10ce0…10cf4 Head {h00=0x0010, h01=0x0050, text=»B:ITAB EQU *«, t00=0x00ac, t01=0x0050}
0x10cf4…10d2a Head {h00=0x0032, h01=0x002d, text=» LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. «, t00=0x00ac, t01=0x0064}
0x10d2a…10d3e Head {h00=0x0010, h01=0x0050, text=» LDR A11,A12«, t00=0x00ac, t01=0x009a}
0x10d3e…10d66 Head {h00=0x0024, h01=0x0020, text=» LDK A7,0 RESET POINTER IN IABAT«, t00=0x00ac, t01=0x00ae}
0x10d66…10d7a Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x00ac, t01=0x00d6}
0x10d7a…10d8c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00ac, t01=0x00ea}
0x10d8c…10da6 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE24,A13 «, t00=0x00ac, t01=0x00fc}
0x10da6…10dc6 Head {h00=0x001c, h01=0x0050, text=» ST A12,SAVE21,A13 SAVE «, t00=0x00ac, t01=0x0116}
0x10dc6…10dfc Head {h00=0x0032, h01=0x002d, text=» ADKL A11,16 INIT POINTER TO LINE CONF. TABLE «, t00=0x00ac, t01=0x0136}
0x10dfc…10e06 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ac, t01=0x016c}
0x10e06…10e3a Head {h00=0x0030, h01=0x002b, text=»* GET ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00ac, t01=0x0176}
0x10e3a…10e44 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x001a}
0x10e44…10e5c Head {h00=0x0014, h01=0x0050, text=» LD A10,SCTSFA+2«, t00=0x00ad, t01=0x0024}
0x10e5c…10e70 Head {h00=0x0010, h01=0x000b, text=» ADR A10,A7 «, t00=0x00ad, t01=0x003c}
0x10e70…10e86 Head {h00=0x0012, h01=0x000d, text=» LDR* A10,A10 «, t00=0x00ad, t01=0x0050}
0x10e86…10eb0 Head {h00=0x0026, h01=0x0050, text=» LDK A6,0 RESET LINE ENTRY POINTER«, t00=0x00ad, t01=0x0066}
0x10eb0…10ec4 Head {h00=0x0010, h01=0x0050, text=»BIT20 EQU * «, t00=0x00ad, t01=0x0090}
0x10ec4…10ece Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x00a4}
0x10ece…10f0a Head {h00=0x0038, h01=0x0050, text=»* SAVE POINTER TO START OF LINE SAVE01URATION TABLE«, t00=0x00ad, t01=0x00ae}
0x10f0a…10f54 Head {h00=0x0046, h01=0x0050, text=»* IN TEMPORARY AREA AND RESET LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00ad, t01=0x00ea}
0x10f54…10f5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x0134}
0x10f5e…10fa0 Head {h00=0x003e, h01=0x0050, text=» ST A11,SAVE23,A13 SAVE START OF LINE SAVE01URATION TABLE «, t00=0x00ad, t01=0x013e}
0x10fa0…10fd2 Head {h00=0x002e, h01=0x0029, text=» LDK A4,0 RESET LENGTH OF LINE CONF.TABLE «, t00=0x00ad, t01=0x0180}
0x10fd2…10fdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x0022}
0x10fdc…11010 Head {h00=0x0030, h01=0x002d, text=»* INIT POINTER IN TEMPORARY INTERRUPT TABLE«, t00=0x00ae, t01=0x002c}
0x11010…1103e Head {h00=0x002a, h01=0x0026, text=»* TO POINT AT LAST INPUT DEVICE ENTRY«, t00=0x00ae, t01=0x0060}
0x1103e…11048 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x008e}
0x11048…1105c Head {h00=0x0010, h01=0x000c, text=» ADKL A10,12«, t00=0x00ae, t01=0x0098}
0x1105c…1106e Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00ae, t01=0x00ac}
0x1106e…11082 Head {h00=0x0010, h01=0x000c, text=» ADKL A11,14«, t00=0x00ae, t01=0x00be}
0x11082…11090 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ae, t01=0x00d2}
0x11090…1109a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x00e0}
0x1109a…110da Head {h00=0x003c, h01=0x0039, text=»* CHECK INPUT PART OF TEMPORARY INTERUPT TABLE STARTING«, t00=0x00ae, t01=0x00ea}
0x110da…11100 Head {h00=0x0022, h01=0x001d, text=»* WITH THE LAST DEVICE ENTRY «, t00=0x00ae, t01=0x012a}
0x11100…1110a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x0150}
0x1110a…1111e Head {h00=0x0010, h01=0x0050, text=»BIT30 EQU * «, t00=0x00ae, t01=0x015a}
0x1111e…11142 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00ae, t01=0x016e}
0x11142…1115c (175, 0, 400) Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT40 YES «, t00=0x00af, t01=0x0004}
0x1115c…11170 Head {h00=0x0010, h01=0x0050, text=»BIT35 EQU * «, t00=0x00af, t01=0x001e}
0x11170…111a0 Head {h00=0x002c, h01=0x0028, text=» SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY«, t00=0x00af, t01=0x0032}
0x111a0…111b8 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00af, t01=0x0062}
0x111b8…111c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x007a}
0x111c2…11202 Head {h00=0x003c, h01=0x0037, text=»* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY «, t00=0x00af, t01=0x0084}
0x11202…11236 Head {h00=0x0030, h01=0x002b, text=»* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR «, t00=0x00af, t01=0x00c4}
0x11236…11240 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x00f8}
0x11240…11272 Head {h00=0x002e, h01=0x0050, text=» SUKL A10,2 NEXT ENTRY IN TEMP. INT. TABLE«, t00=0x00af, t01=0x0102}
0x11272…112a4 Head {h00=0x002e, h01=0x0050, text=» SUKL A11,2 NEXT ENTRY IN REAL INT. TABLE «, t00=0x00af, t01=0x0134}
0x112a4…112b6 Head {h00=0x000e, h01=0x0009, text=» RB BIT30 «, t00=0x00af, t01=0x0166}
0x112b6…112c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x0178}
0x112c0…1130a Head {h00=0x0046, h01=0x0042, text=»* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED.«, t00=0x00af, t01=0x0182}
0x1130a…11352 Head {h00=0x0044, h01=0x0040, text=»* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES)«, t00=0x00b0, t01=0x003c}
0x11352…1139e Head {h00=0x0048, h01=0x0043, text=»* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. «, t00=0x00b0, t01=0x0084}
0x1139e…113a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x00d0}
0x113a8…113bc Head {h00=0x0010, h01=0x0050, text=»BIT40 EQU * «, t00=0x00b0, t01=0x00da}
0x113bc…113ea Head {h00=0x002a, h01=0x0025, text=» STR A1,A11 STORE CONTENT IN R. I. T. «, t00=0x00b0, t01=0x00ee}
0x113ea…1140c Head {h00=0x001e, h01=0x001a, text=» ADK A4,2 INCREMENT LENGTH«, t00=0x00b0, t01=0x011c}
0x1140c…11430 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 LAS DEVICE ENTRY? «, t00=0x00b0, t01=0x013e}
0x11430…11448 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00b0, t01=0x0162}
0x11448…11470 Head {h00=0x0024, h01=0x0020, text=» SUKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00b0, t01=0x017a}
0x11470…11498 Head {h00=0x0024, h01=0x0020, text=» SUKL A11,2 NEXT ENTRY IN R.I.T.«, t00=0x00b1, t01=0x0012}
0x11498…114c6 Head {h00=0x002a, h01=0x0026, text=» LDR* A1,A10 GET CONTENT OF NEXT ENTRY«, t00=0x00b1, t01=0x003a}
0x114c6…114d8 Head {h00=0x000e, h01=0x0009, text=» RB BIT40 «, t00=0x00b1, t01=0x0068}
0x114d8…114e6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b1, t01=0x007a}
0x114e6…114fa Head {h00=0x0010, h01=0x0050, text=»BIT50 EQU * «, t00=0x00b1, t01=0x0088}
0x114fa…11504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x009c}
0x11504…1154a Head {h00=0x0042, h01=0x003e, text=»* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT«, t00=0x00b1, t01=0x00a6}
0x1154a…1156c Head {h00=0x001e, h01=0x001b, text=»* TABLE HAS BEEN SCANNED.«, t00=0x00b1, t01=0x00ec}
0x1156c…115aa Head {h00=0x003a, h01=0x0035, text=»* -INIT POINTER TO FIRST ENTRY IN OUTPUT DEVICE PART «, t00=0x00b1, t01=0x010e}
0x115aa…115d8 Head {h00=0x002a, h01=0x0025, text=»* OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00b1, t01=0x014c}
0x115d8…115f8 Head {h00=0x001c, h01=0x0018, text=»* -INIT DEVICE COUNTER.«, t00=0x00b1, t01=0x017a}
0x115f8…11602 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x000a}
0x11602…11616 Head {h00=0x0010, h01=0x000c, text=» ADKL A10,14«, t00=0x00b2, t01=0x0014}
0x11616…11628 Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00b2, t01=0x0028}
0x11628…11632 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x003a}
0x11632…11682 Head {h00=0x004c, h01=0x0047, text=»* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00b2, t01=0x0044}
0x11682…116aa Head {h00=0x0024, h01=0x001f, text=»* -IF AN OCCUPIED ENTRY OCCUR: «, t00=0x00b2, t01=0x0094}
0x116aa…116fa Head {h00=0x004c, h01=0x0050, text=»* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION «, t00=0x00b2, t01=0x00bc}
0x116fa…11748 Head {h00=0x004a, h01=0x0045, text=»* TABLE OF THE REAL INTERRUPT TABLE AND STORE CONTENT IN THIS ENTRY. «, t00=0x00b2, t01=0x010c}
0x11748…11782 Head {h00=0x0036, h01=0x0050, text=»* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: «, t00=0x00b2, t01=0x015a}
0x11782…1179e (179, 0, 400) Head {h00=0x0018, h01=0x0013, text=»* INCREMENT LENGTH «, t00=0x00b3, t01=0x0004}
0x1179e…117a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x0020}
0x117a8…117bc Head {h00=0x0010, h01=0x0050, text=»BIT70 EQU * «, t00=0x00b3, t01=0x002a}
0x117bc…117e0 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00b3, t01=0x003e}
0x117e0…117fa Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT90 YES «, t00=0x00b3, t01=0x0062}
0x117fa…11816 Head {h00=0x0018, h01=0x0014, text=» SUK A5,1 LAST ENTRY«, t00=0x00b3, t01=0x007c}
0x11816…11830 Head {h00=0x0016, h01=0x0011, text=» RF(Z) BIT120 YES «, t00=0x00b3, t01=0x0098}
0x11830…11844 Head {h00=0x0010, h01=0x0050, text=»BIT80 EQU * «, t00=0x00b3, t01=0x00b2}
0x11844…11862 Head {h00=0x001a, h01=0x0016, text=» ADKL A10,2 NEXT ENTRY«, t00=0x00b3, t01=0x00c6}
0x11862…11874 Head {h00=0x000e, h01=0x0009, text=» RB BIT70 «, t00=0x00b3, t01=0x00e4}
0x11874…11888 Head {h00=0x0010, h01=0x0050, text=»BIT90 EQU * «, t00=0x00b3, t01=0x00f6}
0x11888…11892 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x010a}
0x11892…118e2 Head {h00=0x004c, h01=0x004a, text=»* AN OCCUPIED ENTRY IN OUPUT DEVICE PART OF THE TEMPORARU INTERRUPT TAB«, t00=0x00b3, t01=0x0114}
0x118e2…11932 Head {h00=0x004c, h01=0x0050, text=»* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE «, t00=0x00b3, t01=0x0164}
0x11932…11956 Head {h00=0x0020, h01=0x001b, text=»* OF REAL INTERRUPT TABLE. «, t00=0x00b4, t01=0x0024}
0x11956…11960 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x0048}
0x11960…11974 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A11«, t00=0x00b4, t01=0x0052}
0x11974…1198a Head {h00=0x0012, h01=0x000d, text=» RF(Z) BIT100 «, t00=0x00b4, t01=0x0066}
0x1198a…1199e Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x00b4, t01=0x007c}
0x1199e…119b0 Head {h00=0x000e, h01=0x0009, text=» RB BIT90 «, t00=0x00b4, t01=0x0090}
0x119b0…119be Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b4, t01=0x00a2}
0x119be…119d2 Head {h00=0x0010, h01=0x0050, text=»BIT100 EQU *«, t00=0x00b4, t01=0x00b0}
0x119d2…119dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x00c4}
0x119dc…11a26 Head {h00=0x0046, h01=0x0050, text=»* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATION TABLE.«, t00=0x00b4, t01=0x00ce}
0x11a26…11a52 Head {h00=0x0028, h01=0x0024, text=»* -STORE THE CONTENT IN THIS ENTRY.«, t00=0x00b4, t01=0x0118}
0x11a52…11a82 Head {h00=0x002c, h01=0x0028, text=»* -UPDATE LENGTH IF TABLE WAS EXTENDED.«, t00=0x00b4, t01=0x0144}
0x11a82…11a8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x0174}
0x11a8c…11aae Head {h00=0x001e, h01=0x0019, text=» STR A1,A11 STORE CONTENT «, t00=0x00b4, t01=0x017e}
0x11aae…11adc Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE23,A13 GET START OF L.C.T. «, t00=0x00b5, t01=0x0010}
0x11adc…11b02 Head {h00=0x0022, h01=0x001d, text=» LDR A3,A11 GET CURRENT ENTRY «, t00=0x00b5, t01=0x003e}
0x11b02…11b24 Head {h00=0x001e, h01=0x0050, text=» SUR A3,A1 COMPUTE LENGTH «, t00=0x00b5, t01=0x0064}
0x11b24…11b48 Head {h00=0x0020, h01=0x001b, text=» CWR A3,A4 L.C.T. EXTENDED? «, t00=0x00b5, t01=0x0086}
0x11b48…11b5e Head {h00=0x0012, h01=0x000e, text=» RF(NG) BIT110«, t00=0x00b5, t01=0x00aa}
0x11b5e…11b80 Head {h00=0x001e, h01=0x001a, text=» LDR A4,A3 SAVE NEW LENGTH«, t00=0x00b5, t01=0x00c0}
0x11b80…11b94 Head {h00=0x0010, h01=0x0050, text=»BIT110 EQU *«, t00=0x00b5, t01=0x00e2}
0x11b94…11bb2 Head {h00=0x001a, h01=0x0015, text=» SUK A5,1 LAST ENTRY? «, t00=0x00b5, t01=0x00f6}
0x11bb2…11bca Head {h00=0x0014, h01=0x000f, text=» RB(P) BIT80 NO «, t00=0x00b5, t01=0x0114}
0x11bca…11bde Head {h00=0x0010, h01=0x0050, text=»BIT120 EQU *«, t00=0x00b5, t01=0x012c}
0x11bde…11be8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b5, t01=0x0140}
0x11be8…11c38 Head {h00=0x004c, h01=0x004a, text=»* ALL ENTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE«, t00=0x00b5, t01=0x014a}
0x11c38…11c80 Head {h00=0x0044, h01=0x003f, text=»* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE «, t00=0x00b6, t01=0x000a}
0x11c80…11cd0 Head {h00=0x004c, h01=0x0050, text=»* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR«, t00=0x00b6, t01=0x0052}
0x11cd0…11cda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b6, t01=0x00a2}
0x11cda…11d00 Head {h00=0x0022, h01=0x001e, text=» LDR A4,A4 ANY ENTRY OCCUPIED?«, t00=0x00b6, t01=0x00ac}
0x11d00…11d18 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT130 NO«, t00=0x00b6, t01=0x00d2}
0x11d18…11d48 Head {h00=0x002c, h01=0x0050, text=» IM SAVE24,A13 INDICATE DEVICE PRESENT! «, t00=0x00b6, t01=0x00ea}
0x11d48…11d78 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE23,A13 GET POINTER TO L.C.T. «, t00=0x00b6, t01=0x011a}
0x11d78…11da0 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LINE ENTRY «, t00=0x00b6, t01=0x014a}
0x11da0…11dd8 Head {h00=0x0034, h01=0x002f, text=» STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. «, t00=0x00b6, t01=0x0172}
0x11dd8…11dfc Head {h00=0x0020, h01=0x001b, text=» LDR A11,A1 START OF L.C.T. «, t00=0x00b7, t01=0x001a}
0x11dfc…11e2e Head {h00=0x002e, h01=0x0029, text=» ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. «, t00=0x00b7, t01=0x003e}
0x11e2e…11e52 Head {h00=0x0020, h01=0x001b, text=» ADKL A11,2 NEXT FREE ENTRY «, t00=0x00b7, t01=0x0070}
0x11e52…11e64 Head {h00=0x000e, h01=0x000a, text=» RF BIT140«, t00=0x00b7, t01=0x0094}
0x11e64…11e72 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b7, t01=0x00a6}
0x11e72…11e86 Head {h00=0x0010, h01=0x0050, text=»BIT130 EQU *«, t00=0x00b7, t01=0x00b4}
0x11e86…11e90 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00b7, t01=0x00c8}
0x11e90…11eb4 Head {h00=0x0020, h01=0x001b, text=»* NO DEVICES ON THIS LINE. «, t00=0x00b7, t01=0x00d2}
0x11eb4…11ee6 Head {h00=0x002e, h01=0x0050, text=»* -NO LINE SAVE01URATION TABLE GENERATED «, t00=0x00b7, t01=0x00f6}
0x11ee6…11f02 Head {h00=0x0018, h01=0x0014, text=»* -SKIP LENGTH WORD«, t00=0x00b7, t01=0x0128}
0x11f02…11f26 Head {h00=0x0020, h01=0x001b, text=»* -LINE ENTRY CONTAIN ZERO «, t00=0x00b7, t01=0x0144}
0x11f26…11f30 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b7, t01=0x0168}
0x11f30…11f54 Head {h00=0x0020, h01=0x001c, text=» SUKL A11,2 SKIP LENGTH WORD«, t00=0x00b7, t01=0x0172}
0x11f54…11f68 Head {h00=0x0010, h01=0x0050, text=»BIT140 EQU *«, t00=0x00b8, t01=0x0008}
0x11f68…11f90 Head {h00=0x0024, h01=0x0020, text=» ADKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00b8, t01=0x001c}
0x11f90…11fb8 Head {h00=0x0024, h01=0x0020, text=» ADK A6,1 INCREMENT LINE COUNTER«, t00=0x00b8, t01=0x0044}
0x11fb8…11fdc Head {h00=0x0020, h01=0x001c, text=» CWK A6,8 ALL LINES SCANNED?«, t00=0x00b8, t01=0x006c}
0x11fdc…11ff6 Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT150 YES «, t00=0x00b8, t01=0x0090}
0x11ff6…1201a Head {h00=0x0020, h01=0x001b, text=» ADKL A12,2 NEXT LINE ENTRY «, t00=0x00b8, t01=0x00aa}
0x1201a…1202c Head {h00=0x000e, h01=0x0050, text=» RB BIT20 «, t00=0x00b8, t01=0x00ce}
0x1202c…12040 Head {h00=0x0010, h01=0x0050, text=»BIT150 EQU *«, t00=0x00b8, t01=0x00e0}
0x12040…1204a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00f4}
0x1204a…12084 Head {h00=0x0036, h01=0x0050, text=»* STORE ADDRESS TO THIS INTERRUPT TABLE IN MONTAB«, t00=0x00b8, t01=0x00fe}
0x12084…120b0 Head {h00=0x0028, h01=0x0050, text=»* IF ANY DEVICE PRESENT ON ANY LINE«, t00=0x00b8, t01=0x0138}
0x120b0…120ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0164}
0x120ba…120e8 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE24,A13 ANY DEVICE PRESENT? «, t00=0x00b8, t01=0x016e}
0x120e8…12102 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT155 NO! «, t00=0x00b9, t01=0x000c}
0x12102…12138 Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS «, t00=0x00b9, t01=0x0026}
0x12138…12156 Head {h00=0x001a, h01=0x0050, text=» ST A1,INTLT1,A7 SAVE «, t00=0x00b9, t01=0x005c}
0x12156…12168 Head {h00=0x000e, h01=0x0050, text=» RF BIT158«, t00=0x00b9, t01=0x007a}
0x12168…1217c Head {h00=0x0010, h01=0x0050, text=»BIT155 EQU *«, t00=0x00b9, t01=0x008c}
0x1217c…121ae Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE21,A13 GET START OF FREE AREA «, t00=0x00b9, t01=0x00a0}
0x121ae…121c2 Head {h00=0x0010, h01=0x0050, text=»BIT158 EQU *«, t00=0x00b9, t01=0x00d2}
0x121c2…121cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b9, t01=0x00e6}
0x121cc…1220a Head {h00=0x003a, h01=0x0036, text=»* ALL LINES OF THIS INTERRUPT TABLE HAS BEEN SCANNED.«, t00=0x00b9, t01=0x00f0}
0x1220a…12256 Head {h00=0x0048, h01=0x0044, text=»* -CHECK IF ALL INTERRUPT TABLES (INTLT1-INTRT4) HAS BEEN GENERATED«, t00=0x00b9, t01=0x012e}
0x12256…12260 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b9, t01=0x017a}
0x12260…12284 Head {h00=0x0020, h01=0x001c, text=» ADK A7,2 NEXT ENTRY IN ITAB«, t00=0x00b9, t01=0x0184}
0x12284…122a2 Head {h00=0x001a, h01=0x0016, text=» CWK A7,16 LAST ENTRY?«, t00=0x00ba, t01=0x0018}
0x122a2…122bc Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT160 YES «, t00=0x00ba, t01=0x0036}
0x122bc…122e4 Head {h00=0x0024, h01=0x0020, text=» LDR A12,A11 GET NEXT FREE ENTRY«, t00=0x00ba, t01=0x0050}
0x122e4…122f6 Head {h00=0x000e, h01=0x0009, text=» RB BIT10 «, t00=0x00ba, t01=0x0078}
0x122f6…1230a Head {h00=0x0010, h01=0x0050, text=»BIT160 EQU *«, t00=0x00ba, t01=0x008a}
0x1230a…12314 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x009e}
0x12314…1235c Head {h00=0x0044, h01=0x0040, text=»* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED«, t00=0x00ba, t01=0x00a8}
0x1235c…1239c Head {h00=0x003c, h01=0x0038, text=»* AND ALL THE REAL INTERRUPT TABLES HAS BEEN GENERATED.«, t00=0x00ba, t01=0x00f0}
0x1239c…123ea Head {h00=0x004a, h01=0x0045, text=»* POINTERS TO THE REAL INTERRUPT TABLES HAS BEEN INSERTED IN MOXTAB. «, t00=0x00ba, t01=0x0130}
0x123ea…123f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x017e}
0x123f4…1240a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x00ba, t01=0x0188}
0x1240a…1241c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00bb, t01=0x000e}
0x1241c…12434 Head {h00=0x0014, h01=0x0050, text=»BIT165 ADK A2,2 «, t00=0x00bb, t01=0x0020}
0x12434…12462 Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x00bb, t01=0x0038}
0x12462…12478 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BIT170«, t00=0x00bb, t01=0x0066}
0x12478…1248e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x00bb, t01=0x007c}
0x1248e…124ba Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x00bb, t01=0x0092}
0x124ba…124d4 Head {h00=0x0016, h01=0x0050, text=»BIT170 CWR A2,A11 «, t00=0x00bb, t01=0x00be}
0x124d4…124ea Head {h00=0x0012, h01=0x0050, text=» RB(NE) BIT165«, t00=0x00bb, t01=0x00d8}
0x124ea…12516 Head {h00=0x0028, h01=0x0050, text=» ST A13,SCTEFA SKIP TEMP. INT. TABLE«, t00=0x00bb, t01=0x00ee}
0x12516…12546 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bb, t01=0x011a}
0x12546…1255e Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00bb, t01=0x014a}
0x1255e…1256c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00bb, t01=0x0162}
0x1256c…12570 Head {h00=0x0054, h01=0x0050}
0x12570…12574 Head {h00=0x2a3d, h01=0x2a3d}
0x12574…12590 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 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x12590…125e0 (188, 0, 400) 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 bb 01 70 00 36 00 31 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 41 4c 20 53 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL S┆
0x125e0…12630 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 38 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 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆UBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x12630…12680 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 72 00 04 00 03 00 bc 00 ca 00 04 00 03 00 bc 00 d2 00 04 00 03 00 bc 00 da 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************┆
0x12680…126d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 e2 00 38 00 34 2a 20 20 20 47 45 54 54 53 4b 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 ┆************************************** 8 4* GETTSK - GET NUMBER OF TASKS I┆
0x126d0…12720 4e 20 41 20 54 41 53 4b 2d 43 4c 41 53 53 20 20 20 2a 00 bc 01 1e 00 06 00 50 2a 20 00 bc 01 5a 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 ┆N A TASK-CLASS * P* Z 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CL┆
0x12720…12770 (189, 0, 400) 41 53 53 45 53 20 00 bc 01 64 00 06 00 50 2a 20 00 bd 00 0e 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 18 ┆ASSES d P* 8 4**************************************************** ┆
0x12770…127c0 00 06 00 03 2a 20 00 bd 00 54 00 22 00 50 2a 20 20 52 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 5e 00 06 00 03 2a 20 00 bd 00 84 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 ┆ * T " P* REFERENCED IN: B:TCT,B:CDT ^ * > :* ENTRY: A11 - P┆
0x127c0…12810 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 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 bd 00 8e 00 06 00 03 2a 20 00 bd 00 d0 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 ┆OINTER TO START OF TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBE┆
0x12810…12860 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 54 48 45 20 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 00 da 00 06 00 03 2a 20 00 bd 01 24 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a ┆R OF TASKS IN THE TASK CLASS (BINARY VALUE) * $ * WORK REGISTERS:┆
0x12860…128b0 20 20 41 35 00 bd 01 2e 00 06 00 03 2a 20 00 bd 01 4c 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 bd 01 56 00 06 00 03 2a 20 00 bd 01 76 00 10 00 50 47 45 54 54 53 4b 5c 45 51 55 5c 2a 00 bd 01 80 ┆ A5 . * L * SUBROUTINES: CONVRT V * v PGETTSK EQU * ┆
0x128b0…12900 (190, 0, 400) 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 5c 2a 00 be 00 04 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2c 41 31 31 00 be 00 18 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 00 be 00 30 00 16 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2b 31 ┆ PGETCTC EQU * P LC A5,TDBNT,A11 SLL A5,8 0 P LC A5,TDBNT+1┆
0x12900…12950 2c 41 31 31 00 be 00 42 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 be 00 5c 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 be 00 70 00 0a 00 06 5c 45 4a 45 43 54 00 be 00 80 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,A11 B CALL CONVRT RTN A14 p EJECT 8 4******************┆
0x12950…129a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 8e 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 ┆********************************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEV┆
0x129a0…129f0 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 00 be 00 ca 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 06 00 06 ┆ICE CLASSES * 8 4**************************************************** ┆
0x129f0…12a40 00 03 2a 20 00 be 01 42 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 be 01 4c 00 06 00 03 2a 20 00 be 01 6c 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 ┆ * B * REFERENCED IN: B:TT L * l > :* ENTRY: A11 - POINTER T┆
0x12a40…12a90 (191, 0, 400) 4f 20 53 54 41 52 54 20 4f 46 20 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 be 01 76 00 06 00 03 2a 20 00 bf 00 28 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 ┆O START OF TASK DEFINITION BLOCK v * ( D @* EXIT: A1 - NUMBER OF TER┆
0x12a90…12ae0 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 28 42 49 4e 52 59 20 56 41 4c 55 45 29 00 bf 00 32 00 06 00 03 2a 20 00 bf 00 7a 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 84 00 06 ┆MINAL DEVICE CLASSES (BINRY VALUE) 2 * z * WORK REGISTERS: A5 ┆
0x12ae0…12b30 00 03 2a 20 00 bf 00 a2 00 1a 00 16 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 43 4f 4e 56 52 54 00 bf 00 ac 00 06 00 03 2a 20 00 bf 00 ca 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 00 bf 00 d4 00 14 00 10 5c 4c 43 5c 41 35 2c 54 ┆ * * SUBROUTINES: CONVRT * PGETTDC EQU * LC A5,T┆
0x12b30…12b80 44 42 4e 43 2c 41 31 31 00 bf 00 e8 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 00 bf 01 00 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 12 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 bf 01 2c 00 0c 00 08 ┆DBNC,A11 SLL A5,8 LC A5,TDBNC+1,A11 CALL CONVRT , ┆
0x12b80…12bd0 5c 52 54 4e 5c 41 31 34 00 bf 01 40 00 0a 00 06 5c 45 4a 45 43 54 00 bf 01 50 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 ┆ RTN A14 @ EJECT P 8 3**************************************************┆
0x12bd0…12c20 (192, 0, 398) 2a 20 00 bf 01 5e 00 38 00 33 2a 20 20 47 45 54 53 44 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 0a 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* ^ 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * 8 3**********┆
0x12c20…12c70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 46 00 06 00 03 2a 20 00 c0 00 82 00 1c 00 17 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 ┆***************************************** F * * REFERENCED IN: B┆
0x12c70…12cc0 3a 54 54 20 00 c0 00 8c 00 06 00 03 2a 20 00 c0 00 ac 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 b6 00 06 00 03 2a 20 ┆:TT * 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * ┆
0x12cc0…12d10 00 c0 00 ee 00 44 00 3f 2a 20 20 45 58 49 54 3a 20 20 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 00 f8 00 06 00 03 ┆ D ?* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) ┆
0x12d10…12d5e 2a 20 00 c0 01 40 00 1a 00 15 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 35 20 00 c0 01 4a 00 06 00 03 2a 20 00 c0 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 c0 01 72 ┆* @ * WORK REGISTERS: A5 J * h * SUBROUTINES: CONVRT r┆
0x12d5e…12dae (193, 0, 400) 00 06 00 03 2a 20 00 c1 00 04 00 10 00 50 47 45 54 53 44 43 5c 45 51 55 5c 2a 00 c1 00 0e 00 0e 00 0a 5c 4c 43 52 5c 41 35 2c 41 39 00 c1 00 22 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c1 00 34 00 10 00 0b 5c 4c 43 5c 41 35 2c 31 2c 41 ┆ * PGETSDC EQU * LCR A5,A9 " P SLL A5,8 4 LC A5,1,A┆
0x12dae…12dfe 39 20 00 c1 00 46 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c1 00 5a 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 c1 00 6e 00 0a 00 06 5c 45 4a 45 43 54 00 c1 00 7e 00 32 00 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆9 F CALL CONVRT Z RTN A14 n EJECT ~ 2 .********************┆
0x12dfe…12e4e 2a 2a 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 00 8c 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 ┆************************** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER *┆
0x12e4e…12e9e 00 c1 00 c2 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 2a 2a 2a 2a 2a 2a 00 c1 00 f8 00 06 00 03 2a 20 00 c1 01 2e 00 1c 00 17 2a 20 20 52 45 46 45 52 ┆ 2 .********************************************** * . * REFER┆
0x12e9e…12eee 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 00 c1 01 38 00 06 00 03 2a 20 00 c1 01 58 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 ┆ENCED IN: B:TT 8 * X 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RE┆
0x12eee…12f3e (194, 0, 400) 43 4f 52 44 00 c1 01 62 00 06 00 03 2a 20 00 c2 00 0c 00 3e 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 ┆CORD b * > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE)┆
0x12f3e…12f8e 00 c2 00 16 00 06 00 03 2a 20 00 c2 00 58 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 c2 00 62 00 06 00 03 2a 20 00 c2 00 80 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 ┆ * X * WORK REGISTERS: A5 b * * SUBROUTINES: CONVR┆
0x12f8e…12fde 54 20 00 c2 00 8a 00 06 00 03 2a 20 00 c2 00 aa 00 10 00 50 47 45 54 43 4c 4e 5c 45 51 55 5c 2a 00 c2 00 b4 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 31 2c 41 39 00 c2 00 c8 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 c2 00 e0 00 14 ┆T * PGETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 ┆
0x12fde…1302e 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 00 c2 00 f2 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c2 01 0a 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 c2 01 1e 00 0a 00 50 5c 45 4a 45 43 54 00 c2 01 36 ┆ P LC A5,TDCDD2,A9 P CALL CONVRT RTN A14 RETURN P EJECT 6┆
0x1302e…1307e 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 c2 01 44 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 ┆ . )***************************************** D . )* GETLCN - GET LINE CONNE┆
0x1307e…130ce (195, 0, 400) 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 20 00 c2 01 76 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 18 00 06 00 02 2a 20 00 c3 00 4a ┆CTION NUMBER * v . )***************************************** * J┆
0x130ce…1311e 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 c3 00 54 00 06 00 03 2a 20 00 c3 00 76 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 ┆ * REFERENCED IN: B:DWTT T * v 8 3* ENTRY: A9 - POINTER TO CLASS┆
0x1311e…1316e 20 44 45 46 49 4e 49 54 49 4f 4e 20 20 52 45 43 4f 52 44 20 00 c3 00 80 00 06 00 03 2a 20 00 c3 00 bc 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 ┆ DEFINITION RECORD * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BI┆
0x1316e…131be 4e 41 52 59 20 56 41 4c 55 45 29 20 00 c3 00 c6 00 06 00 03 2a 20 00 c3 01 04 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 0e 00 06 00 03 2a 20 00 c3 01 2c 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 ┆NARY VALUE) * * WORK REGISTERS: A5 * , * SUBROUT┆
0x131be…1320e 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 00 c3 01 36 00 06 00 03 2a 20 00 c3 01 56 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 00 c3 01 60 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 31 2c 41 39 20 00 c3 01 74 00 0e 00 50 5c 53 4c 4c ┆INES: CONVRT 6 * V PGETLCN EQU * ` P LC A5,LCND1,A9 t P SLL┆
0x1320e…1325e (196, 0, 400) 5c 41 35 2c 38 20 00 c3 01 8c 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 32 2c 41 39 20 00 c4 00 0e 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 c4 00 26 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 c4 00 3a 00 12 00 50 5c 49 46 54 5c 43 ┆ A5,8 P LC A5,LCND2,A9 P CALL CONVRT & RTN A14 : P IFT C┆
0x1325e…132ae 52 45 44 49 54 3d 31 20 00 c4 00 4a 00 0a 00 50 5c 45 4a 45 43 54 00 c4 00 60 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 ┆REDIT=1 J P EJECT ` : P**************************************************┆
0x132ae…132fe 2a 2a 2a 20 00 c4 00 6e 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 c4 00 ac 00 3a 00 50 2a 20 20 47 45 54 ┆*** n : P* * : P* GET┆
0x132fe…1334e 54 43 4c 20 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 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 00 ea 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 ┆TCL - GET TASK CLASS TO MATCH * : P* =====================┆
0x1334e…1339e 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 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 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 ┆=========== * ( : P* ┆
0x1339e…133ee (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 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 14 00 3a ┆ * f : P* REFERENCED IN: B:TT * :┆
0x133ee…1343e 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 52 00 3a 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 35 20 2d 20 ┆ P* * R : P* ENTRY: A5 - ┆
0x1343e…1348e 54 43 4c 20 49 4e 20 43 55 52 52 45 4e 54 20 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 20 20 20 20 20 2a 20 00 c5 00 90 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 ┆TCL IN CURRENT TASK DEF. BLOCK * : P* ┆
0x1348e…134de 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c5 00 ce 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 ┆ * : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS ┆
0x134de…1352e 2a 20 00 c5 01 0c 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 01 4a 00 3a 00 50 2a 20 20 57 4f 52 4b 20 ┆* : P* * J : P* WORK ┆
0x1352e…1357e (198, 0, 400) 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2d 41 37 2c 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 c5 01 88 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 ┆REGISTERS: A1-A7,A10 * : P* ┆
0x1357e…135ce 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 36 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 ┆ * 6 : P* SUBROUTINES: GETTSK,NXTBLK ┆
0x135ce…1361e 20 20 20 20 20 20 20 20 2a 20 00 c6 00 74 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 c6 00 b2 00 3a 00 50 ┆ * t : P* * : P┆
0x1361e…1366e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 f0 00 04 00 50 00 c6 01 2e 00 10 00 50 47 45 54 54 43 4c 5c 45 51 55 ┆***************************************************** P . PGETTCL EQU┆
0x1366e…136be 5c 2a 00 c6 01 36 00 18 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 53 41 56 45 20 54 43 4c 20 00 c6 01 4a 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 c6 01 66 00 38 00 50 5c 4c 44 52 5c 41 31 30 ┆ * 6 P LDR A6,A5 SAVE TCL J P LDR A7,A6 TCL START VALUE f 8 P LDR A10┆
0x136be…1370e (199, 0, 400) 2c 41 31 31 5c 53 41 56 45 20 50 4f 49 4e 54 45 52 20 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 c6 01 88 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 ┆,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK 2 P LD A11,SAVE01,A13 START OF ┆
0x1370e…1375e 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 00 c7 00 34 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 6a 00 16 ┆CONFIGURATION DATA 4 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? j ┆
0x1375e…137ae 00 50 5c 52 46 28 45 29 5c 54 43 4c 3a 36 30 5c 59 45 53 21 00 c7 00 a2 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 bc 00 20 00 50 5c 53 ┆ P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P S┆
0x137ae…137fe 4c 4c 5c 41 35 2c 38 5c 4d 4f 56 45 20 54 4f 20 4c 45 46 54 20 42 59 54 45 20 00 c7 00 ee 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 12 ┆LL A5,8 MOVE TO LEFT BYTE . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ┆
0x137fe…1384e 00 18 00 50 5c 43 57 52 5c 41 35 2c 41 36 5c 53 41 4d 45 20 54 43 4c 3f 00 c7 01 44 00 16 00 50 5c 52 46 28 4e 45 29 5c 54 43 4c 3a 35 30 5c 4e 4f 21 00 c7 01 60 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 ┆ P CWR A5,A6 SAME TCL? D P RF(NE) TCL:50 NO! ` & P CALL GETTSK GET NUMBE┆
0x1384e…1389e (200, 0, 400) 52 20 4f 46 20 43 4f 50 49 45 53 20 00 c7 01 7a 00 1c 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 14 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 ┆R OF COPIES z P ADR A7,A1 INCREMENT TCL 0 PTCL:50 CALL NXTBLK GET NEXT ┆
0x1389e…138ee 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 00 c8 00 34 00 0e 00 50 5c 52 42 5c 54 43 4c 3a 31 30 00 c8 00 68 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 ┆TASK DEF. BLOCK 4 P RB TCL:10 h , PTCL:60 LDR A5,A7 SAVE START VALUE OF T┆
0x138ee…1393e 43 4c 00 c8 00 7a 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 c8 00 aa 00 08 00 50 5c 58 49 46 00 c8 00 ba 00 0a 00 06 5c 45 4a 45 43 54 00 c8 00 c6 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 ┆CL z P RTN A14 P XIF EJECT B >****************************┆
0x1393e…1398e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 c8 00 d4 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 ┆********************************** B >* BINASC - CONVERT A BINARY NUMBER TO┆
0x1398e…139de 20 41 20 41 53 43 49 49 2d 43 4f 44 45 44 20 4e 55 4d 42 45 52 20 20 2a 00 c8 01 1a 00 06 00 03 2a 20 00 c8 01 60 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 ┆ A ASCII-CODED NUMBER * * ` D ?* NUMBERS IN THE DOMAIN 1-99 MAY BE C┆
0x139de…13a2e (201, 0, 398) 4f 4e 56 45 52 54 45 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 c8 01 6a 00 06 00 03 2a 20 00 c9 00 22 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 ┆ONVERTED * j * " B >************************************┆
0x13a2e…13a7e 2a 2a 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 c9 00 2c 00 06 00 03 2a 20 00 c9 00 72 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 7c 00 06 00 03 2a 20 ┆************************** , * r * REFERENCED IN: B:DWTT | * ┆
0x13a7e…13ace 00 c9 00 9e 00 2c 00 28 2a 20 20 45 4e 54 52 59 3a 20 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 a8 00 06 00 03 2a 20 00 c9 00 d8 00 30 00 2c 2a 20 20 45 58 49 54 3a 20 20 20 41 35 20 ┆ , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 ┆
0x13ace…13b1e 2d 20 54 57 4f 2d 44 49 47 49 54 20 41 53 43 49 49 2d 43 4f 44 45 44 20 4e 55 4d 42 45 52 00 c9 00 e2 00 06 00 03 2a 20 00 c9 01 16 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 20 00 06 00 03 2a 20 ┆- TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER: A2 * ┆
0x13b1e…13b6c 00 c9 01 3e 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 00 c9 01 48 00 06 00 03 2a 20 00 c9 01 60 00 10 00 50 42 49 4e 41 53 43 5c 45 51 55 5c 2a 00 c9 01 6a 00 10 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 c9 01 7e ┆ > * SUBROUTINES: H * ` PBINASC EQU * j P LCK A5,'00' ~┆
0x13b6c…13bbc (202, 0, 400) 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 ca 00 04 00 10 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 ca 00 16 00 0e 00 09 5c 4c 44 4b 5c 41 32 2c 30 20 00 ca 00 2a 00 0e 00 0a 5c 4c 44 52 5c 41 31 2c 41 31 00 ca 00 3c 00 10 00 50 42 49 ┆ P SLL A5,8 P LCK A5,'00' LDK A2,0 * LDR A1,A1 < PBI┆
0x13bbc…13c0c 4e 3a 32 30 5c 45 51 55 5c 2a 00 ca 00 4e 00 10 00 0c 5c 52 46 28 5a 29 5c 42 49 4e 45 58 00 ca 00 62 00 0e 00 09 5c 41 44 4b 5c 41 32 2c 31 20 00 ca 00 76 00 0e 00 0a 5c 43 57 4b 5c 41 32 2c 31 30 00 ca 00 88 00 12 00 0d 5c 52 46 28 45 29 ┆N:20 EQU * N RF(Z) BINEX b ADK A2,1 v CWK A2,10 RF(E)┆
0x13c0c…13c5c 5c 42 49 4e 3a 33 30 20 00 ca 00 9a 00 0e 00 09 5c 53 55 4b 5c 41 31 2c 31 20 00 ca 00 b0 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a 32 30 00 ca 00 c2 00 10 00 50 42 49 4e 3a 33 30 5c 45 51 55 5c 2a 00 ca 00 d4 00 12 00 0e 5c 41 44 4b 4c 5c 41 35 ┆ BIN:30 SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5┆
0x13c5c…13cac 2c 2f 30 31 30 30 00 ca 00 e8 00 0e 00 09 5c 4c 44 4b 5c 41 32 2c 30 20 00 ca 00 fe 00 0e 00 09 5c 53 55 4b 5c 41 31 2c 31 20 00 ca 01 10 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a 32 30 00 ca 01 22 00 10 00 50 42 49 4e 45 58 5c 45 51 55 5c 2a 20 ┆,/0100 LDK A2,0 SUK A1,1 RB BIN:20 " PBINEX EQU * ┆
0x13cac…13cfc 00 ca 01 34 00 0e 00 50 5c 41 44 52 5c 41 35 2c 41 32 00 ca 01 48 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 ca 01 5a 00 0a 00 06 5c 45 4a 45 43 54 00 ca 01 6a 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 ┆ 4 P ADR A5,A2 H RTN A14 Z EJECT j . )************************┆
0x13cfc…13d4c (203, 0, 398) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 ca 01 78 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 1a 00 2e 00 29 2a 2a 2a 2a ┆***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )****┆
0x13d4c…13d9c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 cb 00 4c 00 06 00 03 2a 20 00 cb 00 7e 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 ┆************************************* L * ~ * REFERENCED IN: SEGGE┆
0x13d9c…13dec 4e 20 00 cb 00 88 00 06 00 03 2a 20 00 cb 00 aa 00 22 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 b4 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 ┆N * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MM┆
0x13dec…13e3c 55 20 4f 50 54 49 4f 4e 20 53 57 49 54 43 48 20 28 58 29 20 00 cb 00 da 00 06 00 03 2a 20 00 cb 01 0c 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 ┆U OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS ┆
0x13e3c…13e8a 01 16 00 06 00 03 2a 20 00 cb 01 46 00 16 00 13 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 3a 20 00 cb 01 50 00 06 00 03 2a 20 00 cb 01 6a 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 00 cb 01 74 00 06 00 03 2a 20 ┆ * F * WORK REGISTER: P * j * SUBROUTINES: t * ┆
0x13e8a…13eda (204, 0, 400) 00 cb 01 8c 00 10 00 50 47 45 54 43 4f 4e 5c 45 51 55 5c 2a 00 cc 00 08 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 1c 00 18 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 4d 4d 55 20 ┆ PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU ┆
0x13eda…13f2a 4f 50 54 49 4f 4e 00 cc 00 42 00 18 00 50 5c 52 46 28 5a 29 5c 47 43 4f 4e 31 30 5c 4e 4f 20 4d 4d 55 00 cc 00 5e 00 0e 00 0a 5c 45 4c 52 5c 41 31 2c 41 32 00 cc 00 7a 00 0e 00 50 5c 52 46 5c 47 43 4f 4e 32 30 00 cc 00 8c 00 10 00 50 47 43 ┆OPTION B P RF(Z) GCON10 NO MMU ^ ELR A1,A2 z P RF GCON20 PGC┆
0x13f2a…13f7a 4f 4e 31 30 5c 45 51 55 5c 2a 00 cc 00 9e 00 10 00 0b 5c 4c 44 52 2a 5c 41 31 2c 41 32 20 00 cc 00 b2 00 10 00 50 47 43 4f 4e 32 30 5c 45 51 55 5c 2a 00 cc 00 c6 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 cc 00 da 00 0a ┆ON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN ┆
0x13f7a…13fca 00 50 5c 45 4a 45 43 54 00 cc 00 f2 00 10 00 50 43 4f 4e 4d 4f 4e 5c 45 51 55 5c 2a 00 cc 01 00 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 ┆ P EJECT PCONMON EQU * D P********************************************┆
0x13fca…1401a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 cc 01 14 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 ┆******************** D P* START MONITOR SAVE01URATION ┆
0x1401a…1406a (205, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 2a 00 cc 01 5c 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 ┆ * D P************************************************************┆
0x1406a…140ba 2a 2a 2a 2a 00 cd 00 14 00 22 00 50 5c 43 41 4c 4c 5c 42 3a 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 5c 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 ┆**** " P CALL B:TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGE┆
0x140ba…1410a 4d 45 4e 54 20 54 41 53 4b 20 54 41 42 4c 45 53 00 cd 00 82 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 b8 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 ┆MENT TASK TABLES & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 ┆
0x1410a…1415a 00 cd 00 e2 00 24 00 50 5c 43 41 4c 4c 5c 53 45 47 47 45 4e 5c 42 55 49 4c 44 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 00 cd 00 f8 00 08 00 50 5c 58 49 46 00 cd 01 20 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b 53 57 50 42 4c 4b 3d 32 ┆ $ P CALL SEGGEN BUILD SEGMENT TABLE P XIF P IFT CREDIT+SWPBLK=2┆
0x1415a…141aa 00 cd 01 2c 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 53 57 42 54 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 48 00 08 00 50 5c 58 49 46 00 cd 01 7e 00 28 00 50 5c 43 41 4c 4c 5c ┆ , 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE H P XIF ~ ( P CALL ┆
0x141aa…141fa (206, 0, 400) 4d 4f 4e 42 4c 4b 5c 47 45 4e 45 52 41 54 45 20 4d 4f 4e 49 54 4f 52 20 42 4c 4f 43 4b 53 00 cd 01 8a 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 ┆MONBLK GENERATE MONITOR BLOCKS 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TAB┆
0x141fa…1424a 4c 45 53 20 00 ce 00 26 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 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 5c 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 ┆LES & 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BU┆
0x1424a…1429a 49 4c 44 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 53 00 ce 00 92 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 c0 00 12 00 50 5c 49 46 54 5c 43 ┆ILD COMMON DEVICE TABLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT C┆
0x1429a…142ea 52 45 44 49 54 3d 31 20 00 ce 00 ea 00 0a 00 50 5c 45 4a 45 43 54 00 ce 01 00 00 06 00 50 2a 20 00 ce 01 0e 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 18 00 06 00 50 2a 20 ┆REDIT=1 P EJECT P* " P* CHECK IF CREDIT APPLICATION P* ┆
0x142ea…1433a 00 ce 01 3e 00 12 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4c 41 43 20 00 ce 01 48 00 14 00 50 5c 41 44 4b 4c 5c 41 32 2c 50 52 47 4c 47 31 20 00 ce 01 5e 00 10 00 50 5c 43 41 4c 4c 5c 47 45 54 43 4f 4e 00 ce 01 76 00 10 00 50 5c 43 57 4b 5c 41 ┆ > P LD A2,SCTLAC H P ADKL A2,PRGLG1 ^ P CALL GETCON v P CWK A┆
0x1433a…1438a (207, 0, 400) 31 2c 27 43 52 27 00 ce 01 8a 00 12 00 50 5c 52 46 28 4e 45 29 5c 53 4c 44 4d 37 30 00 cf 00 0e 00 06 00 50 2a 20 00 cf 00 24 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 ┆1,'CR' P RF(NE) SLDM70 P* $ : P* STORE OPTION WORD (SCTOPT) IN U┆
0x1438a…143da 53 45 52 20 41 52 45 41 20 28 50 3a 4d 54 41 42 2b 33 34 29 00 cf 00 2e 00 06 00 50 2a 20 00 cf 00 6c 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 76 00 1a 00 50 5c 41 4e 4b ┆SER AREA (P:MTAB+34) . P* l " P LD A1,SCTOPT GET OPTION WORD v P ANK┆
0x143da…1442a 5c 41 31 2c 31 5c 4d 4d 55 20 4f 50 54 49 4f 4e 3f 20 00 cf 00 9c 00 12 00 50 5c 52 46 28 5a 29 5c 53 4c 44 4d 35 30 20 00 cf 00 ba 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 ┆ A1,1 MMU OPTION? P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:┆
0x1442a…1447a 4d 54 41 42 00 cf 00 d0 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 4f 4e 20 57 4f 52 44 20 00 cf 00 fc 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 ┆MTAB " P LD A2,SCTOPT GET OPTION WORD $ P ES A2,34,A1 STORE IN USER ARE┆
0x1447a…144ca 41 20 00 cf 01 22 00 0e 00 50 5c 52 46 5c 53 4c 44 4d 37 30 00 cf 01 4a 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 cf 01 5c 00 22 00 50 5c 4c ┆A " P RF SLDM70 J . PSLDM50 LD* A1,SCTLAC GET ADDRES TO P:MTAB " P L┆
0x144ca…1451a (208, 0, 400) 44 5c 41 32 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 01 8e 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 24 00 10 00 50 53 4c 44 4d ┆D A2,SCTOPT GET OPTION WORD $ P ST A2,34,A1 STORE IN USER AREA $ PSLDM┆
0x1451a…1456a 37 30 5c 45 51 55 5c 2a 00 d0 00 4c 00 08 00 50 5c 58 49 46 00 d0 00 60 00 0a 00 50 5c 45 4a 45 43 54 00 d0 00 6c 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 ┆70 EQU * L P XIF ` P EJECT l F P**************************************┆
0x1456a…145ba 2a 2a 2a 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 d0 00 7a 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 ┆*************************** z F P* END OF MONITOR SAVE01URATION ┆
0x145ba…1460a 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d0 00 c4 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 ┆PART * F P* -CONTINUE WITH APPLICATION SAVE01URATION P┆
0x1460a…1465a 41 52 54 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d0 01 0e 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 ┆ART * F P********************************************************┆
0x1465a…146aa (209, 2, 194) 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 d0 01 58 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 2f 46 46 46 46 00 d1 00 12 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 ┆********* X P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE AREA ┆
0x146aa…146fa 00 28 00 20 00 50 5c 4c 44 52 5c 41 38 2c 41 31 33 5c 47 45 54 20 42 41 53 45 2d 41 44 44 52 45 53 53 00 d1 00 56 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 7a 00 0c ┆ ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z ┆
0x146fa…1471c 00 50 5c 41 42 52 5c 41 38 20 00 d1 00 a2 00 08 00 50 5c 45 4e 44 00 d1 00 b2 40 04 00 00 00 d1 00 be ┆ P ABR A8 P END @ ┆
0x1471c…14758 (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┆
0x14758…14760 (211, 1, 8) 20 04 00 00 00 d3 00 04 ┆ ┆