|
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: 96914 (0x17a92)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/SYSLDM.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:LP/SYSLDM.SC«
└─⟦this⟧ »M:TU10/SYSLDM.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:LP/SYSLDM.SC«
└─⟦this⟧ »M:TU10/SYSLDM.SC«
IDENT SYSLDM REL 10.0 80-03-31 870105041000 REL 10.0 80-03-17 ST =5,FAULTY DISPL. TO MMU BIT MAP REL 10.0 80-03-14 ST =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S PRR 10.0 80-01-18 =3,SEGTAB NOT GEN. IF MMU PAGING ONLY PRR 10.0 79-12-21 =2,SEGBLK/PAGBLK NOT GEN. FOR CORE RES. SEGM. PRR 10.0 79-12-07 =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER ENTRY SYSLDM *************************** * * * ENTRIES AND EXTERNALS * * * *************************** EXTRN FREQUE EXTRN INTLT1 EXTRN INTAS EXTRN INTSL EXTRN REL EXTRN SCLASS EXTRN SCTADA EXTRN SCTANO EXTRN SCTBLK EXTRN SCTBUG EXTRN SCTCDT EXTRN SCTDCT EXTRN SCTDMI EXTRN SCTDMT EXTRN SCTEFA EXTRN SCTFWL EXTRN SCTFWT EXTRN SCTIOE EXTRN SCTLAC EXTRN SCTLAP EXTRN SCTNFT EXTRN SCTNOF EXTRN SCTNOP EXTRN SCTOPT EXTRN SCTPAG EXTRN SCTIPL EXTRN STTPSZ EXTRN SCTPSZ EXTRN SCTSFA EXTRN SCTSTL 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 MULT EXTRN CMPADR EXTRN CONVRT EXTRN NXTBLK EXTRN SYSLDX 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 SAVE26 EXTRN SAVE27 EXTRN SAVE28 EXTRN SAVE29,SAVE30 EXTRN BUFSIZ EXTRN SYSBUF EXTRN PRGLG1 EXTRN APPTYP EXTRN I:RSTE DISPL. IN P:MTAB TO INTERPRETER RESTART ENTRY * * TTAB DISPLACEMENTS * EXTRN TTB:CB CURRENT SEGMENT BASE POINTER EJECT * * EXTERNAL SUBROUTINES * EXTRN NXTCOM EXTRN GETNUM EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 0 MEMORY MANAGEMENT UNIT SWPBLK EQU 0 SWAPPABLE WORK BLOCKS DSKPAG EQU 0 DSKPAG 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:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 TTB:MT EQU -38 TTB:SP EQU -4 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 ASZLEN EQU 32 LENGTH OF ASCU4Z INTERRUPT TABLE SCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE ASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z SCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ MINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA EJECT ****************************************************** * * * * * THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * * * * IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * * PARAMETERS: * * * * A1 - POINTER TO CURRENT LOCATION OF SYSLDX * * A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * * * * * ****************************************************** 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 * * 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 * ST P,SAVE03,A13 TEMPORARY STORAGE FOR ASCU4Z I.T. 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 * *********************************************************** EJECT BTCT15 EQU * LD A2,SCTDMT DATA MANAGEMENT? BTCT20 ANK A2,/F MOORE DM-TASKS? RF(Z) BTCT30 NO! SRC A2,1 CHECK NEXT RF(NN) BTCT25 NOT INCLUDED ADK A7,2 RESERV ENTRY FOR DM-TASK D0 BTCT25 RB BTCT20 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:FWT - BUILD FILE WORK TABLE * * ============================= * * * *************************************************** * * * REFERENCED IN: CONMON * * * * ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * * SCTNOF - NUMBER OF GENERAL FM-FILES * * SCTFWL - FILE WORK TABLE LENGTH IN * * BYTES * * * * EXIT: SCTFWT - ADDRESS TO FIRST FWT * * SCTNOF - TOTAL NUMBER OF FM-FILES * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: ERROR,MULT * * * * FUNCTIONAL DESCRIPTION: * * THIS SUBROUTINE RESERVES MEMORY AREA FOR * * FILE WORK TABLES. * * SIZE OF THE AREA RESERVED IS GIVEN BY THE * * FORMULA: A=L*(G+N*T) * * WHERE A=AREA SIZE IN BYTES * * L= FWT LENGTH IN BYTES * * G=NUMBER OF GENERAL FM-FILES * * T=NUMBER OF FM-FILES PER TASK * * N=NUMBER OF USER TASKS * * * *************************************************** EJECT B:FWT EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT COMPUTE END OF TCTAB SU A2,SAVE02,A13 LENGTH OF USER PART SRL A2,1 NUMBER OF USER TASKS LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK CALL MULT MULTIPLY AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES LD A2,SCTFWL GET FILE WORK TABLE LENGTH CALL MULT MULTIPLY SRL A3,1 NUMBER OF WORDS TO BE RESERVED ADK A3,0 ANY FWT:S AT ALL? RF(Z) FWT70 NO! ST A3,SAVE05,A13 SAVE FWT AREA SIZE IN WORDS LD A2,SCTSFA GET START OF FREE AREA ST A2,SCTFWT STORE ADDRESS TO FIRST FWT FWT50 CW A2,SCTEFA MEMORY OVERFLOW? RF(NE) FWT60 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR FWT60 ADK A2,2 RESERVE ANOTHER WORD SUK A3,1 DECREMENT WORD COUNTER RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ST A2,SCTSFA UPDATE START OF FREE AREA FWT70 RTN A14 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 IFF MMUPAG+DSKPAG=0 =3 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 * * * CHECK APPLICATION TYPE * LD A1,APPTYP,A13 GET LANGUAGE TYPE CWK A1,'CR' RF(E) SEG:05 CREDIT APPLICATION CWK A1,'CO' RF(E) SEG:05 COBOL APPLICATION RF SEGEX * * BUILD SEGMENT TABLE * SEG:05 LD A12,SCTSFA START OF FREE AREA LD A1,SCTIPL GET PROGRAM LOAD DEVICE STR A1,A12 STORE IN SEGTAB ADKL A12,2 START OF SEGMENT BLOCKS LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS STR A1,A12 SAVE ADKL A12,2 ST A12,SAVE30,A13 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 LD A4,SAVE29,A13 GET NUMBER OF SEGMENTS RF(Z) SEG:50 NO SEGMENTS! ADK A2,2 FIRST SEGMENT BLOCK SEG:10 EQU * LDK A7,0 STATUS CALL GETCON * LDR A3,A1 SAVE DISC ADDRESS =REL 11 * ANK A3,/FF CLEAR LEFT BYTE =REL 11 SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 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! XRR A3,A3 LDKL A7,/8800 ADK A2,2 RF SEG:40 SEG:30 EQU * LDKL A7,/8800 INDICATE LOADED IN CORE SEG:35 EQU * ADK A2,2 SEGMENT ADDRESS CALL GETCON * AD A1,SCTADA+2 RF(O) SEG:36 RF SEG:38 SEG:36 ADK A3,1 ANKL A1,/7FFF SEG:38 AD A3,SCTADA CWK A3,255 RF(NG) SEG:40 LDKL A1,LMP10 CALL ERROR SEG:40 EQU * * ORR A7,A3 =REL 11 STR A7,A12 ST A1,2,A12 ADK A2,2 EFFECTIVE LENGTH CALL GETCON ST A1,4,A12 SAVE EFFECTIVE LENGTH ADKL A12,8 NEXT SEGMENT BLOCK ADK A2,2 NEXT BLOCK IN S:GTAB 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 SWPBLK=1 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 CM SAVE14,A13 RESET SWP-BLOCK COUNTER ADKL A12,2 FIRST POINTER LDR A10,A12 SAVE BSWT50 ADKL A10,2 BYPASS POINTER SUK A5,1 DECREMENT NUMBER OF TYPES RB(P) BSWT50 * * 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 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 SLL A5,8 NUMBER OF COPIES IN LEFT BYTE OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE STR A5,A10 STORE IN SWB BLOCK SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE LD A8,SAVE25,A13 GET DISC ADDRESS BITS 8-22 ST A8,2,A10 SAVE 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 BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK LDK A1,0 RESET SECTOR COUNTER BSWT86 IM SAVE25,A13 INCREMENT SECTOR ADDRESS RF(O) BSWT88 RF BSWT90 BSWT88 IM SAVE26,A13 CM SAVE25,A13 BSWT90 EQU * ADK A1,1 INCREMENT SECTOR COUNTER SUKL A3,256 DECREMENT LENGTH RB(P) BSWT86 MOORE SECTORS? SUK A5,1 MOORE COPIES? RB(P) BSWT85 YES! ST A1,SWBSEC,A10 STORE SECTOR LENGTH IM SAVE14,A13 INCREMENT SWP-BLOCK COUNTER LD A8,SAVE26,A13 CW A8,SAVE28,A13 RB(G) SWBERR $SWAP-FILE TOO SMALL! RF(L) BSWT95 LD A8,SAVE25,A13 CW A8,SAVE27,A13 RF(G) BSWT98 SWAPP-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 LD A8,SAVE14,A13 ANY BLOCKS GENERATED? RF(NE) BSWT99 YES BSWT98 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 ************************************************* * 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,A3,A5,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 A3,SCTDMT DATA MANAGEMENT? LD A6,SCTDMI GET INDEX BUFFER RECORD SIZE LDKL A5,'#D' DM-TASK ID DMTT20 EQU * ANK A3,/F MOORE DM-TASKS? RF(Z) DMTTEX NO! SRC A3,1 RF(NN) DMTT30 CALL DMTGEN DMTT30 EQU * ADK A5,1 RB DMTT20 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: A2,A4 * * 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 * LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE STR A1,A12 STORE TTB:SP ADKL A12,6 DMTG40 EQU * STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB ADK A7,2 NEXT ENTRY IN TC:TAB ST A5,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 * * 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 EJECT * 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 * ST P,SAVE04,A13 SAVE LOCATION COUNTER LD A12,SCTSFA GET START OF FREE AREA LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA ST A12,SAVE10,A13 SAVE START OF FREE AREA 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 * * CHECK IF CREDIT APPLICATION * LD A5,APPTYP,A13 CREDIT? CWK A5,'CR' RF(NE) BTT21 EJECT * * 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 BTT21 EQU * 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 EJECT * * COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE * LDKL A10,TTB:TD STANDARD LENGTH LD A5,SCTOPT GET OPTION WORD ANK A5,/11 CHECK IF EMM AND MMU PAGING INCLUDED XRK A5,/11 BOTH INCLUDED? RF(NZ) BTT22 NO! SUKL A10,TTB:AT INCLUDE BIT MAP IN LENGTH SUKL A12,TTB:AT RESERV SPACE FOR BIT MAP RF BTT30 BTT22 LD A5,SCTOPT SRC A5,1 MMU PAGING? RF(NN) BTT25 NO SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS RF BTT30 BTT25 EQU * SRC A5,1 DISC PAGING? RF(NN) BTT30 NO! SUKL A10,TTB:CB ONE WORD EXTRA IF DISC PAGING SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD BTT30 EQU * * * ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE * ADKL A10,2 EJECT * * 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 * 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 * EJECT =4 * =4 * MEMORY OVERFLOW CHECK =4 * =4 LDR A1,A11 SAVE REGISTER A11 =4 LDR A5,A9 SAVE REGISTER A9 =4 LDR A11,A12 GET TTAB ADDRESS =4 ADR A11,A10 COMPUTE END OF TTAB =4 LD A9,SCTEFA GET END OF FREE AREA =4 CALL CMPADR END OF TTAB<END OF FREE AREA? =4 RF(L) BTT62 YES! =4 LDKL A1,LMP3 =4 CALL ERROR INDICATE MEMORY OVERFLOW =4 BTT62 LDR A11,A1 RESTORE A11 =4 LDR A9,A5 RESTORE A9 =4 EJECT =4 * 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 IFF MMUPAG+DSKPAG=0 =3 * * STORE SEGMENT TABLE ADDRESS IN TTAB * LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS ST A5,TTB:SP,A12 STORE IN TTAB XIF LD A5,APPTYP,A13 GET APPLICATION TYPE CWK A5,'CR' CREDIT? RF(NE) BTT65 NO * * 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 BTT65 EQU * 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 LDR A5,A10 GET TTAB LENGTH ADS A5,SAVE10,A13 UPDATE START OF FREE AREA 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 A12,SAVE10,A13 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 * =4 =4 =4 =4 =4 =4 =4 =4 =4 ST A12,SCTSFA SAVE START OF FREE AREA RTN A14 RETURN 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 * * 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 * * * CLEAR WORK AREA TO BE USED FOR ECHO DEVICE * AND TEMPORARY INTERRUPT TABLES * LDR A1,P GET LOCATION COUNTER ST P,SAVE10,A13 SAVE LOCATION COUNTER BDWT00 CMR A1 CLEAR MEMORY WORD CW A1,SCTSFA+2 ALL WORDS CLEARED? RF(E) BDWT05 YES! SUK A1,2 DECREMENT POINTER RB BDWT00 BDWT05 EQU * LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? RF(L) BDWT08 NO! LD A1,SCTEFA SAVE END OF FREE AREA LD A11,SCTFWT START OF FWT AREA LDR A9,A11 ADKL A9,896+896 END OF T.I.T. ST A9,SCTEFA RF BDWT25 BDWT08 EQU * * * ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE * LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA CWK A11,MINBUF IS IT BIG ENOUGH? RF(L) BDWT09 TOO SMALL! LD A1,SCTEFA SAVE REAL END OF FREE AREA LD A11,SAVE10,A13 GET END OF TEMP. WORK AREA ST A11,SCTEFA SAVE SUKL A11,896+896 START OF TEMP. WORK AREA LDR A7,A11 SAVE SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ST A7,SAVE04,A13 SAVE SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ST A7,SAVE03,A13 SAVE RF BDWT25 BDWT09 EQU * * * ALLOCATE MEMORY FOR TEMPORARY INTERRUPT TABLE AT END OF FREE AREA * LD A11,SCTEFA GET END OF FREE AREA LD A9,SCTSFA GET START OF FREE AREA 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 ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 BDWT20 EQU * * * INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES * LDR A1,A11 BDWT25 LD A7,SAVE10,A13 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 * CALL ECHO 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,/E 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 * 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 CALL ECHO 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 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,/E 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 DWT05 EQU * LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * * CHECK CONNECTION TYPE * LC A4,TDC+5,A9 GET LINE CONNECTION TYPE CCK A4,'SS' SALCUZ CONNECTION? RF(NE) DWT10 NO! CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ RF DWT31 DWT10 CCK A4,'AA' ASCU4Z CONNECTION? RF(NE) DWT11 NO! CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z RF DWT31 DWT11 EQU * * * 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 AD A4,SAVE10,A13 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 DWT31 LDR* A2,A6 DWT ALREADY GENERATED? RF(Z) DWT32 NO! CALL DWT50 LDKL A1,DWT70 AD A1,M:REL,A13 ABR A1 * * 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) DWT45 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 RUNTIME-DWT * AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE * * LD A5,DWTECH,A1 ECHO? RF(Z) DWT40 NO AD A5,M:REL,A13 LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE RF(NZ) DWT392 NOT FIRST ECHO DEVICE ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE DWT392 LDR A4,A3 SAVE LENGTH AD A4,SCTSFA+2 NEXT FREE ENTRY STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ADK A3,4 UPDATE LENGTH ST* A3,SCTSFA+2 SAVE NEW LENGTH 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 DWT45 CALL DWT50 RF DWT60 DWT50 EQU * * * OUTPUT DEVICE* * IF ADDRESS OF PROTOTYPE DWT IS ODD, * THE DEVICE IS TO BE USED FOR ECHOING ON. * THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT * IS THEN STORED IN THE ECHO DEVICE TABLE. * LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS RF(NN) DWT59 NO ECHOING ON THIS DEVICE LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE RF(NZ) DWT55 ALREADY INITIALIZED! ADK A3,2 INCLUDE LENGTH DWT55 LDR A4,A3 SAVE LENGTH AD A4,SCTSFA+2 NEXT FREE ENTRY STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT ADK A3,4 UPDATE LENGTH ST* A3,SCTSFA+2 STORE NEW LENGTH DWT59 RTN A14 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 =1 ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 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 =1 =1 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,DWT05 AD A1,M:REL,A13 ABR A1 DWTEX EQU * RTN A14 EJECT * * SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE * BETWEEN THE FIRST POINTER IN ONE POINTER-SET * AND SECOND POINTER IN THE OTHER POINTER-SET: * STORE SECOND POINTER OF FIRST POINTER-SET * IN RUNTIME-DWT POINTED AT BY FIRST POINTER * OF SECOND POINTER-SET AND CLEAR POINTERS OF * SECOND POINTER-SET. * WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH * OF ECHO DEVICE TABLE IS CLEARED. * ECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE RF(Z) DWT160 NO ECHO DEVICES! AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE ADK A1,2 BYPASS LENGTH DWT90 LD A2,SCTSFA+2 GET START OF ECHO DEVICE TABLE ADK A2,2 BYPASS LENGTH DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET RF(E) DWT130 COINCIDENCE! ADK A2,4 NEXT POINTER-SET CWR A2,A3 END OF ECHO DEVICE TABLE RB(NE) DWT110 NO:CHECK NEXT SET RF DWT140 DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE CMR A1 CLEAR FIRST POINTER CM 2,A1 CLEAR SECOND POINTER DWT140 ADK A1,4 NEXT POINTER-SET CWR A1,A3 END OF ECHO DEVICE TABLE RB(NE) DWT90 NO! DWT150 CM* SCTSFA+2 CLEAR LENGTH DWT160 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 CWK A6,0032 CONNECTION NUMBER <= 32? RF(G) NUMERR NO! CWK A6,0001 CONNECTION NUMBER >=01? RF(L) NUMERR NO! 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 NUMERR EQU * LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR EJECT ****************************************************** * * * B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * * ================================================ * * * ****************************************************** * * * REFERENCED IN: DWTGEN * * * * ENTRY: A1 - POINTER TO PROTOTYPE-DWT * * A6 - LINE CONNECTION NUMBER * * A9 - POINTER TO TDC RECORD * * * * EXIT: A5 - CHANNEL PARAMETER * * A6 - LINE ENTRY * * * * WORK REGISTERS: A2,A3,A4,A5,A6 * * * * SUBROUTINES: * * * ****************************************************** EJECT B:ITAZ EQU * CWK A6,0016 CONNECTION NUMBER <= 16? RB(G) NUMERR NO! CWK A6,0001 CONNECTION NUMBER >= 01? RB(L) NUMERR NO! LDKL A4,INTAS GET ENTRY IN MONTAB LD A2,INTAS TABLE ALREADY INITIALIZED? RF(NZ) BITZ10 YES ADK A2,ASZLEN FIXED NUMBER OF ENTRIES ST A2,INTAS SAVE BITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY RF BITZ30 B:ITSZ EQU * CWK A6,0004 CONNECTION NUMBER <= 4? RB(G) NUMERR NO! CWK A6,0001 CONNECTION NUMBER >= 01? RB(L) NUMERR NO! LDKL A4,INTSL GET ENTRY IN MONTAB LD A2,INTSL TABLE ALREADY INITIALIZED? RF(NZ) BITZ20 YES! ADK A2,SCZLEN FIXED NUMBER OF ENTRIES ST A2,INTSL SAVE BITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? BITZ30 ADR A2,A5 END OF TABLE SUK A6,1 SLL A6,1 CONVERT TO DISPLACEMENT ADR A6,A5 SELECT ENTRY LDR* A3,A6 ANY DEVICES ON THIS LINE? RF(NZ) BITZ40 YES! LDR A3,A2 GET END OF TABLE SUR A3,A6 COMPUTE RELATIVE DISPLACEMENT STR A3,A6 STORE IN LINE ENTRY LDK A3,6 TABLE INCREMENT ADR* A3,A4 UPDATE LENGTH STR A3,A4 STORE NEW LENGTH LDR* A3,A6 GET DISPLACEMENT BITZ40 ADR A6,A3 GET START OF LINE CONF. TABLE LDR* A3,A1 GET CHANNEL PARAMETER SLC A3,5 DEVICE ADDRESS TO BIT 12-14 ANK A3,6 ONLY DEVICE ADDRESS 1,2 OR 3 ALLOWED SUK A3,2 MAKE DISPLACEMENT ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER SUK A4,1 LINE NUMBER 0-15 LDR A3,A4 SAVE LINE NUMBER SRL A3,3 SELECT ASCU4Z CARD LC A2,TDC+5,A9 GET CONNECTION TYPE CCK A2,'AA' ASCU4Z CONNECTION? RF(E) BITZ50 YES LDK A3,3 SALCUZ CONNECTION BITZ50 ADK A3,/C CHANNEL INDEX ANK A3,/F ISOLATE CHANNEL INDEX ANK A4,7 ISOLATE LINE NUMBER SRC A4,7 MOVE TO BITS 4-6 ORR A4,A3 MERGE LINE NO AND CH. PARAM. LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER ANKL A5,/F1F0 GET DATA REQ.,DEV. ADDR. AND INP. DEV. BITS ORR A5,A4 COMPLETE CHANNEL PARAMETER RTN A14 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,SAVE10,A13 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. * * * MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z * TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES * LD A3,INTAS ANY ASCU4Z CONNECTION? RF(Z) BIT180 NO! LDR A2,A11 GET TO-ADDRESS ADR A11,A3 END OF TO-AREA LD A1,SAVE03,A13 GET FROM-ADDRESS CALL MOVE ST A2,INTAS STORE ADDRESS TO INTERRUPT TABLE ADK A2,ASZLEN LAST LINE ENTRY+2 BIT170 SUK A2,2 DECREMENT ENTRY POINTER LDR* A1,A2 ANY CONNECTION ON THIS LINE? RF(Z) BIT175 NO! ADRS A2,A2 RELOCATE POINTER BIT175 CW A2,INTAS ALL POINTERS RELOCATED? RB(NE) BIT170 NO! BIT180 LD A3,INTSL ANY SALCUZ CONNECTION? RF(Z) BIT200 NO! LDR A2,A11 GET TO-ADDRESS ADR A11,A3 END OF INTERRUPT TABLE LD A1,SAVE04,A13 GET FROM-ADDRESS CALL MOVE MOVE INTERRUPT TABLE ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE ADK A2,SCZLEN LAST LINE ENTRY+2 BIT190 SUK A2,2 DECREMENT ENTRY POINTER LDR* A1,A2 ANY CONNECTION ON THIS LINE? RF(Z) BIT195 NO! ADRS A2,A2 RELOCATE POINTER BIT195 CW A2,INTSL ALL POINTERS RELOCATED? RB(NE) BIT190 NO! BIT200 EQU * LD A2,SCTSFA SUK A2,2 BIT210 ADK A2,2 CW A2,SCTEFA CHECK IF MEMORY OVERFLOW RF(NE) BIT220 LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BIT220 CWR A2,A11 RB(NE) BIT210 ST A13,SCTEFA SKIP TEMP. INTERRUPT 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 10.0 80-03-31 870105041000 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005e Head {h00=0x001c, h01=0x0050, text=» REL 10.0 80-03-17 ST «, t00=0x0000, t01=0x0042}
0x0005e…00088 Head {h00=0x0026, h01=0x0050, text=» =5,FAULTY DISPL. TO MMU BIT MAP«, t00=0x0000, t01=0x0062}
0x00088…000a8 Head {h00=0x001c, h01=0x0050, text=» REL 10.0 80-03-14 ST «, t00=0x0000, t01=0x008c}
0x000a8…000dc Head {h00=0x0030, h01=0x0050, text=» =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S«, t00=0x0000, t01=0x00ac}
0x000dc…000f8 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 80-01-18«, t00=0x0000, t01=0x00e0}
0x000f8…00128 Head {h00=0x002c, h01=0x0050, text=» =3,SEGTAB NOT GEN. IF MMU PAGING ONLY«, t00=0x0000, t01=0x00fc}
0x00128…00144 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-21«, t00=0x0000, t01=0x012c}
0x00144…0017c Head {h00=0x0034, h01=0x0050, text=» =2,SEGBLK/PAGBLK NOT GEN. FOR CORE RES. SEGM.«, t00=0x0000, t01=0x0148}
0x0017c…00198 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-07«, t00=0x0000, t01=0x0180}
0x00198…001cc Head {h00=0x0030, h01=0x0050, text=» =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER«, t00=0x0001, t01=0x000c}
0x001cc…001e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDM «, t00=0x0001, t01=0x0040}
0x001e2…00206 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0001, t01=0x0056}
0x00206…0022a Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0001, t01=0x007a}
0x0022a…0024e Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0001, t01=0x009e}
0x0024e…00272 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00c2}
0x00272…00296 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0001, t01=0x00e6}
0x00296…002ac Head {h00=0x0012, h01=0x0050, text=» EXTRN FREQUE «, t00=0x0001, t01=0x010a}
0x002ac…002c2 Head {h00=0x0012, h01=0x0050, text=» EXTRN INTLT1 «, t00=0x0001, t01=0x0120}
0x002c2…002d6 Head {h00=0x0010, h01=0x0050, text=» EXTRN INTAS«, t00=0x0001, t01=0x0136}
0x002d6…002ea Head {h00=0x0010, h01=0x0050, text=» EXTRN INTSL«, t00=0x0001, t01=0x014a}
0x002ea…002fc Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0001, t01=0x015e}
0x002fc…00312 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCLASS «, t00=0x0001, t01=0x0170}
0x00312…00328 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTADA «, t00=0x0001, t01=0x0186}
0x00328…0033e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0002, t01=0x000c}
0x0033e…00354 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBLK «, t00=0x0002, t01=0x0022}
0x00354…0036a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0002, t01=0x0038}
0x0036a…00380 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTCDT «, t00=0x0002, t01=0x004e}
0x00380…00396 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDCT «, t00=0x0002, t01=0x0064}
0x00396…003ac Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMI «, t00=0x0002, t01=0x007a}
0x003ac…003c2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMT «, t00=0x0002, t01=0x0090}
0x003c2…003d8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0002, t01=0x00a6}
0x003d8…003ee Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTFWL «, t00=0x0002, t01=0x00bc}
0x003ee…00404 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTFWT «, t00=0x0002, t01=0x00d2}
0x00404…0041a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIOE «, t00=0x0002, t01=0x00e8}
0x0041a…00430 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAC «, t00=0x0002, t01=0x00fe}
0x00430…00446 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAP «, t00=0x0002, t01=0x0114}
0x00446…0045c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNFT «, t00=0x0002, t01=0x012a}
0x0045c…00472 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOF «, t00=0x0002, t01=0x0140}
0x00472…00488 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0002, t01=0x0156}
0x00488…0049e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0002, t01=0x016c}
0x0049e…004b4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPAG «, t00=0x0002, t01=0x0182}
0x004b4…004ca Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0003, t01=0x0008}
0x004ca…004e0 Head {h00=0x0012, h01=0x0050, text=» EXTRN STTPSZ «, t00=0x0003, t01=0x001e}
0x004e0…004f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0003, t01=0x0034}
0x004f6…0050c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0003, t01=0x004a}
0x0050c…00522 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSTL «, t00=0x0003, t01=0x0060}
0x00522…00538 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSWB «, t00=0x0003, t01=0x0076}
0x00538…0054e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0003, t01=0x008c}
0x0054e…00564 Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBAS «, t00=0x0003, t01=0x00a2}
0x00564…0057a Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLOD «, t00=0x0003, t01=0x00b8}
0x0057a…00590 Head {h00=0x0012, h01=0x0050, text=» EXTRN TCLASS «, t00=0x0003, t01=0x00ce}
0x00590…005a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTMJOB «, t00=0x0003, t01=0x00e4}
0x005a6…005bc Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECH «, t00=0x0003, t01=0x00fa}
0x005bc…005d0 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTSQ«, t00=0x0003, t01=0x0110}
0x005d0…005de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0124}
0x005de…005f2 Head {h00=0x0010, h01=0x0050, text=» EXTRN M:REL«, t00=0x0003, t01=0x0132}
0x005f2…00606 Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0003, t01=0x0146}
0x00606…0061a Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0003, t01=0x015a}
0x0061a…0062e Head {h00=0x0010, h01=0x0050, text=» EXTRN MULT «, t00=0x0003, t01=0x016e}
0x0062e…00644 Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0003, t01=0x0182}
0x00644…0065a Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0004, t01=0x0008}
0x0065a…00670 Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTBLK «, t00=0x0004, t01=0x001e}
0x00670…00686 Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDX «, t00=0x0004, t01=0x0034}
0x00686…0069c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE01 «, t00=0x0004, t01=0x004a}
0x0069c…006b2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE02 «, t00=0x0004, t01=0x0060}
0x006b2…006c8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE03 «, t00=0x0004, t01=0x0076}
0x006c8…006de Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE04 «, t00=0x0004, t01=0x008c}
0x006de…006f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE05 «, t00=0x0004, t01=0x00a2}
0x006f4…0070a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE06 «, t00=0x0004, t01=0x00b8}
0x0070a…00720 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE07 «, t00=0x0004, t01=0x00ce}
0x00720…00736 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE08 «, t00=0x0004, t01=0x00e4}
0x00736…0074c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE09 «, t00=0x0004, t01=0x00fa}
0x0074c…00762 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE10 «, t00=0x0004, t01=0x0110}
0x00762…00778 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE11 «, t00=0x0004, t01=0x0126}
0x00778…0078e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE12 «, t00=0x0004, t01=0x013c}
0x0078e…007a4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE13 «, t00=0x0004, t01=0x0152}
0x007a4…007ba Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE14 «, t00=0x0004, t01=0x0168}
0x007ba…007d0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE15 «, t00=0x0004, t01=0x017e}
0x007d0…007e6 (5, 0, 398) Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE16 «, t00=0x0005, t01=0x0004}
0x007e6…007fc Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE17 «, t00=0x0005, t01=0x001a}
0x007fc…00812 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE18 «, t00=0x0005, t01=0x0030}
0x00812…00828 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE19 «, t00=0x0005, t01=0x0046}
0x00828…0083e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE20 «, t00=0x0005, t01=0x005c}
0x0083e…00854 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE21 «, t00=0x0005, t01=0x0072}
0x00854…0086a Head {h00=0x0012, h01=0x0050, text=» EXTRN NUMSEG «, t00=0x0005, t01=0x0088}
0x0086a…00880 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE23 «, t00=0x0005, t01=0x009e}
0x00880…00896 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE24 «, t00=0x0005, t01=0x00b4}
0x00896…008ac Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE25 «, t00=0x0005, t01=0x00ca}
0x008ac…008c2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE26 «, t00=0x0005, t01=0x00e0}
0x008c2…008d8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE27 «, t00=0x0005, t01=0x00f6}
0x008d8…008ee Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE28 «, t00=0x0005, t01=0x010c}
0x008ee…0090a Head {h00=0x0018, h01=0x0050, text=» EXTRN SAVE29,SAVE30«, t00=0x0005, t01=0x0122}
0x0090a…00920 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSIZ «, t00=0x0005, t01=0x013e}
0x00920…00936 Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSBUF «, t00=0x0005, t01=0x0154}
0x00936…0094c Head {h00=0x0012, h01=0x0050, text=» EXTRN PRGLG1 «, t00=0x0005, t01=0x016a}
0x0094c…00962 Head {h00=0x0012, h01=0x0050, text=» EXTRN APPTYP «, t00=0x0005, t01=0x0180}
0x00962…0098c Head {h00=0x0026, h01=0x0050, text=» EXTRN I:RSTE DISPL. IN P:MTAB TO «, t00=0x0006, t01=0x0008}
0x0098c…009b0 Head {h00=0x0020, h01=0x0050, text=» INTERPRETER RESTART ENTRY«, t00=0x0006, t01=0x0032}
0x009b0…009ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0056}
0x009ba…009d8 Head {h00=0x001a, h01=0x0050, text=»* TTAB DISPLACEMENTS «, t00=0x0006, t01=0x0060}
0x009d8…009e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x009e2…00a14 Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE POINTER«, t00=0x0006, t01=0x0088}
0x00a14…00a22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00ba}
0x00a22…00a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x00a2c…00a4c Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL SUBROUTINES «, t00=0x0006, t01=0x00d2}
0x00a4c…00a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x00a56…00a6c Head {h00=0x0012, h01=0x0050, text=» EXTRN NXTCOM «, t00=0x0006, t01=0x00fc}
0x00a6c…00a82 Head {h00=0x0012, h01=0x0050, text=» EXTRN GETNUM «, t00=0x0006, t01=0x0112}
0x00a82…00a90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0128}
0x00a90…00a98 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0136}
0x00a98…00aa0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x013e}
0x00aa0…00ad0 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x0146}
0x00ad0…00b00 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0006, t01=0x0176}
0x00b00…00b30 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0007, t01=0x0016}
0x00b30…00b38 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0046}
0x00b38…00b64 Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 0 MEMORY MANAGEMENT UNIT «, t00=0x0007, t01=0x004e}
0x00b64…00b8e Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x0007, t01=0x007a}
0x00b8e…00bb6 Head {h00=0x0024, h01=0x0050, text=»DSKPAG EQU 0 DSKPAG APPLICATION «, t00=0x0007, t01=0x00a4}
0x00bb6…00bc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00cc}
0x00bc4…00bd0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0007, t01=0x00da}
0x00bd0…00bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x00bda…00bee Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0007, t01=0x00f0}
0x00bee…00bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x00bf8…00c26 Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0007, t01=0x010e}
0x00c26…00c5a Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0007, t01=0x013c}
0x00c5a…00c7e Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0007, t01=0x0170}
0x00c7e…00ca6 (8, 0, 398) Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0008, t01=0x0004}
0x00ca6…00cb2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0008, t01=0x002c}
0x00cb2…00cbe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0008, t01=0x0038}
0x00cbe…00ce6 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0008, t01=0x0044}
0x00ce6…00d0e Head {h00=0x0024, h01=0x0050, text=»* SAVE01URATION FILE (SAVE01) * «, t00=0x0008, t01=0x006c}
0x00d0e…00d36 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0008, t01=0x0094}
0x00d36…00d42 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0008, t01=0x00bc}
0x00d42…00d62 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0008, t01=0x00c8}
0x00d62…00d84 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x00e8}
0x00d84…00db0 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0008, t01=0x010a}
0x00db0…00de0 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0008, t01=0x0136}
0x00de0…00e10 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0008, t01=0x0166}
0x00e10…00e38 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0009, t01=0x0008}
0x00e38…00e76 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0009, t01=0x0030}
0x00e76…00e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x00e80…00eaa Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0009, t01=0x0078}
0x00eaa…00ed2 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0009, t01=0x00a2}
0x00ed2…00ef4 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x0009, t01=0x00ca}
0x00ef4…00f20 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0009, t01=0x00ec}
0x00f20…00f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x00f2a…00f58 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0009, t01=0x0122}
0x00f58…00f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0150}
0x00f62…00f86 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0009, t01=0x015a}
0x00f86…00fa8 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0009, t01=0x017e}
0x00fa8…00fe2 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x000a, t01=0x0010}
0x00fe2…0100e Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x000a, t01=0x004a}
0x0100e…01018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0076}
0x01018…01022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x01022…0104c Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x000a, t01=0x008a}
0x0104c…0106e Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x000a, t01=0x00b4}
0x0106e…0109e Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x000a, t01=0x00d6}
0x0109e…010a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x010a8…010d4 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x000a, t01=0x0110}
0x010d4…010f4 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x000a, t01=0x013c}
0x010f4…0111a Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x000a, t01=0x015c}
0x0111a…0114c Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x000a, t01=0x0182}
0x0114c…0115a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0024}
0x0115a…01172 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x0032}
0x01172…0118a Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x000b, t01=0x004a}
0x0118a…011a2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x0062}
0x011a2…011c4 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x000b, t01=0x007a}
0x011c4…011cc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x009c}
0x011cc…011ee Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x000b, t01=0x00a4}
0x011ee…01204 Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x000b, t01=0x00c6}
0x01204…0121a Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x000b, t01=0x00dc}
0x0121a…0122e Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x000b, t01=0x00f2}
0x0122e…01242 Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x000b, t01=0x0106}
0x01242…01256 Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x000b, t01=0x011a}
0x01256…0126a Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x000b, t01=0x012e}
0x0126a…0127c Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x000b, t01=0x0142}
0x0127c…0128e Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x000b, t01=0x0154}
0x0128e…012a2 Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x000b, t01=0x0166}
0x012a2…012b6 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x000b, t01=0x017a}
0x012b6…012c2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x018e}
0x012c2…0130c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x000a}
0x0130c…01356 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000c, t01=0x0054}
0x01356…013a0 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000c, t01=0x009e}
0x013a0…013ea Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000c, t01=0x00e8}
0x013ea…01434 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x0132}
0x01434…01440 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x017c}
0x01440…0144c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x0188}
0x0144c…01458 (13, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000d, t01=0x0004}
0x01458…01476 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000d, t01=0x0010}
0x01476…01484 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x002e}
0x01484…014ce Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000d, t01=0x003c}
0x014ce…01518 Head {h00=0x0046, h01=0x0050, text=»* CONSTANTS USED IN SYSLOD PART M * «, t00=0x000d, t01=0x0086}
0x01518…01562 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000d, t01=0x00d0}
0x01562…0156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x0156c…01590 Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000d, t01=0x0124}
0x01590…015b4 Head {h00=0x0020, h01=0x0050, text=»* * TTAB * «, t00=0x000d, t01=0x0148}
0x015b4…015d8 Head {h00=0x0020, h01=0x0050, text=»* ********** «, t00=0x000d, t01=0x016c}
0x015d8…015e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0190}
0x015e2…01618 Head {h00=0x0032, h01=0x0050, text=»TTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 «, t00=0x000e, t01=0x000a}
0x01618…0162e Head {h00=0x0012, h01=0x0050, text=»TTB:MT EQU -38«, t00=0x000e, t01=0x0040}
0x0162e…01644 Head {h00=0x0012, h01=0x0050, text=»TTB:SP EQU -4 «, t00=0x000e, t01=0x0056}
0x01644…0165a Head {h00=0x0012, h01=0x0050, text=»TTB:SB EQU -2 «, t00=0x000e, t01=0x006c}
0x0165a…0166e Head {h00=0x0010, h01=0x0050, text=»TTB:ID EQU 2«, t00=0x000e, t01=0x0082}
0x0166e…01682 Head {h00=0x0010, h01=0x0050, text=»TTB:ST EQU 4«, t00=0x000e, t01=0x0096}
0x01682…01696 Head {h00=0x0010, h01=0x0050, text=»TTB:PP EQU 6«, t00=0x000e, t01=0x00aa}
0x01696…016aa Head {h00=0x0010, h01=0x0050, text=»TTB:PW EQU 8«, t00=0x000e, t01=0x00be}
0x016aa…016c0 Head {h00=0x0012, h01=0x0050, text=»TTB:SA EQU 10 «, t00=0x000e, t01=0x00d2}
0x016c0…016d6 Head {h00=0x0012, h01=0x0050, text=»TTB:TD EQU 40 «, t00=0x000e, t01=0x00e8}
0x016d6…016e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00fe}
0x016e4…016ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010c}
0x016ee…01710 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000e, t01=0x0116}
0x01710…01732 Head {h00=0x001e, h01=0x0050, text=»* * DWT * «, t00=0x000e, t01=0x0138}
0x01732…01754 Head {h00=0x001e, h01=0x0050, text=»* ********* «, t00=0x000e, t01=0x015a}
0x01754…0175e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017c}
0x0175e…01784 Head {h00=0x0022, h01=0x0050, text=»DWTCHP EQU 0 CHANNEL PARAMETER«, t00=0x000e, t01=0x0186}
0x01784…0179e Head {h00=0x0016, h01=0x0050, text=»DWTST EQU 2 STATUS«, t00=0x000f, t01=0x001c}
0x0179e…017be Head {h00=0x001c, h01=0x0050, text=»DWTECB EQU 4 ECB ADDRESS«, t00=0x000f, t01=0x0036}
0x017be…017d8 Head {h00=0x0016, h01=0x0050, text=»DWTOR EQU 6 ORDER «, t00=0x000f, t01=0x0056}
0x017d8…017fa Head {h00=0x001e, h01=0x0050, text=»DWTADR EQU 8 ADDRESS BLOCK«, t00=0x000f, t01=0x0070}
0x017fa…0181c Head {h00=0x001e, h01=0x0050, text=»DWTTAB EQU 10 TTAB ADDRESS«, t00=0x000f, t01=0x0092}
0x0181c…0184a Head {h00=0x002a, h01=0x0050, text=»DWTWAT EQU 12 WAIT/ACTIVATE INDICATOR «, t00=0x000f, t01=0x00b4}
0x0184a…0186e Head {h00=0x0020, h01=0x0050, text=»DWTTQ EQU 14 TERMINAL QUEUE «, t00=0x000f, t01=0x00e2}
0x0186e…01894 Head {h00=0x0022, h01=0x0050, text=»DWTUEC EQU 16 USER ECB ADDRESS«, t00=0x000f, t01=0x0106}
0x01894…018be Head {h00=0x0026, h01=0x0050, text=»DWTMEC EQU 18 MONITOR ECB ADDRESS «, t00=0x000f, t01=0x012c}
0x018be…018cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0156}
0x018cc…018d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x018d6…018fc Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x000f, t01=0x016e}
0x018fc…01922 (16, 0, 398) Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x0010, t01=0x0004}
0x01922…01948 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0010, t01=0x002a}
0x01948…01952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0050}
0x01952…01966 Head {h00=0x0010, h01=0x0050, text=»PAGQF EQU 0 «, t00=0x0010, t01=0x005a}
0x01966…0197a Head {h00=0x0010, h01=0x0050, text=»PAGQB EQU 2 «, t00=0x0010, t01=0x006e}
0x0197a…0198e Head {h00=0x0010, h01=0x0050, text=»PAGPA EQU 4 «, t00=0x0010, t01=0x0082}
0x0198e…019a2 Head {h00=0x0010, h01=0x0050, text=»PAGSB EQU 6 «, t00=0x0010, t01=0x0096}
0x019a2…019b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00aa}
0x019b0…019ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x019ba…019e4 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0010, t01=0x00c2}
0x019e4…01a0e Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x0010, t01=0x00ec}
0x01a0e…01a38 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0010, t01=0x0116}
0x01a38…01a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0140}
0x01a42…01a56 Head {h00=0x0010, h01=0x0050, text=»SEGPB EQU 6 «, t00=0x0010, t01=0x014a}
0x01a56…01a6a Head {h00=0x0010, h01=0x0050, text=»SEGSB EQU 6 «, t00=0x0010, t01=0x015e}
0x01a6a…01a72 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0172}
0x01a72…01a80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x017a}
0x01a80…01a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0188}
0x01a8a…01ab8 (17, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0011, t01=0x0004}
0x01ab8…01ae6 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x0011, t01=0x0032}
0x01ae6…01b14 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0011, t01=0x0060}
0x01b14…01b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008e}
0x01b1e…01b34 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x0011, t01=0x0098}
0x01b34…01b4a Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x0011, t01=0x00ae}
0x01b4a…01b5e Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x0011, t01=0x00c4}
0x01b5e…01b72 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x0011, t01=0x00d8}
0x01b72…01b86 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x0011, t01=0x00ec}
0x01b86…01b9a Head {h00=0x0010, h01=0x0050, text=»LCND1 EQU 10«, t00=0x0011, t01=0x0100}
0x01b9a…01bae Head {h00=0x0010, h01=0x0050, text=»LCND2 EQU 11«, t00=0x0011, t01=0x0114}
0x01bae…01bda Head {h00=0x0028, h01=0x0050, text=»SWBLEN EQU 4 DISPL. TO LENGTH OF SWB«, t00=0x0011, t01=0x0128}
0x01bda…01c0a Head {h00=0x002c, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO LENGTH IN SECTORS«, t00=0x0011, t01=0x0154}
0x01c0a…01c40 Head {h00=0x0032, h01=0x0050, text=»ASZLEN EQU 32 LENGTH OF ASCU4Z INTERRUPT TABLE«, t00=0x0011, t01=0x0184}
0x01c40…01c76 Head {h00=0x0032, h01=0x0050, text=»SCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE«, t00=0x0012, t01=0x002a}
0x01c76…01cac Head {h00=0x0032, h01=0x0050, text=»ASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z «, t00=0x0012, t01=0x0060}
0x01cac…01ce2 Head {h00=0x0032, h01=0x0050, text=»SCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ «, t00=0x0012, t01=0x0096}
0x01ce2…01d1a Head {h00=0x0034, h01=0x0050, text=»MINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA «, t00=0x0012, t01=0x00cc}
0x01d1a…01d28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0104}
0x01d28…01d66 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0012, t01=0x0112}
0x01d66…01da4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0150}
0x01da4…01de2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0012, t01=0x018e}
0x01de2…01e20 Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0013, t01=0x003c}
0x01e20…01e5e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0013, t01=0x007a}
0x01e5e…01e9c Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0013, t01=0x00b8}
0x01e9c…01eda Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0013, t01=0x00f6}
0x01eda…01f18 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0013, t01=0x0134}
0x01f18…01f56 Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDX *«, t00=0x0013, t01=0x0172}
0x01f56…01f94 Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX *«, t00=0x0014, t01=0x0020}
0x01f94…01fd2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0014, t01=0x005e}
0x01fd2…02010 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0014, t01=0x009c}
0x02010…0204e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0014, t01=0x00da}
0x0204e…02062 Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0014, t01=0x0118}
0x02062…0208e Head {h00=0x0028, h01=0x0050, text=» ST P,SCTSFA+2 SAVE LOCATION COUNTER«, t00=0x0014, t01=0x012c}
0x0208e…020c0 Head {h00=0x002e, h01=0x0050, text=» LDKL A11,SYSBAS GET SYSBAS START ADDRESS «, t00=0x0014, t01=0x0158}
0x020c0…020f0 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x0014, t01=0x018a}
0x020f0…02114 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0015, t01=0x002a}
0x02114…0213e Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 RELOCATION ROUTINE ENTRY«, t00=0x0015, t01=0x004e}
0x0213e…02150 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0015, t01=0x0078}
0x02150…0217e Head {h00=0x002a, h01=0x0050, text=» ST A13,SCTEFA UPDATE END OF FREE AREA«, t00=0x0015, t01=0x008a}
0x0217e…021ac Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0015, t01=0x00b8}
0x021ac…021de Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0015, t01=0x00e6}
0x021de…02206 Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0015, t01=0x0118}
0x02206…02236 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0015, t01=0x0140}
0x02236…02270 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS«, t00=0x0015, t01=0x0170}
0x02270…022a4 Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0016, t01=0x001a}
0x022a4…022d4 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0016, t01=0x004e}
0x022d4…0230e Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS«, t00=0x0016, t01=0x007e}
0x0230e…02318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b8}
0x02318…02342 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x0016, t01=0x00c2}
0x02342…0234c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x0234c…02362 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTEFA «, t00=0x0016, t01=0x00f6}
0x02362…02378 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0016, t01=0x010c}
0x02378…0238c Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x0016, t01=0x0122}
0x0238c…0239e Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0016, t01=0x0136}
0x0239e…023ae Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x0016, t01=0x0148}
0x023ae…023c0 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0016, t01=0x0158}
0x023c0…023d6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x0016, t01=0x016a}
0x023d6…023ee Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x0016, t01=0x0180}
0x023ee…02406 Head {h00=0x0014, h01=0x0050, text=» AD A1,M:REL,A13«, t00=0x0017, t01=0x0008}
0x02406…02416 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0017, t01=0x0020}
0x02416…02424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0030}
0x02424…0245c Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0017, t01=0x003e}
0x0245c…02494 Head {h00=0x0034, h01=0x002f, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0017, t01=0x0076}
0x02494…024cc Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0017, t01=0x00ae}
0x024cc…024d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x00e6}
0x024d6…02506 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0017, t01=0x00f0}
0x02506…02532 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0017, t01=0x0120}
0x02532…0255e Head {h00=0x0028, h01=0x0023, text=»* A12 - RELOCATION CONSTANT «, t00=0x0017, t01=0x014c}
0x0255e…02568 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0178}
0x02568…0259e Head {h00=0x0032, h01=0x002e, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0017, t01=0x0182}
0x0259e…025a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0028}
0x025a8…025c6 Head {h00=0x001a, h01=0x0016, text=»* WORK REGISTER:A1-A7«, t00=0x0018, t01=0x0032}
0x025c6…025d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0050}
0x025d0…025e8 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0018, t01=0x005a}
0x025e8…025f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0072}
0x025f2…02606 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0018, t01=0x007c}
0x02606…0262a Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0018, t01=0x0090}
0x0262a…02660 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0018, t01=0x00b4}
0x02660…02690 Head {h00=0x002c, h01=0x0027, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0018, t01=0x00ea}
0x02690…026a4 Head {h00=0x0010, h01=0x000c, text=»CHPT10 EQU *«, t00=0x0018, t01=0x011a}
0x026a4…026d6 Head {h00=0x002e, h01=0x0029, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0018, t01=0x012e}
0x026d6…026f0 Head {h00=0x0016, h01=0x0011, text=» RF(Z) CHPT30 NO! «, t00=0x0018, t01=0x0160}
0x026f0…0270c Head {h00=0x0018, h01=0x0014, text=» ADK A3,2 NEXT ENTRY«, t00=0x0018, t01=0x017a}
0x0270c…02734 Head {h00=0x0024, h01=0x0021, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0019, t01=0x0008}
0x02734…02750 Head {h00=0x0018, h01=0x0014, text=» ADR A5,A12 RELOCATE«, t00=0x0019, t01=0x0030}
0x02750…02768 Head {h00=0x0014, h01=0x0010, text=» STR A5,A3 STORE«, t00=0x0019, t01=0x004c}
0x02768…02790 Head {h00=0x0024, h01=0x001f, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0019, t01=0x0064}
0x02790…027a4 Head {h00=0x0010, h01=0x000c, text=»CHPT20 EQU *«, t00=0x0019, t01=0x008c}
0x027a4…027d2 Head {h00=0x002a, h01=0x0026, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0019, t01=0x00a0}
0x027d2…027ec Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0019, t01=0x00ce}
0x027ec…0280a Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x0019, t01=0x00e8}
0x0280a…0282e Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0019, t01=0x0106}
0x0282e…02850 Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x0019, t01=0x012a}
0x02850…02876 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x0019, t01=0x014c}
0x02876…0289a Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x0019, t01=0x0172}
0x0289a…028b6 Head {h00=0x0018, h01=0x0014, text=» ADR A7,A12 RELOCATE«, t00=0x001a, t01=0x0008}
0x028b6…028e4 Head {h00=0x002a, h01=0x0025, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x001a, t01=0x0024}
0x028e4…0290a Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x001a, t01=0x0052}
0x0290a…0292c Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x001a, t01=0x0078}
0x0292c…02946 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x001a, t01=0x009a}
0x02946…02976 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x001a, t01=0x00b4}
0x02976…029a0 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x001a, t01=0x00e4}
0x029a0…029ce Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x001a, t01=0x010e}
0x029ce…029ea Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x001a, t01=0x013c}
0x029ea…02a06 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x001a, t01=0x0158}
0x02a06…02a38 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x001a, t01=0x0174}
0x02a38…02a68 Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x001b, t01=0x0016}
0x02a68…02a7a Head {h00=0x000e, h01=0x000a, text=» RB CHPT20«, t00=0x001b, t01=0x0046}
0x02a7a…02a8e Head {h00=0x0010, h01=0x000c, text=»CHPT30 EQU *«, t00=0x001b, t01=0x0058}
0x02a8e…02a9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x006c}
0x02a9e…02aac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x007c}
0x02aac…02ae6 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x001b, t01=0x008a}
0x02ae6…02b20 Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x001b, t01=0x00c4}
0x02b20…02b5a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x001b, t01=0x00fe}
0x02b5a…02b64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0138}
0x02b64…02b84 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x001b, t01=0x0142}
0x02b84…02b8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0162}
0x02b8e…02bc4 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA«, t00=0x001b, t01=0x016c}
0x02bc4…02bce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0012}
0x02bce…02bf4 Head {h00=0x0022, h01=0x001e, text=»* EXIT: A6 - START OF TC:TAB«, t00=0x001c, t01=0x001c}
0x02bf4…02c1c Head {h00=0x0024, h01=0x001f, text=»* A7 - LENGTH OF TC:TAB «, t00=0x001c, t01=0x0042}
0x02c1c…02c26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x006a}
0x02c26…02c48 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A2,A3 «, t00=0x001c, t01=0x0074}
0x02c48…02c52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0096}
0x02c52…02c6a Head {h00=0x0014, h01=0x0011, text=»* SUBROUTINES: «, t00=0x001c, t01=0x00a0}
0x02c6a…02c74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00b8}
0x02c74…02ca6 Head {h00=0x002e, h01=0x0029, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x001c, t01=0x00c2}
0x02ca6…02cd8 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001c, t01=0x00f4}
0x02cd8…02d0a Head {h00=0x002e, h01=0x002a, text=»* I LENGTH I«, t00=0x001c, t01=0x0126}
0x02d0a…02d3c Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001c, t01=0x0158}
0x02d3c…02d6e Head {h00=0x002e, h01=0x002a, text=»* I TTMJOB I«, t00=0x001c, t01=0x018a}
0x02d6e…02da0 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001d, t01=0x002c}
0x02da0…02dd2 Head {h00=0x002e, h01=0x002a, text=»* I MONITOR TASKS I«, t00=0x001d, t01=0x005e}
0x02dd2…02e04 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x001d, t01=0x0090}
0x02e04…02e36 Head {h00=0x002e, h01=0x002a, text=»* I USER TASKS I«, t00=0x001d, t01=0x00c2}
0x02e36…02e68 Head {h00=0x002e, h01=0x0029, text=»* __________________________ «, t00=0x001d, t01=0x00f4}
0x02e68…02e72 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0126}
0x02e72…02e80 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001d, t01=0x0130}
0x02e80…02e94 Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x001d, t01=0x013e}
0x02e94…02ece Head {h00=0x0036, h01=0x0050, text=» ST P,SAVE03,A13 TEMPORARY STORAGE FOR ASCU4Z I.T.«, t00=0x001d, t01=0x0152}
0x02ece…02f08 Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x001d, t01=0x018c}
0x02f08…02f34 Head {h00=0x0028, h01=0x0024, text=» LD A7,SCTSFA GET START OF FREE AREA«, t00=0x001e, t01=0x0036}
0x02f34…02f4c Head {h00=0x0014, h01=0x000f, text=» LDR A6,A7 SAVE «, t00=0x001e, t01=0x0062}
0x02f4c…02f76 Head {h00=0x0026, h01=0x0022, text=» LDKL A2,TTMJOB GET TTMJOB ADDRESS«, t00=0x001e, t01=0x007a}
0x02f76…02f9a Head {h00=0x0020, h01=0x001b, text=» ST A2,2,A7 STORE IN TC:TAB «, t00=0x001e, t01=0x00a4}
0x02f9a…02fc8 Head {h00=0x002a, h01=0x0025, text=» ADK A7,4 CONTINUE WITH MONITOR TASKS «, t00=0x001e, t01=0x00c8}
0x02fc8…02ff4 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTOPT ANY OPTIONS AVALIABLE?«, t00=0x001e, t01=0x00f6}
0x02ff4…0300e Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT15 NO! «, t00=0x001e, t01=0x0122}
0x0300e…03052 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001e, t01=0x013c}
0x03052…03096 Head {h00=0x0040, h01=0x0050, text=»* RESERV ENTRIES IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * «, t00=0x001e, t01=0x0180}
0x03096…030da Head {h00=0x0040, h01=0x0050, text=»* - TO BE PROVIDED * «, t00=0x001f, t01=0x0034}
0x030da…0311e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001f, t01=0x0078}
0x0311e…0312c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00bc}
0x0312c…03140 Head {h00=0x0010, h01=0x0050, text=»BTCT15 EQU *«, t00=0x001f, t01=0x00ca}
0x03140…03166 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTDMT DATA MANAGEMENT?«, t00=0x001f, t01=0x00de}
0x03166…0318e Head {h00=0x0024, h01=0x0050, text=»BTCT20 ANK A2,/F MOORE DM-TASKS?«, t00=0x001f, t01=0x0104}
0x0318e…031a8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BTCT30 NO! «, t00=0x001f, t01=0x012c}
0x031a8…031c4 Head {h00=0x0018, h01=0x0050, text=» SRC A2,1 CHECK NEXT«, t00=0x001f, t01=0x0146}
0x031c4…031e8 Head {h00=0x0020, h01=0x0050, text=» RF(NN) BTCT25 NOT INCLUDED «, t00=0x001f, t01=0x0162}
0x031e8…03216 Head {h00=0x002a, h01=0x0050, text=» ADK A7,2 RESERV ENTRY FOR DM-TASK D0 «, t00=0x001f, t01=0x0186}
0x03216…0322e Head {h00=0x0014, h01=0x0050, text=»BTCT25 RB BTCT20«, t00=0x0020, t01=0x0024}
0x0322e…03242 Head {h00=0x0010, h01=0x0050, text=»BTCT30 EQU *«, t00=0x0020, t01=0x003c}
0x03242…0324c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x0050}
0x0324c…0328a Head {h00=0x003a, h01=0x0035, text=»* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB «, t00=0x0020, t01=0x005a}
0x0328a…03294 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x0098}
0x03294…032c6 Head {h00=0x002e, h01=0x0029, text=»* A11 - POINTER TO TASK DEFINITION BLOCK «, t00=0x0020, t01=0x00a2}
0x032c6…032d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x00d4}
0x032d0…03306 Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x0020, t01=0x00de}
0x03306…03336 Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x0020, t01=0x0114}
0x03336…03358 Head {h00=0x001e, h01=0x001a, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x0020, t01=0x0144}
0x03358…03384 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0020, t01=0x0166}
0x03384…0339e (33, 0, 400) Head {h00=0x0016, h01=0x0011, text=» RF(E) BTCT35 YES «, t00=0x0021, t01=0x0004}
0x0339e…033c0 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0021, t01=0x001e}
0x033c0…033d8 Head {h00=0x0014, h01=0x0010, text=» CALL ERROR HALT«, t00=0x0021, t01=0x0040}
0x033d8…033ec Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x0021, t01=0x0058}
0x033ec…033f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x006c}
0x033f6…0342a Head {h00=0x0030, h01=0x002c, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x0021, t01=0x0076}
0x0342a…03434 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x00aa}
0x03434…03448 Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0021, t01=0x00b4}
0x03448…03470 Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0021, t01=0x00c8}
0x03470…03484 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0021, t01=0x00f0}
0x03484…034b4 Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0021, t01=0x0104}
0x034b4…034de Head {h00=0x0026, h01=0x0050, text=» CW A7,SCTEFA CHECK IF MEMORY LEFT«, t00=0x0021, t01=0x0134}
0x034de…034fa Head {h00=0x0018, h01=0x0050, text=» RF(NE) BTCT55 YES! «, t00=0x0021, t01=0x015e}
0x034fa…03510 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0021, t01=0x017a}
0x03510…0353c Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0021, t01=0x0190}
0x0353c…03550 Head {h00=0x0010, h01=0x0050, text=»BTCT55 EQU *«, t00=0x0022, t01=0x002c}
0x03550…0357c Head {h00=0x0028, h01=0x0024, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0022, t01=0x0040}
0x0357c…03596 Head {h00=0x0016, h01=0x0011, text=» RB(P) BTCT50 YES «, t00=0x0022, t01=0x006c}
0x03596…035be Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0022, t01=0x0086}
0x035be…035ea Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0022, t01=0x00ae}
0x035ea…03604 Head {h00=0x0016, h01=0x0011, text=» RB(E) BTCT40 YES «, t00=0x0022, t01=0x00da}
0x03604…0360e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x00f4}
0x0360e…03646 Head {h00=0x0034, h01=0x0030, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0022, t01=0x00fe}
0x03646…03650 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0136}
0x03650…0367e Head {h00=0x002a, h01=0x0025, text=» ST A7,SCTSFA UPDATE END OF FREE AREA «, t00=0x0022, t01=0x0140}
0x0367e…036a2 Head {h00=0x0020, h01=0x001b, text=» SUR A7,A6 LENGTH OF TC:TAB «, t00=0x0022, t01=0x016e}
0x036a2…036cc (35, 0, 400) Head {h00=0x0026, h01=0x0021, text=» STR A7,A6 STORE LENGTH IN TC:TAB «, t00=0x0023, t01=0x0004}
0x036cc…036fa Head {h00=0x002a, h01=0x0050, text=» ST A6,SCTTCT STORE POINTER TO TC:TAB «, t00=0x0023, t01=0x002e}
0x036fa…0370a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0023, t01=0x005c}
0x0370a…03718 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x006c}
0x03718…03754 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0023, t01=0x007a}
0x03754…03790 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00b6}
0x03790…037cc Head {h00=0x0038, h01=0x0050, text=»* B:FWT - BUILD FILE WORK TABLE * «, t00=0x0023, t01=0x00f2}
0x037cc…03808 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x0023, t01=0x012e}
0x03808…03844 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0023, t01=0x016a}
0x03844…03880 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0024, t01=0x0016}
0x03880…038bc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0052}
0x038bc…038f8 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0024, t01=0x008e}
0x038f8…03934 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00ca}
0x03934…03970 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * «, t00=0x0024, t01=0x0106}
0x03970…039ac Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - NUMBER OF GENERAL FM-FILES * «, t00=0x0024, t01=0x0142}
0x039ac…039e8 Head {h00=0x0038, h01=0x0050, text=»* SCTFWL - FILE WORK TABLE LENGTH IN * «, t00=0x0024, t01=0x017e}
0x039e8…03a24 Head {h00=0x0038, h01=0x0050, text=»* BYTES * «, t00=0x0025, t01=0x002a}
0x03a24…03a60 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0066}
0x03a60…03a9c Head {h00=0x0038, h01=0x0050, text=»* EXIT: SCTFWT - ADDRESS TO FIRST FWT * «, t00=0x0025, t01=0x00a2}
0x03a9c…03ad8 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - TOTAL NUMBER OF FM-FILES * «, t00=0x0025, t01=0x00de}
0x03ad8…03b14 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0025, t01=0x011a}
0x03b14…03b50 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x0025, t01=0x0156}
0x03b50…03b8c (38, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0004}
0x03b8c…03bc8 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: ERROR,MULT * «, t00=0x0026, t01=0x0040}
0x03bc8…03c04 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0026, t01=0x007c}
0x03c04…03c40 Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x0026, t01=0x00b8}
0x03c40…03c7c Head {h00=0x0038, h01=0x0050, text=»* THIS SUBROUTINE RESERVES MEMORY AREA FOR * «, t00=0x0026, t01=0x00f4}
0x03c7c…03cb8 Head {h00=0x0038, h01=0x0050, text=»* FILE WORK TABLES. * «, t00=0x0026, t01=0x0130}
0x03cb8…03cf4 Head {h00=0x0038, h01=0x0050, text=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * «, t00=0x0026, t01=0x016c}
0x03cf4…03d30 Head {h00=0x0038, h01=0x0050, text=»* FORMULA: A=L*(G+N*T) * «, t00=0x0027, t01=0x0018}
0x03d30…03d6c Head {h00=0x0038, h01=0x0050, text=»* WHERE A=AREA SIZE IN BYTES * «, t00=0x0027, t01=0x0054}
0x03d6c…03da8 Head {h00=0x0038, h01=0x0050, text=»* L= FWT LENGTH IN BYTES * «, t00=0x0027, t01=0x0090}
0x03da8…03de4 Head {h00=0x0038, h01=0x0050, text=»* G=NUMBER OF GENERAL FM-FILES * «, t00=0x0027, t01=0x00cc}
0x03de4…03e20 Head {h00=0x0038, h01=0x0050, text=»* T=NUMBER OF FM-FILES PER TASK * «, t00=0x0027, t01=0x0108}
0x03e20…03e5c Head {h00=0x0038, h01=0x0050, text=»* N=NUMBER OF USER TASKS * «, t00=0x0027, t01=0x0144}
0x03e5c…03e98 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0027, t01=0x0180}
0x03e98…03ed4 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0028, t01=0x002c}
0x03ed4…03ee2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0068}
0x03ee2…03ef6 Head {h00=0x0010, h01=0x0050, text=»B:FWT EQU * «, t00=0x0028, t01=0x0076}
0x03ef6…03f20 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x0028, t01=0x008a}
0x03f20…03f4a Head {h00=0x0026, h01=0x0050, text=» AD A2,SCTTCT COMPUTE END OF TCTAB«, t00=0x0028, t01=0x00b4}
0x03f4a…03f78 Head {h00=0x002a, h01=0x0050, text=» SU A2,SAVE02,A13 LENGTH OF USER PART «, t00=0x0028, t01=0x00de}
0x03f78…03f9e Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 NUMBER OF USER TASKS«, t00=0x0028, t01=0x010c}
0x03f9e…03fd4 Head {h00=0x0032, h01=0x0050, text=» LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK «, t00=0x0028, t01=0x0132}
0x03fd4…03ff0 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x0028, t01=0x0168}
0x03ff0…04024 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES«, t00=0x0028, t01=0x0184}
0x04024…04058 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES«, t00=0x0029, t01=0x0028}
0x04058…04088 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTFWL GET FILE WORK TABLE LENGTH«, t00=0x0029, t01=0x005c}
0x04088…040a4 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x0029, t01=0x008c}
0x040a4…040d4 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 NUMBER OF WORDS TO BE RESERVED«, t00=0x0029, t01=0x00a8}
0x040d4…040f8 Head {h00=0x0020, h01=0x0050, text=» ADK A3,0 ANY FWT:S AT ALL? «, t00=0x0029, t01=0x00d8}
0x040f8…04110 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FWT70 NO!«, t00=0x0029, t01=0x00fc}
0x04110…04146 Head {h00=0x0032, h01=0x0050, text=» ST A3,SAVE05,A13 SAVE FWT AREA SIZE IN WORDS «, t00=0x0029, t01=0x0114}
0x04146…04172 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0029, t01=0x014a}
0x04172…041a2 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTFWT STORE ADDRESS TO FIRST FWT«, t00=0x0029, t01=0x0176}
0x041a2…041ce Head {h00=0x0028, h01=0x0050, text=»FWT50 CW A2,SCTEFA MEMORY OVERFLOW? «, t00=0x002a, t01=0x0016}
0x041ce…041ec Head {h00=0x001a, h01=0x0050, text=» RF(NE) FWT60 NOT YET!«, t00=0x002a, t01=0x0042}
0x041ec…0421a Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x002a, t01=0x0060}
0x0421a…0422e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x002a, t01=0x008e}
0x0422e…0425a Head {h00=0x0028, h01=0x0050, text=»FWT60 ADK A2,2 RESERVE ANOTHER WORD «, t00=0x002a, t01=0x00a2}
0x0425a…04282 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT WORD COUNTER«, t00=0x002a, t01=0x00ce}
0x04282…042b0 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW«, t00=0x002a, t01=0x00f6}
0x042b0…042e0 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTSFA UPDATE START OF FREE AREA «, t00=0x002a, t01=0x0124}
0x042e0…042f6 Head {h00=0x0012, h01=0x0050, text=»FWT70 RTN A14 «, t00=0x002a, t01=0x0154}
0x042f6…04304 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002a, t01=0x016a}
0x04304…04332 Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x002a, t01=0x0178}
0x04332…04360 Head {h00=0x002a, h01=0x0026, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x002b, t01=0x0016}
0x04360…0438e Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x002b, t01=0x0044}
0x0438e…04398 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0072}
0x04398…043c4 Head {h00=0x0028, h01=0x0024, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x002b, t01=0x007c}
0x043c4…043f0 Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x002b, t01=0x00a8}
0x043f0…04418 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x002b, t01=0x00d4}
0x04418…04440 Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x002b, t01=0x00fc}
0x04440…0444a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0124}
0x0444a…04454 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x012e}
0x04454…04474 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: SYSLOD«, t00=0x002b, t01=0x0138}
0x04474…0447e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0158}
0x0447e…044ac Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x002b, t01=0x0162}
0x044ac…044d8 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x002b, t01=0x0190}
0x044d8…044e2 Head {h00=0x0006, h01=0x000b, text=»* «, t00=0x002c, t01=0x002c}
0x044e2…04514 Head {h00=0x002e, h01=0x002a, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x002c, t01=0x0036}
0x04514…0451e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0068}
0x0451e…04546 Head {h00=0x0024, h01=0x0020, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x002c, t01=0x0072}
0x04546…04550 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x009a}
0x04550…04570 Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: BLKGEN «, t00=0x002c, t01=0x00a4}
0x04570…0457a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x00c4}
0x0457a…04588 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002c, t01=0x00ce}
0x04588…0459c Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x002c, t01=0x00dc}
0x0459c…045ae Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x002c, t01=0x00f0}
0x045ae…045d8 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x002c, t01=0x0102}
0x045d8…0460a Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x002c, t01=0x012c}
0x0460a…04614 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x015e}
0x04614…0463c Head {h00=0x0024, h01=0x0020, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x002c, t01=0x0168}
0x0463c…04646 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0190}
0x04646…04672 Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x002d, t01=0x000a}
0x04672…0467c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x0467c…046b0 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x002d, t01=0x0040}
0x046b0…046ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0074}
0x046ba…046d0 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x002d, t01=0x007e}
0x046d0…046e4 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x002d, t01=0x0094}
0x046e4…04702 Head {h00=0x001a, h01=0x0016, text=» SUK A7,2 MOORE TASKS?«, t00=0x002d, t01=0x00a8}
0x04702…0471c Head {h00=0x0016, h01=0x0011, text=» RF(Z) MON:20 NO «, t00=0x002d, t01=0x00c6}
0x0471c…04730 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x002d, t01=0x00e0}
0x04730…04742 Head {h00=0x000e, h01=0x000a, text=» RB MON:10«, t00=0x002d, t01=0x00f4}
0x04742…04756 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x002d, t01=0x0106}
0x04756…04760 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x011a}
0x04760…04784 Head {h00=0x0020, h01=0x001b, text=»* GENERATE 19 MOORE BLOCKS «, t00=0x002d, t01=0x0124}
0x04784…0478e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0148}
0x0478e…047a0 Head {h00=0x000e, h01=0x000a, text=» LDK A2,19«, t00=0x002d, t01=0x0152}
0x047a0…047b4 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x002d, t01=0x0164}
0x047b4…047be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0178}
0x047be…047dc Head {h00=0x001a, h01=0x0015, text=»* GENERATE END BLOCK «, t00=0x002d, t01=0x0182}
0x047dc…047e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002e, t01=0x0010}
0x047e6…047fa Head {h00=0x0010, h01=0x000b, text=» STR A1,A12 «, t00=0x002e, t01=0x001a}
0x047fa…0480e Head {h00=0x0010, h01=0x000c, text=» ST A1,2,A12«, t00=0x002e, t01=0x002e}
0x0480e…04822 Head {h00=0x0010, h01=0x000c, text=» ST A1,4,A12«, t00=0x002e, t01=0x0042}
0x04822…0482c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0056}
0x0482c…04876 Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A«, t00=0x002e, t01=0x0060}
0x04876…048aa Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x002e, t01=0x00aa}
0x048aa…048b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00de}
0x048b4…048de Head {h00=0x0026, h01=0x0050, text=» LD A1,BUFSIZ,A13 GET BUFFER SIZE «, t00=0x002e, t01=0x00e8}
0x048de…048f4 Head {h00=0x0012, h01=0x0050, text=» CWK A1,6 >6? «, t00=0x002e, t01=0x0112}
0x048f4…0491c Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x002e, t01=0x0128}
0x0491c…0493a Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 BUFFER SIZE«, t00=0x002e, t01=0x0150}
0x0493a…0495a Head {h00=0x001c, h01=0x0050, text=» ST A1,BUFSIZ,A13 STORE «, t00=0x002e, t01=0x016e}
0x0495a…04984 Head {h00=0x0026, h01=0x0050, text=» ST A12,SYSBUF,A13 START OF BUFFER«, t00=0x002e, t01=0x018e}
0x04984…04998 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x002f, t01=0x0028}
0x04998…049ac Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x002f, t01=0x003c}
0x049ac…049c2 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x002f, t01=0x0050}
0x049c2…049d4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x002f, t01=0x0066}
0x049d4…049ec Head {h00=0x0014, h01=0x0050, text=»MON:40 ADK A2,2 «, t00=0x002f, t01=0x0078}
0x049ec…04a02 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x002f, t01=0x0090}
0x04a02…04a18 Head {h00=0x0012, h01=0x0050, text=» RF(NE) MON:50«, t00=0x002f, t01=0x00a6}
0x04a18…04a2e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x002f, t01=0x00bc}
0x04a2e…04a42 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x002f, t01=0x00d2}
0x04a42…04a5c Head {h00=0x0016, h01=0x0050, text=»MON:50 CWR A2,A12 «, t00=0x002f, t01=0x00e6}
0x04a5c…04a72 Head {h00=0x0012, h01=0x0050, text=» RB(NE) MON:40«, t00=0x002f, t01=0x0100}
0x04a72…04aa0 Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x002f, t01=0x0116}
0x04aa0…04ab0 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x002f, t01=0x0144}
0x04ab0…04abe Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002f, t01=0x0154}
0x04abe…04aec Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x002f, t01=0x0162}
0x04aec…04b1a Head {h00=0x002a, h01=0x0025, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x002f, t01=0x0190}
0x04b1a…04b48 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0030, t01=0x002e}
0x04b48…04b52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x005c}
0x04b52…04b74 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONBLK «, t00=0x0030, t01=0x0066}
0x04b74…04b7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0088}
0x04b7e…04b96 Head {h00=0x0014, h01=0x000f, text=»* ENTRY: A1=0 «, t00=0x0030, t01=0x0092}
0x04b96…04bce Head {h00=0x0034, h01=0x0030, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0030, t01=0x00aa}
0x04bce…04bf6 Head {h00=0x0024, h01=0x001f, text=»* A12 - NEXT FREE ENTRY «, t00=0x0030, t01=0x00e2}
0x04bf6…04c00 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x010a}
0x04c00…04c16 Head {h00=0x0012, h01=0x000e, text=»* EXIT: A1=0«, t00=0x0030, t01=0x0114}
0x04c16…04c3c Head {h00=0x0022, h01=0x001e, text=»* A12 - NEXT FREE ENTRY«, t00=0x0030, t01=0x012a}
0x04c3c…04c46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0150}
0x04c46…04c62 Head {h00=0x0018, h01=0x0014, text=»* WORK REGISTES: A3«, t00=0x0030, t01=0x015a}
0x04c62…04c6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0176}
0x04c6c…04c84 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0030, t01=0x0180}
0x04c84…04c8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0008}
0x04c8e…04cc2 Head {h00=0x0030, h01=0x002c, text=»* MONITOR BLOCK LAYOUT«, t00=0x0031, t01=0x0012}
0x04cc2…04cf6 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0031, t01=0x0046}
0x04cf6…04d2a Head {h00=0x0030, h01=0x002c, text=»* I DATA *+6 I«, t00=0x0031, t01=0x007a}
0x04d2a…04d5e Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0031, t01=0x00ae}
0x04d5e…04d92 Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0031, t01=0x00e2}
0x04d92…04dc6 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0031, t01=0x0116}
0x04dc6…04dfa Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0031, t01=0x014a}
0x04dfa…04e2e Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0031, t01=0x017e}
0x04e2e…04e38 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0022}
0x04e38…04e46 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0032, t01=0x002c}
0x04e46…04e5a Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0032, t01=0x003a}
0x04e5a…04e6e Head {h00=0x0010, h01=0x000c, text=» LDR A3,A2 «, t00=0x0032, t01=0x004e}
0x04e6e…04e82 Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0032, t01=0x0062}
0x04e82…04e96 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BLKEX«, t00=0x0032, t01=0x0076}
0x04e96…04eaa Head {h00=0x0010, h01=0x000b, text=» ADKL A12,6 «, t00=0x0032, t01=0x008a}
0x04eaa…04ec0 Head {h00=0x0012, h01=0x000e, text=» ST A12,-6,A12«, t00=0x0032, t01=0x009e}
0x04ec0…04ed6 Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0032, t01=0x00b4}
0x04ed6…04eec Head {h00=0x0012, h01=0x000d, text=» ST A1,-2,A12 «, t00=0x0032, t01=0x00ca}
0x04eec…04efe Head {h00=0x000e, h01=0x0009, text=» SUK A3,1 «, t00=0x0032, t01=0x00e0}
0x04efe…04f10 Head {h00=0x000e, h01=0x000a, text=» RB BLK:10«, t00=0x0032, t01=0x00f2}
0x04f10…04f24 Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0032, t01=0x0104}
0x04f24…04f34 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0032, t01=0x0118}
0x04f34…04f54 Head {h00=0x001c, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0 =3 «, t00=0x0032, t01=0x0128}
0x04f54…04f62 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0032, t01=0x0148}
0x04f62…04f8e Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0032, t01=0x0156}
0x04f8e…04fba Head {h00=0x0028, h01=0x0024, text=»* SEGGEN - BUILD SEGMENT TABLE *«, t00=0x0032, t01=0x0182}
0x04fba…04fe6 Head {h00=0x0028, h01=0x0024, text=»************************************«, t00=0x0033, t01=0x001e}
0x04fe6…04ff0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x004a}
0x04ff0…0501e Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0033, t01=0x0054}
0x0501e…0504a Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x0033, t01=0x0082}
0x0504a…0507a Head {h00=0x002c, h01=0x0028, text=»* SCTLAC - START OF APPLICATION«, t00=0x0033, t01=0x00ae}
0x0507a…05084 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x00de}
0x05084…050b4 Head {h00=0x002c, h01=0x0028, text=»* EXIT: SCTPAG - ADDRESS TO PAGE TABLE«, t00=0x0033, t01=0x00e8}
0x050b4…050be Head {h00=0x0006, h01=0x0005, text=»* «, t00=0x0033, t01=0x0118}
0x050be…050e0 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x0033, t01=0x0122}
0x050e0…050ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0144}
0x050ea…0510a Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: GETCON «, t00=0x0033, t01=0x014e}
0x0510a…05114 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x016e}
0x05114…05122 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0033, t01=0x0178}
0x05122…05136 Head {h00=0x0010, h01=0x0050, text=»SEGGEN EQU *«, t00=0x0033, t01=0x0186}
0x05136…05140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000a}
0x05140…05162 Head {h00=0x001e, h01=0x0050, text=»* CHECK APPLICATION TYPE «, t00=0x0034, t01=0x0014}
0x05162…0516c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0036}
0x0516c…05198 Head {h00=0x0028, h01=0x0050, text=» LD A1,APPTYP,A13 GET LANGUAGE TYPE «, t00=0x0034, t01=0x0040}
0x05198…051ac Head {h00=0x0010, h01=0x0050, text=» CWK A1,'CR'«, t00=0x0034, t01=0x006c}
0x051ac…051d4 Head {h00=0x0024, h01=0x0050, text=» RF(E) SEG:05 CREDIT APPLICATION«, t00=0x0034, t01=0x0080}
0x051d4…051e8 Head {h00=0x0010, h01=0x0050, text=» CWK A1,'CO'«, t00=0x0034, t01=0x00a8}
0x051e8…05210 Head {h00=0x0024, h01=0x0050, text=» RF(E) SEG:05 COBOL APPLICATION «, t00=0x0034, t01=0x00bc}
0x05210…05222 Head {h00=0x000e, h01=0x0050, text=» RF SEGEX «, t00=0x0034, t01=0x00e4}
0x05222…0522c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00f6}
0x0522c…0524a Head {h00=0x001a, h01=0x0016, text=»* BUILD SEGMENT TABLE«, t00=0x0034, t01=0x0100}
0x0524a…05254 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x011e}
0x05254…05284 Head {h00=0x002c, h01=0x0050, text=»SEG:05 LD A12,SCTSFA START OF FREE AREA «, t00=0x0034, t01=0x0128}
0x05284…052b2 Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0034, t01=0x0158}
0x052b2…052d6 Head {h00=0x0020, h01=0x0050, text=» STR A1,A12 STORE IN SEGTAB «, t00=0x0034, t01=0x0186}
0x052d6…05302 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,2 START OF SEGMENT BLOCKS «, t00=0x0035, t01=0x001a}
0x05302…05332 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS«, t00=0x0035, t01=0x0046}
0x05332…0534a Head {h00=0x0014, h01=0x0050, text=» STR A1,A12 SAVE«, t00=0x0035, t01=0x0076}
0x0534a…0535e Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0035, t01=0x008e}
0x0535e…05390 Head {h00=0x002e, h01=0x0050, text=» ST A12,SAVE30,A13 START OF SEGMENT TABLE «, t00=0x0035, t01=0x00a2}
0x05390…053be Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/8400 STATUS FOR FIRST BLOCK «, t00=0x0035, t01=0x00d4}
0x053be…053e6 Head {h00=0x0024, h01=0x0050, text=» STR A1,A12 STORE IN FIRST BLOCK«, t00=0x0035, t01=0x0102}
0x053e6…0541e Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0035, t01=0x012a}
0x0541e…05448 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET POINTER TO P:MTAB«, t00=0x0035, t01=0x0162}
0x05448…05468 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SAVE POINTER «, t00=0x0035, t01=0x018c}
0x05468…0548c Head {h00=0x0020, h01=0x0050, text=» ADKL A2,6 ADDRESS TO P:BAS «, t00=0x0036, t01=0x001c}
0x0548c…054aa Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x0036, t01=0x0040}
0x054aa…054d4 Head {h00=0x0026, h01=0x0050, text=» ST A1,2,A12 STORE IN FIRST BLOCK«, t00=0x0036, t01=0x005e}
0x054d4…054fa Head {h00=0x0022, h01=0x0050, text=» ADKL A12,8 BYPASS FIRST BLOCK«, t00=0x0036, t01=0x0088}
0x054fa…05532 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART«, t00=0x0036, t01=0x00ae}
0x05532…05560 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,NUMSEG GET NUMBER OF SEGMENTS«, t00=0x0036, t01=0x00e6}
0x05560…05590 Head {h00=0x002c, h01=0x0050, text=» LD A4,SAVE29,A13 GET NUMBER OF SEGMENTS«, t00=0x0036, t01=0x0114}
0x05590…055b2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) SEG:50 NO SEGMENTS!«, t00=0x0036, t01=0x0144}
0x055b2…055d8 Head {h00=0x0022, h01=0x001d, text=» ADK A2,2 FIRST SEGMENT BLOCK «, t00=0x0036, t01=0x0166}
0x055d8…055ee Head {h00=0x0012, h01=0x0050, text=»SEG:10 EQU * «, t00=0x0036, t01=0x018c}
0x055ee…05606 Head {h00=0x0014, h01=0x0050, text=» LDK A7,0 STATUS«, t00=0x0037, t01=0x0012}
0x05606…0561a Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0037, t01=0x002a}
0x0561a…05648 Head {h00=0x002a, h01=0x0050, text=»* LDR A3,A1 SAVE DISC ADDRESS =REL 11 «, t00=0x0037, t01=0x003e}
0x05648…05674 Head {h00=0x0028, h01=0x0050, text=»* ANK A3,/FF CLEAR LEFT BYTE =REL 11«, t00=0x0037, t01=0x006c}
0x05674…056a4 Head {h00=0x002c, h01=0x0050, text=» SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 «, t00=0x0037, t01=0x0098}
0x056a4…056d0 Head {h00=0x0028, h01=0x0023, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x0037, t01=0x00c8}
0x056d0…056ea Head {h00=0x0016, h01=0x0050, text=» RF(E) SEG:30 YES!«, t00=0x0037, t01=0x00f4}
0x056ea…05710 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0037, t01=0x010e}
0x05710…0572e Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0037, t01=0x0134}
0x0572e…0574a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SEG:35 YES! «, t00=0x0037, t01=0x0152}
0x0574a…0575c Head {h00=0x000e, h01=0x0050, text=» XRR A3,A3«, t00=0x0037, t01=0x016e}
0x0575c…05772 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/8800«, t00=0x0037, t01=0x0180}
0x05772…05784 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0038, t01=0x0008}
0x05784…05796 Head {h00=0x000e, h01=0x0050, text=» RF SEG:40«, t00=0x0038, t01=0x001a}
0x05796…057aa Head {h00=0x0010, h01=0x0050, text=»SEG:30 EQU *«, t00=0x0038, t01=0x002c}
0x057aa…057d8 Head {h00=0x002a, h01=0x0050, text=» LDKL A7,/8800 INDICATE LOADED IN CORE«, t00=0x0038, t01=0x0040}
0x057d8…057ec Head {h00=0x0010, h01=0x0050, text=»SEG:35 EQU *«, t00=0x0038, t01=0x006e}
0x057ec…0580e Head {h00=0x001e, h01=0x0019, text=» ADK A2,2 SEGMENT ADDRESS «, t00=0x0038, t01=0x0082}
0x0580e…05822 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0038, t01=0x00a4}
0x05822…0582c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x0582c…05844 Head {h00=0x0014, h01=0x0050, text=» AD A1,SCTADA+2 «, t00=0x0038, t01=0x00c2}
0x05844…0585a Head {h00=0x0012, h01=0x0050, text=» RF(O) SEG:36 «, t00=0x0038, t01=0x00da}
0x0585a…0586c Head {h00=0x000e, h01=0x0050, text=» RF SEG:38«, t00=0x0038, t01=0x00f0}
0x0586c…05884 Head {h00=0x0014, h01=0x0050, text=»SEG:36 ADK A3,1 «, t00=0x0038, t01=0x0102}
0x05884…0589a Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/7FFF«, t00=0x0038, t01=0x011a}
0x0589a…058b6 Head {h00=0x0018, h01=0x0050, text=»SEG:38 AD A3,SCTADA «, t00=0x0038, t01=0x0130}
0x058b6…058ca Head {h00=0x0010, h01=0x0050, text=» CWK A3,255 «, t00=0x0038, t01=0x014c}
0x058ca…058e0 Head {h00=0x0012, h01=0x0050, text=» RF(NG) SEG:40«, t00=0x0038, t01=0x0160}
0x058e0…058f6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP10«, t00=0x0038, t01=0x0176}
0x058f6…0590a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0038, t01=0x018c}
0x0590a…0591e Head {h00=0x0010, h01=0x0050, text=»SEG:40 EQU *«, t00=0x0039, t01=0x0010}
0x0591e…0593a Head {h00=0x0018, h01=0x0050, text=»* ORR A7,A3 =REL 11«, t00=0x0039, t01=0x0024}
0x0593a…0594e Head {h00=0x0010, h01=0x0050, text=» STR A7,A12 «, t00=0x0039, t01=0x0040}
0x0594e…05962 Head {h00=0x0010, h01=0x0050, text=» ST A1,2,A12«, t00=0x0039, t01=0x0054}
0x05962…05984 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 EFFECTIVE LENGTH«, t00=0x0039, t01=0x0068}
0x05984…05998 Head {h00=0x0010, h01=0x000c, text=» CALL GETCON«, t00=0x0039, t01=0x008a}
0x05998…059c2 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A12 SAVE EFFECTIVE LENGTH«, t00=0x0039, t01=0x009e}
0x059c2…059e8 Head {h00=0x0022, h01=0x0050, text=» ADKL A12,8 NEXT SEGMENT BLOCK«, t00=0x0039, t01=0x00c8}
0x059e8…05a0e Head {h00=0x0022, h01=0x001e, text=» ADK A2,2 NEXT BLOCK IN S:GTAB«, t00=0x0039, t01=0x00ee}
0x05a0e…05a3c Head {h00=0x002a, h01=0x0026, text=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS«, t00=0x0039, t01=0x0114}
0x05a3c…05a52 Head {h00=0x0012, h01=0x000d, text=» RB(P) SEG:10 «, t00=0x0039, t01=0x0142}
0x05a52…05a6e Head {h00=0x0018, h01=0x0050, text=»SEG:50 LD A2,SCTSFA «, t00=0x0039, t01=0x0158}
0x05a6e…05a80 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0039, t01=0x0174}
0x05a80…05a98 Head {h00=0x0014, h01=0x0050, text=»SEG:60 ADK A2,2 «, t00=0x0039, t01=0x0186}
0x05a98…05aae Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x003a, t01=0x000e}
0x05aae…05ac4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SEG:70«, t00=0x003a, t01=0x0024}
0x05ac4…05ada Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003a, t01=0x003a}
0x05ada…05b06 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x003a, t01=0x0050}
0x05b06…05b20 Head {h00=0x0016, h01=0x0050, text=»SEG:70 CWR A2,A12 «, t00=0x003a, t01=0x007c}
0x05b20…05b36 Head {h00=0x0012, h01=0x0050, text=» RB(NE) SEG:60«, t00=0x003a, t01=0x0096}
0x05b36…05b4c Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x003a, t01=0x00ac}
0x05b4c…05b60 Head {h00=0x0010, h01=0x0050, text=»SEGEX EQU * «, t00=0x003a, t01=0x00c2}
0x05b60…05b78 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x003a, t01=0x00d6}
0x05b78…05b84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00ee}
0x05b84…05b9a Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x003a, t01=0x00fa}
0x05b9a…05ba8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0110}
0x05ba8…05bf0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003a, t01=0x011e}
0x05bf0…05c38 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003a, t01=0x0166}
0x05c38…05c80 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003b, t01=0x001e}
0x05c80…05cc8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0066}
0x05cc8…05d10 Head {h00=0x0044, h01=0x0050, text=»* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * «, t00=0x003b, t01=0x00ae}
0x05d10…05d58 Head {h00=0x0044, h01=0x0050, text=»* ========================================= * «, t00=0x003b, t01=0x00f6}
0x05d58…05da0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003b, t01=0x013e}
0x05da0…05de8 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x003b, t01=0x0186}
0x05de8…05e30 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003c, t01=0x003e}
0x05e30…05e78 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: * «, t00=0x003c, t01=0x0086}
0x05e78…05ec0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00ce}
0x05ec0…05f08 Head {h00=0x0044, h01=0x0050, text=»* EXIT: * «, t00=0x003c, t01=0x0116}
0x05f08…05f50 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003c, t01=0x015e}
0x05f50…05f98 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x003d, t01=0x0016}
0x05f98…05fe0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003d, t01=0x005e}
0x05fe0…06028 Head {h00=0x0044, h01=0x0050, text=»* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * «, t00=0x003d, t01=0x00a6}
0x06028…06070 Head {h00=0x0044, h01=0x0050, text=»* A9 - ADDRESS TO S:BTAB PROTOTYPE * «, t00=0x003d, t01=0x00ee}
0x06070…060b8 Head {h00=0x0044, h01=0x0050, text=»* A10 - SWB BLOCK POINTER * «, t00=0x003d, t01=0x0136}
0x060b8…06100 Head {h00=0x0044, h01=0x0050, text=»* A11 - POINTER IN CONF. FILE * «, t00=0x003d, t01=0x017e}
0x06100…06148 Head {h00=0x0044, h01=0x0050, text=»* A12 - ADDRESS TABLE POINTER * «, t00=0x003e, t01=0x0036}
0x06148…06190 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x007e}
0x06190…061d8 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETNUM,GETCON * «, t00=0x003e, t01=0x00c6}
0x061d8…06220 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x010e}
0x06220…06268 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0156}
0x06268…062b0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x003f, t01=0x000e}
0x062b0…062be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0056}
0x062be…062d2 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x003f, t01=0x0064}
0x062d2…062fc Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x003f, t01=0x0078}
0x062fc…06332 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF CONFIGURATION FILE«, t00=0x003f, t01=0x00a2}
0x06332…0633c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d8}
0x0633c…0637a Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x003f, t01=0x00e2}
0x0637a…06384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0120}
0x06384…063ae Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x003f, t01=0x012a}
0x063ae…063da Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x003f, t01=0x0154}
0x063da…063f4 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x003f, t01=0x0180}
0x063f4…06428 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x0040, t01=0x000a}
0x06428…06442 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x0040, t01=0x003e}
0x06442…06456 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0040, t01=0x0058}
0x06456…0647c Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x0040, t01=0x006c}
0x0647c…064b2 Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x0040, t01=0x0092}
0x064b2…064cc Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x0040, t01=0x00c8}
0x064cc…064f0 Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x0040, t01=0x00e2}
0x064f0…06504 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0040, t01=0x0106}
0x06504…0652e Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x0040, t01=0x011a}
0x0652e…06546 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x0040, t01=0x0144}
0x06546…0656e Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x0040, t01=0x015c}
0x0656e…0659a Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x0040, t01=0x0184}
0x0659a…065c6 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x0041, t01=0x0020}
0x065c6…065ee Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x0041, t01=0x004c}
0x065ee…0660e Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x0041, t01=0x0074}
0x0660e…0663e Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x0041, t01=0x0094}
0x0663e…06672 Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x0041, t01=0x00c4}
0x06672…0668c Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x0041, t01=0x00f8}
0x0668c…066b8 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x0041, t01=0x0112}
0x066b8…066e0 Head {h00=0x0024, h01=0x0050, text=» ST A1,SCTSWB CLEAR SWB POINTER «, t00=0x0041, t01=0x013e}
0x066e0…066f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x0166}
0x066f0…0671a Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x0041, t01=0x0176}
0x0671a…06748 Head {h00=0x002a, h01=0x0050, text=» ST A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0042, t01=0x0010}
0x06748…0675c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0042, t01=0x003e}
0x0675c…0677e Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x0042, t01=0x0052}
0x0677e…06796 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x0042, t01=0x0074}
0x06796…067be Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x0042, t01=0x008c}
0x067be…067ee Head {h00=0x002c, h01=0x0050, text=» ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS«, t00=0x0042, t01=0x00b4}
0x067ee…0681a Head {h00=0x0028, h01=0x0050, text=» LD A8,SCTSWB GET ADDRESS TO $SWAPP «, t00=0x0042, t01=0x00e4}
0x0681a…0683e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x0042, t01=0x0110}
0x0683e…06864 Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x0042, t01=0x0134}
0x06864…06878 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0042, t01=0x015a}
0x06878…068b2 Head {h00=0x0036, h01=0x0050, text=»BSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE«, t00=0x0042, t01=0x016e}
0x068b2…068e0 Head {h00=0x002a, h01=0x0050, text=» CM SAVE14,A13 RESET SWP-BLOCK COUNTER«, t00=0x0043, t01=0x0018}
0x068e0…06902 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x0043, t01=0x0046}
0x06902…0691c Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0043, t01=0x0068}
0x0691c…06944 Head {h00=0x0024, h01=0x0050, text=»BSWT50 ADKL A10,2 BYPASS POINTER«, t00=0x0043, t01=0x0082}
0x06944…06970 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF TYPES «, t00=0x0043, t01=0x00aa}
0x06970…06986 Head {h00=0x0012, h01=0x0050, text=» RB(P) BSWT50 «, t00=0x0043, t01=0x00d6}
0x06986…06990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ec}
0x06990…069ba Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x0043, t01=0x00f6}
0x069ba…069c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0120}
0x069c4…069e8 Head {h00=0x0020, h01=0x0050, text=» LD A2,SCTLAC S:GTAB ADDRESS«, t00=0x0043, t01=0x012a}
0x069e8…06a10 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x0043, t01=0x014e}
0x06a10…06a28 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0043, t01=0x0176}
0x06a28…06a58 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x0043, t01=0x018e}
0x06a58…06a80 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x0044, t01=0x002e}
0x06a80…06aae Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x0044, t01=0x0056}
0x06aae…06adc Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x0044, t01=0x0084}
0x06adc…06afe Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x0044, t01=0x00b2}
0x06afe…06b1c Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE21,A13 SAVE«, t00=0x0044, t01=0x00d4}
0x06b1c…06b50 Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x0044, t01=0x00f2}
0x06b50…06b80 Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x0044, t01=0x0126}
0x06b80…06b98 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0044, t01=0x0156}
0x06b98…06bba Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 SKIP LENGTH WORD«, t00=0x0044, t01=0x016e}
0x06bba…06be0 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x0044, t01=0x0190}
0x06be0…06c10 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x0045, t01=0x0026}
0x06c10…06c2e Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE19,A13 SAVE«, t00=0x0045, t01=0x0056}
0x06c2e…06c5c Head {h00=0x002a, h01=0x0050, text=» LD A11,SAVE23,A13 START OF CONF. DATA«, t00=0x0045, t01=0x0074}
0x06c5c…06c8c Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE24,A13 NUMBER OF SWB RECORDS «, t00=0x0045, t01=0x00a2}
0x06c8c…06cc0 Head {h00=0x0030, h01=0x0050, text=»BSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT.«, t00=0x0045, t01=0x00d2}
0x06cc0…06ce8 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x0045, t01=0x0106}
0x06ce8…06d14 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x0045, t01=0x012e}
0x06d14…06d38 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x0045, t01=0x015a}
0x06d38…06d5c Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x0045, t01=0x017e}
0x06d5c…06d82 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x0046, t01=0x0012}
0x06d82…06dac Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x0046, t01=0x0038}
0x06dac…06dc6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x0046, t01=0x0062}
0x06dc6…06dec Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x0046, t01=0x007c}
0x06dec…06e10 Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x0046, t01=0x00a2}
0x06e10…06e30 Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x0046, t01=0x00c6}
0x06e30…06e64 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x0046, t01=0x00e6}
0x06e64…06e86 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x0046, t01=0x011a}
0x06e86…06eac Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x0046, t01=0x013c}
0x06eac…06ec6 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x0046, t01=0x0162}
0x06ec6…06eee Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x0046, t01=0x017c}
0x06eee…06f1a Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x0047, t01=0x0014}
0x06f1a…06f3a Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x0047, t01=0x0040}
0x06f3a…06f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0060}
0x06f44…06f96 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x0047, t01=0x006a}
0x06f96…06fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00bc}
0x06fa0…06fbe Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x0047, t01=0x00c6}
0x06fbe…06fdc Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x0047, t01=0x00e4}
0x06fdc…06ffa Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x0047, t01=0x0102}
0x06ffa…07018 Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x0047, t01=0x0120}
0x07018…0702a Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x0047, t01=0x013e}
0x0702a…0703e Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x0047, t01=0x0150}
0x0703e…07048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0164}
0x07048…07066 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x0047, t01=0x016e}
0x07066…07070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018c}
0x07070…0709a Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x0048, t01=0x0008}
0x0709a…070ae Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0048, t01=0x0032}
0x070ae…070ce Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x0048, t01=0x0046}
0x070ce…070f8 Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x0048, t01=0x0066}
0x070f8…07128 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 NUMBER OF COPIES IN LEFT BYTE «, t00=0x0048, t01=0x0090}
0x07128…07166 Head {h00=0x003a, h01=0x0050, text=» OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE «, t00=0x0048, t01=0x00c0}
0x07166…0718c Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x0048, t01=0x00fe}
0x0718c…071bc Head {h00=0x002c, h01=0x0050, text=» SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE«, t00=0x0048, t01=0x0124}
0x071bc…071f0 Head {h00=0x0030, h01=0x0050, text=» LD A8,SAVE25,A13 GET DISC ADDRESS BITS 8-22«, t00=0x0048, t01=0x0154}
0x071f0…0720a Head {h00=0x0016, h01=0x0050, text=» ST A8,2,A10 SAVE «, t00=0x0048, t01=0x0188}
0x0720a…0722c Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x0049, t01=0x0012}
0x0722c…07254 Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x0049, t01=0x0034}
0x07254…0727e Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x0049, t01=0x005c}
0x0727e…07296 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0049, t01=0x0086}
0x07296…072c0 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x0049, t01=0x009e}
0x072c0…072d4 Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x0049, t01=0x00c8}
0x072d4…07302 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x0049, t01=0x00dc}
0x07302…07336 Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x0049, t01=0x010a}
0x07336…0735c Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x0049, t01=0x013e}
0x0735c…07392 Head {h00=0x0032, h01=0x0050, text=»BSWT86 IM SAVE25,A13 INCREMENT SECTOR ADDRESS «, t00=0x0049, t01=0x0164}
0x07392…073a8 Head {h00=0x0012, h01=0x0050, text=» RF(O) BSWT88 «, t00=0x004a, t01=0x000a}
0x073a8…073ba Head {h00=0x000e, h01=0x0050, text=» RF BSWT90«, t00=0x004a, t01=0x0020}
0x073ba…073d6 Head {h00=0x0018, h01=0x0050, text=»BSWT88 IM SAVE26,A13«, t00=0x004a, t01=0x0032}
0x073d6…073ec Head {h00=0x0012, h01=0x0050, text=» CM SAVE25,A13«, t00=0x004a, t01=0x004e}
0x073ec…07400 Head {h00=0x0010, h01=0x0050, text=»BSWT90 EQU *«, t00=0x004a, t01=0x0064}
0x07400…0742a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x004a, t01=0x0078}
0x0742a…07450 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,256 DECREMENT LENGTH «, t00=0x004a, t01=0x00a2}
0x07450…07474 Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT86 MOORE SECTORS?«, t00=0x004a, t01=0x00c8}
0x07474…07494 Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x004a, t01=0x00ec}
0x07494…074ae Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x004a, t01=0x010c}
0x074ae…074dc Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x004a, t01=0x0126}
0x074dc…0750e Head {h00=0x002e, h01=0x0050, text=» IM SAVE14,A13 INCREMENT SWP-BLOCK COUNTER«, t00=0x004a, t01=0x0154}
0x0750e…07528 Head {h00=0x0016, h01=0x0050, text=» LD A8,SAVE26,A13 «, t00=0x004a, t01=0x0186}
0x07528…07542 Head {h00=0x0016, h01=0x0050, text=» CW A8,SAVE28,A13 «, t00=0x004b, t01=0x0010}
0x07542…0756e Head {h00=0x0028, h01=0x0050, text=» RB(G) SWBERR $SWAP-FILE TOO SMALL! «, t00=0x004b, t01=0x002a}
0x0756e…07584 Head {h00=0x0012, h01=0x0050, text=» RF(L) BSWT95 «, t00=0x004b, t01=0x0056}
0x07584…0759e Head {h00=0x0016, h01=0x0050, text=» LD A8,SAVE25,A13 «, t00=0x004b, t01=0x006c}
0x0759e…075b8 Head {h00=0x0016, h01=0x0050, text=» CW A8,SAVE27,A13 «, t00=0x004b, t01=0x0086}
0x075b8…075e4 Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 SWAPP-FILE TOO SMALL! «, t00=0x004b, t01=0x00a0}
0x075e4…07612 Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x004b, t01=0x00cc}
0x07612…07632 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x004b, t01=0x00fa}
0x07632…0765c Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x004b, t01=0x011a}
0x0765c…07694 Head {h00=0x0034, h01=0x0050, text=» LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB«, t00=0x004b, t01=0x0144}
0x07694…076c6 Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x004b, t01=0x017c}
0x076c6…076e4 Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE21,A13 SAVE«, t00=0x004c, t01=0x001e}
0x076e4…07718 Head {h00=0x0030, h01=0x0050, text=» LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB«, t00=0x004c, t01=0x003c}
0x07718…07738 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x004c, t01=0x0070}
0x07738…0775a Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x004c, t01=0x0090}
0x0775a…0778a Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE14,A13 ANY BLOCKS GENERATED? «, t00=0x004c, t01=0x00b2}
0x0778a…077a4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT99 YES«, t00=0x004c, t01=0x00e2}
0x077a4…077c0 Head {h00=0x0018, h01=0x0050, text=»BSWT98 LDKL A1,LMP6 «, t00=0x004c, t01=0x00fc}
0x077c0…077de Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x004c, t01=0x0118}
0x077de…07814 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES «, t00=0x004c, t01=0x0136}
0x07814…07844 Head {h00=0x002c, h01=0x0050, text=» ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x004c, t01=0x016c}
0x07844…07854 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x000c}
0x07854…07860 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x001c}
0x07860…0786e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004d, t01=0x0028}
0x0786e…078a8 Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x004d, t01=0x0036}
0x078a8…078e2 Head {h00=0x0036, h01=0x0031, text=»* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * «, t00=0x004d, t01=0x0070}
0x078e2…0791c Head {h00=0x0036, h01=0x0031, text=»************************************************* «, t00=0x004d, t01=0x00aa}
0x0791c…07926 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x004d, t01=0x00e4}
0x07926…07954 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x004d, t01=0x00ee}
0x07954…07982 Head {h00=0x002a, h01=0x0050, text=»* SCTTCT - ADDRESS TO TC:TAB «, t00=0x004d, t01=0x011c}
0x07982…079b8 Head {h00=0x0032, h01=0x002d, text=»* SCTDMT - DATA MANAGEMENT INDICATOR «, t00=0x004d, t01=0x014a}
0x079b8…079c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x004d, t01=0x0180}
0x079c2…079d2 Head {h00=0x000c, h01=0x000b, text=»* EXIT:«, t00=0x004d, t01=0x018a}
0x079d2…079dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x004e, t01=0x000a}
0x079dc…07a08 Head {h00=0x0028, h01=0x0050, text=»* WORK REGISTERS: A1,A3,A5,A7,A12 «, t00=0x004e, t01=0x0014}
0x07a08…07a12 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x004e, t01=0x0040}
0x07a12…07a30 Head {h00=0x001a, h01=0x0016, text=»* SUBROUTINES: DMTGEN«, t00=0x004e, t01=0x004a}
0x07a30…07a3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x004e, t01=0x0068}
0x07a3a…07a4e Head {h00=0x0010, h01=0x0050, text=»B:DMTT EQU *«, t00=0x004e, t01=0x0072}
0x07a4e…07a7c Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x004e, t01=0x0086}
0x07a7c…07aa8 Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTTCT GET POINTER TO TC:TAB «, t00=0x004e, t01=0x00b4}
0x07aa8…07ace Head {h00=0x0022, h01=0x001d, text=» ADK A7,4 FIRST DM-TASK ENTRY «, t00=0x004e, t01=0x00e0}
0x07ace…07af6 Head {h00=0x0024, h01=0x0050, text=» LD A3,SCTDMT DATA MANAGEMENT? «, t00=0x004e, t01=0x0106}
0x07af6…07b28 Head {h00=0x002e, h01=0x002a, text=» LD A6,SCTDMI GET INDEX BUFFER RECORD SIZE«, t00=0x004e, t01=0x012e}
0x07b28…07b48 Head {h00=0x001c, h01=0x0050, text=» LDKL A5,'#D' DM-TASK ID«, t00=0x004e, t01=0x0160}
0x07b48…07b5c Head {h00=0x0010, h01=0x000c, text=»DMTT20 EQU *«, t00=0x004e, t01=0x0180}
0x07b5c…07b7e (79, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ANK A3,/F MOORE DM-TASKS?«, t00=0x004f, t01=0x0004}
0x07b7e…07b98 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTTEX NO! «, t00=0x004f, t01=0x0026}
0x07b98…07baa Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x004f, t01=0x0040}
0x07baa…07bc0 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DMTT30«, t00=0x004f, t01=0x0052}
0x07bc0…07bd4 Head {h00=0x0010, h01=0x000c, text=» CALL DMTGEN«, t00=0x004f, t01=0x0068}
0x07bd4…07be8 Head {h00=0x0010, h01=0x000c, text=»DMTT30 EQU *«, t00=0x004f, t01=0x007c}
0x07be8…07bfa Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x004f, t01=0x0090}
0x07bfa…07c0c Head {h00=0x000e, h01=0x0050, text=» RB DMTT20«, t00=0x004f, t01=0x00a2}
0x07c0c…07c20 Head {h00=0x0010, h01=0x000c, text=»DMTTEX EQU *«, t00=0x004f, t01=0x00b4}
0x07c20…07c30 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004f, t01=0x00c8}
0x07c30…07c3e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004f, t01=0x00d8}
0x07c3e…07c78 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x004f, t01=0x00e6}
0x07c78…07cb2 Head {h00=0x0036, h01=0x0032, text=»* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE *«, t00=0x004f, t01=0x0120}
0x07cb2…07cec Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x004f, t01=0x015a}
0x07cec…07cf6 (80, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0050, t01=0x0004}
0x07cf6…07d16 Head {h00=0x001c, h01=0x0017, text=»* ENTRY: A1 - TASK ID «, t00=0x0050, t01=0x000e}
0x07d16…07d46 Head {h00=0x002c, h01=0x0028, text=»* A6 - INDEX RECORD BUFFER SIZE«, t00=0x0050, t01=0x002e}
0x07d46…07d7a Head {h00=0x0030, h01=0x002c, text=»* A7 - TCTAB ENTRY FOR CURRENT TASK«, t00=0x0050, t01=0x005e}
0x07d7a…07da4 Head {h00=0x0026, h01=0x0022, text=»* A12 - START OF FREE AREA«, t00=0x0050, t01=0x0092}
0x07da4…07dae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0050, t01=0x00bc}
0x07dae…07dbe Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x0050, t01=0x00c6}
0x07dbe…07dc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0050, t01=0x00d6}
0x07dc8…07de8 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTERS: A2,A4«, t00=0x0050, t01=0x00e0}
0x07de8…07df2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0050, t01=0x0100}
0x07df2…07e0a Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0050, t01=0x010a}
0x07e0a…07e14 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0050, t01=0x0122}
0x07e14…07e28 Head {h00=0x0010, h01=0x0050, text=»DMTGEN EQU *«, t00=0x0050, t01=0x012c}
0x07e28…07e4e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0050, t01=0x0140}
0x07e4e…07e6c Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x0050, t01=0x0166}
0x07e6c…07e86 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG20 NO! «, t00=0x0050, t01=0x0184}
0x07e86…07eaa Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET PAGE POINTER«, t00=0x0051, t01=0x000e}
0x07eaa…07ebe Head {h00=0x0010, h01=0x0050, text=»DMTG10 EQU *«, t00=0x0051, t01=0x0032}
0x07ebe…07ede Head {h00=0x001c, h01=0x0050, text=» CWK A4,/4000 LAST PAGE?«, t00=0x0051, t01=0x0046}
0x07ede…07ef8 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMTG30 YES!«, t00=0x0051, t01=0x0066}
0x07ef8…07f1e Head {h00=0x0022, h01=0x0050, text=» STR A4,A12 STORE PAGE POINTER«, t00=0x0051, t01=0x0080}
0x07f1e…07f4a Head {h00=0x0028, h01=0x0050, text=» ADKL A4,/400 INCREMENT PAGE POINTER«, t00=0x0051, t01=0x00a6}
0x07f4a…07f7a Head {h00=0x002c, h01=0x0050, text=» ADKL A12,2 INCREMENT MMU ENTRY POINTER «, t00=0x0051, t01=0x00d2}
0x07f7a…07f8c Head {h00=0x000e, h01=0x0050, text=» RB DMTG10«, t00=0x0051, t01=0x0102}
0x07f8c…07fa0 Head {h00=0x0010, h01=0x0050, text=»DMTG20 EQU *«, t00=0x0051, t01=0x0114}
0x07fa0…07fc6 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0051, t01=0x0128}
0x07fc6…07fe4 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x0051, t01=0x014e}
0x07fe4…07ffe Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTG40 NO! «, t00=0x0051, t01=0x016c}
0x07ffe…08012 Head {h00=0x0010, h01=0x0050, text=»DMTG30 EQU *«, t00=0x0051, t01=0x0186}
0x08012…08044 Head {h00=0x002e, h01=0x0050, text=» LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE«, t00=0x0052, t01=0x000a}
0x08044…08064 Head {h00=0x001c, h01=0x0050, text=» STR A1,A12 STORE TTB:SP«, t00=0x0052, t01=0x003c}
0x08064…08078 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,6 «, t00=0x0052, t01=0x005c}
0x08078…0808c Head {h00=0x0010, h01=0x0050, text=»DMTG40 EQU *«, t00=0x0052, t01=0x0070}
0x0808c…080c2 Head {h00=0x0032, h01=0x002e, text=» STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB«, t00=0x0052, t01=0x0084}
0x080c2…080e8 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0052, t01=0x00ba}
0x080e8…08116 Head {h00=0x002a, h01=0x0050, text=» ST A5,TTB:ID,A12 TASK IDENTIFICATION «, t00=0x0052, t01=0x00e0}
0x08116…08138 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/0031 TASK LEVEL «, t00=0x0052, t01=0x010e}
0x08138…08158 Head {h00=0x001c, h01=0x0050, text=» ST A1,TTB:ST,A12 STORE «, t00=0x0052, t01=0x0130}
0x08158…08182 Head {h00=0x0026, h01=0x0050, text=» SLL A1,10 MOVE LEVEL TO LEFT BYTE«, t00=0x0052, t01=0x0150}
0x08182…081a8 Head {h00=0x0022, h01=0x0050, text=» ORKL A1,/00C0 PROGRAM STATUS «, t00=0x0052, t01=0x017a}
0x081a8…081d0 Head {h00=0x0024, h01=0x0050, text=» ST A1,TTB:PW,A12 STORE IN TTAB «, t00=0x0053, t01=0x0010}
0x081d0…081f6 Head {h00=0x0022, h01=0x0050, text=» ADKL A12,40 TERMINAL DEVICES «, t00=0x0053, t01=0x0038}
0x081f6…0820e Head {h00=0x0014, h01=0x0010, text=» LDK A1,6 LENGTH«, t00=0x0053, t01=0x005e}
0x0820e…08228 Head {h00=0x0016, h01=0x0011, text=» STR A1,A12 STORE «, t00=0x0053, t01=0x0076}
0x08228…0824a Head {h00=0x001e, h01=0x0019, text=» ADKL A12,40 TASK STACK+2 «, t00=0x0053, t01=0x0090}
0x0824a…0827a Head {h00=0x002c, h01=0x0027, text=» LDR A1,A6 GET INDEX RECORD BUFFER SIZE «, t00=0x0053, t01=0x00b2}
0x0827a…0829a Head {h00=0x001c, h01=0x0017, text=» SLL A1,2 MULTIPLY BY 4 «, t00=0x0053, t01=0x00e2}
0x0829a…082c6 Head {h00=0x0028, h01=0x0050, text=» ADR A12,A1 RESERV SPACE FOR BUFFERS«, t00=0x0053, t01=0x0102}
0x082c6…082dc Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0053, t01=0x012e}
0x082dc…082ee Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0053, t01=0x0144}
0x082ee…08306 Head {h00=0x0014, h01=0x0050, text=»DMTG50 ADK A2,2 «, t00=0x0053, t01=0x0156}
0x08306…08334 Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x0053, t01=0x016e}
0x08334…0834e Head {h00=0x0016, h01=0x0050, text=» RF(NE) DMTG60 NO!«, t00=0x0054, t01=0x000c}
0x0834e…08364 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0054, t01=0x0026}
0x08364…08390 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0054, t01=0x003c}
0x08390…083aa Head {h00=0x0016, h01=0x0050, text=»DMTG60 CWR A2,A12 «, t00=0x0054, t01=0x0068}
0x083aa…083c0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMTG50«, t00=0x0054, t01=0x0082}
0x083c0…083f0 Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0054, t01=0x0098}
0x083f0…08400 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x00c8}
0x08400…0840e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0054, t01=0x00d8}
0x0840e…08434 Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x0054, t01=0x00e6}
0x08434…0845a Head {h00=0x0022, h01=0x001e, text=»* B:TT - BUILD TASK TABLES *«, t00=0x0054, t01=0x010c}
0x0845a…08480 Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x0054, t01=0x0132}
0x08480…0848a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0054, t01=0x0158}
0x0848a…084aa Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x0054, t01=0x0162}
0x084aa…084b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0054, t01=0x0182}
0x084b4…084ec Head {h00=0x0034, h01=0x0050, text=»* ENTRY: SAVE01 - START OF SAVE01URATION DATA «, t00=0x0054, t01=0x018c}
0x084ec…084f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0055, t01=0x0034}
0x084f6…08532 Head {h00=0x0038, h01=0x0034, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x0055, t01=0x003e}
0x08532…0853c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0055, t01=0x007a}
0x0853c…0855e Head {h00=0x001e, h01=0x0019, text=»* WORK REGISERS: A1-A12 «, t00=0x0055, t01=0x0084}
0x0855e…08568 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0055, t01=0x00a6}
0x08568…085a4 Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x0055, t01=0x00b0}
0x085a4…085ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0055, t01=0x00ec}
0x085ae…085da Head {h00=0x0028, h01=0x0023, text=»* TASK TABLE LAYOUT «, t00=0x0055, t01=0x00f6}
0x085da…08608 Head {h00=0x002a, h01=0x0026, text=»* ________________________«, t00=0x0055, t01=0x0122}
0x08608…08636 Head {h00=0x002a, h01=0x0026, text=»* I MMU I«, t00=0x0055, t01=0x0150}
0x08636…08664 Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x0055, t01=0x017e}
0x08664…08692 Head {h00=0x002a, h01=0x0026, text=»* I 16 I«, t00=0x0056, t01=0x001c}
0x08692…086c0 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x0056, t01=0x004a}
0x086c0…086ee Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x0056, t01=0x0078}
0x086ee…0871c Head {h00=0x002a, h01=0x0026, text=»* TTB:SB I SEGMENT POINTER I«, t00=0x0056, t01=0x00a6}
0x0871c…0874a Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0056, t01=0x00d4}
0x0874a…08778 Head {h00=0x002a, h01=0x0026, text=»* TASK ENTRY I QUEUE I«, t00=0x0056, t01=0x0102}
0x08778…087a6 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0056, t01=0x0130}
0x087a6…087d4 Head {h00=0x002a, h01=0x0026, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x0056, t01=0x015e}
0x087d4…08802 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0056, t01=0x018c}
0x08802…08830 Head {h00=0x002a, h01=0x0026, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x0057, t01=0x002a}
0x08830…0885e Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0057, t01=0x0058}
0x0885e…0888c Head {h00=0x002a, h01=0x0026, text=»* TTB:PP I PENDING QUEUE I«, t00=0x0057, t01=0x0086}
0x0888c…088ba Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0057, t01=0x00b4}
0x088ba…088e8 Head {h00=0x002a, h01=0x0026, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x0057, t01=0x00e2}
0x088e8…08916 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0057, t01=0x0110}
0x08916…08944 Head {h00=0x002a, h01=0x0026, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x0057, t01=0x013e}
0x08944…08972 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0057, t01=0x016c}
0x08972…089a0 Head {h00=0x002a, h01=0x0026, text=»* I REGISTER I«, t00=0x0058, t01=0x000a}
0x089a0…089ce Head {h00=0x002a, h01=0x0026, text=»* I SAVE I«, t00=0x0058, t01=0x0038}
0x089ce…089fc Head {h00=0x002a, h01=0x0026, text=»* I AREA I«, t00=0x0058, t01=0x0066}
0x089fc…08a2a Head {h00=0x002a, h01=0x0026, text=»* I 14 I«, t00=0x0058, t01=0x0094}
0x08a2a…08a58 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x0058, t01=0x00c2}
0x08a58…08a86 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0058, t01=0x00f0}
0x08a86…08ab4 Head {h00=0x002a, h01=0x0026, text=»* TTB:TD I TASK I«, t00=0x0058, t01=0x011e}
0x08ab4…08ae2 Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x0058, t01=0x014c}
0x08ae2…08b10 Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x0058, t01=0x017a}
0x08b10…08b3e Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x0059, t01=0x0018}
0x08b3e…08b6c Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x0059, t01=0x0046}
0x08b6c…08b9a Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x0059, t01=0x0074}
0x08b9a…08ba8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00a2}
0x08ba8…08bde Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x0059, t01=0x00b0}
0x08bde…08c12 Head {h00=0x0030, h01=0x002c, text=»* ______________________________«, t00=0x0059, t01=0x00e6}
0x08c12…08c46 Head {h00=0x0030, h01=0x002c, text=»* I LENGTH I«, t00=0x0059, t01=0x011a}
0x08c46…08c7a Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0059, t01=0x014e}
0x08c7a…08cae Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILCODE I«, t00=0x0059, t01=0x0182}
0x08cae…08ce2 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x005a, t01=0x0026}
0x08ce2…08d16 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x005a, t01=0x005a}
0x08d16…08d4a Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x005a, t01=0x008e}
0x08d4a…08d7e Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x005a, t01=0x00c2}
0x08d7e…08db2 Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x005a, t01=0x00f6}
0x08db2…08de6 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x005a, t01=0x012a}
0x08de6…08e1a Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILECODE I«, t00=0x005a, t01=0x015e}
0x08e1a…08e4e (91, 0, 400) Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x005b, t01=0x0004}
0x08e4e…08e82 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x005b, t01=0x0038}
0x08e82…08eb6 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x005b, t01=0x006c}
0x08eb6…08ec4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005b, t01=0x00a0}
0x08ec4…08ed6 Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x005b, t01=0x00ae}
0x08ed6…08f04 Head {h00=0x002a, h01=0x0050, text=» ST P,SAVE04,A13 SAVE LOCATION COUNTER«, t00=0x005b, t01=0x00c0}
0x08f04…08f32 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x005b, t01=0x00ee}
0x08f32…08f6c Head {h00=0x0036, h01=0x0050, text=» LD A11,SAVE01,A13 GET START OF SAVE01URATION DATA«, t00=0x005b, t01=0x011c}
0x08f6c…08f9e Head {h00=0x002e, h01=0x0050, text=» ST A12,SAVE10,A13 SAVE START OF FREE AREA«, t00=0x005b, t01=0x0156}
0x08f9e…08fb2 Head {h00=0x0010, h01=0x0050, text=»BTT10 EQU * «, t00=0x005b, t01=0x0188}
0x08fb2…08fda Head {h00=0x0024, h01=0x0020, text=» LCR A2,A11 GET FIRST BLOCK TYPE«, t00=0x005c, t01=0x000c}
0x08fda…09006 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x005c, t01=0x0034}
0x09006…0901e Head {h00=0x0014, h01=0x0010, text=» RF(E) BTT20 YES«, t00=0x005c, t01=0x0060}
0x0901e…09040 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x005c, t01=0x0078}
0x09040…09054 Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x005c, t01=0x009a}
0x09054…09068 Head {h00=0x0010, h01=0x0050, text=»BTT20 EQU * «, t00=0x005c, t01=0x00ae}
0x09068…09072 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x005c, t01=0x00c2}
0x09072…0909e Head {h00=0x0028, h01=0x0024, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x005c, t01=0x00cc}
0x0909e…090a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x00f8}
0x090a8…090bc Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x005c, t01=0x0102}
0x090bc…090da Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x005c, t01=0x0116}
0x090da…090e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0134}
0x090e4…09106 Head {h00=0x001e, h01=0x001a, text=»* GET TASK ID START VALUE«, t00=0x005c, t01=0x013e}
0x09106…09110 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0160}
0x09110…0913c Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x005c, t01=0x016a}
0x0913c…09160 Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x005d, t01=0x0008}
0x09160…0918e Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x005d, t01=0x002c}
0x0918e…091c0 Head {h00=0x002e, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TASK ID START VALUE«, t00=0x005d, t01=0x005a}
0x091c0…091ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x008c}
0x091ca…091f0 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x005d, t01=0x0096}
0x091f0…091fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00bc}
0x091fa…0921c Head {h00=0x001e, h01=0x0050, text=» LD A5,APPTYP,A13 CREDIT? «, t00=0x005d, t01=0x00c6}
0x0921c…09230 Head {h00=0x0010, h01=0x0050, text=» CWK A5,'CR'«, t00=0x005d, t01=0x00e8}
0x09230…09246 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT21 «, t00=0x005d, t01=0x00fc}
0x09246…09254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0112}
0x09254…0925e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0120}
0x0925e…09286 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x005d, t01=0x012a}
0x09286…09290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0152}
0x09290…092c0 Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x005d, t01=0x015c}
0x092c0…092e4 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x005d, t01=0x018c}
0x092e4…09316 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x005e, t01=0x0020}
0x09316…0933e Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x005e, t01=0x0052}
0x0933e…0935c Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x005e, t01=0x007a}
0x0935c…09370 Head {h00=0x0010, h01=0x0050, text=»BTT21 EQU * «, t00=0x005e, t01=0x0098}
0x09370…0937e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00ac}
0x0937e…09388 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005e, t01=0x00ba}
0x09388…093a2 Head {h00=0x0016, h01=0x0011, text=»* GET TASK LEVEL «, t00=0x005e, t01=0x00c4}
0x093a2…093ac Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x005e, t01=0x00de}
0x093ac…093e0 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x005e, t01=0x00e8}
0x093e0…09404 Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x005e, t01=0x011c}
0x09404…09438 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x005e, t01=0x0140}
0x09438…0945e Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x005e, t01=0x0174}
0x0945e…0947c Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE24,A13 SAVE«, t00=0x005f, t01=0x000a}
0x0947c…0948a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0028}
0x0948a…09494 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005f, t01=0x0036}
0x09494…094da Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE «, t00=0x005f, t01=0x0040}
0x094da…094e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005f, t01=0x0086}
0x094e4…0950c Head {h00=0x0024, h01=0x0020, text=» LDKL A10,TTB:TD STANDARD LENGTH«, t00=0x005f, t01=0x0090}
0x0950c…09532 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x005f, t01=0x00b8}
0x09532…0956a Head {h00=0x0034, h01=0x0050, text=» ANK A5,/11 CHECK IF EMM AND MMU PAGING INCLUDED«, t00=0x005f, t01=0x00de}
0x0956a…0958c Head {h00=0x001e, h01=0x0050, text=» XRK A5,/11 BOTH INCLUDED?«, t00=0x005f, t01=0x0116}
0x0958c…095a6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BTT22 NO! «, t00=0x005f, t01=0x0138}
0x095a6…095d8 Head {h00=0x002e, h01=0x0050, text=» SUKL A10,TTB:AT INCLUDE BIT MAP IN LENGTH«, t00=0x005f, t01=0x0152}
0x095d8…0960a Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:AT RESERV SPACE FOR BIT MAP «, t00=0x005f, t01=0x0184}
0x0960a…0961c Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x0060, t01=0x0026}
0x0961c…09636 Head {h00=0x0016, h01=0x0050, text=»BTT22 LD A5,SCTOPT«, t00=0x0060, t01=0x0038}
0x09636…09654 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 MMU PAGING? «, t00=0x0060, t01=0x0052}
0x09654…0966c Head {h00=0x0014, h01=0x0050, text=» RF(NN) BTT25 NO«, t00=0x0060, t01=0x0070}
0x0966c…0969c Head {h00=0x002c, h01=0x0050, text=» SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU «, t00=0x0060, t01=0x0088}
0x0969c…096d2 Head {h00=0x0032, h01=0x002d, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x0060, t01=0x00b8}
0x096d2…096e4 Head {h00=0x000e, h01=0x0009, text=» RF BTT30 «, t00=0x0060, t01=0x00ee}
0x096e4…096f8 Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x0060, t01=0x0100}
0x096f8…09716 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 DISC PAGING?«, t00=0x0060, t01=0x0114}
0x09716…09730 Head {h00=0x0016, h01=0x0050, text=» RF(NN) BTT30 NO! «, t00=0x0060, t01=0x0132}
0x09730…09766 Head {h00=0x0032, h01=0x0050, text=» SUKL A10,TTB:CB ONE WORD EXTRA IF DISC PAGING«, t00=0x0060, t01=0x014c}
0x09766…0979a Head {h00=0x0030, h01=0x0050, text=» SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD«, t00=0x0060, t01=0x0182}
0x0979a…097ae Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x0061, t01=0x0026}
0x097ae…097b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x003a}
0x097b8…097f6 Head {h00=0x003a, h01=0x0050, text=»* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE«, t00=0x0061, t01=0x0044}
0x097f6…09800 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x0082}
0x09800…09814 Head {h00=0x0010, h01=0x000b, text=» ADKL A10,2 «, t00=0x0061, t01=0x008c}
0x09814…09822 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x00a0}
0x09822…0982c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x00ae}
0x0982c…0986c Head {h00=0x003c, h01=0x0037, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x0061, t01=0x00b8}
0x0986c…09892 Head {h00=0x0022, h01=0x0050, text=»* OF TASK SAVE01URATION TABLE«, t00=0x0061, t01=0x00f8}
0x09892…0989c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x011e}
0x0989c…098ba Head {h00=0x001a, h01=0x0016, text=» LDK A6,0 RESET LENGTH«, t00=0x0061, t01=0x0128}
0x098ba…098f8 Head {h00=0x003a, h01=0x0035, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x0061, t01=0x0146}
0x098f8…09930 Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0061, t01=0x0184}
0x09930…09958 Head {h00=0x0024, h01=0x0020, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x0062, t01=0x002c}
0x09958…09970 Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0062, t01=0x0054}
0x09970…09984 Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x0062, t01=0x006c}
0x09984…09998 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT40«, t00=0x0062, t01=0x0080}
0x09998…099c4 Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0062, t01=0x0094}
0x099c4…099ee Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0062, t01=0x00c0}
0x099ee…09a1e Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0062, t01=0x00ea}
0x09a1e…09a32 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0062, t01=0x011a}
0x09a32…09a44 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0062, t01=0x012e}
0x09a44…09a56 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0062, t01=0x0140}
0x09a56…09a6c Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x0062, t01=0x0152}
0x09a6c…09a82 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0062, t01=0x0168}
0x09a82…09aac Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x0062, t01=0x017e}
0x09aac…09ac0 Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x0063, t01=0x0018}
0x09ac0…09ae6 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x0063, t01=0x002c}
0x09ae6…09b0e Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0063, t01=0x0052}
0x09b0e…09b36 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0063, t01=0x007a}
0x09b36…09b5c Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0063, t01=0x00a2}
0x09b5c…09b88 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x0063, t01=0x00c8}
0x09b88…09bba Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x0063, t01=0x00f4}
0x09bba…09bde Head {h00=0x0020, h01=0x001b, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x0063, t01=0x0126}
0x09bde…09c0a Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x0063, t01=0x014a}
0x09c0a…09c1c Head {h00=0x000e, h01=0x0009, text=» RB BTT35 «, t00=0x0063, t01=0x0176}
0x09c1c…09c2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0188}
0x09c2a…09c3e Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x0064, t01=0x0008}
0x09c3e…09c48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x001c}
0x09c48…09c8a Head {h00=0x003e, h01=0x003a, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x0064, t01=0x0026}
0x09c8a…09cae Head {h00=0x0020, h01=0x0050, text=»* TASK SAVE01URATION TABLE «, t00=0x0064, t01=0x0068}
0x09cae…09cb8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0064, t01=0x008c}
0x09cb8…09cf2 Head {h00=0x0036, h01=0x0031, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0064, t01=0x0096}
0x09cf2…09d16 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x0064, t01=0x00d0}
0x09d16…09d2e Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x0064, t01=0x00f4}
0x09d2e…09d42 Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x0064, t01=0x010c}
0x09d42…09d66 Head {h00=0x0020, h01=0x001b, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x0064, t01=0x0120}
0x09d66…09d92 Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x0064, t01=0x0144}
0x09d92…09dbc Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x0064, t01=0x0170}
0x09dbc…09dec Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0065, t01=0x000a}
0x09dec…09e00 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0065, t01=0x003a}
0x09e00…09e12 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0065, t01=0x004e}
0x09e12…09e24 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x0065, t01=0x0060}
0x09e24…09e3a Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x0065, t01=0x0072}
0x09e3a…09e50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0065, t01=0x0088}
0x09e50…09e7a Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x0065, t01=0x009e}
0x09e7a…09e8e Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x0065, t01=0x00c8}
0x09e8e…09eb4 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x0065, t01=0x00dc}
0x09eb4…09edc Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0065, t01=0x0102}
0x09edc…09f04 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0065, t01=0x012a}
0x09f04…09f2a Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0065, t01=0x0152}
0x09f2a…09f56 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x0065, t01=0x0178}
0x09f56…09f88 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x0066, t01=0x0014}
0x09f88…09fa8 Head {h00=0x001c, h01=0x0017, text=» ADKL A9,SDC NEXT CLASS «, t00=0x0066, t01=0x0046}
0x09fa8…09fd4 Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x0066, t01=0x0066}
0x09fd4…09fe6 Head {h00=0x000e, h01=0x0009, text=» RB BTT50 «, t00=0x0066, t01=0x0092}
0x09fe6…09ffa Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x0066, t01=0x00a4}
0x09ffa…0a020 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x0066, t01=0x00b8}
0x0a020…0a056 Head {h00=0x0032, h01=0x0050, text=» LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x0066, t01=0x00de}
0x0a056…0a092 Head {h00=0x0038, h01=0x0050, text=» LD A8,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x0066, t01=0x0114}
0x0a092…0a0a6 Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x0066, t01=0x0150}
0x0a0a6…0a0ba Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT70«, t00=0x0066, t01=0x0164}
0x0a0ba…0a0c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x0178}
0x0a0c4…0a0d8 Head {h00=0x0010, h01=0x0050, text=» EJECT =4 «, t00=0x0066, t01=0x0182}
0x0a0d8…0a0e6 Head {h00=0x000a, h01=0x0050, text=»* =4«, t00=0x0067, t01=0x0008}
0x0a0e6…0a10c Head {h00=0x0022, h01=0x0050, text=»* MEMORY OVERFLOW CHECK =4 «, t00=0x0067, t01=0x0016}
0x0a10c…0a11a Head {h00=0x000a, h01=0x0050, text=»* =4«, t00=0x0067, t01=0x003c}
0x0a11a…0a142 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A11 SAVE REGISTER A11 =4«, t00=0x0067, t01=0x004a}
0x0a142…0a168 Head {h00=0x0022, h01=0x0050, text=» LDR A5,A9 SAVE REGISTER A9 =4«, t00=0x0067, t01=0x0072}
0x0a168…0a190 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A12 GET TTAB ADDRESS =4«, t00=0x0067, t01=0x0098}
0x0a190…0a1bc Head {h00=0x0028, h01=0x0050, text=» ADR A11,A10 COMPUTE END OF TTAB =4 «, t00=0x0067, t01=0x00c0}
0x0a1bc…0a1ea Head {h00=0x002a, h01=0x0050, text=» LD A9,SCTEFA GET END OF FREE AREA =4 «, t00=0x0067, t01=0x00ec}
0x0a1ea…0a220 Head {h00=0x0032, h01=0x0050, text=» CALL CMPADR END OF TTAB<END OF FREE AREA? =4 «, t00=0x0067, t01=0x011a}
0x0a220…0a23c Head {h00=0x0018, h01=0x0050, text=» RF(L) BTT62 YES! =4«, t00=0x0067, t01=0x0150}
0x0a23c…0a256 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 =4 «, t00=0x0067, t01=0x016c}
0x0a256…0a286 Head {h00=0x002c, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW =4 «, t00=0x0067, t01=0x0186}
0x0a286…0a2ae Head {h00=0x0024, h01=0x0050, text=»BTT62 LDR A11,A1 RESTORE A11 =4 «, t00=0x0068, t01=0x0026}
0x0a2ae…0a2ce Head {h00=0x001c, h01=0x0050, text=» LDR A9,A5 RESTORE A9 =4«, t00=0x0068, t01=0x004e}
0x0a2ce…0a2e2 Head {h00=0x0010, h01=0x0050, text=» EJECT =4 «, t00=0x0068, t01=0x006e}
0x0a2e2…0a31e Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x0068, t01=0x0082}
0x0a31e…0a328 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x00be}
0x0a328…0a342 Head {h00=0x0016, h01=0x0011, text=» ST A6,TTB:TD,A12 «, t00=0x0068, t01=0x00c8}
0x0a342…0a34c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x00e2}
0x0a34c…0a38a Head {h00=0x003a, h01=0x0036, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x0068, t01=0x00ec}
0x0a38a…0a394 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x012a}
0x0a394…0a3bc Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE24,A13 GET TASK LEVEL«, t00=0x0068, t01=0x0134}
0x0a3bc…0a3e4 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x0068, t01=0x015c}
0x0a3e4…0a3ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0068, t01=0x0184}
0x0a3ee…0a42e Head {h00=0x003c, h01=0x0037, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x0068, t01=0x018e}
0x0a42e…0a438 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x003e}
0x0a438…0a462 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x0069, t01=0x0048}
0x0a462…0a478 Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x0069, t01=0x0072}
0x0a478…0a49e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0069, t01=0x0088}
0x0a49e…0a4bc Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x0069, t01=0x00ae}
0x0a4bc…0a4e0 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x0069, t01=0x00cc}
0x0a4e0…0a508 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x0069, t01=0x00f0}
0x0a508…0a512 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x0118}
0x0a512…0a53e Head {h00=0x0028, h01=0x0024, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x0069, t01=0x0122}
0x0a53e…0a548 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0069, t01=0x014e}
0x0a548…0a572 Head {h00=0x0026, h01=0x0050, text=» LD A5,SAVE16,A13 GET THIS TASK ID«, t00=0x0069, t01=0x0158}
0x0a572…0a59a Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x0069, t01=0x0182}
0x0a59a…0a5be Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x006a, t01=0x001a}
0x0a5be…0a5f8 Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS «, t00=0x006a, t01=0x003e}
0x0a5f8…0a618 Head {h00=0x001c, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0 =3 «, t00=0x006a, t01=0x0078}
0x0a618…0a622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0098}
0x0a622…0a650 Head {h00=0x002a, h01=0x0050, text=»* STORE SEGMENT TABLE ADDRESS IN TTAB«, t00=0x006a, t01=0x00a2}
0x0a650…0a65a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d0}
0x0a65a…0a68e Head {h00=0x0030, h01=0x0050, text=» LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS «, t00=0x006a, t01=0x00da}
0x0a68e…0a6b6 Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:SP,A12 STORE IN TTAB «, t00=0x006a, t01=0x010e}
0x0a6b6…0a6c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0136}
0x0a6c2…0a6f0 Head {h00=0x002a, h01=0x0050, text=» LD A5,APPTYP,A13 GET APPLICATION TYPE«, t00=0x006a, t01=0x0142}
0x0a6f0…0a70c Head {h00=0x0018, h01=0x0050, text=» CWK A5,'CR' CREDIT?«, t00=0x006a, t01=0x0170}
0x0a70c…0a724 Head {h00=0x0014, h01=0x0050, text=» RF(NE) BTT65 NO«, t00=0x006a, t01=0x018c}
0x0a724…0a72e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0014}
0x0a72e…0a75a Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x006b, t01=0x001e}
0x0a75a…0a764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004a}
0x0a764…0a792 Head {h00=0x002a, h01=0x0050, text=» LD A5,SAVE17,A13 GET TCL START VALUE «, t00=0x006b, t01=0x0054}
0x0a792…0a7b8 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x006b, t01=0x0082}
0x0a7b8…0a7d8 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x006b, t01=0x00a8}
0x0a7d8…0a7f6 Head {h00=0x001a, h01=0x0050, text=» ST A5,SAVE17,A13 SAVE«, t00=0x006b, t01=0x00c8}
0x0a7f6…0a80a Head {h00=0x0010, h01=0x0050, text=»BTT65 EQU * «, t00=0x006b, t01=0x00e6}
0x0a80a…0a83a Head {h00=0x002c, h01=0x0027, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x006b, t01=0x00fa}
0x0a83a…0a860 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x006b, t01=0x012a}
0x0a860…0a896 Head {h00=0x0032, h01=0x0050, text=» ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY«, t00=0x006b, t01=0x0150}
0x0a896…0a8ba Head {h00=0x0020, h01=0x0050, text=» LDR A5,A10 GET TTAB LENGTH «, t00=0x006b, t01=0x0186}
0x0a8ba…0a8ee Head {h00=0x0030, h01=0x0050, text=» ADS A5,SAVE10,A13 UPDATE START OF FREE AREA«, t00=0x006c, t01=0x001a}
0x0a8ee…0a926 Head {h00=0x0034, h01=0x002f, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x006c, t01=0x004e}
0x0a926…0a960 Head {h00=0x0036, h01=0x0032, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x006c, t01=0x0086}
0x0a960…0a972 Head {h00=0x000e, h01=0x0009, text=» RB BTT60 «, t00=0x006c, t01=0x00c0}
0x0a972…0a980 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x00d2}
0x0a980…0a994 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x006c, t01=0x00e0}
0x0a994…0a99e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x00f4}
0x0a99e…0a9cc Head {h00=0x002a, h01=0x0026, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x006c, t01=0x00fe}
0x0a9cc…0a9d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006c, t01=0x012c}
0x0a9d6…0a9f0 Head {h00=0x0016, h01=0x0050, text=» LD A12,SAVE10,A13«, t00=0x006c, t01=0x0136}
0x0a9f0…0aa04 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x006c, t01=0x0150}
0x0aa04…0aa28 Head {h00=0x0020, h01=0x001b, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x006c, t01=0x0164}
0x0aa28…0aa54 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x006c, t01=0x0188}
0x0aa54…0aa6a Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x006d, t01=0x0024}
0x0aa6a…0aa80 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,BTT20«, t00=0x006d, t01=0x003a}
0x0aa80…0aa94 Head {h00=0x0010, h01=0x0050, text=» SUKL A2,REL«, t00=0x006d, t01=0x0050}
0x0aa94…0aaa8 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x006d, t01=0x0064}
0x0aaa8…0aab8 Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x006d, t01=0x0078}
0x0aab8…0aacc Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x006d, t01=0x0088}
0x0aacc…0aada Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x009c}
0x0aada…0aae8 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00aa}
0x0aae8…0aaf6 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00b8}
0x0aaf6…0ab04 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00c6}
0x0ab04…0ab12 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00d4}
0x0ab12…0ab20 Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00e2}
0x0ab20…0ab2e Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00f0}
0x0ab2e…0ab3c Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x00fe}
0x0ab3c…0ab4a Head {h00=0x000a, h01=0x0050, text=» =4«, t00=0x006d, t01=0x010c}
0x0ab4a…0ab78 Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA SAVE START OF FREE AREA«, t00=0x006d, t01=0x011a}
0x0ab78…0ab90 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x006d, t01=0x0148}
0x0ab90…0ab9e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006d, t01=0x0160}
0x0ab9e…0abee Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x006d, t01=0x016e}
0x0abee…0ac3c Head {h00=0x004a, h01=0x004a, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x006e, t01=0x002e}
0x0ac3c…0ac8c Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x006e, t01=0x007c}
0x0ac8c…0ac96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x00cc}
0x0ac96…0acb6 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x006e, t01=0x00d6}
0x0acb6…0acc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x00f6}
0x0acc0…0acf0 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x006e, t01=0x0100}
0x0acf0…0ad26 Head {h00=0x0032, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION FILE«, t00=0x006e, t01=0x0130}
0x0ad26…0ad52 Head {h00=0x0028, h01=0x0023, text=»* SCTEFA - END OF FREE AREA «, t00=0x006e, t01=0x0166}
0x0ad52…0ad5c (111, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0004}
0x0ad5c…0ad6c Head {h00=0x000c, h01=0x000a, text=»* EXIT:«, t00=0x006f, t01=0x000e}
0x0ad6c…0ad76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x001e}
0x0ad76…0ad98 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x006f, t01=0x0028}
0x0ad98…0ada2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x004a}
0x0ada2…0ade2 Head {h00=0x003c, h01=0x0038, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x006f, t01=0x0054}
0x0ade2…0adec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0094}
0x0adec…0adfa Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006f, t01=0x009e}
0x0adfa…0ae0e Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x006f, t01=0x00ac}
0x0ae0e…0ae18 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00c0}
0x0ae18…0ae42 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SAVE01URATION FILE«, t00=0x006f, t01=0x00ca}
0x0ae42…0ae4c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x00f4}
0x0ae4c…0ae82 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION FILE«, t00=0x006f, t01=0x00fe}
0x0ae82…0aeac Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x006f, t01=0x0134}
0x0aeac…0aeb6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x015e}
0x0aeb6…0aef0 Head {h00=0x0036, h01=0x0032, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x006f, t01=0x0168}
0x0aef0…0aefa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0070, t01=0x0012}
0x0aefa…0af22 Head {h00=0x0024, h01=0x001f, text=» LCR A2,A11 GET FIRST CHARACTER «, t00=0x0070, t01=0x001c}
0x0af22…0af4e Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0070, t01=0x0044}
0x0af4e…0af66 Head {h00=0x0014, h01=0x000f, text=» RF(E) DWTS YES «, t00=0x0070, t01=0x0070}
0x0af66…0af88 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0070, t01=0x0088}
0x0af88…0af9c Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x0070, t01=0x00aa}
0x0af9c…0afae Head {h00=0x000e, h01=0x0050, text=»DWTS EQU *«, t00=0x0070, t01=0x00be}
0x0afae…0afb8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0070, t01=0x00d0}
0x0afb8…0afd8 Head {h00=0x001c, h01=0x0018, text=»* GET ADDRESS TO TC:TAB«, t00=0x0070, t01=0x00da}
0x0afd8…0afe2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0070, t01=0x00fa}
0x0afe2…0b012 Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE02,A13 FIRST USER TASK ENTRY «, t00=0x0070, t01=0x0104}
0x0b012…0b024 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0070, t01=0x0134}
0x0b024…0b032 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0070, t01=0x0146}
0x0b032…0b046 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x0070, t01=0x0154}
0x0b046…0b050 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0070, t01=0x0168}
0x0b050…0b082 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0070, t01=0x0172}
0x0b082…0b08c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x0014}
0x0b08c…0b0a0 Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0071, t01=0x001e}
0x0b0a0…0b0b4 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x0071, t01=0x0032}
0x0b0b4…0b0d2 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE«, t00=0x0071, t01=0x0046}
0x0b0d2…0b0dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x0064}
0x0b0dc…0b10a Head {h00=0x002a, h01=0x0026, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x0071, t01=0x006e}
0x0b10a…0b114 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x009c}
0x0b114…0b128 Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x0071, t01=0x00a6}
0x0b128…0b14e Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x0071, t01=0x00ba}
0x0b14e…0b174 Head {h00=0x0022, h01=0x001d, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x0071, t01=0x00e0}
0x0b174…0b1ae Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY «, t00=0x0071, t01=0x0106}
0x0b1ae…0b1b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x0140}
0x0b1b8…0b1ec Head {h00=0x0030, h01=0x002c, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x0071, t01=0x014a}
0x0b1ec…0b1f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0071, t01=0x017e}
0x0b1f6…0b228 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0071, t01=0x0188}
0x0b228…0b258 Head {h00=0x002c, h01=0x0027, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x0072, t01=0x002a}
0x0b258…0b266 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x005a}
0x0b266…0b270 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x0068}
0x0b270…0b2a8 Head {h00=0x0034, h01=0x002f, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x0072, t01=0x0072}
0x0b2a8…0b2b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x00aa}
0x0b2b2…0b2c6 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0072, t01=0x00b4}
0x0b2c6…0b2d8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0072, t01=0x00c8}
0x0b2d8…0b2ec Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x0072, t01=0x00da}
0x0b2ec…0b302 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x0072, t01=0x00ee}
0x0b302…0b322 Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x0072, t01=0x0104}
0x0b322…0b334 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x0072, t01=0x0124}
0x0b334…0b364 Head {h00=0x002c, h01=0x0050, text=» LD A8,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0072, t01=0x0136}
0x0b364…0b386 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x0072, t01=0x0166}
0x0b386…0b3ae Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x0072, t01=0x0188}
0x0b3ae…0b3d6 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x0073, t01=0x0020}
0x0b3d6…0b3fc Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x0073, t01=0x0048}
0x0b3fc…0b42a Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x0073, t01=0x006e}
0x0b42a…0b45e Head {h00=0x0030, h01=0x002b, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x0073, t01=0x009c}
0x0b45e…0b48a Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x0073, t01=0x00d0}
0x0b48a…0b49c Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x0073, t01=0x00fc}
0x0b49c…0b4b0 Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x0073, t01=0x010e}
0x0b4b0…0b4ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0073, t01=0x0122}
0x0b4ba…0b4ea Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0073, t01=0x012c}
0x0b4ea…0b4f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0073, t01=0x015c}
0x0b4f4…0b508 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0073, t01=0x0166}
0x0b508…0b526 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0073, t01=0x017a}
0x0b526…0b538 Head {h00=0x000e, h01=0x000a, text=» LDR A1,A1«, t00=0x0074, t01=0x0008}
0x0b538…0b54c Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x0074, t01=0x001a}
0x0b54c…0b562 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x0074, t01=0x002e}
0x0b562…0b580 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE17,A13 SAVE«, t00=0x0074, t01=0x0044}
0x0b580…0b58a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0062}
0x0b58a…0b5b8 Head {h00=0x002a, h01=0x0026, text=»* GET SPECIAL DEVICE CLASS NUMBER OM «, t00=0x0074, t01=0x006c}
0x0b5b8…0b5c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x009a}
0x0b5c2…0b5d6 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0074, t01=0x00a4}
0x0b5d6…0b5e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x00b8}
0x0b5e0…0b61c Head {h00=0x0038, h01=0x0033, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x0074, t01=0x00c2}
0x0b61c…0b626 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x00fe}
0x0b626…0b638 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x0074, t01=0x0108}
0x0b638…0b664 Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE11,A13 POINTER TO SCLASS «, t00=0x0074, t01=0x011a}
0x0b664…0b684 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x0074, t01=0x0146}
0x0b684…0b6ac Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x0074, t01=0x0166}
0x0b6ac…0b6c4 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x0074, t01=0x018e}
0x0b6c4…0b6e2 Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x0075, t01=0x0016}
0x0b6e2…0b708 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0075, t01=0x0034}
0x0b708…0b71c Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x0075, t01=0x005a}
0x0b71c…0b738 Head {h00=0x0018, h01=0x0014, text=» ADK A5,4 GET DEVICE«, t00=0x0075, t01=0x006e}
0x0b738…0b764 Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x0075, t01=0x008a}
0x0b764…0b790 Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x0075, t01=0x00b6}
0x0b790…0b7a8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x0075, t01=0x00e2}
0x0b7a8…0b7b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x00fa}
0x0b7b2…0b7c6 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x0075, t01=0x0104}
0x0b7c6…0b7d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0075, t01=0x0118}
0x0b7d0…0b7ee Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0075, t01=0x0122}
0x0b7ee…0b81e Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x0075, t01=0x0140}
0x0b81e…0b83a Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x0075, t01=0x0170}
0x0b83a…0b848 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x018c}
0x0b848…0b852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x000a}
0x0b852…0b88a Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x0076, t01=0x0014}
0x0b88a…0b894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x004c}
0x0b894…0b8ba Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x0076, t01=0x0056}
0x0b8ba…0b8da Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x0076, t01=0x007c}
0x0b8da…0b8f4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x0076, t01=0x009c}
0x0b8f4…0b920 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x0076, t01=0x00b6}
0x0b920…0b94e Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x0076, t01=0x00e2}
0x0b94e…0b97e Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x0076, t01=0x0110}
0x0b97e…0b99a Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x0076, t01=0x0140}
0x0b99a…0b9c2 Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x0076, t01=0x015c}
0x0b9c2…0b9e8 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x0076, t01=0x0184}
0x0b9e8…0b9fc Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x0077, t01=0x001a}
0x0b9fc…0ba24 Head {h00=0x0024, h01=0x0020, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x0077, t01=0x002e}
0x0ba24…0ba38 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x0077, t01=0x0056}
0x0ba38…0ba42 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0077, t01=0x006a}
0x0ba42…0ba74 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x0077, t01=0x0074}
0x0ba74…0ba7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0077, t01=0x00a6}
0x0ba7e…0baa4 Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x0077, t01=0x00b0}
0x0baa4…0bacc Head {h00=0x0024, h01=0x001f, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x0077, t01=0x00d6}
0x0bacc…0baec Head {h00=0x001c, h01=0x0018, text=» STR A1,A10 SAVE IN TTAB«, t00=0x0077, t01=0x00fe}
0x0baec…0bb22 Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK SAVE01URATION POINTER «, t00=0x0077, t01=0x011e}
0x0bb22…0bb36 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x0077, t01=0x0154}
0x0bb36…0bb64 Head {h00=0x002a, h01=0x0025, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x0077, t01=0x0168}
0x0bb64…0bb86 Head {h00=0x001e, h01=0x0019, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x0078, t01=0x0008}
0x0bb86…0bb94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x002a}
0x0bb94…0bb9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x0038}
0x0bb9e…0bbd6 Head {h00=0x0034, h01=0x002f, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x0078, t01=0x0042}
0x0bbd6…0bbe0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x007a}
0x0bbe0…0bbf6 Head {h00=0x0012, h01=0x000e, text=» ADKL A9,SDC «, t00=0x0078, t01=0x0084}
0x0bbf6…0bc10 Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE17,A13 «, t00=0x0078, t01=0x009a}
0x0bc10…0bc22 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0078, t01=0x00b4}
0x0bc22…0bc34 Head {h00=0x000e, h01=0x000a, text=» RB DWTS50«, t00=0x0078, t01=0x00c6}
0x0bc34…0bc48 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x0078, t01=0x00d8}
0x0bc48…0bc52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x00ec}
0x0bc52…0bc8e Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION «, t00=0x0078, t01=0x00f6}
0x0bc8e…0bc98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x0132}
0x0bc98…0bcb2 Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE19,A13 «, t00=0x0078, t01=0x013c}
0x0bcb2…0bcc4 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0078, t01=0x0156}
0x0bcc4…0bcda Head {h00=0x0012, h01=0x000d, text=» RB(P) DWTS20 «, t00=0x0078, t01=0x0168}
0x0bcda…0bce4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x017e}
0x0bce4…0bd14 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x0078, t01=0x0188}
0x0bd14…0bd1e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0079, t01=0x0028}
0x0bd1e…0bd32 Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x0079, t01=0x0032}
0x0bd32…0bd5e Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0079, t01=0x0046}
0x0bd5e…0bd78 Head {h00=0x0016, h01=0x0011, text=» RB(E) DWTS10 YES «, t00=0x0079, t01=0x0072}
0x0bd78…0bd8e Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0079, t01=0x008c}
0x0bd8e…0bda0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0079, t01=0x00a2}
0x0bda0…0bdb8 Head {h00=0x0014, h01=0x0050, text=»DWTS95 ADK A2,2 «, t00=0x0079, t01=0x00b4}
0x0bdb8…0bdce Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0079, t01=0x00cc}
0x0bdce…0bde4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWTS99«, t00=0x0079, t01=0x00e2}
0x0bde4…0bdfa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0079, t01=0x00f8}
0x0bdfa…0be26 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x0079, t01=0x010e}
0x0be26…0be40 Head {h00=0x0016, h01=0x0050, text=»DWTS99 CWR A2,A12 «, t00=0x0079, t01=0x013a}
0x0be40…0be56 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWTS95«, t00=0x0079, t01=0x0154}
0x0be56…0be6c Head {h00=0x0012, h01=0x000e, text=» ST A12,SCTSFA«, t00=0x0079, t01=0x016a}
0x0be6c…0be84 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0079, t01=0x0180}
0x0be84…0be92 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x007a, t01=0x0008}
0x0be92…0beca Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x007a, t01=0x0016}
0x0beca…0bf02 Head {h00=0x0034, h01=0x0030, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x007a, t01=0x004e}
0x0bf02…0bf3a Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x007a, t01=0x0086}
0x0bf3a…0bf72 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x007a, t01=0x00be}
0x0bf72…0bf7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007a, t01=0x00f6}
0x0bf7c…0bf9c Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x007a, t01=0x0100}
0x0bf9c…0bfa6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007a, t01=0x0120}
0x0bfa6…0bfb8 Head {h00=0x000e, h01=0x000b, text=»* ENTRY: «, t00=0x007a, t01=0x012a}
0x0bfb8…0bfc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007a, t01=0x013c}
0x0bfc2…0bfd2 Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x007a, t01=0x0146}
0x0bfd2…0bfdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007a, t01=0x0156}
0x0bfdc…0bffe Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x007a, t01=0x0160}
0x0bffe…0c008 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007a, t01=0x0182}
0x0c008…0c050 Head {h00=0x0044, h01=0x0040, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x007a, t01=0x018c}
0x0c050…0c05a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007b, t01=0x0044}
0x0c05a…0c068 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x007b, t01=0x004e}
0x0c068…0c07c Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x007b, t01=0x005c}
0x0c07c…0c086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0070}
0x0c086…0c0bc Head {h00=0x0032, h01=0x0050, text=»* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE «, t00=0x007b, t01=0x007a}
0x0c0bc…0c0e6 Head {h00=0x0026, h01=0x0050, text=»* AND TEMPORARY INTERRUPT TABLES «, t00=0x007b, t01=0x00b0}
0x0c0e6…0c0f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00da}
0x0c0f0…0c116 Head {h00=0x0022, h01=0x0050, text=» LDR A1,P GET LOCATION COUNTER«, t00=0x007b, t01=0x00e4}
0x0c116…0c144 Head {h00=0x002a, h01=0x0050, text=» ST P,SAVE10,A13 SAVE LOCATION COUNTER«, t00=0x007b, t01=0x010a}
0x0c144…0c16c Head {h00=0x0024, h01=0x0050, text=»BDWT00 CMR A1 CLEAR MEMORY WORD «, t00=0x007b, t01=0x0138}
0x0c16c…0c196 Head {h00=0x0026, h01=0x0050, text=» CW A1,SCTSFA+2 ALL WORDS CLEARED?«, t00=0x007b, t01=0x0160}
0x0c196…0c1b0 Head {h00=0x0016, h01=0x0050, text=» RF(E) BDWT05 YES!«, t00=0x007b, t01=0x018a}
0x0c1b0…0c1d4 Head {h00=0x0020, h01=0x0050, text=» SUK A1,2 DECREMENT POINTER «, t00=0x007c, t01=0x0014}
0x0c1d4…0c1e6 Head {h00=0x000e, h01=0x0050, text=» RB BDWT00«, t00=0x007c, t01=0x0038}
0x0c1e6…0c1fa Head {h00=0x0010, h01=0x0050, text=»BDWT05 EQU *«, t00=0x007c, t01=0x004a}
0x0c1fa…0c230 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS «, t00=0x007c, t01=0x005e}
0x0c230…0c26a Head {h00=0x0036, h01=0x0050, text=» CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? «, t00=0x007c, t01=0x0094}
0x0c26a…0c284 Head {h00=0x0016, h01=0x0050, text=» RF(L) BDWT08 NO! «, t00=0x007c, t01=0x00ce}
0x0c284…0c2b0 Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTEFA SAVE END OF FREE AREA «, t00=0x007c, t01=0x00e8}
0x0c2b0…0c2d8 Head {h00=0x0024, h01=0x0050, text=» LD A11,SCTFWT START OF FWT AREA«, t00=0x007c, t01=0x0114}
0x0c2d8…0c2ec Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x007c, t01=0x013c}
0x0c2ec…0c312 Head {h00=0x0022, h01=0x0050, text=» ADKL A9,896+896 END OF T.I.T.«, t00=0x007c, t01=0x0150}
0x0c312…0c328 Head {h00=0x0012, h01=0x0050, text=» ST A9,SCTEFA «, t00=0x007c, t01=0x0176}
0x0c328…0c33a Head {h00=0x000e, h01=0x0050, text=» RF BDWT25«, t00=0x007c, t01=0x018c}
0x0c33a…0c34e Head {h00=0x0010, h01=0x0050, text=»BDWT08 EQU *«, t00=0x007d, t01=0x000e}
0x0c34e…0c358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0022}
0x0c358…0c3a2 Head {h00=0x0046, h01=0x0050, text=»* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE«, t00=0x007d, t01=0x002c}
0x0c3a2…0c3ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0076}
0x0c3ac…0c3e2 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE«, t00=0x007d, t01=0x0080}
0x0c3e2…0c41a Head {h00=0x0034, h01=0x0050, text=» SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA «, t00=0x007d, t01=0x00b6}
0x0c41a…0c444 Head {h00=0x0026, h01=0x0050, text=» CWK A11,MINBUF IS IT BIG ENOUGH? «, t00=0x007d, t01=0x00ee}
0x0c444…0c464 Head {h00=0x001c, h01=0x0050, text=» RF(L) BDWT09 TOO SMALL!«, t00=0x007d, t01=0x0118}
0x0c464…0c494 Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTEFA SAVE REAL END OF FREE AREA«, t00=0x007d, t01=0x0138}
0x0c494…0c4ca Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE10,A13 GET END OF TEMP. WORK AREA «, t00=0x007d, t01=0x0168}
0x0c4ca…0c4e6 Head {h00=0x0018, h01=0x0050, text=» ST A11,SCTEFA SAVE «, t00=0x007e, t01=0x000e}
0x0c4e6…0c518 Head {h00=0x002e, h01=0x0050, text=» SUKL A11,896+896 START OF TEMP. WORK AREA«, t00=0x007e, t01=0x002a}
0x0c518…0c530 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A11 SAVE«, t00=0x007e, t01=0x005c}
0x0c530…0c566 Head {h00=0x0032, h01=0x0050, text=» SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ«, t00=0x007e, t01=0x0074}
0x0c566…0c584 Head {h00=0x001a, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE«, t00=0x007e, t01=0x00aa}
0x0c584…0c5ba Head {h00=0x0032, h01=0x0050, text=» SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z«, t00=0x007e, t01=0x00c8}
0x0c5ba…0c5d8 Head {h00=0x001a, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE«, t00=0x007e, t01=0x00fe}
0x0c5d8…0c5ea Head {h00=0x000e, h01=0x0050, text=» RF BDWT25«, t00=0x007e, t01=0x011c}
0x0c5ea…0c5fe Head {h00=0x0010, h01=0x0050, text=»BDWT09 EQU *«, t00=0x007e, t01=0x012e}
0x0c5fe…0c608 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007e, t01=0x0142}
0x0c608…0c654 Head {h00=0x0048, h01=0x0044, text=»* ALLOCATE MEMORY FOR TEMPORARY INTERRUPT TABLE AT END OF FREE AREA«, t00=0x007e, t01=0x014c}
0x0c654…0c65e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x007f, t01=0x0008}
0x0c65e…0c68a Head {h00=0x0028, h01=0x0023, text=» LD A11,SCTEFA GET END OF FREE AREA «, t00=0x007f, t01=0x0012}
0x0c68a…0c6b6 Head {h00=0x0028, h01=0x0024, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x007f, t01=0x003e}
0x0c6b6…0c6da Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET WORD COUNTER«, t00=0x007f, t01=0x006a}
0x0c6da…0c6ee Head {h00=0x0010, h01=0x0050, text=»BDWT10 EQU *«, t00=0x007f, t01=0x008e}
0x0c6ee…0c712 Head {h00=0x0020, h01=0x001c, text=» CWR A11,A9 MEMORY OVERFLOW?«, t00=0x007f, t01=0x00a2}
0x0c712…0c72c Head {h00=0x0016, h01=0x0011, text=» RF(NE) BDWT15 NO «, t00=0x007f, t01=0x00c6}
0x0c72c…0c75a Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x007f, t01=0x00e0}
0x0c75a…0c76e Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x007f, t01=0x010e}
0x0c76e…0c782 Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x007f, t01=0x0122}
0x0c782…0c7aa Head {h00=0x0024, h01=0x001f, text=» CWK A7,896 ALL WORDS RESERVED? «, t00=0x007f, t01=0x0136}
0x0c7aa…0c7c4 Head {h00=0x0016, h01=0x0011, text=» RF(E) BDWT20 YES «, t00=0x007f, t01=0x015e}
0x0c7c4…0c7ec Head {h00=0x0024, h01=0x001f, text=» SUKL A11,2 RESERV ANOTHER WORD «, t00=0x007f, t01=0x0178}
0x0c7ec…0c814 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT WORD COUNTER«, t00=0x0080, t01=0x0010}
0x0c814…0c826 Head {h00=0x000e, h01=0x000a, text=» RB BDWT10«, t00=0x0080, t01=0x0038}
0x0c826…0c83a Head {h00=0x0010, h01=0x0050, text=»BDWT20 EQU *«, t00=0x0080, t01=0x004a}
0x0c83a…0c844 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0080, t01=0x005e}
0x0c844…0c87e Head {h00=0x0036, h01=0x0032, text=»* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES«, t00=0x0080, t01=0x0068}
0x0c87e…0c888 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0080, t01=0x00a2}
0x0c888…0c89c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A11 «, t00=0x0080, t01=0x00ac}
0x0c89c…0c8bc Head {h00=0x001c, h01=0x0050, text=»BDWT25 LD A7,SAVE10,A13 «, t00=0x0080, t01=0x00c0}
0x0c8bc…0c8d0 Head {h00=0x0010, h01=0x0050, text=»BDWT30 EQU *«, t00=0x0080, t01=0x00e0}
0x0c8d0…0c900 Head {h00=0x002c, h01=0x0028, text=» STR A11,A7 SAVE INTERRUPT TABLE ADDRESS«, t00=0x0080, t01=0x00f4}
0x0c900…0c92a Head {h00=0x0026, h01=0x0022, text=» ADK A7,2 NEXT ADDRESS TABLE ENTRY«, t00=0x0080, t01=0x0124}
0x0c92a…0c95c Head {h00=0x002e, h01=0x002a, text=» ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS«, t00=0x0080, t01=0x014e}
0x0c95c…0c98a Head {h00=0x002a, h01=0x0025, text=» CW A11,SCTEFA ALL POINTERS INTIATED? «, t00=0x0080, t01=0x0180}
0x0c98a…0c9a4 Head {h00=0x0016, h01=0x0011, text=» RB(NE) BDWT30 NO «, t00=0x0081, t01=0x001e}
0x0c9a4…0c9d2 Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTEFA UPDATE END OF FREE AREA «, t00=0x0081, t01=0x0038}
0x0c9d2…0c9e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x0066}
0x0c9e0…0c9ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0081, t01=0x0074}
0x0c9ea…0ca06 Head {h00=0x0018, h01=0x0013, text=»* INIT DWT POINTER «, t00=0x0081, t01=0x007e}
0x0ca06…0ca10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0081, t01=0x009a}
0x0ca10…0ca2a Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x0081, t01=0x00a4}
0x0ca2a…0ca58 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0081, t01=0x00be}
0x0ca58…0ca62 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0081, t01=0x00ec}
0x0ca62…0caa8 Head {h00=0x0042, h01=0x003e, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x0081, t01=0x00f6}
0x0caa8…0cab2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0081, t01=0x013c}
0x0cab2…0cae6 Head {h00=0x0030, h01=0x0050, text=» LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY «, t00=0x0081, t01=0x0146}
0x0cae6…0cb20 Head {h00=0x0036, h01=0x0050, text=» ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY«, t00=0x0081, t01=0x017a}
0x0cb20…0cb34 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x0082, t01=0x0024}
0x0cb34…0cb3e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x0038}
0x0cb3e…0cb70 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x0082, t01=0x0042}
0x0cb70…0cb7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x0074}
0x0cb7a…0cba2 Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0082, t01=0x007e}
0x0cba2…0cbb6 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x0082, t01=0x00a6}
0x0cbb6…0cbe2 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE19,A13 SAVE BINARY VALUE «, t00=0x0082, t01=0x00ba}
0x0cbe2…0cbec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x00e6}
0x0cbec…0cc30 Head {h00=0x0040, h01=0x003b, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x0082, t01=0x00f0}
0x0cc30…0cc3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x0134}
0x0cc3a…0cc4e Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x0082, t01=0x013e}
0x0cc4e…0cc58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x0152}
0x0cc58…0cc80 Head {h00=0x0024, h01=0x0020, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x0082, t01=0x015c}
0x0cc80…0cc8a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0082, t01=0x0184}
0x0cc8a…0ccb2 Head {h00=0x0024, h01=0x0020, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x0082, t01=0x018e}
0x0ccb2…0ccca Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x0083, t01=0x0026}
0x0ccca…0cd04 Head {h00=0x0036, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS«, t00=0x0083, t01=0x003e}
0x0cd04…0cd30 Head {h00=0x0028, h01=0x0050, text=» LD* A10,SAVE13,A13 GET TTAB ADDRESS«, t00=0x0083, t01=0x0078}
0x0cd30…0cd6a Head {h00=0x0036, h01=0x0031, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x0083, t01=0x00a4}
0x0cd6a…0cd74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0083, t01=0x00de}
0x0cd74…0cda0 Head {h00=0x0028, h01=0x0023, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x0083, t01=0x00e8}
0x0cda0…0cdaa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0083, t01=0x0114}
0x0cdaa…0cddc Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x0083, t01=0x011e}
0x0cddc…0ce14 Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x0083, t01=0x0150}
0x0ce14…0ce28 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x0083, t01=0x0188}
0x0ce28…0ce4e Head {h00=0x0022, h01=0x001d, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x0084, t01=0x000c}
0x0ce4e…0ce7a Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE BINARY VALUE «, t00=0x0084, t01=0x0032}
0x0ce7a…0ce84 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0084, t01=0x005e}
0x0ce84…0cec8 Head {h00=0x0040, h01=0x003c, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x0084, t01=0x0068}
0x0cec8…0cee0 Head {h00=0x0014, h01=0x000f, text=»* IN THIS TASK «, t00=0x0084, t01=0x00ac}
0x0cee0…0ceea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0084, t01=0x00c4}
0x0ceea…0cf1a Head {h00=0x002c, h01=0x0027, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0084, t01=0x00ce}
0x0cf1a…0cf3e Head {h00=0x0020, h01=0x001c, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x0084, t01=0x00fe}
0x0cf3e…0cf70 Head {h00=0x002e, h01=0x002a, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x0084, t01=0x0122}
0x0cf70…0cfa8 Head {h00=0x0034, h01=0x002f, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x0084, t01=0x0154}
0x0cfa8…0cfd8 Head {h00=0x002c, h01=0x0027, text=» SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT «, t00=0x0084, t01=0x018c}
0x0cfd8…0d00e Head {h00=0x0032, h01=0x002d, text=» SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE «, t00=0x0085, t01=0x002c}
0x0d00e…0d03c Head {h00=0x002a, h01=0x0026, text=» SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT«, t00=0x0085, t01=0x0062}
0x0d03c…0d046 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x0090}
0x0d046…0d084 Head {h00=0x003a, h01=0x0035, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x0085, t01=0x009a}
0x0d084…0d08e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x00d8}
0x0d08e…0d0c4 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID«, t00=0x0085, t01=0x00e2}
0x0d0c4…0d0dc Head {h00=0x0014, h01=0x000f, text=» ADR A2,A2 2*ID «, t00=0x0085, t01=0x0118}
0x0d0dc…0d108 Head {h00=0x0028, h01=0x0050, text=» LD A7,SAVE18,A13 POINTER TO TCLASS «, t00=0x0085, t01=0x0130}
0x0d108…0d124 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x0085, t01=0x015c}
0x0d124…0d12e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0178}
0x0d12e…0d16c Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED«, t00=0x0085, t01=0x0182}
0x0d16c…0d176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0030}
0x0d176…0d19e Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0086, t01=0x003a}
0x0d19e…0d1ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0062}
0x0d1ac…0d1b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x0070}
0x0d1b6…0d1de Head {h00=0x0024, h01=0x0020, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x0086, t01=0x007a}
0x0d1de…0d214 Head {h00=0x0032, h01=0x002d, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x0086, t01=0x00a2}
0x0d214…0d244 Head {h00=0x002c, h01=0x0028, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x0086, t01=0x00d8}
0x0d244…0d24e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0086, t01=0x0108}
0x0d24e…0d280 Head {h00=0x002e, h01=0x002a, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x0086, t01=0x0112}
0x0d280…0d2b2 Head {h00=0x002e, h01=0x002a, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x0086, t01=0x0144}
0x0d2b2…0d2f0 Head {h00=0x003a, h01=0x0036, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x0086, t01=0x0176}
0x0d2f0…0d2fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0087, t01=0x0024}
0x0d2fa…0d30e Head {h00=0x0010, h01=0x000c, text=» CALL DWTGEN«, t00=0x0087, t01=0x002e}
0x0d30e…0d322 Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x0087, t01=0x0042}
0x0d322…0d362 Head {h00=0x003c, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0087, t01=0x0056}
0x0d362…0d392 Head {h00=0x002c, h01=0x0027, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x0087, t01=0x0096}
0x0d392…0d3aa Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x0087, t01=0x00c6}
0x0d3aa…0d3da Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE REMAINING NUMBER «, t00=0x0087, t01=0x00de}
0x0d3da…0d402 Head {h00=0x0024, h01=0x0020, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x0087, t01=0x010e}
0x0d402…0d414 Head {h00=0x000e, h01=0x000a, text=» RB BDWT55«, t00=0x0087, t01=0x0136}
0x0d414…0d428 Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x0087, t01=0x0148}
0x0d428…0d43a Head {h00=0x000e, h01=0x0050, text=» CALL ECHO«, t00=0x0087, t01=0x015c}
0x0d43a…0d470 Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB «, t00=0x0087, t01=0x016e}
0x0d470…0d49a Head {h00=0x0026, h01=0x0021, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x0088, t01=0x0014}
0x0d49a…0d4b8 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE«, t00=0x0088, t01=0x003e}
0x0d4b8…0d4f4 Head {h00=0x0038, h01=0x0050, text=» LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS «, t00=0x0088, t01=0x005c}
0x0d4f4…0d51a Head {h00=0x0022, h01=0x001e, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x0088, t01=0x0098}
0x0d51a…0d530 Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT50 «, t00=0x0088, t01=0x00be}
0x0d530…0d560 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x0088, t01=0x00d4}
0x0d560…0d56a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x0104}
0x0d56a…0d592 Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0088, t01=0x010e}
0x0d592…0d5be Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0088, t01=0x0136}
0x0d5be…0d5d8 Head {h00=0x0016, h01=0x0011, text=» RB(E) BDWT40 YES «, t00=0x0088, t01=0x0162}
0x0d5d8…0d5e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x017c}
0x0d5e2…0d616 Head {h00=0x0030, h01=0x002c, text=»* ALL TERMINAL DEVICE WORK TABLES GENERATED«, t00=0x0088, t01=0x0186}
0x0d616…0d620 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0089, t01=0x002a}
0x0d620…0d636 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x0089, t01=0x0034}
0x0d636…0d648 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0089, t01=0x004a}
0x0d648…0d660 Head {h00=0x0014, h01=0x0050, text=»BDW105 ADK A2,2 «, t00=0x0089, t01=0x005c}
0x0d660…0d676 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x0089, t01=0x0074}
0x0d676…0d68c Head {h00=0x0012, h01=0x0050, text=» RF(NE) BDW110«, t00=0x0089, t01=0x008a}
0x0d68c…0d6a2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0089, t01=0x00a0}
0x0d6a2…0d6b6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0089, t01=0x00b6}
0x0d6b6…0d6d0 Head {h00=0x0016, h01=0x0050, text=»BDW110 CWR A2,A12 «, t00=0x0089, t01=0x00ca}
0x0d6d0…0d6e6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BDW105«, t00=0x0089, t01=0x00e4}
0x0d6e6…0d716 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0089, t01=0x00fa}
0x0d716…0d72e Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0089, t01=0x012a}
0x0d72e…0d73e Head {h00=0x000c, h01=0x0007, text=» EJECT «, t00=0x0089, t01=0x0142}
0x0d73e…0d76e Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0089, t01=0x0152}
0x0d76e…0d79e Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x0089, t01=0x0182}
0x0d79e…0d7ce Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x008a, t01=0x0022}
0x0d7ce…0d7d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x0052}
0x0d7d8…0d7fa Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONCON «, t00=0x008a, t01=0x005c}
0x0d7fa…0d804 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x007e}
0x0d804…0d832 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x008a, t01=0x0088}
0x0d832…0d86a Head {h00=0x0034, h01=0x0050, text=»* SAVE01 - START OF SAVE01URATION DATA «, t00=0x008a, t01=0x00b6}
0x0d86a…0d896 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x008a, t01=0x00ee}
0x0d896…0d8a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x011a}
0x0d8a0…0d8d8 Head {h00=0x0034, h01=0x0030, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x008a, t01=0x0124}
0x0d8d8…0d8e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x015c}
0x0d8e2…0d904 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x008a, t01=0x0166}
0x0d904…0d90e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008a, t01=0x0188}
0x0d90e…0d94e (139, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x008b, t01=0x0004}
0x0d94e…0d958 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x0044}
0x0d958…0d966 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x008b, t01=0x004e}
0x0d966…0d97a Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x008b, t01=0x005c}
0x0d97a…0d9b0 Head {h00=0x0032, h01=0x0050, text=» LD A11,SAVE01,A13 START OF SAVE01URATION DATA«, t00=0x008b, t01=0x0070}
0x0d9b0…0d9da Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x008b, t01=0x00a6}
0x0d9da…0d9f8 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x008b, t01=0x00d0}
0x0d9f8…0da02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x00ee}
0x0da02…0da30 Head {h00=0x002a, h01=0x0025, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x008b, t01=0x00f8}
0x0da30…0da3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008b, t01=0x0126}
0x0da3a…0da4e Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x008b, t01=0x0130}
0x0da4e…0da62 Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x008b, t01=0x0144}
0x0da62…0da8e Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x008b, t01=0x0158}
0x0da8e…0daa8 Head {h00=0x0016, h01=0x0011, text=» RB(E) CDG:10 YES «, t00=0x008b, t01=0x0184}
0x0daa8…0dad4 Head {h00=0x0028, h01=0x0024, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x008c, t01=0x000e}
0x0dad4…0daee Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x008c, t01=0x003a}
0x0daee…0dafc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x0054}
0x0dafc…0db06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0062}
0x0db06…0db44 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x008c, t01=0x006c}
0x0db44…0db80 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x008c, t01=0x00aa}
0x0db80…0db8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00e6}
0x0db8a…0dbbe Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x008c, t01=0x00f0}
0x0dbbe…0dbf8 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x008c, t01=0x0124}
0x0dbf8…0dc22 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x008c, t01=0x015e}
0x0dc22…0dc3a Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x008c, t01=0x0188}
0x0dc3a…0dc60 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x008d, t01=0x0010}
0x0dc60…0dc92 Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x008d, t01=0x0036}
0x0dc92…0dcc2 Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x008d, t01=0x0068}
0x0dcc2…0dcf2 Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x008d, t01=0x0098}
0x0dcf2…0dd1a Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x008d, t01=0x00c8}
0x0dd1a…0dd3a Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x008d, t01=0x00f0}
0x0dd3a…0dd64 Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x008d, t01=0x0110}
0x0dd64…0dd7e Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x008d, t01=0x013a}
0x0dd7e…0dda2 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x008d, t01=0x0154}
0x0dda2…0ddb6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008d, t01=0x0178}
0x0ddb6…0dde6 Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x008d, t01=0x018c}
0x0dde6…0de0e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x008e, t01=0x002c}
0x0de0e…0de36 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x008e, t01=0x0054}
0x0de36…0de5c Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x008e, t01=0x007c}
0x0de5c…0de86 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x008e, t01=0x00a2}
0x0de86…0deb8 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x008e, t01=0x00cc}
0x0deb8…0dede Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x008e, t01=0x00fe}
0x0dede…0def0 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x008e, t01=0x0124}
0x0def0…0defe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x0136}
0x0defe…0df12 Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x008e, t01=0x0144}
0x0df12…0df1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0158}
0x0df1c…0df5a Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x008e, t01=0x0162}
0x0df5a…0df96 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x008f, t01=0x0010}
0x0df96…0dfa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x004c}
0x0dfa0…0dfb4 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x008f, t01=0x0056}
0x0dfb4…0dfd2 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x008f, t01=0x006a}
0x0dfd2…0dfe4 Head {h00=0x000e, h01=0x000a, text=» LDR A6,A1«, t00=0x008f, t01=0x0088}
0x0dfe4…0dff8 Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x008f, t01=0x009a}
0x0dff8…0e00e Head {h00=0x0012, h01=0x000d, text=» RF(Z) BCDTEX «, t00=0x008f, t01=0x00ae}
0x0e00e…0e022 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x008f, t01=0x00c4}
0x0e022…0e034 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x008f, t01=0x00d8}
0x0e034…0e064 Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x008f, t01=0x00ea}
0x0e064…0e078 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x008f, t01=0x011a}
0x0e078…0e08a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x008f, t01=0x012e}
0x0e08a…0e09c Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x008f, t01=0x0140}
0x0e09c…0e0b2 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x008f, t01=0x0152}
0x0e0b2…0e0c8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x008f, t01=0x0168}
0x0e0c8…0e0dc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x017e}
0x0e0dc…0e0f0 (144, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x0090, t01=0x0004}
0x0e0f0…0e110 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x0090, t01=0x0018}
0x0e110…0e138 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x0090, t01=0x0038}
0x0e138…0e156 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x0090, t01=0x0060}
0x0e156…0e168 Head {h00=0x000e, h01=0x0009, text=» SUK A1,2 «, t00=0x0090, t01=0x007e}
0x0e168…0e17c Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x0090, t01=0x0090}
0x0e17c…0e18e Head {h00=0x000e, h01=0x000a, text=» ADR A7,A1«, t00=0x0090, t01=0x00a4}
0x0e18e…0e1a0 Head {h00=0x000e, h01=0x0009, text=» SUK A6,1 «, t00=0x0090, t01=0x00b6}
0x0e1a0…0e1b2 Head {h00=0x000e, h01=0x000a, text=» RB BCDT10«, t00=0x0090, t01=0x00c8}
0x0e1b2…0e1c6 Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x0090, t01=0x00da}
0x0e1c6…0e1d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00ee}
0x0e1d4…0e1de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00fc}
0x0e1de…0e21e Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x0090, t01=0x0106}
0x0e21e…0e258 Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x0090, t01=0x0146}
0x0e258…0e262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0180}
0x0e262…0e29c Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x0090, t01=0x018a}
0x0e29c…0e2e0 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x0091, t01=0x0034}
0x0e2e0…0e2ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0078}
0x0e2ea…0e338 Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x0091, t01=0x0082}
0x0e338…0e342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00d0}
0x0e342…0e36c Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x0091, t01=0x00da}
0x0e36c…0e392 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x0091, t01=0x0104}
0x0e392…0e3ae Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x0091, t01=0x012a}
0x0e3ae…0e3d4 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0091, t01=0x0146}
0x0e3d4…0e3fc Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E DISC PAGING OR SWB:S?«, t00=0x0091, t01=0x016c}
0x0e3fc…0e42c (146, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x0092, t01=0x0004}
0x0e42c…0e446 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:15 NO! «, t00=0x0092, t01=0x0034}
0x0e446…0e476 Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0092, t01=0x004e}
0x0e476…0e49e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x0092, t01=0x007e}
0x0e49e…0e4c4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x0092, t01=0x00a6}
0x0e4c4…0e4ec Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x0092, t01=0x00cc}
0x0e4ec…0e51a Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x0092, t01=0x00f4}
0x0e51a…0e546 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x0092, t01=0x0122}
0x0e546…0e56c Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0092, t01=0x014e}
0x0e56c…0e596 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x0092, t01=0x0174}
0x0e596…0e5aa Head {h00=0x0010, h01=0x0050, text=»CDG:15 EQU *«, t00=0x0093, t01=0x000e}
0x0e5aa…0e5bc Head {h00=0x000e, h01=0x0009, text=» ADK A7,2 «, t00=0x0093, t01=0x0022}
0x0e5bc…0e5d0 Head {h00=0x0010, h01=0x000b, text=» STR A7,A12 «, t00=0x0093, t01=0x0034}
0x0e5d0…0e5e6 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x0093, t01=0x0048}
0x0e5e6…0e5fa Head {h00=0x0010, h01=0x000b, text=» ADR A12,A7 «, t00=0x0093, t01=0x005e}
0x0e5fa…0e608 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0093, t01=0x0072}
0x0e608…0e612 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0093, t01=0x0080}
0x0e612…0e64c Head {h00=0x0036, h01=0x0031, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x0093, t01=0x008a}
0x0e64c…0e656 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0093, t01=0x00c4}
0x0e656…0e682 Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x0093, t01=0x00ce}
0x0e682…0e6aa Head {h00=0x0024, h01=0x0050, text=» LCR A2,A11 COMMON DEVICE BLOCK?«, t00=0x0093, t01=0x00fa}
0x0e6aa…0e6be Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0093, t01=0x0122}
0x0e6be…0e6d4 Head {h00=0x0012, h01=0x0050, text=» RF(E) CDG:18 «, t00=0x0093, t01=0x0136}
0x0e6d4…0e702 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,2 FIRST FREE ENTRY IN CDTAB «, t00=0x0093, t01=0x014c}
0x0e702…0e714 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0093, t01=0x017a}
0x0e714…0e726 Head {h00=0x000e, h01=0x0050, text=» RF CDGEX «, t00=0x0093, t01=0x018c}
0x0e726…0e73a Head {h00=0x0010, h01=0x0050, text=»CDG:18 EQU *«, t00=0x0094, t01=0x000e}
0x0e73a…0e744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0022}
0x0e744…0e786 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x0094, t01=0x002c}
0x0e786…0e790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x006e}
0x0e790…0e7be Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x0094, t01=0x0078}
0x0e7be…0e7f8 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x0094, t01=0x00a6}
0x0e7f8…0e822 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x0094, t01=0x00e0}
0x0e822…0e852 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x0094, t01=0x010a}
0x0e852…0e872 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x0094, t01=0x013a}
0x0e872…0e890 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE15,A13 SAVE«, t00=0x0094, t01=0x015a}
0x0e890…0e8bc Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x0094, t01=0x0178}
0x0e8bc…0e8da Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE14,A13 SAVE«, t00=0x0095, t01=0x0014}
0x0e8da…0e90a Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x0095, t01=0x0032}
0x0e90a…0e922 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x0095, t01=0x0062}
0x0e922…0e952 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE14,A13 GET CLASS IDENT NUMBER«, t00=0x0095, t01=0x007a}
0x0e952…0e97c Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x0095, t01=0x00aa}
0x0e97c…0e9ac Head {h00=0x002c, h01=0x0050, text=» LD A7,SAVE18,A13 GET POINTER TO TCLASS «, t00=0x0095, t01=0x00d4}
0x0e9ac…0e9d6 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x0095, t01=0x0104}
0x0e9d6…0e9fe Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x0095, t01=0x012e}
0x0e9fe…0ea30 Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x0095, t01=0x0156}
0x0ea30…0ea62 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x0095, t01=0x0188}
0x0ea62…0ea90 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE15,A13 GET NUMBER OF C.T.C.«, t00=0x0096, t01=0x002a}
0x0ea90…0eab4 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x0096, t01=0x0058}
0x0eab4…0eac6 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x0096, t01=0x007c}
0x0eac6…0eade Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x0096, t01=0x008e}
0x0eade…0eb0a Head {h00=0x0028, h01=0x0050, text=» ADKL A10,2 NEXT FREE ENTRY IN CDTAB«, t00=0x0096, t01=0x00a6}
0x0eb0a…0eb18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x00d2}
0x0eb18…0eb22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x00e0}
0x0eb22…0eb52 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x0096, t01=0x00ea}
0x0eb52…0eb5c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0096, t01=0x011a}
0x0eb5c…0eb70 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x0096, t01=0x0124}
0x0eb70…0eb8e Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x0096, t01=0x0138}
0x0eb8e…0eba0 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x0096, t01=0x0156}
0x0eba0…0ebb4 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x0096, t01=0x0168}
0x0ebb4…0ebca Head {h00=0x0012, h01=0x0050, text=» RF(NP) CDGEX «, t00=0x0096, t01=0x017c}
0x0ebca…0ebd4 (151, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0097, t01=0x0004}
0x0ebd4…0ebfe Head {h00=0x0026, h01=0x0023, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x0097, t01=0x000e}
0x0ebfe…0ec08 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0097, t01=0x0038}
0x0ec08…0ec1c Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x0097, t01=0x0042}
0x0ec1c…0ec26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0097, t01=0x0056}
0x0ec26…0ec5a Head {h00=0x0030, h01=0x002b, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x0097, t01=0x0060}
0x0ec5a…0ec64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0097, t01=0x0094}
0x0ec64…0ec7a Head {h00=0x0012, h01=0x000e, text=» ADR A1,A1 T «, t00=0x0097, t01=0x009e}
0x0ec7a…0ecaa Head {h00=0x002c, h01=0x0050, text=» LD A6,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x0097, t01=0x00b4}
0x0ecaa…0ecca Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x0097, t01=0x00e4}
0x0ecca…0ecf4 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x0097, t01=0x0104}
0x0ecf4…0ed1c Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x0097, t01=0x012e}
0x0ed1c…0ed44 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x0097, t01=0x0156}
0x0ed44…0ed6a Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x0097, t01=0x017e}
0x0ed6a…0ed7e Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x0098, t01=0x0014}
0x0ed7e…0ed9c Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x0098, t01=0x0028}
0x0ed9c…0edc0 Head {h00=0x0020, h01=0x001b, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x0098, t01=0x0046}
0x0edc0…0edec Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x0098, t01=0x006a}
0x0edec…0ee04 Head {h00=0x0014, h01=0x0010, text=» RF(Z) CDG:40 NO«, t00=0x0098, t01=0x0096}
0x0ee04…0ee0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x00ae}
0x0ee0e…0ee22 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x0098, t01=0x00b8}
0x0ee22…0ee2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0098, t01=0x00cc}
0x0ee2c…0ee4a Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0098, t01=0x00d6}
0x0ee4a…0ee7a Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x0098, t01=0x00f4}
0x0ee7a…0ee96 Head {h00=0x0018, h01=0x0013, text=» CALL MOVE COPY DWT «, t00=0x0098, t01=0x0124}
0x0ee96…0eea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0140}
0x0eea0…0eed8 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x0098, t01=0x014a}
0x0eed8…0eee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0182}
0x0eee2…0ef08 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x0098, t01=0x018c}
0x0ef08…0ef28 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x0099, t01=0x0022}
0x0ef28…0ef42 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x0099, t01=0x0042}
0x0ef42…0ef6e Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x0099, t01=0x005c}
0x0ef6e…0ef9c Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x0099, t01=0x0088}
0x0ef9c…0efcc Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x0099, t01=0x00b6}
0x0efcc…0eff0 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x0099, t01=0x00e6}
0x0eff0…0f00c Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x0099, t01=0x010a}
0x0f00c…0f032 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x0099, t01=0x0126}
0x0f032…0f046 Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x0099, t01=0x014c}
0x0f046…0f06c Head {h00=0x0022, h01=0x001d, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x0099, t01=0x0160}
0x0f06c…0f080 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x0099, t01=0x0186}
0x0f080…0f08a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x000a}
0x0f08a…0f0bc Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x009a, t01=0x0014}
0x0f0bc…0f0c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x0046}
0x0f0c6…0f0ec Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x009a, t01=0x0050}
0x0f0ec…0f10e Head {h00=0x001e, h01=0x001a, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x009a, t01=0x0076}
0x0f10e…0f130 Head {h00=0x001e, h01=0x0019, text=» STR A1,A10 STORE IN TTAB «, t00=0x009a, t01=0x0098}
0x0f130…0f158 Head {h00=0x0024, h01=0x0020, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x009a, t01=0x00ba}
0x0f158…0f182 Head {h00=0x0026, h01=0x0022, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x009a, t01=0x00e2}
0x0f182…0f1a4 Head {h00=0x001e, h01=0x0019, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x009a, t01=0x010c}
0x0f1a4…0f1b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x012e}
0x0f1b2…0f1bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x013c}
0x0f1bc…0f1ec Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x009a, t01=0x0146}
0x0f1ec…0f1f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009a, t01=0x0176}
0x0f1f6…0f20a Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x009a, t01=0x0180}
0x0f20a…0f21c (155, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x009b, t01=0x0004}
0x0f21c…0f22e Head {h00=0x000e, h01=0x000a, text=» RB CDG:20«, t00=0x009b, t01=0x0016}
0x0f22e…0f242 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x009b, t01=0x0028}
0x0f242…0f268 Head {h00=0x0022, h01=0x0050, text=» RF(N) CDG:EX CD:TAB COMPLETE!«, t00=0x009b, t01=0x003c}
0x0f268…0f28e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x009b, t01=0x0062}
0x0f28e…0f2b6 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x009b, t01=0x0088}
0x0f2b6…0f2d2 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x009b, t01=0x00b0}
0x0f2d2…0f2f8 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009b, t01=0x00cc}
0x0f2f8…0f320 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x009b, t01=0x00f2}
0x0f320…0f350 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x009b, t01=0x011a}
0x0f350…0f36a Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x009b, t01=0x014a}
0x0f36a…0f39a Head {h00=0x002c, h01=0x0050, text=» LD A5,SAVE11,A13 GET POINTER TO SCLASS «, t00=0x009b, t01=0x0164}
0x0f39a…0f3c2 (156, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x009c, t01=0x0004}
0x0f3c2…0f3e8 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x009c, t01=0x002c}
0x0f3e8…0f40a Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x009c, t01=0x0052}
0x0f40a…0f438 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x009c, t01=0x0074}
0x0f438…0f464 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x009c, t01=0x00a2}
0x0f464…0f48a Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x009c, t01=0x00ce}
0x0f48a…0f49c Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x009c, t01=0x00f4}
0x0f49c…0f4b0 Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x009c, t01=0x0106}
0x0f4b0…0f4c6 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x009c, t01=0x011a}
0x0f4c6…0f4d8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x009c, t01=0x0130}
0x0f4d8…0f4f0 Head {h00=0x0014, h01=0x0050, text=»CDG:50 ADK A2,2 «, t00=0x009c, t01=0x0142}
0x0f4f0…0f506 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTEFA «, t00=0x009c, t01=0x015a}
0x0f506…0f51c Head {h00=0x0012, h01=0x0050, text=» RF(NE) CDG:60«, t00=0x009c, t01=0x0170}
0x0f51c…0f532 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x009c, t01=0x0186}
0x0f532…0f55e Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x009d, t01=0x000c}
0x0f55e…0f578 Head {h00=0x0016, h01=0x0050, text=»CDG:60 CWR A2,A12 «, t00=0x009d, t01=0x0038}
0x0f578…0f58e Head {h00=0x0012, h01=0x0050, text=» RB(NE) CDG:50«, t00=0x009d, t01=0x0052}
0x0f58e…0f5be Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x009d, t01=0x0068}
0x0f5be…0f5d6 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x009d, t01=0x0098}
0x0f5d6…0f5e4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x009d, t01=0x00b0}
0x0f5e4…0f632 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x009d, t01=0x00be}
0x0f632…0f67e Head {h00=0x0048, h01=0x0043, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x009d, t01=0x010c}
0x0f67e…0f6cc Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x009d, t01=0x0158}
0x0f6cc…0f6d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x0016}
0x0f6d6…0f70e Head {h00=0x0034, h01=0x002f, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x009e, t01=0x0020}
0x0f70e…0f750 Head {h00=0x003e, h01=0x003a, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x009e, t01=0x0058}
0x0f750…0f77e Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x009e, t01=0x009a}
0x0f77e…0f788 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x00c8}
0x0f788…0f798 Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x009e, t01=0x00d2}
0x0f798…0f7a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x00e2}
0x0f7a2…0f7c2 Head {h00=0x001c, h01=0x0018, text=»* WORK REGISTERS: A1-A8«, t00=0x009e, t01=0x00ec}
0x0f7c2…0f7cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x010c}
0x0f7cc…0f7ee Head {h00=0x001e, h01=0x001a, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x009e, t01=0x0116}
0x0f7ee…0f7f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x0138}
0x0f7f8…0f806 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x009e, t01=0x0142}
0x0f806…0f81a Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x009e, t01=0x0150}
0x0f81a…0f850 Head {h00=0x0032, h01=0x0050, text=» ST A6,SAVE08,A13 SAVE LINE CONNECTION NUMBER «, t00=0x009e, t01=0x0164}
0x0f850…0f87c Head {h00=0x0028, h01=0x0024, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x009f, t01=0x000a}
0x0f87c…0f8a4 Head {h00=0x0024, h01=0x0020, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x009f, t01=0x0036}
0x0f8a4…0f8c4 Head {h00=0x001c, h01=0x0018, text=» ADK A7,2 FIRST FILECODE«, t00=0x009f, t01=0x005e}
0x0f8c4…0f8d8 Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x009f, t01=0x007e}
0x0f8d8…0f90a Head {h00=0x002e, h01=0x0029, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x009f, t01=0x0092}
0x0f90a…0f93e Head {h00=0x0030, h01=0x0050, text=» LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER«, t00=0x009f, t01=0x00c4}
0x0f93e…0f948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00f8}
0x0f948…0f968 Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x009f, t01=0x0102}
0x0f968…0f972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0122}
0x0f972…0f9a2 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+5,A9 GET LINE CONNECTION TYPE«, t00=0x009f, t01=0x012c}
0x0f9a2…0f9ca Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x009f, t01=0x015c}
0x0f9ca…0f9e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x009f, t01=0x0184}
0x0f9e4…0fa1a Head {h00=0x0032, h01=0x0050, text=» CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ «, t00=0x00a0, t01=0x000e}
0x0fa1a…0fa2c Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00a0, t01=0x0044}
0x0fa2c…0fa58 Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00a0, t01=0x0056}
0x0fa58…0fa72 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT11 NO! «, t00=0x00a0, t01=0x0082}
0x0fa72…0faa8 Head {h00=0x0032, h01=0x0050, text=» CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z«, t00=0x00a0, t01=0x009c}
0x0faa8…0faba Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00a0, t01=0x00d2}
0x0faba…0face Head {h00=0x0010, h01=0x0050, text=»DWT11 EQU * «, t00=0x00a0, t01=0x00e4}
0x0face…0fad8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a0, t01=0x00f8}
0x0fad8…0fb10 Head {h00=0x0034, h01=0x002f, text=»* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO «, t00=0x00a0, t01=0x0102}
0x0fb10…0fb4c Head {h00=0x0038, h01=0x0034, text=»* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE«, t00=0x00a0, t01=0x013a}
0x0fb4c…0fb84 Head {h00=0x0034, h01=0x0030, text=»* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT«, t00=0x00a0, t01=0x0176}
0x0fb84…0fb8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x001e}
0x0fb8e…0fba2 Head {h00=0x0010, h01=0x000b, text=» CALL I:CHP «, t00=0x00a1, t01=0x0028}
0x0fba2…0fbac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x003c}
0x0fbac…0fbf0 Head {h00=0x0040, h01=0x0050, text=»* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) «, t00=0x00a1, t01=0x0046}
0x0fbf0…0fc16 Head {h00=0x0022, h01=0x0050, text=»* AND SAVE06 (SELECTS ENTRY) «, t00=0x00a1, t01=0x008a}
0x0fc16…0fc20 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x00b0}
0x0fc20…0fc54 Head {h00=0x0030, h01=0x0050, text=»* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6)«, t00=0x00a1, t01=0x00ba}
0x0fc54…0fc8c Head {h00=0x0034, h01=0x0050, text=»* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 «, t00=0x00a1, t01=0x00ee}
0x0fc8c…0fcba Head {h00=0x002a, h01=0x0025, text=»* OF THE GENERATED CHANNEL PARAMETER «, t00=0x00a1, t01=0x0126}
0x0fcba…0fcf0 Head {h00=0x0032, h01=0x0050, text=» LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6«, t00=0x00a1, t01=0x0154}
0x0fcf0…0fd20 Head {h00=0x002c, h01=0x0050, text=» AD A4,SAVE10,A13 SELECT INTERRUPT TABLE«, t00=0x00a1, t01=0x018a}
0x0fd20…0fd50 Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A4 GET INTERRUPT TABLE ADDRESS «, t00=0x00a2, t01=0x002a}
0x0fd50…0fd78 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVE06,A13 LINE PARAMETER«, t00=0x00a2, t01=0x005a}
0x0fd78…0fd80 Head {h00=0x0004, h01=0x0002, t00=0x00a2, t01=0x0082}
0x0fd80…0fd94 Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x00a2, t01=0x008a}
0x0fd94…0fdba Head {h00=0x0022, h01=0x001d, text=» RF(Z) DWT17 LINE ENTRY FOUND «, t00=0x00a2, t01=0x009e}
0x0fdba…0fdd6 Head {h00=0x0018, h01=0x0014, text=» ADK A4,28 NEXT LINE«, t00=0x00a2, t01=0x00c4}
0x0fdd6…0fe00 Head {h00=0x0026, h01=0x0022, text=» SUK A3,1 DECREMENT LINE PARAMETER«, t00=0x00a2, t01=0x00e0}
0x0fe00…0fe12 Head {h00=0x000e, h01=0x0009, text=» RB DWT15 «, t00=0x00a2, t01=0x010a}
0x0fe12…0fe20 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a2, t01=0x011c}
0x0fe20…0fe34 Head {h00=0x0010, h01=0x0050, text=»DWT17 EQU * «, t00=0x00a2, t01=0x012a}
0x0fe34…0fe6e Head {h00=0x0036, h01=0x0050, text=» ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY «, t00=0x00a2, t01=0x013e}
0x0fe6e…0fe78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a2, t01=0x0178}
0x0fe78…0fe96 Head {h00=0x001a, h01=0x0016, text=»* GET DEVICE ADDRESS:«, t00=0x00a2, t01=0x0182}
0x0fe96…0feca Head {h00=0x0030, h01=0x0050, text=»* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE«, t00=0x00a3, t01=0x0010}
0x0feca…0fef4 Head {h00=0x0026, h01=0x0050, text=»* OR DEVICE WITHOUT DATA REQUEST «, t00=0x00a3, t01=0x0044}
0x0fef4…0ff2c Head {h00=0x0034, h01=0x002f, text=»* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES «, t00=0x00a3, t01=0x006e}
0x0ff2c…0ff36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a3, t01=0x00a6}
0x0ff36…0ff6a Head {h00=0x0030, h01=0x002b, text=» LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT «, t00=0x00a3, t01=0x00b0}
0x0ff6a…0ff82 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A6 SAVE «, t00=0x00a3, t01=0x00e4}
0x0ff82…0ffc0 Head {h00=0x003a, h01=0x0035, text=» ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT «, t00=0x00a3, t01=0x00fc}
0x0ffc0…0ffe8 Head {h00=0x0024, h01=0x001f, text=» SLC A6,7 CHECK IF INPUT DEVICE «, t00=0x00a3, t01=0x013a}
0x0ffe8…10002 Head {h00=0x0016, h01=0x0050, text=» RF(N) DWT20 YES! «, t00=0x00a3, t01=0x0162}
0x10002…1000c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x017c}
0x1000c…1004c Head {h00=0x003c, h01=0x0050, text=»* NOT INPUT DEVICE - CHECK IF DEVICE WITH DATA REQUEST «, t00=0x00a3, t01=0x0186}
0x1004c…10056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0036}
0x10056…10082 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/8000 DATA REQUEST BIT SET?«, t00=0x00a4, t01=0x0040}
0x10082…1009a Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT20 NO!«, t00=0x00a4, t01=0x006c}
0x1009a…100ac Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x00a4, t01=0x0084}
0x100ac…100be Head {h00=0x000e, h01=0x0050, text=» ADK A6,12«, t00=0x00a4, t01=0x0096}
0x100be…100d0 Head {h00=0x000e, h01=0x0009, text=» RF DWT30 «, t00=0x00a4, t01=0x00a8}
0x100d0…100e4 Head {h00=0x0010, h01=0x0050, text=»DWT20 EQU * «, t00=0x00a4, t01=0x00ba}
0x100e4…100f6 Head {h00=0x000e, h01=0x0050, text=» SRL A6,2 «, t00=0x00a4, t01=0x00ce}
0x100f6…10108 Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x00a4, t01=0x00e0}
0x10108…1011c Head {h00=0x0010, h01=0x0050, text=»DWT30 EQU * «, t00=0x00a4, t01=0x00f2}
0x1011c…10130 Head {h00=0x0010, h01=0x000b, text=» ANK A6,/1E «, t00=0x00a4, t01=0x0106}
0x10130…1013a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x011a}
0x1013a…10170 Head {h00=0x0032, h01=0x002e, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x00a4, t01=0x0124}
0x10170…1017a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x015a}
0x1017a…10198 Head {h00=0x001a, h01=0x0016, text=» ADR A6,A4 TABLE ENTRY«, t00=0x00a4, t01=0x0164}
0x10198…101c8 Head {h00=0x002c, h01=0x0050, text=»DWT31 LDR* A2,A6 DWT ALREADY GENERATED? «, t00=0x00a4, t01=0x0182}
0x101c8…101e0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT32 NO!«, t00=0x00a5, t01=0x0022}
0x101e0…101f4 Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x00a5, t01=0x003a}
0x101f4…1020a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x00a5, t01=0x004e}
0x1020a…10222 Head {h00=0x0014, h01=0x0050, text=» AD A1,M:REL,A13«, t00=0x00a5, t01=0x0064}
0x10222…10232 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x00a5, t01=0x007c}
0x10232…1023c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x008c}
0x1023c…1025e Head {h00=0x001e, h01=0x0050, text=»* CHECK IF DWT IN DRIVER «, t00=0x00a5, t01=0x0096}
0x1025e…10268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x00b8}
0x10268…10284 Head {h00=0x0018, h01=0x0050, text=»DWT32 LDKL A2,SYSLOD«, t00=0x00a5, t01=0x00c2}
0x10284…10296 Head {h00=0x000e, h01=0x0050, text=» TNM A1,A2«, t00=0x00a5, t01=0x00de}
0x10296…102ac Head {h00=0x0012, h01=0x0050, text=» RF(NN) DWT34 «, t00=0x00a5, t01=0x00f0}
0x102ac…102be Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a5, t01=0x0106}
0x102be…102d0 Head {h00=0x000e, h01=0x0050, text=» RF DWT36 «, t00=0x00a5, t01=0x0118}
0x102d0…102e8 Head {h00=0x0014, h01=0x0050, text=»DWT34 CWR A2,A1 «, t00=0x00a5, t01=0x012a}
0x102e8…10302 Head {h00=0x0016, h01=0x0050, text=»DWT36 RF(L) DWT38 «, t00=0x00a5, t01=0x0142}
0x10302…10314 Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x00a5, t01=0x015c}
0x10314…10334 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 DWT IN DRIVER«, t00=0x00a5, t01=0x016e}
0x10334…10346 Head {h00=0x000e, h01=0x0050, text=» RF DWT70 «, t00=0x00a5, t01=0x018e}
0x10346…1035a Head {h00=0x0010, h01=0x0050, text=»DWT38 EQU * «, t00=0x00a6, t01=0x0010}
0x1035a…1037e Head {h00=0x0020, h01=0x001c, text=» STR A12,A6 SAVE DWT-ADDRESS«, t00=0x00a6, t01=0x0024}
0x1037e…10388 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0048}
0x10388…103a8 Head {h00=0x001c, h01=0x0017, text=»* COPY DEVICE TYPE DWT «, t00=0x00a6, t01=0x0052}
0x103a8…103b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0072}
0x103b2…103d0 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00a6, t01=0x007c}
0x103d0…103ee Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x00a6, t01=0x009a}
0x103ee…10412 Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x00a6, t01=0x00b8}
0x10412…10424 Head {h00=0x000e, h01=0x000a, text=» CALL MOVE«, t00=0x00a6, t01=0x00dc}
0x10424…10432 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a6, t01=0x00ee}
0x10432…1043c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x00fc}
0x1043c…10464 Head {h00=0x0024, h01=0x0020, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x00a6, t01=0x0106}
0x10464…10488 Head {h00=0x0020, h01=0x001b, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x00a6, t01=0x012e}
0x10488…10492 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00a6, t01=0x0152}
0x10492…104bc Head {h00=0x0026, h01=0x0022, text=» STR A5,A2 STORE CHANNEL PARAMETER«, t00=0x00a6, t01=0x015c}
0x104bc…104c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0186}
0x104c6…104e6 Head {h00=0x001c, h01=0x0018, text=»* CHECK IF INPUT DEVICE«, t00=0x00a6, t01=0x0190}
0x104e6…104f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a7, t01=0x0020}
0x104f0…1051e Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x00a7, t01=0x002a}
0x1051e…10542 Head {h00=0x0020, h01=0x001c, text=» ANKL A3,/0100 INPUT DEVICE?«, t00=0x00a7, t01=0x0058}
0x10542…1055a Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x00a7, t01=0x007c}
0x1055a…10564 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a7, t01=0x0094}
0x10564…1057c Head {h00=0x0014, h01=0x0010, text=»* INPUT DEVICE:«, t00=0x00a7, t01=0x009e}
0x1057c…10598 Head {h00=0x0018, h01=0x0014, text=»* CHECK IF KEYBOARD«, t00=0x00a7, t01=0x00b6}
0x10598…105a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a7, t01=0x00d2}
0x105a2…105bc Head {h00=0x0016, h01=0x0012, text=» LD A3,DWTADR,A1 «, t00=0x00a7, t01=0x00dc}
0x105bc…105d4 Head {h00=0x0014, h01=0x0010, text=» LD A3,DEVIND,A3«, t00=0x00a7, t01=0x00f6}
0x105d4…105e6 Head {h00=0x000e, h01=0x0009, text=» CWK A3,6 «, t00=0x00a7, t01=0x010e}
0x105e6…10608 Head {h00=0x001e, h01=0x001a, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x00a7, t01=0x0120}
0x10608…10612 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a7, t01=0x0142}
0x10612…10634 Head {h00=0x001e, h01=0x001a, text=»* INPUT DEVICE = KEYBOARD«, t00=0x00a7, t01=0x014c}
0x10634…10648 Head {h00=0x0010, h01=0x000c, text=»* IF ECHO: «, t00=0x00a7, t01=0x016e}
0x10648…10652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0182}
0x10652…10682 Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x00a7, t01=0x018c}
0x10682…106c0 Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x00a8, t01=0x002c}
0x106c0…106ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x006a}
0x106ca…106d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a8, t01=0x0074}
0x106d4…106f2 Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x00a8, t01=0x007e}
0x106f2…1070a Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT40 NO «, t00=0x00a8, t01=0x009c}
0x1070a…10722 Head {h00=0x0014, h01=0x0050, text=» AD A5,M:REL,A13«, t00=0x00a8, t01=0x00b4}
0x10722…1075a Head {h00=0x0034, h01=0x0050, text=» LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE«, t00=0x00a8, t01=0x00cc}
0x1075a…10786 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x00a8, t01=0x0104}
0x10786…107bc Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x00a8, t01=0x0130}
0x107bc…107e0 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x00a8, t01=0x0166}
0x107e0…10808 Head {h00=0x0024, h01=0x0050, text=» AD A4,SCTSFA+2 NEXT FREE ENTRY «, t00=0x00a8, t01=0x018a}
0x10808…10844 Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x00a9, t01=0x0022}
0x10844…10884 Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x00a9, t01=0x005e}
0x10884…108a4 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x00a9, t01=0x009e}
0x108a4…108cc Head {h00=0x0024, h01=0x0050, text=» ST* A3,SCTSFA+2 SAVE NEW LENGTH«, t00=0x00a9, t01=0x00be}
0x108cc…108da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x00e6}
0x108da…108ee Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x00a9, t01=0x00f4}
0x108ee…108f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a9, t01=0x0108}
0x108f8…1092e Head {h00=0x0032, h01=0x002d, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x00a9, t01=0x0112}
0x1092e…10938 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00a9, t01=0x0148}
0x10938…1095a Head {h00=0x001e, h01=0x001a, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x00a9, t01=0x0152}
0x1095a…10990 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x00a9, t01=0x0174}
0x10990…109b8 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x00aa, t01=0x001a}
0x109b8…109e0 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x00aa, t01=0x0042}
0x109e0…109ea Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00aa, t01=0x006a}
0x109ea…10a08 Head {h00=0x001a, h01=0x0016, text=»* IF DOUBLE KEYBOARD:«, t00=0x00aa, t01=0x0074}
0x10a08…10a50 Head {h00=0x0044, h01=0x0040, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x00aa, t01=0x0092}
0x10a50…10a8a Head {h00=0x0036, h01=0x0032, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x00aa, t01=0x00da}
0x10a8a…10a94 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00aa, t01=0x0114}
0x10a94…10ac2 Head {h00=0x002a, h01=0x0026, text=» LDR* A3,A1 GET FIRST WORD OF TYPE DWT«, t00=0x00aa, t01=0x011e}
0x10ac2…10aec Head {h00=0x0026, h01=0x0022, text=» ANK A3,/F GET FOUR RIGHTMOST BITS«, t00=0x00aa, t01=0x014c}
0x10aec…10b14 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x00aa, t01=0x0176}
0x10b14…10b3c Head {h00=0x0024, h01=0x001f, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x00ab, t01=0x000e}
0x10b3c…10b56 Head {h00=0x0016, h01=0x0011, text=» ADK A5,1 ADD ONE «, t00=0x00ab, t01=0x0036}
0x10b56…10b8a Head {h00=0x0030, h01=0x002c, text=» SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1«, t00=0x00ab, t01=0x0050}
0x10b8a…10bae Head {h00=0x0020, h01=0x001c, text=» ADR A3,A3 BYTE DISPLACEMENT«, t00=0x00ab, t01=0x0084}
0x10bae…10be0 Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE«, t00=0x00ab, t01=0x00a8}
0x10be0…10c08 Head {h00=0x0024, h01=0x001f, text=» STR A5,A3 STORE DEVICE-ADDRESS «, t00=0x00ab, t01=0x00da}
0x10c08…10c1a Head {h00=0x000e, h01=0x0009, text=» RF DWT60 «, t00=0x00ab, t01=0x0102}
0x10c1a…10c28 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00ab, t01=0x0114}
0x10c28…10c40 Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x00ab, t01=0x0122}
0x10c40…10c52 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x00ab, t01=0x013a}
0x10c52…10c66 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x00ab, t01=0x014c}
0x10c66…10c70 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ab, t01=0x0160}
0x10c70…10c8a Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x00ab, t01=0x016a}
0x10c8a…10cb8 Head {h00=0x002a, h01=0x0050, text=»* IF ADDRESS OF PROTOTYPE DWT IS ODD,«, t00=0x00ab, t01=0x0184}
0x10cb8…10cec Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x00ac, t01=0x0022}
0x10cec…10d26 Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x00ac, t01=0x0056}
0x10d26…10d5a Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x00ac, t01=0x0090}
0x10d5a…10d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x00c4}
0x10d64…10d98 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x00ac, t01=0x00ce}
0x10d98…10dc8 Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x00ac, t01=0x0102}
0x10dc8…10e00 Head {h00=0x0034, h01=0x0050, text=» LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE«, t00=0x00ac, t01=0x0132}
0x10e00…10e2a Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x00ac, t01=0x016a}
0x10e2a…10e4a (173, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x00ad, t01=0x0004}
0x10e4a…10e6e Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x00ad, t01=0x0024}
0x10e6e…10e96 Head {h00=0x0024, h01=0x0050, text=» AD A4,SCTSFA+2 NEXT FREE ENTRY «, t00=0x00ad, t01=0x0048}
0x10e96…10ec8 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x00ad, t01=0x0070}
0x10ec8…10ef8 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x00ad, t01=0x00a2}
0x10ef8…10f18 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x00ad, t01=0x00d2}
0x10f18…10f42 Head {h00=0x0026, h01=0x0050, text=» ST* A3,SCTSFA+2 STORE NEW LENGTH «, t00=0x00ad, t01=0x00f2}
0x10f42…10f58 Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x00ad, t01=0x011c}
0x10f58…10f6c Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x00ad, t01=0x0132}
0x10f6c…10f76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ad, t01=0x0146}
0x10f76…10f90 Head {h00=0x0016, h01=0x0012, text=»* CHECK IF PAGING«, t00=0x00ad, t01=0x0150}
0x10f90…10f9a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00ad, t01=0x016a}
0x10f9a…10fc0 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00ad, t01=0x0174}
0x10fc0…10fde Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x00ae, t01=0x000a}
0x10fde…10ff2 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWT70«, t00=0x00ae, t01=0x0028}
0x10ff2…11000 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ae, t01=0x003c}
0x11000…11030 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x00ae, t01=0x004a}
0x11030…1105c Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00ae, t01=0x007a}
0x1105c…1108a Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00ae, t01=0x00a6}
0x1108a…110ba Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x00ae, t01=0x00d4}
0x110ba…110e2 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x00ae, t01=0x0104}
0x110e2…11108 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x00ae, t01=0x012c}
0x11108…11112 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x0152}
0x11112…11152 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x00ae, t01=0x015c}
0x11152…1115c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x000c}
0x1115c…11186 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x00af, t01=0x0016}
0x11186…111bc Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x00af, t01=0x0040}
0x111bc…111e4 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x00af, t01=0x0076}
0x111e4…111ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x009e}
0x111ee…1123e Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x00af, t01=0x00a8}
0x1123e…11248 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x00f8}
0x11248…11278 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00af, t01=0x0102}
0x11278…112a4 Head {h00=0x0028, h01=0x0023, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x00af, t01=0x0132}
0x112a4…112b8 Head {h00=0x0010, h01=0x000b, text=» ADK A3,1 «, t00=0x00af, t01=0x015e}
0x112b8…112e8 Head {h00=0x002c, h01=0x0028, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x00af, t01=0x0172}
0x112e8…11302 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x00b0, t01=0x0012}
0x11302…11320 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x00b0, t01=0x002c}
0x11320…1134c Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 =1«, t00=0x00b0, t01=0x004a}
0x1134c…1137e Head {h00=0x002e, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1«, t00=0x00b0, t01=0x0076}
0x1137e…1138c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x00a8}
0x1138c…11396 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x00b6}
0x11396…113ce Head {h00=0x0034, h01=0x0030, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x00b0, t01=0x00c0}
0x113ce…11408 Head {h00=0x0036, h01=0x0031, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x00b0, t01=0x00f8}
0x11408…11440 Head {h00=0x0034, h01=0x0030, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x00b0, t01=0x0132}
0x11440…11470 Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x00b0, t01=0x016a}
0x11470…1147a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x000a}
0x1147a…11496 Head {h00=0x0018, h01=0x0013, text=» CW A3,BUFSIZ,A13 «, t00=0x00b1, t01=0x0014}
0x11496…114ac Head {h00=0x0012, h01=0x000d, text=» RF(NG) DWT65 «, t00=0x00b1, t01=0x0030}
0x114ac…114c6 Head {h00=0x0016, h01=0x0011, text=» ST A3,BUFSIZ,A13 «, t00=0x00b1, t01=0x0046}
0x114c6…114e0 Head {h00=0x0016, h01=0x0050, text=» ST A12,SYSBUF,A13«, t00=0x00b1, t01=0x0060}
0x114e0…114f4 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x00b1, t01=0x007a}
0x114f4…11518 Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x00b1, t01=0x008e}
0x11518…11526 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00b1, t01=0x00b2}
0x11526…11534 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00b1, t01=0x00c0}
0x11534…11542 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x00ce}
0x11542…11556 Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x00b1, t01=0x00dc}
0x11556…11560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00f0}
0x11560…11592 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00b1, t01=0x00fa}
0x11592…1159c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x012c}
0x1159c…115c2 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00b1, t01=0x0136}
0x115c2…115e8 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x00b1, t01=0x015c}
0x115e8…11616 Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x00b1, t01=0x0182}
0x11616…1163c Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x00b2, t01=0x0020}
0x1163c…11662 Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x00b2, t01=0x0046}
0x11662…1166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x006c}
0x1166c…1169c Head {h00=0x002c, h01=0x0027, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x00b2, t01=0x0076}
0x1169c…116a6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00b2, t01=0x00a6}
0x116a6…116b8 Head {h00=0x000e, h01=0x000a, text=» SUKL A8,4«, t00=0x00b2, t01=0x00b0}
0x116b8…116cc Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWTEX«, t00=0x00b2, t01=0x00c2}
0x116cc…116ea Head {h00=0x001a, h01=0x0015, text=» ADK A7,4 NEXT DEVICE «, t00=0x00b2, t01=0x00d6}
0x116ea…11700 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x00b2, t01=0x00f4}
0x11700…11718 Head {h00=0x0014, h01=0x0050, text=» AD A1,M:REL,A13«, t00=0x00b2, t01=0x010a}
0x11718…11728 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x00b2, t01=0x0122}
0x11728…1173c Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x00b2, t01=0x0132}
0x1173c…1174c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b2, t01=0x0146}
0x1174c…1175a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b2, t01=0x0156}
0x1175a…11764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x0164}
0x11764…1179e Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x00b2, t01=0x016e}
0x1179e…117d6 Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x00b3, t01=0x0018}
0x117d6…1180e Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x00b3, t01=0x0050}
0x1180e…11842 Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x00b3, t01=0x0088}
0x11842…11878 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x00b3, t01=0x00bc}
0x11878…118ae Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x00b3, t01=0x00f2}
0x118ae…118cc Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x00b3, t01=0x0128}
0x118cc…11908 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x00b3, t01=0x0146}
0x11908…11934 Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x00b3, t01=0x0182}
0x11934…1193e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x001e}
0x1193e…1197a Head {h00=0x0038, h01=0x0050, text=»ECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE«, t00=0x00b4, t01=0x0028}
0x1197a…119a0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x00b4, t01=0x0064}
0x119a0…119d8 Head {h00=0x0034, h01=0x0050, text=» AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE«, t00=0x00b4, t01=0x008a}
0x119d8…11a0e Head {h00=0x0032, h01=0x0050, text=» LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE«, t00=0x00b4, t01=0x00c2}
0x11a0e…11a2e Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x00b4, t01=0x00f8}
0x11a2e…11a6a Head {h00=0x0038, h01=0x0050, text=»DWT90 LD A2,SCTSFA+2 GET START OF ECHO DEVICE TABLE «, t00=0x00b4, t01=0x0118}
0x11a6a…11a8a Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x00b4, t01=0x0154}
0x11a8a…11ac4 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x00b4, t01=0x0174}
0x11ac4…11b06 Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x00b5, t01=0x001e}
0x11b06…11b28 Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x00b5, t01=0x0060}
0x11b28…11b4a Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x00b5, t01=0x0082}
0x11b4a…11b76 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x00b5, t01=0x00a4}
0x11b76…11b9e Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x00b5, t01=0x00d0}
0x11b9e…11bb0 Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x00b5, t01=0x00f8}
0x11bb0…11bee Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x00b5, t01=0x010a}
0x11bee…11c26 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x00b5, t01=0x0148}
0x11c26…11c62 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x00b5, t01=0x0180}
0x11c62…11c86 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x00b6, t01=0x002c}
0x11c86…11cac Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x00b6, t01=0x0050}
0x11cac…11cd4 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x00b6, t01=0x0076}
0x11cd4…11d00 Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x00b6, t01=0x009e}
0x11d00…11d1a Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x00b6, t01=0x00ca}
0x11d1a…11d42 Head {h00=0x0024, h01=0x0050, text=»DWT150 CM* SCTSFA+2 CLEAR LENGTH«, t00=0x00b6, t01=0x00e4}
0x11d42…11d60 Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x00b6, t01=0x010c}
0x11d60…11d6e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b6, t01=0x012a}
0x11d6e…11d9c Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00b6, t01=0x0138}
0x11d9c…11dca Head {h00=0x002a, h01=0x0025, text=»* I:CHP - INIT CHANNEL PARAMETER * «, t00=0x00b6, t01=0x0166}
0x11dca…11df8 (183, 0, 398) Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x00b7, t01=0x0004}
0x11df8…11e02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b7, t01=0x0032}
0x11e02…11e22 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: DWTGEN«, t00=0x00b7, t01=0x003c}
0x11e22…11e2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b7, t01=0x005c}
0x11e2c…11e5c Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x00b7, t01=0x0066}
0x11e5c…11e88 Head {h00=0x0028, h01=0x0023, text=»* A2 - POINTER TO REAL DWT «, t00=0x00b7, t01=0x0096}
0x11e88…11eb6 Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00b7, t01=0x00c2}
0x11eb6…11ee4 Head {h00=0x002a, h01=0x0050, text=»* A9 - POINTER TO TDC RECORD «, t00=0x00b7, t01=0x00f0}
0x11ee4…11eee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b7, t01=0x011e}
0x11eee…11f18 Head {h00=0x0026, h01=0x0021, text=»* EXIT: A5 - CHANNEL PARAMETER «, t00=0x00b7, t01=0x0128}
0x11f18…11f5c Head {h00=0x0040, h01=0x0050, text=»* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) «, t00=0x00b7, t01=0x0152}
0x11f5c…11f90 Head {h00=0x0030, h01=0x0050, text=»* SAVE06 - SELECTS LINE ENTRY (1-8)«, t00=0x00b8, t01=0x0008}
0x11f90…11f9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x003c}
0x11f9a…11fbe Head {h00=0x0020, h01=0x001c, text=»* WORK REGISTERS: A3,A4,A5«, t00=0x00b8, t01=0x0046}
0x11fbe…11fc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x006a}
0x11fc8…11fe0 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x00b8, t01=0x0074}
0x11fe0…11fea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x008c}
0x11fea…11ff8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00b8, t01=0x0096}
0x11ff8…1200c Head {h00=0x0010, h01=0x0050, text=»I:CHP EQU * «, t00=0x00b8, t01=0x00a4}
0x1200c…12040 Head {h00=0x0030, h01=0x0050, text=» LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER«, t00=0x00b8, t01=0x00b8}
0x12040…1206e Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x00b8, t01=0x00ec}
0x1206e…12088 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x00b8, t01=0x011a}
0x12088…120b4 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x00b8, t01=0x0134}
0x120b4…120ce Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x00b8, t01=0x0160}
0x120ce…120fe Head {h00=0x002c, h01=0x0027, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x00b8, t01=0x017a}
0x120fe…12132 Head {h00=0x0030, h01=0x002b, text=» LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT «, t00=0x00b9, t01=0x001a}
0x12132…1215e Head {h00=0x0028, h01=0x0023, text=» ANKL A5,/F1F0 CLEAR BITS TO MODIFY «, t00=0x00b9, t01=0x004e}
0x1215e…12194 Head {h00=0x0032, h01=0x002e, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x00b9, t01=0x007a}
0x12194…121be Head {h00=0x0026, h01=0x0022, text=» LC A4,TDC+5,A9 CHECK TYPE OF LINE«, t00=0x00b9, t01=0x00b0}
0x121be…121de Head {h00=0x001c, h01=0x0018, text=» CCK A4,'LL' LOCAL LINE?«, t00=0x00b9, t01=0x00da}
0x121de…12200 Head {h00=0x001e, h01=0x0019, text=» RF(NE) I:CHPR NO: REMOTE «, t00=0x00b9, t01=0x00fa}
0x12200…12214 Head {h00=0x0010, h01=0x0050, text=»I:CHPL EQU *«, t00=0x00b9, t01=0x011c}
0x12214…12234 Head {h00=0x001c, h01=0x0018, text=» ANK A3,7 GET BITS 13-15«, t00=0x00b9, t01=0x0130}
0x12234…12252 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00b9, t01=0x0150}
0x12252…12274 Head {h00=0x001e, h01=0x001a, text=» SLL A3,9 MOVE TO BITS 4-6«, t00=0x00b9, t01=0x016e}
0x12274…1229e Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00b9, t01=0x0190}
0x1229e…122cc Head {h00=0x002a, h01=0x0025, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x00ba, t01=0x002a}
0x122cc…122ee Head {h00=0x001e, h01=0x001a, text=» ANK A3,/18 GET BITS 11-12«, t00=0x00ba, t01=0x0058}
0x122ee…12312 Head {h00=0x0020, h01=0x001c, text=» SRL A3,2 MOVE TO BITS 13-14«, t00=0x00ba, t01=0x007a}
0x12312…12330 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE05,A13 SAVE«, t00=0x00ba, t01=0x009e}
0x12330…12354 Head {h00=0x0020, h01=0x001c, text=» SRL A3,1 MOVE TO BITS 14-15«, t00=0x00ba, t01=0x00bc}
0x12354…1237e Head {h00=0x0026, h01=0x0022, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x00ba, t01=0x00e0}
0x1237e…12390 Head {h00=0x000e, h01=0x000a, text=» RF I:CHPE«, t00=0x00ba, t01=0x010a}
0x12390…1239e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00ba, t01=0x011c}
0x1239e…123b2 Head {h00=0x0010, h01=0x0050, text=»I:CHPR EQU *«, t00=0x00ba, t01=0x012a}
0x123b2…123bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x013e}
0x123bc…123d2 Head {h00=0x0012, h01=0x000e, text=»* REMOTE LINE«, t00=0x00ba, t01=0x0148}
0x123d2…123dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x015e}
0x123dc…123fc Head {h00=0x001c, h01=0x0018, text=» ANK A3,3 GET BITS 14-15«, t00=0x00ba, t01=0x0168}
0x123fc…12412 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH10«, t00=0x00ba, t01=0x0188}
0x12412…12446 Head {h00=0x0030, h01=0x002c, text=» ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO)«, t00=0x00bb, t01=0x000e}
0x12446…12474 Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE ENTRY SELECTOR «, t00=0x00bb, t01=0x0042}
0x12474…12486 Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00bb, t01=0x0070}
0x12486…1249a Head {h00=0x0010, h01=0x0050, text=»I:CH10 EQU *«, t00=0x00bb, t01=0x0082}
0x1249a…124b6 Head {h00=0x0018, h01=0x0014, text=» ANK A3,2 GET BIT 14«, t00=0x00bb, t01=0x0096}
0x124b6…124cc Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH20«, t00=0x00bb, t01=0x00b2}
0x124cc…124f6 Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0800 STORE 4 IN BITS 4-6«, t00=0x00bb, t01=0x00c8}
0x124f6…12516 Head {h00=0x001c, h01=0x0018, text=» LDK A3,4 ENTRY SELECTOR«, t00=0x00bb, t01=0x00f2}
0x12516…12534 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00bb, t01=0x0112}
0x12534…12546 Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00bb, t01=0x0130}
0x12546…1255a Head {h00=0x0010, h01=0x0050, text=»I:CH20 EQU *«, t00=0x00bb, t01=0x0142}
0x1255a…12580 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00bb, t01=0x0156}
0x12580…1259c Head {h00=0x0018, h01=0x0014, text=» ANK A3,1 GET BIT 15«, t00=0x00bb, t01=0x017c}
0x1259c…125b2 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) I:CH30«, t00=0x00bc, t01=0x0008}
0x125b2…125dc Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0200 STORE 1 IN BITS 4-6«, t00=0x00bc, t01=0x001e}
0x125dc…125fc Head {h00=0x001c, h01=0x0018, text=» LDK A3,1 ENTRY SELECTOR«, t00=0x00bc, t01=0x0048}
0x125fc…1261a Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00bc, t01=0x0068}
0x1261a…1262c Head {h00=0x000e, h01=0x000a, text=» RF I:CH50«, t00=0x00bc, t01=0x0086}
0x1262c…12640 Head {h00=0x0010, h01=0x0050, text=»I:CH30 EQU *«, t00=0x00bc, t01=0x0098}
0x12640…1266a Head {h00=0x0026, h01=0x0022, text=» ORKL A5,/0A00 STORE 5 IN BITS 4-6«, t00=0x00bc, t01=0x00ac}
0x1266a…1268a Head {h00=0x001c, h01=0x0018, text=» LDK A3,5 ENTRY SELECTOR«, t00=0x00bc, t01=0x00d6}
0x1268a…126a8 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE«, t00=0x00bc, t01=0x00f6}
0x126a8…126b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x0114}
0x126b6…126ca Head {h00=0x0010, h01=0x0050, text=»I:CH50 EQU *«, t00=0x00bc, t01=0x0122}
0x126ca…126f0 Head {h00=0x0022, h01=0x001e, text=» LDR A3,A6 GET LINE CONNECTION«, t00=0x00bc, t01=0x0136}
0x126f0…1270e Head {h00=0x001a, h01=0x0016, text=» LDK A4,4 INIT COUNTER«, t00=0x00bc, t01=0x015c}
0x1270e…12722 Head {h00=0x0010, h01=0x0050, text=»I:CH60 EQU *«, t00=0x00bc, t01=0x017a}
0x12722…12754 Head {h00=0x002e, h01=0x002a, text=» SUK A3,2 DECREMENT LINE CONNECTION NUMBER«, t00=0x00bc, t01=0x018e}
0x12754…1276a Head {h00=0x0012, h01=0x000d, text=» RF(N) I:CH70 «, t00=0x00bd, t01=0x0030}
0x1276a…12794 Head {h00=0x0026, h01=0x0022, text=» ADK A4,1 INCREMENT TABLE SELECTOR«, t00=0x00bd, t01=0x0046}
0x12794…127a6 Head {h00=0x000e, h01=0x000a, text=» RB I:CH60«, t00=0x00bd, t01=0x0070}
0x127a6…127ba Head {h00=0x0010, h01=0x0050, text=»I:CH70 EQU *«, t00=0x00bd, t01=0x0082}
0x127ba…127e6 Head {h00=0x0028, h01=0x0024, text=» ORR A5,A4 STORE COMPUTED BITS 12-15«, t00=0x00bd, t01=0x0096}
0x127e6…127f8 Head {h00=0x000e, h01=0x0009, text=» SUK A4,4 «, t00=0x00bd, t01=0x00c2}
0x127f8…1280a Head {h00=0x000e, h01=0x0009, text=» ANK A4,6 «, t00=0x00bd, t01=0x00d4}
0x1280a…1281c Head {h00=0x000e, h01=0x0009, text=» ADK A4,8 «, t00=0x00bd, t01=0x00e6}
0x1281c…1283a Head {h00=0x001a, h01=0x0050, text=» ST A4,SAVE05,A13 SAVE«, t00=0x00bd, t01=0x00f8}
0x1283a…1284e Head {h00=0x0010, h01=0x0050, text=»I:CHPE EQU *«, t00=0x00bd, t01=0x0116}
0x1284e…12866 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00bd, t01=0x012a}
0x12866…1287a Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x00bd, t01=0x0142}
0x1287a…128a6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x00bd, t01=0x0156}
0x128a6…128ba Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bd, t01=0x0182}
0x128ba…128c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00be, t01=0x0008}
0x128c8…12906 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00be, t01=0x0016}
0x12906…12944 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00be, t01=0x0054}
0x12944…12982 Head {h00=0x003a, h01=0x0050, text=»* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ *«, t00=0x00be, t01=0x0092}
0x12982…129c0 Head {h00=0x003a, h01=0x0050, text=»* ================================================ *«, t00=0x00be, t01=0x00d0}
0x129c0…129fe Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00be, t01=0x010e}
0x129fe…12a3c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00be, t01=0x014c}
0x12a3c…12a7a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00be, t01=0x018a}
0x12a7a…12ab8 Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: DWTGEN *«, t00=0x00bf, t01=0x0038}
0x12ab8…12af6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00bf, t01=0x0076}
0x12af6…12b34 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE-DWT *«, t00=0x00bf, t01=0x00b4}
0x12b34…12b72 Head {h00=0x003a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER *«, t00=0x00bf, t01=0x00f2}
0x12b72…12bb0 Head {h00=0x003a, h01=0x0050, text=»* A9 - POINTER TO TDC RECORD *«, t00=0x00bf, t01=0x0130}
0x12bb0…12bee Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00bf, t01=0x016e}
0x12bee…12c2c Head {h00=0x003a, h01=0x0050, text=»* EXIT: A5 - CHANNEL PARAMETER *«, t00=0x00c0, t01=0x001c}
0x12c2c…12c6a Head {h00=0x003a, h01=0x0050, text=»* A6 - LINE ENTRY *«, t00=0x00c0, t01=0x005a}
0x12c6a…12ca8 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00c0, t01=0x0098}
0x12ca8…12ce6 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A4,A5,A6 *«, t00=0x00c0, t01=0x00d6}
0x12ce6…12d24 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00c0, t01=0x0114}
0x12d24…12d62 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00c0, t01=0x0152}
0x12d62…12da0 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00c0, t01=0x0190}
0x12da0…12dde Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00c1, t01=0x003e}
0x12dde…12dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x007c}
0x12dec…12e00 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x00c1, t01=0x008a}
0x12e00…12e2e Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x00c1, t01=0x009e}
0x12e2e…12e48 Head {h00=0x0016, h01=0x0050, text=» RB(G) NUMERR NO! «, t00=0x00c1, t01=0x00cc}
0x12e48…12e76 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >= 01? «, t00=0x00c1, t01=0x00e6}
0x12e76…12e90 Head {h00=0x0016, h01=0x0050, text=» RB(L) NUMERR NO! «, t00=0x00c1, t01=0x0114}
0x12e90…12eba Head {h00=0x0026, h01=0x0050, text=» LDKL A4,INTAS GET ENTRY IN MONTAB«, t00=0x00c1, t01=0x012e}
0x12eba…12eea Head {h00=0x002c, h01=0x0050, text=» LD A2,INTAS TABLE ALREADY INITIALIZED? «, t00=0x00c1, t01=0x0158}
0x12eea…12f04 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BITZ10 YES«, t00=0x00c1, t01=0x0188}
0x12f04…12f32 Head {h00=0x002a, h01=0x0050, text=» ADK A2,ASZLEN FIXED NUMBER OF ENTRIES«, t00=0x00c2, t01=0x0012}
0x12f32…12f4c Head {h00=0x0016, h01=0x0050, text=» ST A2,INTAS SAVE «, t00=0x00c2, t01=0x0040}
0x12f4c…12f7c Head {h00=0x002c, h01=0x0050, text=»BITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY«, t00=0x00c2, t01=0x005a}
0x12f7c…12f8e Head {h00=0x000e, h01=0x0050, text=» RF BITZ30«, t00=0x00c2, t01=0x008a}
0x12f8e…12fa2 Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x00c2, t01=0x009c}
0x12fa2…12fce Head {h00=0x0028, h01=0x0050, text=» CWK A6,0004 CONNECTION NUMBER <= 4?«, t00=0x00c2, t01=0x00b0}
0x12fce…12fe8 Head {h00=0x0016, h01=0x0050, text=» RB(G) NUMERR NO! «, t00=0x00c2, t01=0x00dc}
0x12fe8…13016 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >= 01? «, t00=0x00c2, t01=0x00f6}
0x13016…13030 Head {h00=0x0016, h01=0x0050, text=» RB(L) NUMERR NO! «, t00=0x00c2, t01=0x0124}
0x13030…1305a Head {h00=0x0026, h01=0x0050, text=» LDKL A4,INTSL GET ENTRY IN MONTAB«, t00=0x00c2, t01=0x013e}
0x1305a…1308a Head {h00=0x002c, h01=0x0050, text=» LD A2,INTSL TABLE ALREADY INITIALIZED? «, t00=0x00c2, t01=0x0168}
0x1308a…130a6 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BITZ20 YES! «, t00=0x00c3, t01=0x0008}
0x130a6…130d4 Head {h00=0x002a, h01=0x0050, text=» ADK A2,SCZLEN FIXED NUMBER OF ENTRIES«, t00=0x00c3, t01=0x0024}
0x130d4…130ee Head {h00=0x0016, h01=0x0050, text=» ST A2,INTSL SAVE «, t00=0x00c3, t01=0x0052}
0x130ee…13120 Head {h00=0x002e, h01=0x0050, text=»BITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? «, t00=0x00c3, t01=0x006c}
0x13120…13146 Head {h00=0x0022, h01=0x0050, text=»BITZ30 ADR A2,A5 END OF TABLE «, t00=0x00c3, t01=0x009e}
0x13146…13158 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x00c3, t01=0x00c4}
0x13158…13182 Head {h00=0x0026, h01=0x0050, text=» SLL A6,1 CONVERT TO DISPLACEMENT «, t00=0x00c3, t01=0x00d6}
0x13182…131a2 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A5 SELECT ENTRY «, t00=0x00c3, t01=0x0100}
0x131a2…131d0 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 ANY DEVICES ON THIS LINE? «, t00=0x00c3, t01=0x0120}
0x131d0…131ec Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BITZ40 YES! «, t00=0x00c3, t01=0x014e}
0x131ec…13210 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 GET END OF TABLE «, t00=0x00c3, t01=0x016a}
0x13210…13240 Head {h00=0x002c, h01=0x0050, text=» SUR A3,A6 COMPUTE RELATIVE DISPLACEMENT«, t00=0x00c3, t01=0x018e}
0x13240…13266 Head {h00=0x0022, h01=0x0050, text=» STR A3,A6 STORE IN LINE ENTRY«, t00=0x00c4, t01=0x002e}
0x13266…13288 Head {h00=0x001e, h01=0x0050, text=» LDK A3,6 TABLE INCREMENT «, t00=0x00c4, t01=0x0054}
0x13288…132aa Head {h00=0x001e, h01=0x0050, text=» ADR* A3,A4 UPDATE LENGTH «, t00=0x00c4, t01=0x0076}
0x132aa…132ce Head {h00=0x0020, h01=0x0050, text=» STR A3,A4 STORE NEW LENGTH «, t00=0x00c4, t01=0x0098}
0x132ce…132f2 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A6 GET DISPLACEMENT«, t00=0x00c4, t01=0x00bc}
0x132f2…13328 Head {h00=0x0032, h01=0x0050, text=»BITZ40 ADR A6,A3 GET START OF LINE CONF. TABLE«, t00=0x00c4, t01=0x00e0}
0x13328…13352 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET CHANNEL PARAMETER «, t00=0x00c4, t01=0x0116}
0x13352…13380 Head {h00=0x002a, h01=0x0050, text=» SLC A3,5 DEVICE ADDRESS TO BIT 12-14 «, t00=0x00c4, t01=0x0140}
0x13380…133b6 Head {h00=0x0032, h01=0x0050, text=» ANK A3,6 ONLY DEVICE ADDRESS 1,2 OR 3 ALLOWED«, t00=0x00c4, t01=0x016e}
0x133b6…133da Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 MAKE DISPLACEMENT «, t00=0x00c5, t01=0x0014}
0x133da…1340e Head {h00=0x0030, h01=0x0050, text=» ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE «, t00=0x00c5, t01=0x0038}
0x1340e…13442 Head {h00=0x0030, h01=0x0050, text=» LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER«, t00=0x00c5, t01=0x006c}
0x13442…13464 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 LINE NUMBER 0-15«, t00=0x00c5, t01=0x00a0}
0x13464…13488 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE LINE NUMBER «, t00=0x00c5, t01=0x00c2}
0x13488…134ac Head {h00=0x0020, h01=0x0050, text=» SRL A3,3 SELECT ASCU4Z CARD«, t00=0x00c5, t01=0x00e6}
0x134ac…134d8 Head {h00=0x0028, h01=0x0050, text=» LC A2,TDC+5,A9 GET CONNECTION TYPE «, t00=0x00c5, t01=0x010a}
0x134d8…13500 Head {h00=0x0024, h01=0x0050, text=» CCK A2,'AA' ASCU4Z CONNECTION? «, t00=0x00c5, t01=0x0136}
0x13500…1351a Head {h00=0x0016, h01=0x0050, text=» RF(E) BITZ50 YES «, t00=0x00c5, t01=0x015e}
0x1351a…1353e Head {h00=0x0020, h01=0x0050, text=» LDK A3,3 SALCUZ CONNECTION «, t00=0x00c5, t01=0x0178}
0x1353e…13564 Head {h00=0x0022, h01=0x0050, text=»BITZ50 ADK A3,/C CHANNEL INDEX«, t00=0x00c6, t01=0x000c}
0x13564…1358c Head {h00=0x0024, h01=0x0050, text=» ANK A3,/F ISOLATE CHANNEL INDEX«, t00=0x00c6, t01=0x0032}
0x1358c…135b2 Head {h00=0x0022, h01=0x0050, text=» ANK A4,7 ISOLATE LINE NUMBER «, t00=0x00c6, t01=0x005a}
0x135b2…135d4 Head {h00=0x001e, h01=0x0050, text=» SRC A4,7 MOVE TO BITS 4-6«, t00=0x00c6, t01=0x0080}
0x135d4…13604 Head {h00=0x002c, h01=0x0050, text=» ORR A4,A3 MERGE LINE NO AND CH. PARAM. «, t00=0x00c6, t01=0x00a2}
0x13604…13638 Head {h00=0x0030, h01=0x0050, text=» LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER «, t00=0x00c6, t01=0x00d2}
0x13638…1367a Head {h00=0x003e, h01=0x0050, text=» ANKL A5,/F1F0 GET DATA REQ.,DEV. ADDR. AND INP. DEV. BITS«, t00=0x00c6, t01=0x0106}
0x1367a…136a8 Head {h00=0x002a, h01=0x0050, text=» ORR A5,A4 COMPLETE CHANNEL PARAMETER «, t00=0x00c6, t01=0x0148}
0x136a8…136b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c6, t01=0x0176}
0x136b8…136c6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00c6, t01=0x0186}
0x136c6…136fc (199, 0, 400) Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00c7, t01=0x0004}
0x136fc…13732 Head {h00=0x0032, h01=0x002e, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x00c7, t01=0x003a}
0x13732…13768 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x00c7, t01=0x0070}
0x13768…13772 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c7, t01=0x00a6}
0x13772…13794 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: DWTGEN «, t00=0x00c7, t01=0x00b0}
0x13794…1379e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c7, t01=0x00d2}
0x1379e…137cc Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00c7, t01=0x00dc}
0x137cc…137d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c7, t01=0x010a}
0x137d6…13812 Head {h00=0x0038, h01=0x0034, text=»* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABLES«, t00=0x00c7, t01=0x0114}
0x13812…1381c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c7, t01=0x0150}
0x1381c…13848 Head {h00=0x0028, h01=0x0024, text=»* REGISTER USE: A1 - WORK REGISTER«, t00=0x00c7, t01=0x015a}
0x13848…1386e Head {h00=0x0022, h01=0x001d, text=»* A2 - " «, t00=0x00c7, t01=0x0186}
0x1386e…13894 Head {h00=0x0022, h01=0x001d, text=»* A3 - " «, t00=0x00c8, t01=0x001c}
0x13894…138d6 Head {h00=0x003e, h01=0x0050, text=»* A4 - LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00c8, t01=0x0042}
0x138d6…13904 Head {h00=0x002a, h01=0x0025, text=»* A5 - DEVICE COUNTER «, t00=0x00c8, t01=0x0084}
0x13904…13930 Head {h00=0x0028, h01=0x0023, text=»* A6 - LINE COUNTER «, t00=0x00c8, t01=0x00b2}
0x13930…13966 Head {h00=0x0032, h01=0x0050, text=»* A7 - DISPLACEMENT IN SAVE21 «, t00=0x00c8, t01=0x00de}
0x13966…139aa Head {h00=0x0040, h01=0x003b, text=»* A10- ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00c8, t01=0x0114}
0x139aa…139f6 Head {h00=0x0048, h01=0x0044, text=»* A11- POINTER IN LINE CONF. PART OF REAL INT. TABLE«, t00=0x00c8, t01=0x0158}
0x139f6…13a38 Head {h00=0x003e, h01=0x0039, text=»* A12- LINE ENTRY IN REAL INTERRUPT TABLE «, t00=0x00c9, t01=0x0014}
0x13a38…13a42 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c9, t01=0x0056}
0x13a42…13a58 Head {h00=0x0012, h01=0x000e, text=»* SUBROUTINES«, t00=0x00c9, t01=0x0060}
0x13a58…13a62 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c9, t01=0x0076}
0x13a62…13a70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c9, t01=0x0080}
0x13a70…13a84 Head {h00=0x0010, h01=0x0050, text=»B:ITAB EQU *«, t00=0x00c9, t01=0x008e}
0x13a84…13aba Head {h00=0x0032, h01=0x002d, text=» LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. «, t00=0x00c9, t01=0x00a2}
0x13aba…13ace Head {h00=0x0010, h01=0x0050, text=» LDR A11,A12«, t00=0x00c9, t01=0x00d8}
0x13ace…13af6 Head {h00=0x0024, h01=0x0020, text=» LDK A7,0 RESET POINTER IN IABAT«, t00=0x00c9, t01=0x00ec}
0x13af6…13b0a Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x00c9, t01=0x0114}
0x13b0a…13b1c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00c9, t01=0x0128}
0x13b1c…13b36 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE24,A13 «, t00=0x00c9, t01=0x013a}
0x13b36…13b56 Head {h00=0x001c, h01=0x0050, text=» ST A12,SAVE21,A13 SAVE «, t00=0x00c9, t01=0x0154}
0x13b56…13b8c Head {h00=0x0032, h01=0x002d, text=» ADKL A11,16 INIT POINTER TO LINE CONF. TABLE «, t00=0x00c9, t01=0x0174}
0x13b8c…13b96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ca, t01=0x001a}
0x13b96…13bca Head {h00=0x0030, h01=0x002b, text=»* GET ADDRESS TO TEMPORARY INTERRUPT TABLE «, t00=0x00ca, t01=0x0024}
0x13bca…13bd4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ca, t01=0x0058}
0x13bd4…13bee Head {h00=0x0016, h01=0x0050, text=» LD A10,SAVE10,A13«, t00=0x00ca, t01=0x0062}
0x13bee…13c02 Head {h00=0x0010, h01=0x000b, text=» ADR A10,A7 «, t00=0x00ca, t01=0x007c}
0x13c02…13c18 Head {h00=0x0012, h01=0x000d, text=» LDR* A10,A10 «, t00=0x00ca, t01=0x0090}
0x13c18…13c42 Head {h00=0x0026, h01=0x0050, text=» LDK A6,0 RESET LINE ENTRY POINTER«, t00=0x00ca, t01=0x00a6}
0x13c42…13c56 Head {h00=0x0010, h01=0x0050, text=»BIT20 EQU * «, t00=0x00ca, t01=0x00d0}
0x13c56…13c60 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ca, t01=0x00e4}
0x13c60…13c9c Head {h00=0x0038, h01=0x0050, text=»* SAVE POINTER TO START OF LINE SAVE01URATION TABLE«, t00=0x00ca, t01=0x00ee}
0x13c9c…13ce6 Head {h00=0x0046, h01=0x0050, text=»* IN TEMPORARY AREA AND RESET LENGTH OF LINE SAVE01URATION TABLE «, t00=0x00ca, t01=0x012a}
0x13ce6…13cf0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ca, t01=0x0174}
0x13cf0…13d32 Head {h00=0x003e, h01=0x0050, text=» ST A11,SAVE23,A13 SAVE START OF LINE SAVE01URATION TABLE «, t00=0x00ca, t01=0x017e}
0x13d32…13d64 Head {h00=0x002e, h01=0x0029, text=» LDK A4,0 RESET LENGTH OF LINE CONF.TABLE «, t00=0x00cb, t01=0x0030}
0x13d64…13d6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cb, t01=0x0062}
0x13d6e…13da2 Head {h00=0x0030, h01=0x002d, text=»* INIT POINTER IN TEMPORARY INTERRUPT TABLE«, t00=0x00cb, t01=0x006c}
0x13da2…13dd0 Head {h00=0x002a, h01=0x0026, text=»* TO POINT AT LAST INPUT DEVICE ENTRY«, t00=0x00cb, t01=0x00a0}
0x13dd0…13dda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cb, t01=0x00ce}
0x13dda…13dee Head {h00=0x0010, h01=0x000c, text=» ADKL A10,12«, t00=0x00cb, t01=0x00d8}
0x13dee…13e00 Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00cb, t01=0x00ec}
0x13e00…13e14 Head {h00=0x0010, h01=0x000c, text=» ADKL A11,14«, t00=0x00cb, t01=0x00fe}
0x13e14…13e22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x0112}
0x13e22…13e2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cb, t01=0x0120}
0x13e2c…13e6c Head {h00=0x003c, h01=0x0039, text=»* CHECK INPUT PART OF TEMPORARY INTERUPT TABLE STARTING«, t00=0x00cb, t01=0x012a}
0x13e6c…13e92 Head {h00=0x0022, h01=0x001d, text=»* WITH THE LAST DEVICE ENTRY «, t00=0x00cb, t01=0x016a}
0x13e92…13e9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cb, t01=0x0190}
0x13e9c…13eb0 Head {h00=0x0010, h01=0x0050, text=»BIT30 EQU * «, t00=0x00cc, t01=0x000a}
0x13eb0…13ed4 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00cc, t01=0x001e}
0x13ed4…13eee Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT40 YES «, t00=0x00cc, t01=0x0042}
0x13eee…13f02 Head {h00=0x0010, h01=0x0050, text=»BIT35 EQU * «, t00=0x00cc, t01=0x005c}
0x13f02…13f32 Head {h00=0x002c, h01=0x0028, text=» SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY«, t00=0x00cc, t01=0x0070}
0x13f32…13f4a Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00cc, t01=0x00a0}
0x13f4a…13f54 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cc, t01=0x00b8}
0x13f54…13f94 Head {h00=0x003c, h01=0x0037, text=»* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY «, t00=0x00cc, t01=0x00c2}
0x13f94…13fc8 Head {h00=0x0030, h01=0x002b, text=»* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR «, t00=0x00cc, t01=0x0102}
0x13fc8…13fd2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cc, t01=0x0136}
0x13fd2…14004 Head {h00=0x002e, h01=0x0050, text=» SUKL A10,2 NEXT ENTRY IN TEMP. INT. TABLE«, t00=0x00cc, t01=0x0140}
0x14004…14036 Head {h00=0x002e, h01=0x0050, text=» SUKL A11,2 NEXT ENTRY IN REAL INT. TABLE «, t00=0x00cc, t01=0x0172}
0x14036…14048 Head {h00=0x000e, h01=0x0009, text=» RB BIT30 «, t00=0x00cd, t01=0x0014}
0x14048…14052 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cd, t01=0x0026}
0x14052…1409c Head {h00=0x0046, h01=0x0042, text=»* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED.«, t00=0x00cd, t01=0x0030}
0x1409c…140e4 Head {h00=0x0044, h01=0x0040, text=»* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES)«, t00=0x00cd, t01=0x007a}
0x140e4…14130 Head {h00=0x0048, h01=0x0043, text=»* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. «, t00=0x00cd, t01=0x00c2}
0x14130…1413a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cd, t01=0x010e}
0x1413a…1414e Head {h00=0x0010, h01=0x0050, text=»BIT40 EQU * «, t00=0x00cd, t01=0x0118}
0x1414e…1417c Head {h00=0x002a, h01=0x0025, text=» STR A1,A11 STORE CONTENT IN R. I. T. «, t00=0x00cd, t01=0x012c}
0x1417c…1419e Head {h00=0x001e, h01=0x001a, text=» ADK A4,2 INCREMENT LENGTH«, t00=0x00cd, t01=0x015a}
0x1419e…141c2 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 LAS DEVICE ENTRY? «, t00=0x00cd, t01=0x017c}
0x141c2…141da Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT50 YES«, t00=0x00ce, t01=0x0010}
0x141da…14202 Head {h00=0x0024, h01=0x0020, text=» SUKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00ce, t01=0x0028}
0x14202…1422a Head {h00=0x0024, h01=0x0020, text=» SUKL A11,2 NEXT ENTRY IN R.I.T.«, t00=0x00ce, t01=0x0050}
0x1422a…14258 Head {h00=0x002a, h01=0x0026, text=» LDR* A1,A10 GET CONTENT OF NEXT ENTRY«, t00=0x00ce, t01=0x0078}
0x14258…1426a Head {h00=0x000e, h01=0x0009, text=» RB BIT40 «, t00=0x00ce, t01=0x00a6}
0x1426a…14278 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00ce, t01=0x00b8}
0x14278…1428c Head {h00=0x0010, h01=0x0050, text=»BIT50 EQU * «, t00=0x00ce, t01=0x00c6}
0x1428c…14296 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ce, t01=0x00da}
0x14296…142dc Head {h00=0x0042, h01=0x003e, text=»* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT«, t00=0x00ce, t01=0x00e4}
0x142dc…142fe Head {h00=0x001e, h01=0x001b, text=»* TABLE HAS BEEN SCANNED.«, t00=0x00ce, t01=0x012a}
0x142fe…1433c Head {h00=0x003a, h01=0x0035, text=»* -INIT POINTER TO FIRST ENTRY IN OUTPUT DEVICE PART «, t00=0x00ce, t01=0x014c}
0x1433c…1436a Head {h00=0x002a, h01=0x0025, text=»* OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00ce, t01=0x018a}
0x1436a…1438a Head {h00=0x001c, h01=0x0018, text=»* -INIT DEVICE COUNTER.«, t00=0x00cf, t01=0x0028}
0x1438a…14394 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cf, t01=0x0048}
0x14394…143a8 Head {h00=0x0010, h01=0x000c, text=» ADKL A10,14«, t00=0x00cf, t01=0x0052}
0x143a8…143ba Head {h00=0x000e, h01=0x0009, text=» LDK A5,7 «, t00=0x00cf, t01=0x0066}
0x143ba…143c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cf, t01=0x0078}
0x143c4…14414 Head {h00=0x004c, h01=0x0047, text=»* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. «, t00=0x00cf, t01=0x0082}
0x14414…1443c Head {h00=0x0024, h01=0x001f, text=»* -IF AN OCCUPIED ENTRY OCCUR: «, t00=0x00cf, t01=0x00d2}
0x1443c…1448c Head {h00=0x004c, h01=0x0050, text=»* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION «, t00=0x00cf, t01=0x00fa}
0x1448c…144da Head {h00=0x004a, h01=0x0045, text=»* TABLE OF THE REAL INTERRUPT TABLE AND STORE CONTENT IN THIS ENTRY. «, t00=0x00cf, t01=0x014a}
0x144da…14514 Head {h00=0x0036, h01=0x0050, text=»* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: «, t00=0x00d0, t01=0x0008}
0x14514…14530 Head {h00=0x0018, h01=0x0013, text=»* INCREMENT LENGTH «, t00=0x00d0, t01=0x0042}
0x14530…1453a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x005e}
0x1453a…1454e Head {h00=0x0010, h01=0x0050, text=»BIT70 EQU * «, t00=0x00d0, t01=0x0068}
0x1454e…14572 Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A10 OCCUPIED ENTRY?«, t00=0x00d0, t01=0x007c}
0x14572…1458c Head {h00=0x0016, h01=0x0011, text=» RF(NZ) BIT90 YES «, t00=0x00d0, t01=0x00a0}
0x1458c…145a8 Head {h00=0x0018, h01=0x0014, text=» SUK A5,1 LAST ENTRY«, t00=0x00d0, t01=0x00ba}
0x145a8…145c2 Head {h00=0x0016, h01=0x0011, text=» RF(Z) BIT120 YES «, t00=0x00d0, t01=0x00d6}
0x145c2…145d6 Head {h00=0x0010, h01=0x0050, text=»BIT80 EQU * «, t00=0x00d0, t01=0x00f0}
0x145d6…145f4 Head {h00=0x001a, h01=0x0016, text=» ADKL A10,2 NEXT ENTRY«, t00=0x00d0, t01=0x0104}
0x145f4…14606 Head {h00=0x000e, h01=0x0009, text=» RB BIT70 «, t00=0x00d0, t01=0x0122}
0x14606…1461a Head {h00=0x0010, h01=0x0050, text=»BIT90 EQU * «, t00=0x00d0, t01=0x0134}
0x1461a…14624 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x0148}
0x14624…14674 Head {h00=0x004c, h01=0x004a, text=»* AN OCCUPIED ENTRY IN OUPUT DEVICE PART OF THE TEMPORARU INTERRUPT TAB«, t00=0x00d0, t01=0x0152}
0x14674…146c4 Head {h00=0x004c, h01=0x0050, text=»* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE «, t00=0x00d1, t01=0x0012}
0x146c4…146e8 Head {h00=0x0020, h01=0x001b, text=»* OF REAL INTERRUPT TABLE. «, t00=0x00d1, t01=0x0062}
0x146e8…146f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x0086}
0x146f2…14706 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A11«, t00=0x00d1, t01=0x0090}
0x14706…1471c Head {h00=0x0012, h01=0x000d, text=» RF(Z) BIT100 «, t00=0x00d1, t01=0x00a4}
0x1471c…14730 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x00d1, t01=0x00ba}
0x14730…14742 Head {h00=0x000e, h01=0x0009, text=» RB BIT90 «, t00=0x00d1, t01=0x00ce}
0x14742…14750 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00d1, t01=0x00e0}
0x14750…14764 Head {h00=0x0010, h01=0x0050, text=»BIT100 EQU *«, t00=0x00d1, t01=0x00ee}
0x14764…1476e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x0102}
0x1476e…147b8 Head {h00=0x0046, h01=0x0050, text=»* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATION TABLE.«, t00=0x00d1, t01=0x010c}
0x147b8…147e4 Head {h00=0x0028, h01=0x0024, text=»* -STORE THE CONTENT IN THIS ENTRY.«, t00=0x00d1, t01=0x0156}
0x147e4…14814 Head {h00=0x002c, h01=0x0028, text=»* -UPDATE LENGTH IF TABLE WAS EXTENDED.«, t00=0x00d1, t01=0x0182}
0x14814…1481e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x0022}
0x1481e…14840 Head {h00=0x001e, h01=0x0019, text=» STR A1,A11 STORE CONTENT «, t00=0x00d2, t01=0x002c}
0x14840…1486e Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE23,A13 GET START OF L.C.T. «, t00=0x00d2, t01=0x004e}
0x1486e…14894 Head {h00=0x0022, h01=0x001d, text=» LDR A3,A11 GET CURRENT ENTRY «, t00=0x00d2, t01=0x007c}
0x14894…148b6 Head {h00=0x001e, h01=0x0050, text=» SUR A3,A1 COMPUTE LENGTH «, t00=0x00d2, t01=0x00a2}
0x148b6…148da Head {h00=0x0020, h01=0x001b, text=» CWR A3,A4 L.C.T. EXTENDED? «, t00=0x00d2, t01=0x00c4}
0x148da…148f0 Head {h00=0x0012, h01=0x000e, text=» RF(NG) BIT110«, t00=0x00d2, t01=0x00e8}
0x148f0…14912 Head {h00=0x001e, h01=0x001a, text=» LDR A4,A3 SAVE NEW LENGTH«, t00=0x00d2, t01=0x00fe}
0x14912…14926 Head {h00=0x0010, h01=0x0050, text=»BIT110 EQU *«, t00=0x00d2, t01=0x0120}
0x14926…14944 Head {h00=0x001a, h01=0x0015, text=» SUK A5,1 LAST ENTRY? «, t00=0x00d2, t01=0x0134}
0x14944…1495c Head {h00=0x0014, h01=0x000f, text=» RB(P) BIT80 NO «, t00=0x00d2, t01=0x0152}
0x1495c…14970 Head {h00=0x0010, h01=0x0050, text=»BIT120 EQU *«, t00=0x00d2, t01=0x016a}
0x14970…1497a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x017e}
0x1497a…149ca Head {h00=0x004c, h01=0x004a, text=»* ALL ENTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE«, t00=0x00d2, t01=0x0188}
0x149ca…14a12 Head {h00=0x0044, h01=0x003f, text=»* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE «, t00=0x00d3, t01=0x0048}
0x14a12…14a62 Head {h00=0x004c, h01=0x0050, text=»* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR«, t00=0x00d3, t01=0x0090}
0x14a62…14a6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d3, t01=0x00e0}
0x14a6c…14a92 Head {h00=0x0022, h01=0x001e, text=» LDR A4,A4 ANY ENTRY OCCUPIED?«, t00=0x00d3, t01=0x00ea}
0x14a92…14aaa Head {h00=0x0014, h01=0x0010, text=» RF(Z) BIT130 NO«, t00=0x00d3, t01=0x0110}
0x14aaa…14ada Head {h00=0x002c, h01=0x0050, text=» IM SAVE24,A13 INDICATE DEVICE PRESENT! «, t00=0x00d3, t01=0x0128}
0x14ada…14b0a Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE23,A13 GET POINTER TO L.C.T. «, t00=0x00d3, t01=0x0158}
0x14b0a…14b32 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LINE ENTRY «, t00=0x00d3, t01=0x0188}
0x14b32…14b6a Head {h00=0x0034, h01=0x002f, text=» STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. «, t00=0x00d4, t01=0x0020}
0x14b6a…14b8e Head {h00=0x0020, h01=0x001b, text=» LDR A11,A1 START OF L.C.T. «, t00=0x00d4, t01=0x0058}
0x14b8e…14bc0 Head {h00=0x002e, h01=0x0029, text=» ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. «, t00=0x00d4, t01=0x007c}
0x14bc0…14be4 Head {h00=0x0020, h01=0x001b, text=» ADKL A11,2 NEXT FREE ENTRY «, t00=0x00d4, t01=0x00ae}
0x14be4…14bf6 Head {h00=0x000e, h01=0x000a, text=» RF BIT140«, t00=0x00d4, t01=0x00d2}
0x14bf6…14c04 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00d4, t01=0x00e4}
0x14c04…14c18 Head {h00=0x0010, h01=0x0050, text=»BIT130 EQU *«, t00=0x00d4, t01=0x00f2}
0x14c18…14c22 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x00d4, t01=0x0106}
0x14c22…14c46 Head {h00=0x0020, h01=0x001b, text=»* NO DEVICES ON THIS LINE. «, t00=0x00d4, t01=0x0110}
0x14c46…14c78 Head {h00=0x002e, h01=0x0050, text=»* -NO LINE SAVE01URATION TABLE GENERATED «, t00=0x00d4, t01=0x0134}
0x14c78…14c94 Head {h00=0x0018, h01=0x0014, text=»* -SKIP LENGTH WORD«, t00=0x00d4, t01=0x0166}
0x14c94…14cb8 Head {h00=0x0020, h01=0x001b, text=»* -LINE ENTRY CONTAIN ZERO «, t00=0x00d4, t01=0x0182}
0x14cb8…14cc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d5, t01=0x0016}
0x14cc2…14ce6 Head {h00=0x0020, h01=0x001c, text=» SUKL A11,2 SKIP LENGTH WORD«, t00=0x00d5, t01=0x0020}
0x14ce6…14cfa Head {h00=0x0010, h01=0x0050, text=»BIT140 EQU *«, t00=0x00d5, t01=0x0044}
0x14cfa…14d22 Head {h00=0x0024, h01=0x0020, text=» ADKL A10,2 NEXT ENTRY IN T.I.T.«, t00=0x00d5, t01=0x0058}
0x14d22…14d4a Head {h00=0x0024, h01=0x0020, text=» ADK A6,1 INCREMENT LINE COUNTER«, t00=0x00d5, t01=0x0080}
0x14d4a…14d6e Head {h00=0x0020, h01=0x001c, text=» CWK A6,8 ALL LINES SCANNED?«, t00=0x00d5, t01=0x00a8}
0x14d6e…14d88 Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT150 YES «, t00=0x00d5, t01=0x00cc}
0x14d88…14dac Head {h00=0x0020, h01=0x001b, text=» ADKL A12,2 NEXT LINE ENTRY «, t00=0x00d5, t01=0x00e6}
0x14dac…14dbe Head {h00=0x000e, h01=0x0050, text=» RB BIT20 «, t00=0x00d5, t01=0x010a}
0x14dbe…14dd2 Head {h00=0x0010, h01=0x0050, text=»BIT150 EQU *«, t00=0x00d5, t01=0x011c}
0x14dd2…14ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0130}
0x14ddc…14e16 Head {h00=0x0036, h01=0x0050, text=»* STORE ADDRESS TO THIS INTERRUPT TABLE IN MONTAB«, t00=0x00d5, t01=0x013a}
0x14e16…14e42 Head {h00=0x0028, h01=0x0050, text=»* IF ANY DEVICE PRESENT ON ANY LINE«, t00=0x00d5, t01=0x0174}
0x14e42…14e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0010}
0x14e4c…14e7a Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE24,A13 ANY DEVICE PRESENT? «, t00=0x00d6, t01=0x001a}
0x14e7a…14e94 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT155 NO! «, t00=0x00d6, t01=0x0048}
0x14e94…14eca Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS «, t00=0x00d6, t01=0x0062}
0x14eca…14ee8 Head {h00=0x001a, h01=0x0050, text=» ST A1,INTLT1,A7 SAVE «, t00=0x00d6, t01=0x0098}
0x14ee8…14efa Head {h00=0x000e, h01=0x0050, text=» RF BIT158«, t00=0x00d6, t01=0x00b6}
0x14efa…14f0e Head {h00=0x0010, h01=0x0050, text=»BIT155 EQU *«, t00=0x00d6, t01=0x00c8}
0x14f0e…14f40 Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE21,A13 GET START OF FREE AREA «, t00=0x00d6, t01=0x00dc}
0x14f40…14f54 Head {h00=0x0010, h01=0x0050, text=»BIT158 EQU *«, t00=0x00d6, t01=0x010e}
0x14f54…14f5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d6, t01=0x0122}
0x14f5e…14f9c Head {h00=0x003a, h01=0x0036, text=»* ALL LINES OF THIS INTERRUPT TABLE HAS BEEN SCANNED.«, t00=0x00d6, t01=0x012c}
0x14f9c…14fe8 Head {h00=0x0048, h01=0x0044, text=»* -CHECK IF ALL INTERRUPT TABLES (INTLT1-INTRT4) HAS BEEN GENERATED«, t00=0x00d6, t01=0x016a}
0x14fe8…14ff2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d7, t01=0x0026}
0x14ff2…15016 Head {h00=0x0020, h01=0x001c, text=» ADK A7,2 NEXT ENTRY IN ITAB«, t00=0x00d7, t01=0x0030}
0x15016…15034 Head {h00=0x001a, h01=0x0016, text=» CWK A7,16 LAST ENTRY?«, t00=0x00d7, t01=0x0054}
0x15034…1504e Head {h00=0x0016, h01=0x0011, text=» RF(E) BIT160 YES «, t00=0x00d7, t01=0x0072}
0x1504e…15076 Head {h00=0x0024, h01=0x0020, text=» LDR A12,A11 GET NEXT FREE ENTRY«, t00=0x00d7, t01=0x008c}
0x15076…15088 Head {h00=0x000e, h01=0x0009, text=» RB BIT10 «, t00=0x00d7, t01=0x00b4}
0x15088…1509c Head {h00=0x0010, h01=0x0050, text=»BIT160 EQU *«, t00=0x00d7, t01=0x00c6}
0x1509c…150a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d7, t01=0x00da}
0x150a6…150ee Head {h00=0x0044, h01=0x0040, text=»* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED«, t00=0x00d7, t01=0x00e4}
0x150ee…1512e Head {h00=0x003c, h01=0x0038, text=»* AND ALL THE REAL INTERRUPT TABLES HAS BEEN GENERATED.«, t00=0x00d7, t01=0x012c}
0x1512e…1517c Head {h00=0x004a, h01=0x0045, text=»* POINTERS TO THE REAL INTERRUPT TABLES HAS BEEN INSERTED IN MOXTAB. «, t00=0x00d7, t01=0x016c}
0x1517c…15186 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d8, t01=0x002a}
0x15186…15190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0034}
0x15190…151c6 Head {h00=0x0032, h01=0x0050, text=»* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z «, t00=0x00d8, t01=0x003e}
0x151c6…15206 Head {h00=0x003c, h01=0x0050, text=»* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES«, t00=0x00d8, t01=0x0074}
0x15206…15210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00b4}
0x15210…1523c Head {h00=0x0028, h01=0x0050, text=» LD A3,INTAS ANY ASCU4Z CONNECTION? «, t00=0x00d8, t01=0x00be}
0x1523c…15256 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT180 NO! «, t00=0x00d8, t01=0x00ea}
0x15256…15278 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A11 GET TO-ADDRESS«, t00=0x00d8, t01=0x0104}
0x15278…1529a Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 END OF TO-AREA«, t00=0x00d8, t01=0x0126}
0x1529a…152c4 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE03,A13 GET FROM-ADDRESS«, t00=0x00d8, t01=0x0148}
0x152c4…152d6 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00d8, t01=0x0172}
0x152d6…1530c Head {h00=0x0032, h01=0x0050, text=» ST A2,INTAS STORE ADDRESS TO INTERRUPT TABLE «, t00=0x00d8, t01=0x0184}
0x1530c…15334 Head {h00=0x0024, h01=0x0050, text=» ADK A2,ASZLEN LAST LINE ENTRY+2«, t00=0x00d9, t01=0x002a}
0x15334…15364 Head {h00=0x002c, h01=0x0050, text=»BIT170 SUK A2,2 DECREMENT ENTRY POINTER «, t00=0x00d9, t01=0x0052}
0x15364…15394 Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A2 ANY CONNECTION ON THIS LINE?«, t00=0x00d9, t01=0x0082}
0x15394…153ae Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT175 NO! «, t00=0x00d9, t01=0x00b2}
0x153ae…153d2 Head {h00=0x0020, h01=0x0050, text=» ADRS A2,A2 RELOCATE POINTER«, t00=0x00d9, t01=0x00cc}
0x153d2…15404 Head {h00=0x002e, h01=0x0050, text=»BIT175 CW A2,INTAS ALL POINTERS RELOCATED?«, t00=0x00d9, t01=0x00f0}
0x15404…1541e Head {h00=0x0016, h01=0x0050, text=» RB(NE) BIT170 NO!«, t00=0x00d9, t01=0x0122}
0x1541e…15450 Head {h00=0x002e, h01=0x0050, text=»BIT180 LD A3,INTSL ANY SALCUZ CONNECTION? «, t00=0x00d9, t01=0x013c}
0x15450…1546a Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT200 NO! «, t00=0x00d9, t01=0x016e}
0x1546a…1548c Head {h00=0x001e, h01=0x0050, text=» LDR A2,A11 GET TO-ADDRESS«, t00=0x00d9, t01=0x0188}
0x1548c…154b6 Head {h00=0x0026, h01=0x0050, text=» ADR A11,A3 END OF INTERRUPT TABLE«, t00=0x00da, t01=0x001a}
0x154b6…154e0 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00da, t01=0x0044}
0x154e0…15508 Head {h00=0x0024, h01=0x0050, text=» CALL MOVE MOVE INTERRUPT TABLE «, t00=0x00da, t01=0x006e}
0x15508…1553e Head {h00=0x0032, h01=0x0050, text=» ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE «, t00=0x00da, t01=0x0096}
0x1553e…15566 Head {h00=0x0024, h01=0x0050, text=» ADK A2,SCZLEN LAST LINE ENTRY+2«, t00=0x00da, t01=0x00cc}
0x15566…15596 Head {h00=0x002c, h01=0x0050, text=»BIT190 SUK A2,2 DECREMENT ENTRY POINTER «, t00=0x00da, t01=0x00f4}
0x15596…155c6 Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A2 ANY CONNECTION ON THIS LINE?«, t00=0x00da, t01=0x0124}
0x155c6…155e0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BIT195 NO! «, t00=0x00da, t01=0x0154}
0x155e0…15604 Head {h00=0x0020, h01=0x0050, text=» ADRS A2,A2 RELOCATE POINTER«, t00=0x00da, t01=0x016e}
0x15604…15636 (219, 0, 400) Head {h00=0x002e, h01=0x0050, text=»BIT195 CW A2,INTSL ALL POINTERS RELOCATED?«, t00=0x00db, t01=0x0004}
0x15636…15650 Head {h00=0x0016, h01=0x0050, text=» RB(NE) BIT190 NO!«, t00=0x00db, t01=0x0036}
0x15650…15664 Head {h00=0x0010, h01=0x0050, text=»BIT200 EQU *«, t00=0x00db, t01=0x0050}
0x15664…1567a Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x00db, t01=0x0064}
0x1567a…1568c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00db, t01=0x007a}
0x1568c…156a4 Head {h00=0x0014, h01=0x0050, text=»BIT210 ADK A2,2 «, t00=0x00db, t01=0x008c}
0x156a4…156d2 Head {h00=0x002a, h01=0x0050, text=» CW A2,SCTEFA CHECK IF MEMORY OVERFLOW«, t00=0x00db, t01=0x00a4}
0x156d2…156e8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BIT220«, t00=0x00db, t01=0x00d2}
0x156e8…156fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x00db, t01=0x00e8}
0x156fe…1572a Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x00db, t01=0x00fe}
0x1572a…15744 Head {h00=0x0016, h01=0x0050, text=»BIT220 CWR A2,A11 «, t00=0x00db, t01=0x012a}
0x15744…1575a Head {h00=0x0012, h01=0x0050, text=» RB(NE) BIT210«, t00=0x00db, t01=0x0144}
0x1575a…1578c Head {h00=0x002e, h01=0x0050, text=» ST A13,SCTEFA SKIP TEMP. INTERRUPT TABLE «, t00=0x00db, t01=0x015a}
0x1578c…157bc Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x00db, t01=0x018c}
0x157bc…157d4 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00dc, t01=0x002c}
0x157d4…157e2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00dc, t01=0x0044}
0x157e2…157e6 Head {h00=0x0054, h01=0x0050}
0x157e6…157ea Head {h00=0x2a3d, h01=0x2a3d}
0x157ea…15810 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 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x15810…15860 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 dc 00 52 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 55 42 52 4f 55 54 49 4e 45 53 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES┆
0x15860…158b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 dc 00 aa 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 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆ * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x158b0…15900 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 dc 00 e4 00 04 00 03 00 dc 01 3c 00 04 00 03 00 dc 01 44 00 04 00 03 00 dc 01 4c 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*=*=*=*=*=*=*=*=*=*=*=*= < D L 8 4************************┆
0x15900…15924 2a 2a 2a 2a 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 dc 01 54 00 38 00 34 ┆**************************** T 8 4┆
0x15924…15974 (221, 0, 398) 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 4e 20 41 20 54 41 53 4b 2d 43 4c 41 53 53 20 20 20 2a 00 dc 01 90 00 06 00 50 2a 20 00 dd 00 3c 00 36 00 50 2a 20 20 47 45 54 43 54 43 20 ┆* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC ┆
0x15974…159c4 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 4d 4d 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 43 4c 41 53 53 45 53 20 00 dd 00 46 00 06 00 50 2a 20 00 dd 00 80 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 ┆- GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**********************┆
0x159c4…15a14 2a 2a 2a 2a 2a 2a 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 dd 00 8a 00 06 00 03 2a 20 00 dd 00 c6 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 dd ┆****************************** * " P* REFERENCED IN: B:TCT,B:CDT ┆
0x15a14…15a64 00 d0 00 06 00 03 2a 20 00 dd 00 f6 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 20 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 dd 01 00 00 06 ┆ * > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK ┆
0x15a64…15ab2 00 03 2a 20 00 dd 01 42 00 46 00 41 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 54 48 45 20 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 ┆ * B F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) ┆
0x15ab2…15b02 (222, 0, 400) 00 dd 01 4c 00 06 00 03 2a 20 00 de 00 08 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 de 00 12 00 06 00 03 2a 20 00 de 00 30 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 ┆ L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVR┆
0x15b02…15b52 54 20 00 de 00 3a 00 06 00 03 2a 20 00 de 00 5a 00 10 00 50 47 45 54 54 53 4b 5c 45 51 55 5c 2a 00 de 00 64 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 5c 2a 00 de 00 78 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2c 41 31 31 00 de 00 8c ┆T : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 ┆
0x15b52…15ba2 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 00 de 00 a4 00 16 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2b 31 2c 41 31 31 00 de 00 b6 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 de 00 d0 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 de 00 e4 ┆ SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 ┆
0x15ba2…15bf2 00 0a 00 06 5c 45 4a 45 43 54 00 de 00 f4 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 de 01 02 00 38 00 34 2a 20 ┆ EJECT 8 4**************************************************** 8 4* ┆
0x15bf2…15c42 20 47 45 54 54 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 00 de 01 3e 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 ┆ GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * > 8 4**********************┆
0x15c42…15c92 (223, 0, 400) 2a 2a 2a 2a 2a 2a 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 de 01 7a 00 06 00 03 2a 20 00 df 00 26 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 df 00 30 00 06 00 03 ┆****************************** z * & * REFERENCED IN: B:TT 0 ┆
0x15c92…15ce2 2a 20 00 df 00 50 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 20 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 00 df 00 5a 00 06 00 03 2a 20 00 df ┆* P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * ┆
0x15ce2…15d32 00 9c 00 44 00 40 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 28 42 49 4e 52 59 20 56 41 4c 55 45 29 00 df 00 a6 00 06 00 03 2a 20 ┆ D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * ┆
0x15d32…15d82 00 df 00 ee 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 df 00 f8 00 06 00 03 2a 20 00 df 01 16 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 df 01 20 00 06 00 03 2a 20 ┆ * WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * ┆
0x15d82…15dd2 00 df 01 3e 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 00 df 01 48 00 14 00 10 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 00 df 01 5c 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 00 df 01 74 00 16 00 12 5c 4c 43 5c 41 35 2c 54 44 42 ┆ > PGETTDC EQU * H LC A5,TDBNC,A11 SLL A5,8 t LC A5,TDB┆
0x15dd2…15e22 (224, 0, 400) 4e 43 2b 31 2c 41 31 31 00 df 01 86 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 e0 00 10 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 e0 00 24 00 0a 00 06 5c 45 4a 45 43 54 00 e0 00 34 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3**************┆
0x15e22…15e72 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 e0 00 42 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 ┆************************************* B 8 3* GETSDC - GET NUMBER OF SPECIAL ┆
0x15e72…15ec2 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 20 00 e0 00 7e 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 e0 ┆DEVICE CLASSES * ~ 8 3*************************************************** ┆
0x15ec2…15f12 00 ba 00 06 00 03 2a 20 00 e0 00 f6 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 e0 01 00 00 06 00 03 2a 20 00 e0 01 20 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 ┆ * * REFERENCED IN: B:TT * 4 /* ENTRY: A9 - POINTE┆
0x15f12…15f62 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 e0 01 2a 00 06 00 03 2a 20 00 e0 01 62 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 ┆R TO NUMBER OF SDC RECORD * * b D ?* EXIT: A1 - NUMBER OF SPECIAL DE┆
0x15f62…15fb2 (225, 0, 400) 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 e0 01 6c 00 06 00 03 2a 20 00 e1 00 24 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 e1 00 2e 00 06 00 03 2a 20 00 e1 ┆VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * ┆
0x15fb2…16002 00 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 e1 00 56 00 06 00 03 2a 20 00 e1 00 76 00 10 00 50 47 45 54 53 44 43 5c 45 51 55 5c 2a 00 e1 00 80 00 0e 00 0a 5c 4c 43 52 5c 41 35 2c 41 39 00 e1 ┆ L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 ┆
0x16002…16052 00 94 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 e1 00 a6 00 10 00 0b 5c 4c 43 5c 41 35 2c 31 2c 41 39 20 00 e1 00 b8 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 e1 00 cc 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 e1 00 e0 00 0a 00 06 ┆ P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 ┆
0x16052…160a2 5c 45 4a 45 43 54 00 e1 00 f0 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 e1 00 fe 00 32 00 2e 2a 20 20 47 45 54 43 4c 4e 20 2d 20 ┆ EJECT 2 .********************************************** 2 .* GETCLN - ┆
0x160a2…160f2 47 45 54 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 00 e1 01 34 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 ┆GET CLASS IDENTIFICATION NUMBER * 4 2 .**************************************┆
0x160f2…16142 (226, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 00 e1 01 6a 00 06 00 03 2a 20 00 e2 00 10 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 e2 00 1a 00 06 00 03 2a 20 00 e2 00 3a 00 36 00 32 2a 20 20 45 4e 54 52 59 3a 20 20 41 ┆******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A┆
0x16142…16192 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 52 45 43 4f 52 44 00 e2 00 44 00 06 00 03 2a 20 00 e2 00 7e 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 ┆9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS ID┆
0x16192…161e2 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 00 e2 00 88 00 06 00 03 2a 20 00 e2 00 ca 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 e2 00 d4 00 06 ┆ENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 ┆
0x161e2…16232 00 03 2a 20 00 e2 00 f2 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 e2 00 fc 00 06 00 03 2a 20 00 e2 01 1c 00 10 00 50 47 45 54 43 4c 4e 5c 45 51 55 5c 2a 00 e2 01 26 00 14 00 50 5c 4c 43 5c 41 35 ┆ * * SUBROUTINES: CONVRT * PGETCLN EQU * & P LC A5┆
0x16232…16282 2c 54 44 43 44 44 31 2c 41 39 00 e2 01 3a 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 e2 01 52 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 00 e2 01 64 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 00 e2 01 7c 00 14 00 0f ┆,TDCDD1,A9 : P SLL A5,8 R P LC A5,TDCDD2,A9 d P CALL CONVRT | ┆
0x16282…162d2 (227, 0, 400) 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 e2 01 90 00 0a 00 50 5c 45 4a 45 43 54 00 e3 00 18 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆ RTN A14 RETURN P EJECT . )***************************************** ┆
0x162d2…16322 00 e3 00 26 00 2e 00 29 2a 20 20 47 45 54 4c 43 4e 20 2d 20 47 45 54 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 20 00 e3 00 58 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )**********************┆
0x16322…16372 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 e3 00 8a 00 06 00 02 2a 20 00 e3 00 bc 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 44 57 54 54 20 00 e3 00 c6 00 06 00 03 2a 20 00 e3 00 e8 00 38 ┆******************* * * REFERENCED IN: B:DWTT * 8┆
0x16372…163c2 00 33 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 20 52 45 43 4f 52 44 20 00 e3 00 f2 00 06 00 03 2a 20 00 e3 01 2e 00 3a 00 35 2a 20 20 45 58 49 54 3a ┆ 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * . : 5* EXIT:┆
0x163c2…16412 20 20 20 41 31 20 2d 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 00 e3 01 38 00 06 00 03 2a 20 00 e3 01 76 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 ┆ A1 - LINE CONNECTION NUMBER (BINARY VALUE) 8 * v * WORK REGISTER┆
0x16412…16462 (228, 0, 400) 53 3a 20 20 41 35 00 e3 01 80 00 06 00 03 2a 20 00 e4 00 0e 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 e4 00 18 00 06 00 03 2a 20 00 e4 00 38 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 00 e4 ┆S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * ┆
0x16462…164b2 00 42 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 31 2c 41 39 20 00 e4 00 56 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 e4 00 6e 00 14 00 50 5c 4c 43 5c 41 35 2c 4c 43 4e 44 32 2c 41 39 20 00 e4 00 80 00 10 00 50 5c 43 41 4c 4c 5c 43 4f ┆ B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CO┆
0x164b2…16502 4e 56 52 54 00 e4 00 98 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 e4 00 ac 00 0a 00 50 5c 45 4a 45 43 54 00 e4 00 bc 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 ┆NVRT RTN A14 P EJECT : P**************************************┆
0x16502…16552 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 e4 00 ca 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 e4 ┆*************** : P* * ┆
0x16552…165a2 01 08 00 3a 00 50 2a 20 20 47 45 54 54 43 4c 20 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 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 e4 01 46 00 3a 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ : P* GETTCL - GET TASK CLASS TO MATCH * F : P* =========┆
0x165a2…165f2 (229, 0, 400) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 e4 01 84 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 ┆======================= * : P* ┆
0x165f2…16642 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 e5 00 32 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 ┆ * 2 : P* REFERENCED IN: B:TT ┆
0x16642…16692 20 20 20 20 2a 20 00 e5 00 70 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 e5 00 ae 00 3a 00 50 2a 20 20 45 ┆ * p : P* * : P* E┆
0x16692…166e2 4e 54 52 59 3a 20 20 41 35 20 2d 20 54 43 4c 20 49 4e 20 43 55 52 52 45 4e 54 20 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 20 20 20 20 20 2a 20 00 e5 00 ec 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 ┆NTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* ┆
0x166e2…16732 20 20 20 20 20 20 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 e5 01 2a 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 ┆ * * : P* EXIT: A5 - TCL START VALUE FOR THIS ┆
0x16732…16782 (230, 0, 398) 54 41 53 4b 20 43 4c 41 53 53 20 20 2a 20 00 e5 01 68 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 e6 00 16 ┆TASK CLASS * h : P* * ┆
0x16782…167d2 00 3a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2d 41 37 2c 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 e6 00 54 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : P* WORK REGISTERS: A1-A7,A10 * T : P* ┆
0x167d2…16822 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 e6 00 92 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 ┆ * : P* SUBROUTINES: GETTSK,NXTBLK ┆
0x16822…16872 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 e6 00 d0 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 ┆ * : P* ┆
0x16872…168c0 20 20 2a 20 00 e6 01 0e 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 e6 01 4c 00 04 00 50 00 e6 01 8a ┆ * : P***************************************************** L P ┆
0x168c0…16910 (231, 0, 400) 00 10 00 50 47 45 54 54 43 4c 5c 45 51 55 5c 2a 00 e7 00 04 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 e7 00 18 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 e7 ┆ PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE ┆
0x16910…16960 00 34 00 38 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 31 5c 53 41 56 45 20 50 4f 49 4e 54 45 52 20 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 e7 00 56 00 32 00 50 5c 4c 44 5c 41 31 31 2c 53 41 56 45 30 31 ┆ 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01┆
0x16960…169b0 2c 41 31 33 5c 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 00 e7 00 92 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 ┆,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS S┆
0x169b0…16a00 43 41 4e 4e 45 44 3f 20 00 e7 00 c8 00 16 00 50 5c 52 46 28 45 29 5c 54 43 4c 3a 36 30 5c 59 45 53 21 00 e7 01 00 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 ┆CANNED? P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN ┆
0x16a00…16a50 54 43 4c 20 00 e7 01 1a 00 20 00 50 5c 53 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 e7 01 4c 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 ┆TCL P SLL A5,8 MOVE TO LEFT BYTE L . P LC A5,TDBMC+5,A11 GET SECOND CH┆
0x16a50…16aa0 (232, 0, 400) 41 52 20 49 4e 20 54 43 4c 20 00 e7 01 70 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 e8 00 12 00 16 00 50 5c 52 46 28 4e 45 29 5c 54 43 4c 3a 35 30 5c 4e 4f 21 00 e8 00 2e 00 26 00 50 5c 43 41 4c 4c 5c 47 45 ┆AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GE┆
0x16aa0…16af0 54 54 53 4b 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 20 00 e8 00 48 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 e8 00 72 00 30 00 50 54 43 4c 3a 35 30 5c 43 41 4c 4c 5c 4e 58 ┆TTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NX┆
0x16af0…16b40 54 42 4c 4b 5c 47 45 54 20 4e 45 58 54 20 54 41 53 4b 20 44 45 46 2e 20 42 4c 4f 43 4b 20 00 e8 00 92 00 0e 00 50 5c 52 42 5c 54 43 4c 3a 31 30 00 e8 00 c6 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 ┆TBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE ST┆
0x16b40…16b90 41 52 54 20 56 41 4c 55 45 20 4f 46 20 54 43 4c 00 e8 00 d8 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 e8 01 08 00 0a 00 06 5c 45 4a 45 43 54 00 e8 01 18 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ART VALUE OF TCL P RTN A14 EJECT . )**************************┆
0x16b90…16be0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 e8 01 26 00 2e 00 29 2a 20 20 47 45 54 43 4f 4e 20 2d 20 47 45 54 20 43 4f 4e 54 45 4e 54 20 49 4e 20 4d 45 4d 4f 52 59 20 57 4f 52 44 20 20 2a 20 00 e8 01 58 00 2e 00 29 2a 2a 2a 2a 2a 2a ┆*************** & . )* GETCON - GET CONTENT IN MEMORY WORD * X . )******┆
0x16be0…16c30 (233, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 e8 01 8a 00 06 00 03 2a 20 00 e9 00 2c 00 1e 00 19 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 53 45 47 47 45 4e 20 ┆*********************************** * , * REFERENCED IN: SEGGEN ┆
0x16c30…16c80 00 e9 00 36 00 06 00 03 2a 20 00 e9 00 58 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 e9 00 62 00 2e 00 29 2a 20 20 20 20 20 20 20 20 20 20 4d 4d 55 4f 50 54 20 2d 20 4d 4d 55 20 ┆ 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU ┆
0x16c80…16cd0 4f 50 54 49 4f 4e 20 53 57 49 54 43 48 20 28 58 29 20 00 e9 00 88 00 06 00 03 2a 20 00 e9 00 ba 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 e9 00 c4 ┆OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS ┆
0x16cd0…16d20 00 06 00 03 2a 20 00 e9 00 f4 00 16 00 13 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 3a 20 00 e9 00 fe 00 06 00 03 2a 20 00 e9 01 18 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 00 e9 01 22 00 06 00 03 2a 20 00 e9 01 3a ┆ * * WORK REGISTER: * * SUBROUTINES: " * :┆
0x16d20…16d70 00 10 00 50 47 45 54 43 4f 4e 5c 45 51 55 5c 2a 00 e9 01 44 00 22 00 50 5c 4c 44 5c 41 31 2c 53 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 e9 01 58 00 18 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 4d 4d 55 20 4f 50 54 49 ┆ PGETCON EQU * D " P LD A1,SCTOPT GET OPTION WORD X P ANK A1,1 MMU OPTI┆
0x16d70…16dc0 (234, 0, 400) 4f 4e 00 e9 01 7e 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 ea 00 0a 00 0e 00 0a 5c 45 4c 52 5c 41 31 2c 41 32 00 ea 00 26 00 0e 00 50 5c 52 46 5c 47 43 4f 4e 32 30 00 ea 00 38 00 10 00 50 47 43 4f 4e 31 30 ┆ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10┆
0x16dc0…16e10 5c 45 51 55 5c 2a 00 ea 00 4a 00 10 00 0b 5c 4c 44 52 2a 5c 41 31 2c 41 32 20 00 ea 00 5e 00 10 00 50 47 43 4f 4e 32 30 5c 45 51 55 5c 2a 00 ea 00 72 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 ea 00 86 00 0a 00 06 5c 45 ┆ EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN E┆
0x16e10…16e60 4a 45 43 54 00 ea 00 9e 00 42 00 3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 ea 00 ac 00 42 ┆JECT B >************************************************************** B┆
0x16e60…16eb0 00 3e 2a 20 20 42 49 4e 41 53 43 20 2d 20 43 4f 4e 56 45 52 54 20 41 20 42 49 4e 41 52 59 20 4e 55 4d 42 45 52 20 54 4f 20 41 20 41 53 43 49 49 2d 43 4f 44 45 44 20 4e 55 4d 42 45 52 20 20 2a 00 ea 00 f2 00 06 00 03 2a 20 00 ea 01 38 00 44 ┆ >* BINASC - CONVERT A BINARY NUMBER TO A ASCII-CODED NUMBER * * 8 D┆
0x16eb0…16f00 00 3f 2a 20 20 4e 55 4d 42 45 52 53 20 49 4e 20 54 48 45 20 44 4f 4d 41 49 4e 20 31 2d 39 39 20 4d 41 59 20 42 45 20 43 4f 4e 56 45 52 54 45 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 ea 01 42 00 06 00 03 2a 20 00 ea 01 8a ┆ ?* NUMBERS IN THE DOMAIN 1-99 MAY BE CONVERTED * B * ┆
0x16f00…16f50 (235, 0, 400) 00 42 00 3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 eb 00 04 00 06 00 03 2a 20 00 eb 00 4a ┆ B >************************************************************** * J┆
0x16f50…16fa0 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 eb 00 54 00 06 00 03 2a 20 00 eb 00 76 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 ┆ * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO┆
0x16fa0…16ff0 20 43 4f 4e 56 45 52 54 00 eb 00 80 00 06 00 03 2a 20 00 eb 00 b0 00 30 00 2c 2a 20 20 45 58 49 54 3a 20 20 20 41 35 20 2d 20 54 57 4f 2d 44 49 47 49 54 20 41 53 43 49 49 2d 43 4f 44 45 44 20 4e 55 4d 42 45 52 00 eb 00 ba 00 06 00 03 2a 20 ┆ CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * ┆
0x16ff0…17040 00 eb 00 ee 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 eb 00 f8 00 06 00 03 2a 20 00 eb 01 16 00 14 00 0f 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 00 eb 01 20 00 06 00 03 2a 20 00 eb 01 38 00 10 ┆ * WORK REGISTER: A2 * * SUBROUTINES: * 8 ┆
0x17040…17090 00 50 42 49 4e 41 53 43 5c 45 51 55 5c 2a 00 eb 01 42 00 10 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 eb 01 56 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 00 eb 01 6a 00 10 00 50 5c 4c 43 4b 5c 41 35 2c 27 30 30 27 00 eb 01 7c 00 0e 00 09 ┆ PBINASC EQU * B P LCK A5,'00' V P SLL A5,8 j P LCK A5,'00' | ┆
0x17090…170e0 (236, 0, 398) 5c 4c 44 4b 5c 41 32 2c 30 20 00 eb 01 90 00 0e 00 0a 5c 4c 44 52 5c 41 31 2c 41 31 00 ec 00 12 00 10 00 50 42 49 4e 3a 32 30 5c 45 51 55 5c 2a 00 ec 00 24 00 10 00 0c 5c 52 46 28 5a 29 5c 42 49 4e 45 58 00 ec 00 38 00 0e 00 09 5c 41 44 4b ┆ LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK┆
0x170e0…17130 5c 41 32 2c 31 20 00 ec 00 4c 00 0e 00 0a 5c 43 57 4b 5c 41 32 2c 31 30 00 ec 00 5e 00 12 00 0d 5c 52 46 28 45 29 5c 42 49 4e 3a 33 30 20 00 ec 00 70 00 0e 00 09 5c 53 55 4b 5c 41 31 2c 31 20 00 ec 00 86 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a ┆ A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:┆
0x17130…17180 32 30 00 ec 00 98 00 10 00 50 42 49 4e 3a 33 30 5c 45 51 55 5c 2a 00 ec 00 aa 00 12 00 0e 5c 41 44 4b 4c 5c 41 35 2c 2f 30 31 30 30 00 ec 00 be 00 0e 00 09 5c 4c 44 4b 5c 41 32 2c 30 20 00 ec 00 d4 00 0e 00 09 5c 53 55 4b 5c 41 31 2c 31 20 ┆20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 ┆
0x17180…171d0 00 ec 00 e6 00 0e 00 0a 5c 52 42 5c 42 49 4e 3a 32 30 00 ec 00 f8 00 10 00 50 42 49 4e 45 58 5c 45 51 55 5c 2a 20 00 ec 01 0a 00 0e 00 50 5c 41 44 52 5c 41 35 2c 41 32 00 ec 01 1e 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 ec 01 30 00 0a 00 50 ┆ RB BIN:20 PBINEX EQU * P ADR A5,A2 RTN A14 0 P┆
0x171d0…1721e 5c 45 4a 45 43 54 00 ec 01 40 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ EJECT @ D P****************************************************************┆
0x1721e…1726e (237, 0, 400) 00 ec 01 4e 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 ed 00 08 00 44 00 50 ┆ N D P* START MONITOR SAVE01URATION * D P┆
0x1726e…172be 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ed 00 50 00 10 00 50 43 4f 4e 4d 4f 4e 5c 45 ┆**************************************************************** P PCONMON E┆
0x172be…1730e 51 55 5c 2a 00 ed 00 98 00 28 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 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 00 ed 00 ac 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 46 57 54 5c 42 55 49 4c 44 20 46 49 4c 45 20 57 ┆QU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE W┆
0x1730e…1735e 4f 52 4b 20 54 41 42 4c 45 53 00 ed 00 d8 00 28 00 50 5c 43 41 4c 4c 5c 4d 4f 4e 42 4c 4b 5c 47 45 4e 45 52 41 54 45 20 4d 4f 4e 49 54 4f 52 20 42 4c 4f 43 4b 53 00 ed 01 02 00 1c 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 2b 44 53 4b 50 41 47 ┆ORK TABLES ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF MMUPAG+DSKPAG┆
0x1735e…173ae 3d 30 5c 3d 33 20 00 ed 01 2e 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 ed 01 4e 00 08 00 50 5c 58 49 46 00 ed 01 76 00 12 00 50 5c 49 46 54 5c 53 57 50 42 4c 4b 3d 31 20 ┆=0 =3 . $ P CALL SEGGEN BUILD SEGMENT TABLE N P XIF v P IFT SWPBLK=1 ┆
0x173ae…173fe (238, 0, 400) 00 ed 01 82 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 ee 00 08 00 08 00 50 5c 58 49 46 00 ee 00 3e 00 32 00 50 5c 43 41 4c 4c 5c ┆ 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL ┆
0x173fe…1744e 42 3a 44 4d 54 54 5c 42 55 49 4c 44 20 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 20 54 41 53 4b 20 54 41 42 4c 45 53 00 ee 00 4a 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 ┆B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLE┆
0x1744e…1749e 53 20 00 ee 00 80 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 53 5c 42 55 49 4c 44 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 20 00 ee 00 aa 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 54 5c 42 55 49 ┆S 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUI┆
0x1749e…174ee 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 ee 00 e0 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 49 4c 44 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 53 00 ee 01 16 ┆LD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TABLES ┆
0x174ee…1753e 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 ee 01 44 00 0a 00 50 5c 45 4a 45 43 54 00 ee 01 6e 00 06 00 50 2a 20 00 ee 01 7c 00 26 00 50 2a 20 20 43 48 45 43 4b 20 49 ┆ & P CALL B:ITAB BUILD INTERRUPT TABLE D P EJECT n P* | & P* CHECK I┆
0x1753e…1758e (239, 0, 400) 46 20 41 53 53 45 4d 42 4c 45 52 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 00 ee 01 86 00 06 00 50 2a 20 00 ef 00 20 00 22 00 50 5c 4c 44 5c 41 34 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 ef 00 2a 00 28 00 50 ┆F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P┆
0x1758e…175de 5c 52 46 28 4e 29 5c 53 4c 44 4d 38 30 5c 41 53 53 45 4d 42 4c 45 52 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 00 ef 00 50 00 28 00 50 5c 4c 44 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 53 3a 47 54 41 42 20 ┆ RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB ┆
0x175de…1762e 00 ef 00 7c 00 12 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 3d 31 20 00 ef 00 a8 00 26 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 31 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 50 3a 4d 54 41 42 20 00 ef 00 be 00 24 00 50 5c 4c 44 5c 41 31 2c 32 ┆ | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2┆
0x1762e…1767e 2c 41 31 5c 47 45 54 20 41 50 50 4c 49 43 41 54 4f 4e 20 54 59 50 45 20 00 ef 00 e8 00 14 00 50 5c 4c 44 5c 41 32 2c 49 3a 52 53 54 45 2c 41 33 00 ef 01 10 00 08 00 50 5c 58 49 46 00 ef 01 28 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d ┆,A1 GET APPLICATON TYPE P LD A2,I:RSTE,A3 P XIF ( P IFT MMUPAG=┆
0x1767e…176ce 31 20 00 ef 01 34 00 24 00 50 5c 45 4c 52 5c 41 33 2c 41 31 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 50 3a 4d 54 41 42 00 ef 01 4a 00 24 00 50 5c 45 4c 5c 41 31 2c 32 2c 41 31 5c 47 45 54 20 41 50 50 4c 49 43 41 49 4f 4e 20 54 59 50 ┆1 4 $ P ELR A3,A1 GET ADDRESS TO P:MTAB J $ P EL A1,2,A1 GET APPLICAION TYP┆
0x176ce…1771e (240, 0, 400) 45 20 00 ef 01 72 00 32 00 50 5c 45 4c 5c 41 32 2c 49 3a 52 53 54 45 2c 41 33 5c 47 45 54 20 49 4e 54 45 52 50 52 45 54 45 52 20 52 45 53 54 41 52 54 20 45 4e 54 52 59 00 f0 00 0a 00 08 00 50 5c 58 49 46 00 f0 00 40 00 10 00 50 53 4c 44 4d ┆E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM┆
0x1771e…1776e 37 30 5c 45 51 55 5c 2a 00 f0 00 4c 00 20 00 50 5c 53 54 5c 41 32 2c 53 43 54 49 4f 45 5c 53 41 56 45 20 49 4e 20 53 59 53 54 41 42 00 f0 00 60 00 06 00 50 2a 20 00 f0 00 84 00 22 00 50 2a 20 20 43 48 45 43 4b 20 49 46 20 43 52 45 44 49 54 ┆70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT┆
0x1776e…177be 20 41 50 50 4c 49 43 41 54 49 4f 4e 00 f0 00 8e 00 06 00 50 2a 20 00 f0 00 b4 00 18 00 50 5c 43 57 4b 5c 41 31 2c 27 43 52 27 5c 43 52 45 44 49 54 3f 00 f0 00 be 00 16 00 50 5c 52 46 28 4e 45 29 5c 53 4c 44 4d 38 30 5c 4e 4f 20 00 f0 00 da ┆ APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO ┆
0x177be…1780e 00 12 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 3d 31 20 00 f0 00 f4 00 22 00 50 5c 53 54 5c 41 34 2c 33 34 2c 41 33 5c 53 41 56 45 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 f0 01 0a 00 08 00 50 5c 58 49 46 00 f0 01 30 00 12 00 50 5c 49 46 54 ┆ P IFF MMUPAG=1 " P ST A4,34,A3 SAVE OPTION WORD P XIF 0 P IFT┆
0x1780e…1785e 5c 4d 4d 55 50 41 47 3d 31 20 00 f0 01 3c 00 22 00 50 5c 45 53 5c 41 34 2c 33 34 2c 41 33 5c 53 41 56 45 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 f0 01 52 00 08 00 50 5c 58 49 46 00 f0 01 78 00 10 00 50 53 4c 44 4d 38 30 5c 45 51 55 5c 2a ┆ MMUPAG=1 < " P ES A4,34,A3 SAVE OPTION WORD R P XIF x PSLDM80 EQU *┆
0x1785e…178ae (241, 0, 400) 00 f0 01 84 00 0a 00 50 5c 45 4a 45 43 54 00 f1 00 08 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P EJECT F P**********************************************************┆
0x178ae…178fe 2a 2a 2a 2a 2a 2a 2a 20 00 f1 00 16 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 4f 46 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******* F P* END OF MONITOR SAVE01URATION PART ┆
0x178fe…1794e 2a 20 00 f1 00 60 00 46 00 50 2a 20 20 20 20 20 20 20 2d 43 4f 4e 54 49 4e 55 45 20 57 49 54 48 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 f1 00 aa ┆* ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * ┆
0x1794e…1799e 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 f1 00 f4 00 12 00 50 5c 4c ┆ F P***************************************************************** P L┆
0x1799e…179ee 44 4b 4c 5c 41 38 2c 2f 46 46 46 46 00 f1 01 3e 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 f1 01 54 00 20 00 50 5c 4c 44 52 5c 41 38 2c 41 31 33 5c 47 45 ┆DKL A8,/FFFF > * P ST A8,SCTEFA MODIFY END OF FREE AREA T P LDR A8,A13 GE┆
0x179ee…17a3e (242, 2, 96) 54 20 42 41 53 45 2d 41 44 44 52 45 53 53 00 f1 01 82 00 26 00 50 5c 41 44 4b 4c 5c 41 38 2c 53 59 53 4c 44 58 5c 41 50 50 4c 2e 20 43 4f 4e 46 2e 20 45 4e 54 52 59 20 00 f2 00 16 00 0c 00 50 5c 41 42 52 5c 41 38 20 00 f2 00 40 00 08 00 50 ┆T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P┆
0x17a3e…17a4e 5c 45 4e 44 00 f2 00 50 40 04 00 00 00 f2 00 5c ┆ END P@ ┆
0x17a4e…17a8a (243, 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 f3 00 04 40 04 00 00 00 f3 00 38 ┆ 0 P******************************************** @ 8┆
0x17a8a…17a92 (244, 1, 8) 20 04 00 00 00 f4 00 04 ┆ ┆