|
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: 33256 (0x81e8)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TIODM.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TIODM.SC«
IDENT TIODM REL 11.0 81-02-23 870105041100 =5, REL 11.0 81-02-19 =5, WRONG TASK NBR WHEN COMMIT =4, REL 11.0 81-02-18 =4, ASS.ERR IN FINDTT WHEN TTAB>256 BYTES =3, REL 11.0 81-02-02 =3, RDSTAT DOUBLE DEFINED FOR ADM+EDM =2, REL 11.0 81-01-28 =2, A7 UNCHANGED AT COMMIT =1, REL 11.0 81-01-26 =1, COMMIT ERROR FOR EDM **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIODM = DATA MANAGEMENT ACTIVATION PART * * DMTEND = DATA MANAGEMENT COMMIT (/ROLLBACK) * * * * * **************************************************** * * THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO * AND THE DWTADR IN FDB FOR CURRENT FILE * * THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR * FROM A DISC MUST BE ACCESSED * * ENTRY TIODM AND TIODM HOLDS THE START ADDRESS * * * INPUT A6 = FWT ADDRESS * A7 = ORDER WORD WITH W BIT = 0 * A8 = ECB ADDRESS * * * * IN ALL DM MODULES FDB WILL BE THE SAME AS FWT * EJECT * ************** * ENTRIES * ************** * ENTRY TIODM REFERENCED IN DWTADR ENTRY DMTEND COMMIT ENTRY (SDM,ADM AND EDM) ENTRY DMTTSB DM TTAB STACK BASE ENTRY FDBOMD,FDBENL,FDBEXC,FDBECB,FDBSNR ENTRY FDBRRO,FDBRLE,FDBBLF,FDBTNR,FDBLRN ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA ENTRY FDBBLZ BLOCK SIZE ENTRY FDBDMI DMTASK IDENT ENTRY FDBDBR,FDBMRO ENTRY FDBMEC MMU ECB DISPLACEMENT ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS ENTRY TASHLT,FDBSTA,DWDM01 ENTRY REQER2 ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR ENTRY EOFERR,EDMERR ENTRY TTABD,TTABLN,TABEND ENTRY DMXACD EXIT TASK AND ACTIVATE TASK #D ENTRY DMACTI ENTRY DMACTD ENTRY DWTPAB EDB INITIALIZATION PARAMETER BLOCK ENTRY MOV:SU,MOV:US,FINDTT,FNDFDB ENTRY ENLFAC,TOTSIZ,RTNA14,SETCRO,CONENL ENTRY COSZEN,SIZDIF ENTRY SDMSTS,SDMTTD,SDMBF1,SDMBF2 ENTRY RECBFZ EJECT TIODM * *************** * EXTERNALS * *************** * * EXTRN SCTCDT EXTRN SCTTCT TASK CONTROLL TABLE EXTRN RELPRO RELEASE PROTECTION EXTRN QTJOB EXTRN ACTOT EXTRN EXIT EXTRN PRUN EXTRN DFTAB EXTRN DMTIDP EXTRN DMTIDS EXTRN ECBCW EXTRN FWTVOL EXTRN HALT EXTRN TIOSDM EXTRN TIOADM EXTRN TIOEDM EXTRN TDISP EXTRN DISEND EXTRN TTB:SA,TTB:TD,TTB:ID EXTRN DWTTAB EXTRN CRNGET EXTRN ECBBA EXTRN FPB:FO EXTRN ACTDIS EXTRN DFTABL EXTRN FNDTID EXTRN MPYMOD,DIVMOD,ADDMOD EXTRN FPB:EL,FPB:S1,FPB:BF,FPB:RL EXTRN DV3RST EXTRN CRRBL EXTRN LKMRQE EXTRN TIOECR EDM COMMIT ROLLBACK EXTRN PABORD,PABBA BASE PARAMETER BLOCK DISPLACEMENTS EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * * * IF ADM HANDLING WANTED PUT X:A EQU 1 * X:A EQU 0 ADM EQU X:A * * IF SDM HANDLING NOT WANTED PUT X:B EQU 0 * X:B EQU 0 SDM EQU X:B * * * IF EDM HANDLING WANTED PUT X:C EQU 1 * * X:C EQU 0 EDM EQU X:C * * EJECT TIODM * * * NUMBER OF DM TASKS IS DEFINED BY X:B. * ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED. * ALL OTHER VALUES WILL GIVE 2 TASKS. * X:D EQU 2 NTASKS EQU X:D * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * X:C = INDEX RECORD BUFFER SIZE IN WORDS * X:E EQU 0 RECBFZ EQU X:E * * AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD * IS OBTAINED BY SETTING X:F EQU 0 * X:F EQU 0 CRDEEX EQU X:F * EJECT TIODM * * ******************* * COMBINED * * CONDITIONS * ******************* * IFT ADM+CRDEEX=2 ADMCDE EQU 1 XIF IFF ADM+CRDEEX=2 ADMCDE EQU 0 XIF * IF ADM AND SDM IFT ADM+SDM=2 ADMSDM EQU 1 XIF IFF ADM+SDM=2 ADMSDM EQU 0 XIF * ADMEDM=1 IF ADM AND EDM IFT ADM+EDM=2 ADMEDM EQU 1 XIF IFF ADM+EDM=2 ADMEDM EQU 0 XIF * ADM000=1 IF NOT EDM OR SDM IFT SDM+EDM=0 ADM000 EQU 1 XIF IFF SDM+EDM=0 ADM000 EQU 0 XIF * SDM000=1 IF NOT ADM OR EDM IFT ADM+EDM=0 SDM000 EQU 1 XIF IFF ADM+EDM=0 SDM000 EQU 0 XIF * EDM000=1 IF NOT ADM OR SDM IFT ADM+SDM=0 EDM000 EQU 1 XIF IFF ADM+SDM=0 EDM000 EQU 0 XIF * EJECT * * ERROR CODES * EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS PROT EQU /0040 THIS DATA PROTECTED NODERR EQU /8800 NO EXPECTED DATA KEYERR EQU /8400 EXPECTED KEY NOT FOUND PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS REQERR EQU /8000 GENERAL REQUEST ERROR REQER2 EQU /FFFE REQUEST ERROR LGTERR EQU /0008 INCORRECT LENGTH EDMERR EQU /8080 DATA MANAGEMENT ERROR EOFERR EQU /9000 END OF FILE * * MESSAGES * RETRIE EQU /0100 DISC RETRIES NOKEY EQU /0400 NOT SEARCHED KEY NXTKYS EQU /0200 NEXT KEY SAME EOFRC EQU /1000 END OF FILE * MMTAB1 FORM 16=/0000,16=/0400,16=/0800,16=/0C00 MMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 MMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 MMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 * * CONSTANTS * SIZDIF EQU 10 STCRES EQU 14 TASK STACK SIZE EJECT IFF NTASKS=3 IFF NTASKS=4 IFF NTASKS=5 IFF NTASKS=6 F EQU 0 G EQU 0 H EQU 0 I EQU 0 XIF IFT NTASKS=3 F EQU 1 G EQU 0 H EQU 0 I EQU 0 XIF IFT NTASKS=4 F EQU 1 G EQU 1 H EQU 0 I EQU 0 XIF IFT NTASKS=5 F EQU 1 G EQU 1 H EQU 1 I EQU 0 XIF IFT NTASKS=6 F EQU 1 G EQU 1 H EQU 1 I EQU 1 XIF IFT MMUPAG=0 MMTABL EQU 32 XIF IFT MMUPAG=1 MMTABL EQU 0 XIF EJECT IFT ADM+SDM=0 TTABST EQU * TTABD EQU * TTABLN EQU *-TTABST TABEND EQU * DMTTSB EQU * SDMSTS EQU TTABLN SDMTTD EQU TTABLN SDMBF1 EQU * SDMBF2 EQU * XIF IFF ADM+SDM=0 * *************************** * TTAB:S FOR DM TASKS * ************************* * TTABST EQU * MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABD EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#D' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABDE-* TERMINAL DEVICES TTABTD EQU *-TTABD DATA 0,0 MASTER INDEX ENTRY TTABDE EQU * RES STCRES TASK STACK SDMSTS EQU *-TTABDE-2 DMTTSB EQU *-2-TTABD TTBBF1 EQU *-TTABD RES RECBFZ BUFAR1 TTBBF2 EQU *-TTABD RES RECBFZ BUFAR2 TTABLN EQU *-TTABST SDMTTD EQU TTABTD-DMTTSB SDMBF1 EQU TTBBF1-DMTTSB SDMBF2 EQU TTBBF2-DMTTSB EJECT MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABE EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#E' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABEE-* TERMINAL DEVICES DATA 0,0 MASTER INDEX ENTRY TTABEE EQU * RES STCRES TASK STACK RES RECBFZ+RECBFZ BUFAR1,BUFAR2 IFT F=1 EJECT MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABF EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#F' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABFE-* TERMINAL DEVICES DATA 0,0 MASTER INDEX ENTRY TTABFE EQU * RES STCRES TASK STACK RES RECBFZ+RECBFZ BUFAR1,BUFAR2 IFT G=1 EJECT MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABG EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#G' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABGE-* TERMINAL DEVICES DATA 0,0 MASTER INDEX ENTRY TTABGE EQU * RES STCRES TASK STACK RES RECBFZ+RECBFZ BUFAR1,BUFAR2 IFT H=1 EJECT MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABH EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#H' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABHE-* TERMINAL DEVICES DATA 0,0 MASTER INDEX ENTRY TTABHE EQU * RES STCRES TASK STACK RES RECBFZ+RECBFZ BUFAR1,BUFAR2 IFT I=1 EJECT MMTAB1 MMTAB2 MMTAB3 MMTAB4 RORG *-MMTABL DATA 0 CURRENT SEGMENT BASE DATA 0 SEGMENT TABLE POINTER DATA 0 SEGMENT BLOCK POINTER DATA 0 APPLICATION CONTROL BLOCK POINTER TTABI EQU * DATA 0 DISPATCHER QUEUE LINK DATA '#I' TASK ID DATA 49 TASK LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 DATA 0,0,0,0,0,0,0 A8-A14 DATA TTABIE-* TERMINAL DEVICES DATA 0,0 MASTER INDEX ENTRY TTABIE EQU * RES STCRES TASK STACK RES RECBFZ+RECBFZ BUFAR1,BUFAR2 XIF IFF ADM+SDM=0 TPART1 EQU TTABD-TTABST TABEND EQU *+TPART1 XIF EJECT * * FDB OFFSET DEFINITIONS * FDBSTA EQU * DWDM01 EQU * DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD IFT MMUPAG=1 DATA 0,FDBMMU SPECIAL DWT ITEMS XIF DWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI DATA 0,0,0,0,0,0,0 IFT EDM000+MMUPAG=2 FDBMMU EQU * XIF * FWT PART DATA 0,0,0,0,0,0,0 IFF ADM+SDM=0 IFT MMUPAG=1 FDBMMU EQU * DATA 0,0,0,0,0,0,0 MMU ECB XIF IFF ADM+SDM=0 DATA 0,0,0,0,0,0,0 FDBECB DATA 0,0,0,0,0 IFT SDM=1 DATA 0,0,0,0,0,0,0 DATA 0,0,FDBSTA,0,0 DATA 0,0,0,0,0 XIF * EJECT * * IFT MMUPAG=0 START1 EQU 44 XIF IFT MMUPAG=1 START1 EQU 62 XIF FDBMEC EQU START1-14 FDBECB EQU START1 ECB START FDBOMD EQU START1+14 OPEN MODE FDBLRN EQU START1+15 LAST RECORD NUMBER FDBRLE EQU START1+18 RECORD LENGTH FDBENL EQU START1+20 ENLARGE FACTOR FDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR FDBSNR EQU START1+24 SECTOR NUMBER FDBRRO EQU START1+28 RELATIVE RECORD OFFSET FDBBLF EQU START1+30 BLOCKING FACTOR FDBTNR EQU START1+31 TASK NUMBER CALLING TASK FDBNIF EQU START1+32 NO OF INDEX FILES FDBBLZ EQU START1+33 NR OF SECTORS IN BLOCK FDBEAL EQU START1+34 EA LINK ROOT FDBCRL EQU START1+36 CRN LINK ROOT FDBKA EQU START1+38 KEY ADDRESS IN DATA FILE FDBMIA EQU START1+40 ADDRESS OF MASTER INDEX FDBADF EQU START1+42 ADDRESS OF DATA FILE FDB FDBAI1 EQU START1+44 ADDRESS OF INDEX FILE FDB FDBDBR EQU START1+52 DELAY,BASIC AND REL BUFFER FLAGS FDBDMI EQU START1+53 RELATIVE DMTASK ID FDBMRO EQU START1+54 MAX FDBRRO FDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC * EJECT TIODM * * CRN BUFFER OFFSET DEFINITIONS * CRNTID EQU 2 TASK ID CRNSTA EQU 3 CURRENT STATUS CRNCDF EQU 4 CURRENT DATA FILE * * * * **************************** * * * DRIVER ADDRESS BLOCK * * * **************************** * * DATA 0 DATA MANAGEMENT DEVICE INDEX TIODM DATA TIODM0 ACTIVATION ADDRESS EJECT TIODM * * TIODM0 EQU * IFF ADM+SDM=0 LDKL A14,FDBECB ADKL A14,ECBCW ADR A14,A6 STACK BASE ADK A7,0 RF(NZ) TDM100 NOT READ STATUS IFT ADM=1 LD A1,DWTTAB,A6 USER TTAB ADDRESS LDR* A2,A8 ANK A2,/FF FILE CODE LDK A5,0 CF A14,FNDFDB GET FC ENTRY ADDRESS LCR A4,A4 GET STATUS XIF IFT ADM+SDM=2 CWK A6,FDBSTA RF(E) RDST10 FILE NOT OPENED LD A1,FDBOMD,A6 RF(NN) RDST50 S-FILE RF RDSTAT X,L-FILE RDST10 EQU * ANK A4,/FF RF(NZ) RDSTAT L,X-FILE RDST50 EQU * XIF IFT ADMEDM=1 CWK A6,FDBSTA RF(E) RDST10 OPEN LD A1,FDBOMD,A6 RF(NN) TDM150 S-FILE RF RDSTAT RDST10 EQU * ANK A4,/FF RF(Z) TDM150 NO STATUS * =3 XIF IFT SDM=1 LDR A11,A6 FDB ADDRESS CF A14,CRNGET GET CURRENCY LC A4,CRNSTA,A2 XIF RDSTAT EQU * =3 IFF ADM+SDM=0 EJECT * =3 ANK A4,/FF ST A4,ECBCW,A8 RETURN STATUS CM ECBCW+2,A8 LDK A1,0 RET CODE OK ABL DISEND END IO XIF * EJECT TIODM * TDM100 EQU * IFF ADMSDM+ADMEDM=0 CWK A6,FDBSTA RF(E) TDM200 OPEN LD A1,FDBOMD,A6 RF(N) TDM300 L,X-FILE XIF TDM150 EQU * IFT SDM=1 ABL TIOSDM S-FILE XIF IFT EDM=1 ABL TIOEDM S-FILE XIF IFF ADMSDM+ADMEDM=0 TDM200 EQU * LD A1,ECBBA,A8 GET FDB ADDRESS IFT MMUPAG=0 LC A1,FPB:FO,A1 FILE ORGANISATION XIF IFF ADMSDM+ADMEDM=0 IFT MMUPAG=1 EL A1,FPB:FO+7,A1 XIF IFF ADMSDM+ADMEDM=0 ANK A1,/FF SUK A1,1 RB(NP) TDM150 S-FILE,I-FILE TDM300 EQU * XIF IFT ADM=1 ABL TIOADM L,X-FILE XIF EJECT TIODM * * ********** * DMACTI * * DMACTD * ********** * * ACTIVATE ADM AND/OR SDM TASK * * INPUT : A2 = DISPATCH ADDRESS * A6 = FDB ADDRESS * DMACTI EQU * IFF ADM+SDM=0 LC A7,FWTVOL,A6 GET FILE CODE ANK A7,/FF LDK A3,0 DMAC10 EQU * ADK A3,1 CC A7,DFTAB-1,A3 RB(NE) DMAC10 CHECK NEXT FILE CODE LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER CF A15,FINDTT RF(Z) TASHLT TTAB NOT FOUND LD A1,TTB:SA,A5 RF(Z) DMAC50 TASK FREE LC A7,DMTIDS-1,A3 SECONDARY TASK ANK A7,/FF CF A15,FINDTT RF(Z) TASHLT TTAB NOT FOUND DMAC50 EQU * LDR A1,A6 FDB ADDRESS CF A15,ACTOT ACTIVATE DM TASK ABL TDISP EJECT TIODM * * DMACTD EQU * ACTIVATE DM TASK #D LDKL A5,TTABD RB DMAC50 XIF * * ABNORMAL SYSTEM ERROR * TASHLT EQU * LDK A1,/11 CF A15,HALT * EJECT TIODM * * ********** * DMXACD * ********** * * EXIT RUNNING TASK AND ACTIVATE DM TASK #D * * * INPUT: A8=DISPATCH ADDRESS * A6=FDB ADDRESS * DMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D IFF SDM+ADM=0 LD A5,PRUN RUNNING TASK ID INH CF A15,EXIT CM PRUN LDR A2,A8 DISPATCH ADDRESS RB DMACTD XIF * EJECT TIODM * * ********** * DMTEND * ********** * * COMMIT ENTRY * ENTERED BY * LKM * DATA 16 * * DMTEND EQU * IFT EDM=0 IFT SDM=1 LDR A6,A5 SAVE USER TTAB ADDRESS LDR A3,A7 ORDER CODE =2 ANK A3,/7F =2 RF(NZ) DMTERR ERROR: ORDER NOT ALLOWED LD A3,SCTTCT TCTAB ADDRESS DMTE10 EQU * ADK A3,2 POINTER CWR* A5,A3 ENTRY IN TABLE RB(NE) DMTE10 TRY NEXT SU A3,SCTTCT RELATIVE TASK NUMBER * SUK A3,2 =5 SRL A3,1 LDKL A14,STACK CF A14,RELPRO DMTE40 EQU * LDR A5,A6 TTAB USER ST A7,TTB:SA+14,A5 RET CODE IN A7 INH CF A15,QTJOB RESTART USER ABL TDISP DMTERR EQU * REQUEST ERROR LDKL A7,REQER2 RB DMTE40 RETURN * DATA 0,0,0 STACK DATA 0 4 WORDS * XIF IFT EDM=1 LDR A6,A5 SAVE TTAB USER =1 LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1 AD A1,TTB:TD,A1 DEVICE TABLE LENGTH ADKL A1,TTB:TD BASE PARAMETER BLOCK ADDRESS LDR* A2,A1 OR A2,2,A1 ORDER WORD ABL(NZ) LKMRQE OTHER REQUEST BUSY LDKL A2,/100 COMMIT ROLLBACK ACTIVATION STR A2,A1 ST A7,PABORD,A1 ORDER WORD ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS LDKL A7,'$E' EDM TASK ID ABL TIOECR ACTIVATE EDM TASK * * XIF IFT ADM000=1 CM TTB:SA+14,A5 RETURN CODE INH CF A15,QTJOB ABL TDISP XIF EJECT *************************************************************************** * C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * *************************************************************************** * * * * ********************************* * SUBROUTINES NOT IN SYSTEM * ******************************** * IFT ADM+SDM=0 DMACTD EQU * FNDFDB EQU * MOV:US EQU * MOV:SU EQU * FINDTT EQU * RTNA14 EQU * SETCRO EQU * XIF IFF SDM=1 CASZEN EQU * COSZEN EQU * XIF IFT SDM+ADMCDE=0 ENLFAC EQU * CONENL EQU * TOTSIZ EQU * XIF RB TASHLT SYSGEN ERROR * * * EJECT TIODM IFF ADM+SDM=0 ****DESCRIPTION************************************* * * FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE * ****ENTRY PARAMETERS******************************** * * A1 = TTAB ADDR * A2 = FILE CODE TO SEARCH FOR * A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED * ****EXIT PARAMETERS********************************* * * A1 = UNCHANGED * A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND * A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND * A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB * ****USED REGISTERS********************************** * * A1-A5 * ****************************************************** EJECT ********** * FNDFDB * ********** FNDFDB EQU * LD A3,TTB:TD,A1 LENGTH DEV DESCR FND030 EQU * SUK A3,4 RF(NP) FND040 FILE CODE NOT IN TTAB LDR A4,A1 ADKL A4,TTB:TD ADR A4,A3 CC A2,1,A4 RB(NE) FND030 LDK A5,1 RF FND080 CODE FOUND IN TTAB EJECT * * SEARCH FILE CODE IN SCTCDT * FND040 EQU * LDR A5,A5 RF(NZ) FND060 ONLY TTAB IS SEACHED LD* A4,SCTCDT FND050 EQU * SUK A4,4 RF(NP) FND060 CODE NOT FOUND AT ALL LD A3,SCTCDT ADR A3,A4 CC A2,1,A3 RB(NE) FND050 AD A4,SCTCDT RF FND080 CODE FOUND FND060 EQU * LDK A2,0 NO CODE FND080 EQU * RTN A14 EJECT * * MOVE BLOCK AND MOVE CONSTANTS * MOVTIS EQU 0 TASK ID SENDING TASK MOVTIR EQU 2 TASK ID RECEIVING TASK MOVBAS EQU 4 BUFFER ADDRESS SENDING TASK MOVBAR EQU 6 BUFFER ADDRESS RECEIVING TASK MOVLEN EQU 8 NUMBER OF BYTES TO MOVE * MOVSAV EQU 10 SAVE AREA MOVBLK EQU * DATA 0,0 DATA 0,0 DATA 0 * DATA 0 EJECT ********** * MOV:US * ********** * * M O V : U S * * THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO * THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA * ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. * * INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) * A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) * A3 = NUMBER OF BYTES TO BE MOVED * A4 = USER TTAB ADDRESS * * OUTPUT: A4=DESTROYED * MOV:US EQU * LD A4,TTB:ID,A4 TASK ID ST A4,MOVTIS+MOVBLK LDKL A4,'#M' DESTINATION TASK ID ST A4,MOVTIR+MOVBLK RF MOVCOM EJECT TIODM ********** * MOV:SU * ********** * * M O V : S U * * THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO * THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA * ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. * * INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) * A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) * A3 = NUMBER OF BYTES TO BE MOVED * A4 = USER TTAB ADDRESS * * OUTPUT: A4=DESTROYED * MOV:SU EQU * LD A4,TTB:ID,A4 TASK ID DESTINATION TASK ST A4,MOVTIR+MOVBLK LDKL A4,'#M' TASK ID SOURCE TASK ST A4,MOVTIS+MOVBLK EJECT MOVCOM EQU * ENB ST A7,MOVSAV+MOVBLK SAVE A7 LDKL A7,MOVBLK ST A1,MOVBAS,A7 ST A2,MOVBAR,A7 DESTINATION ADDRESS ST A3,MOVLEN,A7 LENGTH TO MOVE LKM DATA 21 LD A7,MOVSAV,A7 SAVED REGISTER RTN A14 EJECT ********** * FINDTT * ********** * * FIND TTAB ADDRESS * * ENTRY: A7=TASK NUMBER 0-5 * * EXIT: A5=TTAB ADDRESS * A5=0 TTAB NOT FOUND CR=0 * A7=-1 * FINDTT EQU * LDR A7,A7 RF(N) NFOUND ILLEGAL TASK NUMBER LDKL A5,TTABD ADDRESS TO TASK 0 FIND10 EQU * SUK A7,1 RF(N) FINEND TASK FOUND ADKL A5,TTABLN POINTER TO NEXT TTAB =4 CWK A5,TABEND RB(NE) FIND10 NOT LAST TTAB NFOUND EQU * LDK A5,0 INDICATE TTAB NOT FOUND FINEND EQU * ADKL A15,4 LDR A5,A5 SET CR ABR* A15 XIF EJECT TIODM * IFF SDM+ADMCDE=0 * ********** * ENLFAC * ********** * * GET ENLARGE FACTOR AND CONVERT TO SECTORS * * INPUT : A12=FPB ADDRESS * A4=NUMBER OF SECTORS PER BLOCK * OUTPUT: A1= RC * A4=NUMBER OF SECTORS PER BLOCK * A3= ENLARGE IN NUMBER OF SECTORS * A2,A5,A6,A7 ARE USED * ENLFAC EQU * ST A13,-8,A14 SAVE A13 CF A14,TOTSIZ GET TOTAL LENGTH OF FILE RF(O) SETCRO OVERFLOW LDR A3,A2 CONVERT PERCENTAGE LD A6,FPB:EL,A12 ENLARGE RF(N) SETCRO OVERFLOW LDR A7,A1 RF(Z) ENLF30 CF A14,MPYMOD ADK A1,0 RF(NZ) SETCRO OVERFLOW LD A6,FPB:EL,A12 ENLARGE LDR A5,A2 * EJECT TIODM * * ENLF30 EQU * LDK A2,0 LDR A7,A3 RF(Z) ENLF40 ZERO CF A14,MPYMOD ENLF40 EQU * ADR A1,A5 RF(O) SETCRO OVERFLOW LDK A6,100 CF A14,DIVMOD NUMBER OF SECTORS RF(O) SETCRO OVERFLOW ADK A1,0 RF(Z) ENLF45 NO REST ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE ENLF45 EQU * LDK A1,0 RESET REST LDR A3,A2 ENLARGE IN NUMBER OF SECTORS LDR A6,A4 NUMBER OF SECTORS PER RECORD CF A14,DIVMOD ADK A1,0 RF(Z) ENLF60 REST=0,INCLUDING ENLARGE=0 SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS ENLF50 EQU * ADR A3,A4 ONE MORE BLOCK RF(NP) SETCRO OVERFLOW ENLF60 EQU * LDR A2,A3 LDK A1,0 CF A14,DV3RST RB(NZ) ENLF50 NOT MULTIPLE OF 3 LD A13,-8,A14 SAVED REGISTER RF RTNA14 EJECT TIODM * * ********** * CONENL * ********** * * CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE * * CONENL EQU * CF A14,TOTSIZ GET TOTAL SIZE OF FILE LDR A3,A1 SAVE TOTAL SIZE LDR A4,A2 LD A6,FDBENL,A11 ENLARGE IN SECTORS LDK A7,100 CF A14,MPYMOD SLN A3,A5 NORMALIZE BEFORE DIVIDE NGR A5,A5 ADK A5,15 RF(NP) CON400 NO NEED TO NORMALIZE CON200 EQU * SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT SRL A2,1 SRC A1,1 RF(NN) CON300 BIT NOT SET ANKL A1,/7FFF ORKL A2,/4000 SET BIT CON300 EQU * SUK A5,1 RB(P) CON200 CONTINUE TO SHIFT EJECT CON400 EQU * ORR A3,A4 LDR A6,A3 CF A14,DIVMOD ENLARGE IN PERCENT ST A2,FPB:EL,A12 SAVE ENLARGE RTN A14 EJECT TIODM * * ********** * TOTSIZ * ********** * * CALCULATE TOTAL SIZE OF FILE * * INPUT : A12 = FPB ADDRESS * OUTPUT: A1,A2=TOTAL SIZE OF FILE * A13 = ADDRESS TO LAST SIZE + DIFFFERENCE IN SIZE DISPLACEMENT * A5 = 0 * A6,A7 ARE USED * TOTSIZ EQU * LDR A13,A12 ADKL A13,FPB:S1 ADDRESS TO SIZE LDK A5,4 COUNTER LDK A1,0 LDK A2,0 TOTS10 EQU * LDR* A6,A13 GET SIZE LD A7,2,A13 CF A14,ADDMOD SUM OF SIZES RF(O) SETCRO OVERFLOW ADKL A13,SIZDIF NEXT SIZE SUK A5,1 RB(P) TOTS10 ADD NEXT XIF EJECT IFF ADM+SDM=0 ********** * RTNA14 * ********** * * SET CONDITION AND RETURN * RTNA14 EQU * ADKL A14,4 NGR A1,A1 NGR A1,A1 ABR* A14 ********** * SETCRO * ********** * * SET OVERFLOW AND RETURN * SETCRO EQU * LDKL A1,/8000 RB RTNA14 XIF EJECT IFT SDM=1 ********** * COSZEN * ********** * * COSZEN=CONVERT SIZE TO NBR OF RECORS AND ENLARGE TO PERCENTAGE * * ENTRY: A12=FPB ADDRESS * A11=FDB ADDRESS * * EXIT : SIZE AND ENLARGE UPADTED IN FPB * A1,A2,A3,A4,A5,A6,A7,A13=USED * COSZEN EQU * CF A14,CONENL CONVERT ENLARGE FACTOR * * CONVERT SIZE * LDK A5,4 NUMBER OF VOLUMES LDR A13,A12 FPB ADDRESS ADKL A13,FPB:S1 POINTER TO SIZE 1 EJECT COS100 EQU * LDR* A1,A13 LD A2,2,A13 A1,A2=SIZE (SECTORS) LC A6,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) ANK A6,/FF CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 RB(O) SETCRO OVERFLOW LDR A6,A2 LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK) ANK A7,/FF CF A14,MPYMOD A6*A7=A1,A2 STR A1,A13 ST A2,2,A13 A1,A2=SIZE IN RECORDS ADKL A13,SIZDIF SUK A5,1 RB(P) COS100 NEXT SIZE RTN A14 XIF * * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TIODM REL 11.0 81-02-23 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…005c Head {h00=0x001c, h01=0x0050, text=» =5, REL 11.0 81-02-19«, t00=0x0000, t01=0x0040}
0x005c…0086 Head {h00=0x0026, h01=0x0050, text=» =5, WRONG TASK NBR WHEN COMMIT «, t00=0x0000, t01=0x0060}
0x0086…00a6 Head {h00=0x001c, h01=0x0050, text=» =4, REL 11.0 81-02-18«, t00=0x0000, t01=0x008a}
0x00a6…00da Head {h00=0x0030, h01=0x0050, text=» =4, ASS.ERR IN FINDTT WHEN TTAB>256 BYTES«, t00=0x0000, t01=0x00aa}
0x00da…00fa Head {h00=0x001c, h01=0x0050, text=» =3, REL 11.0 81-02-02«, t00=0x0000, t01=0x00de}
0x00fa…012a Head {h00=0x002c, h01=0x0050, text=» =3, RDSTAT DOUBLE DEFINED FOR ADM+EDM«, t00=0x0000, t01=0x00fe}
0x012a…014a Head {h00=0x001c, h01=0x0050, text=» =2, REL 11.0 81-01-28«, t00=0x0000, t01=0x012e}
0x014a…0170 Head {h00=0x0022, h01=0x0050, text=» =2, A7 UNCHANGED AT COMMIT «, t00=0x0000, t01=0x014e}
0x0170…0190 Head {h00=0x001c, h01=0x0050, text=» =1, REL 11.0 81-01-26«, t00=0x0000, t01=0x0174}
0x0190…01b4 (1, 0, 400) Head {h00=0x0020, h01=0x0050, text=» =1, COMMIT ERROR FOR EDM «, t00=0x0001, t01=0x0004}
0x01b4…01f0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0028}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…0222 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x006e}
0x0222…022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0260 Head {h00=0x0030, h01=0x0050, text=»* TIODM = DATA MANAGEMENT ACTIVATION PART«, t00=0x0001, t01=0x00a0}
0x0260…026a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x026a…02a2 Head {h00=0x0034, h01=0x0050, text=»* DMTEND = DATA MANAGEMENT COMMIT (/ROLLBACK)«, t00=0x0001, t01=0x00de}
0x02a2…02ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…0310 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0148}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0360 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO«, t00=0x0001, t01=0x018e}
0x0360…0392 Head {h00=0x002e, h01=0x0050, text=»* AND THE DWTADR IN FDB FOR CURRENT FILE«, t00=0x0002, t01=0x0044}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03e8 Head {h00=0x0048, h01=0x0050, text=»* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR «, t00=0x0002, t01=0x0080}
0x03e8…0410 Head {h00=0x0024, h01=0x0050, text=»* FROM A DISC MUST BE ACCESSED«, t00=0x0002, t01=0x00cc}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x041a…045a Head {h00=0x003c, h01=0x0050, text=»* ENTRY TIODM AND TIODM HOLDS THE START ADDRESS«, t00=0x0002, t01=0x00fe}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…046e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046e…0492 Head {h00=0x0020, h01=0x0050, text=»* INPUT A6 = FWT ADDRESS«, t00=0x0002, t01=0x0152}
0x0492…04c4 Head {h00=0x002e, h01=0x0050, text=»* A7 = ORDER WORD WITH W BIT = 0«, t00=0x0002, t01=0x0176}
0x04c4…04e8 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0003, t01=0x0018}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f2…04fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0540 Head {h00=0x0036, h01=0x0050, text=»* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT «, t00=0x0003, t01=0x005a}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0094}
0x054a…0558 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x009e}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0562…0578 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x00b6}
0x0578…058e Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0003, t01=0x00cc}
0x058e…05a4 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x00e2}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05ae…05d8 Head {h00=0x0026, h01=0x0050, text=» ENTRY TIODM REFERENCED IN DWTADR «, t00=0x0003, t01=0x0102}
0x05d8…060c Head {h00=0x0030, h01=0x0050, text=» ENTRY DMTEND COMMIT ENTRY (SDM,ADM AND EDM)«, t00=0x0003, t01=0x012c}
0x060c…0634 Head {h00=0x0024, h01=0x0050, text=» ENTRY DMTTSB DM TTAB STACK BASE«, t00=0x0003, t01=0x0160}
0x0634…0666 Head {h00=0x002e, h01=0x0050, text=» ENTRY FDBOMD,FDBENL,FDBEXC,FDBECB,FDBSNR «, t00=0x0003, t01=0x0188}
0x0666…0698 Head {h00=0x002e, h01=0x0050, text=» ENTRY FDBRRO,FDBRLE,FDBBLF,FDBTNR,FDBLRN «, t00=0x0004, t01=0x002a}
0x0698…06d0 Head {h00=0x0034, h01=0x0050, text=» ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF «, t00=0x0004, t01=0x005c}
0x06d0…06fa Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA«, t00=0x0004, t01=0x0094}
0x06fa…071c Head {h00=0x001e, h01=0x0050, text=» ENTRY FDBBLZ BLOCK SIZE «, t00=0x0004, t01=0x00be}
0x071c…073e Head {h00=0x001e, h01=0x0050, text=» ENTRY FDBDMI DMTASK IDENT«, t00=0x0004, t01=0x00e0}
0x073e…075a Head {h00=0x0018, h01=0x0050, text=» ENTRY FDBDBR,FDBMRO«, t00=0x0004, t01=0x0102}
0x075a…0784 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBMEC MMU ECB DISPLACEMENT«, t00=0x0004, t01=0x011e}
0x0784…07be Head {h00=0x0036, h01=0x0050, text=» ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0004, t01=0x0148}
0x07be…07e2 Head {h00=0x0020, h01=0x0050, text=» ENTRY TASHLT,FDBSTA,DWDM01 «, t00=0x0004, t01=0x0182}
0x07e2…07f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY REQER2 «, t00=0x0005, t01=0x0016}
0x07f8…082e Head {h00=0x0032, h01=0x0050, text=» ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR«, t00=0x0005, t01=0x002c}
0x082e…085e Head {h00=0x002c, h01=0x0050, text=» ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR «, t00=0x0005, t01=0x0062}
0x085e…087a Head {h00=0x0018, h01=0x0050, text=» ENTRY EOFERR,EDMERR«, t00=0x0005, t01=0x0092}
0x087a…089c Head {h00=0x001e, h01=0x0050, text=» ENTRY TTABD,TTABLN,TABEND«, t00=0x0005, t01=0x00ae}
0x089c…08d0 Head {h00=0x0030, h01=0x0050, text=» ENTRY DMXACD EXIT TASK AND ACTIVATE TASK #D«, t00=0x0005, t01=0x00d0}
0x08d0…08e6 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMACTI «, t00=0x0005, t01=0x0104}
0x08e6…08fc Head {h00=0x0012, h01=0x0050, text=» ENTRY DMACTD «, t00=0x0005, t01=0x011a}
0x08fc…0934 Head {h00=0x0034, h01=0x0050, text=» ENTRY DWTPAB EDB INITIALIZATION PARAMETER BLOCK«, t00=0x0005, t01=0x0130}
0x0934…095e Head {h00=0x0026, h01=0x0050, text=» ENTRY MOV:SU,MOV:US,FINDTT,FNDFDB«, t00=0x0005, t01=0x0168}
0x095e…0990 (6, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ENTRY ENLFAC,TOTSIZ,RTNA14,SETCRO,CONENL «, t00=0x0006, t01=0x0004}
0x0990…09ac Head {h00=0x0018, h01=0x0050, text=» ENTRY COSZEN,SIZDIF«, t00=0x0006, t01=0x0036}
0x09ac…09d6 Head {h00=0x0026, h01=0x0050, text=» ENTRY SDMSTS,SDMTTD,SDMBF1,SDMBF2«, t00=0x0006, t01=0x0052}
0x09d6…09ec Head {h00=0x0012, h01=0x0050, text=» ENTRY RECBFZ «, t00=0x0006, t01=0x007c}
0x09ec…0a02 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0006, t01=0x0092}
0x0a02…0a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a8}
0x0a0c…0a24 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00b2}
0x0a24…0a3c Head {h00=0x0014, h01=0x0050, text=»* EXTERNALS * «, t00=0x0006, t01=0x00ca}
0x0a3c…0a54 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00e2}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a68…0a7e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTCDT «, t00=0x0006, t01=0x010e}
0x0a7e…0aa8 Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROLL TABLE «, t00=0x0006, t01=0x0124}
0x0aa8…0ad0 Head {h00=0x0024, h01=0x0050, text=» EXTRN RELPRO RELEASE PROTECTION«, t00=0x0006, t01=0x014e}
0x0ad0…0ae4 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0006, t01=0x0176}
0x0ae4…0af8 Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0006, t01=0x018a}
0x0af8…0b0c Head {h00=0x0010, h01=0x0050, text=» EXTRN EXIT «, t00=0x0007, t01=0x000e}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» EXTRN PRUN «, t00=0x0007, t01=0x0022}
0x0b20…0b34 Head {h00=0x0010, h01=0x0050, text=» EXTRN DFTAB«, t00=0x0007, t01=0x0036}
0x0b34…0b4a Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIDP «, t00=0x0007, t01=0x004a}
0x0b4a…0b60 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIDS «, t00=0x0007, t01=0x0060}
0x0b60…0b74 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0007, t01=0x0076}
0x0b74…0b8a Head {h00=0x0012, h01=0x0050, text=» EXTRN FWTVOL «, t00=0x0007, t01=0x008a}
0x0b8a…0b9e Head {h00=0x0010, h01=0x0050, text=» EXTRN HALT «, t00=0x0007, t01=0x00a0}
0x0b9e…0bb4 Head {h00=0x0012, h01=0x0050, text=» EXTRN TIOSDM «, t00=0x0007, t01=0x00b4}
0x0bb4…0bca Head {h00=0x0012, h01=0x0050, text=» EXTRN TIOADM «, t00=0x0007, t01=0x00ca}
0x0bca…0be0 Head {h00=0x0012, h01=0x0050, text=» EXTRN TIOEDM «, t00=0x0007, t01=0x00e0}
0x0be0…0bf4 Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0007, t01=0x00f6}
0x0bf4…0c0a Head {h00=0x0012, h01=0x0050, text=» EXTRN DISEND «, t00=0x0007, t01=0x010a}
0x0c0a…0c2e Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA,TTB:TD,TTB:ID «, t00=0x0007, t01=0x0120}
0x0c2e…0c44 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTTAB «, t00=0x0007, t01=0x0144}
0x0c44…0c5a Head {h00=0x0012, h01=0x0050, text=» EXTRN CRNGET «, t00=0x0007, t01=0x015a}
0x0c5a…0c6e Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0007, t01=0x0170}
0x0c6e…0c84 Head {h00=0x0012, h01=0x0050, text=» EXTRN FPB:FO «, t00=0x0007, t01=0x0184}
0x0c84…0c9a Head {h00=0x0012, h01=0x0050, text=» EXTRN ACTDIS «, t00=0x0008, t01=0x000a}
0x0c9a…0cb0 Head {h00=0x0012, h01=0x0050, text=» EXTRN DFTABL «, t00=0x0008, t01=0x0020}
0x0cb0…0cc6 Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDTID «, t00=0x0008, t01=0x0036}
0x0cc6…0cea Head {h00=0x0020, h01=0x0050, text=» EXTRN MPYMOD,DIVMOD,ADDMOD «, t00=0x0008, t01=0x004c}
0x0cea…0d14 Head {h00=0x0026, h01=0x0050, text=» EXTRN FPB:EL,FPB:S1,FPB:BF,FPB:RL«, t00=0x0008, t01=0x0070}
0x0d14…0d2a Head {h00=0x0012, h01=0x0050, text=» EXTRN DV3RST «, t00=0x0008, t01=0x009a}
0x0d2a…0d3e Head {h00=0x0010, h01=0x0050, text=» EXTRN CRRBL«, t00=0x0008, t01=0x00b0}
0x0d3e…0d54 Head {h00=0x0012, h01=0x0050, text=» EXTRN LKMRQE «, t00=0x0008, t01=0x00c4}
0x0d54…0d7e Head {h00=0x0026, h01=0x0050, text=» EXTRN TIOECR EDM COMMIT ROLLBACK «, t00=0x0008, t01=0x00da}
0x0d7e…0dbc Head {h00=0x003a, h01=0x0050, text=» EXTRN PABORD,PABBA BASE PARAMETER BLOCK DISPLACEMENTS«, t00=0x0008, t01=0x0104}
0x0dbc…0dca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0142}
0x0dca…0dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd4…0df4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x015a}
0x0df4…0e14 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x017a}
0x0e14…0e34 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x000a}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003e}
0x0e52…0e82 Head {h00=0x002c, h01=0x0050, text=»* IF ADM HANDLING WANTED PUT X:A EQU 1«, t00=0x0009, t01=0x0048}
0x0e82…0e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0078}
0x0e8c…0e9e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0009, t01=0x0082}
0x0e9e…0eb2 Head {h00=0x0010, h01=0x0050, text=»ADM EQU X:A «, t00=0x0009, t01=0x0094}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0ef0 Head {h00=0x0030, h01=0x0050, text=»* IF SDM HANDLING NOT WANTED PUT X:B EQU 0«, t00=0x0009, t01=0x00b2}
0x0ef0…0efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e6}
0x0efa…0f0c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x00f0}
0x0f0c…0f20 Head {h00=0x0010, h01=0x0050, text=»SDM EQU X:B «, t00=0x0009, t01=0x0102}
0x0f20…0f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0116}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f34…0f64 Head {h00=0x002c, h01=0x0050, text=»* IF EDM HANDLING WANTED PUT X:C EQU 1«, t00=0x0009, t01=0x012a}
0x0f64…0f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f6e…0f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0164}
0x0f78…0f8a Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0009, t01=0x016e}
0x0f8a…0f9e Head {h00=0x0010, h01=0x0050, text=»EDM EQU X:C «, t00=0x0009, t01=0x0180}
0x0f9e…0fa8 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa8…0fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000e}
0x0fb2…0fc8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x000a, t01=0x0018}
0x0fc8…0fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x0fd2…0fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0038}
0x0fdc…100c Head {h00=0x002c, h01=0x0050, text=»* NUMBER OF DM TASKS IS DEFINED BY X:B. «, t00=0x000a, t01=0x0042}
0x100c…1040 Head {h00=0x0030, h01=0x0050, text=»* ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED.«, t00=0x000a, t01=0x0072}
0x1040…106e Head {h00=0x002a, h01=0x0050, text=»* ALL OTHER VALUES WILL GIVE 2 TASKS. «, t00=0x000a, t01=0x00a6}
0x106e…1078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x1078…108a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x000a, t01=0x00de}
0x108a…10a0 Head {h00=0x0012, h01=0x0050, text=»NTASKS EQU X:D«, t00=0x000a, t01=0x00f0}
0x10a0…10d2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x0106}
0x10d2…1100 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0138}
0x1100…110a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x110a…111e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000a, t01=0x0170}
0x111e…1128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1128…115e Head {h00=0x0032, h01=0x0050, text=»* X:C = INDEX RECORD BUFFER SIZE IN WORDS«, t00=0x000a, t01=0x018e}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1168…117a Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000b, t01=0x003e}
0x117a…1190 Head {h00=0x0012, h01=0x0050, text=»RECBFZ EQU X:E«, t00=0x000b, t01=0x0050}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0066}
0x119a…11e6 Head {h00=0x0048, h01=0x0050, text=»* AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD «, t00=0x000b, t01=0x0070}
0x11e6…1210 Head {h00=0x0026, h01=0x0050, text=»* IS OBTAINED BY SETTING X:F EQU 0«, t00=0x000b, t01=0x00bc}
0x1210…121a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…122c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000b, t01=0x00f0}
0x122c…1242 Head {h00=0x0012, h01=0x0050, text=»CRDEEX EQU X:F«, t00=0x000b, t01=0x0102}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124c…1262 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x000b, t01=0x0122}
0x1262…126c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126c…1276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1276…1292 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000b, t01=0x014c}
0x1292…12ae Head {h00=0x0018, h01=0x0050, text=»* COMBINED * «, t00=0x000b, t01=0x0168}
0x12ae…12ca Head {h00=0x0018, h01=0x0050, text=»* CONDITIONS * «, t00=0x000b, t01=0x0184}
0x12ca…12e6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0010}
0x12e6…12f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002c}
0x12f0…130a Head {h00=0x0016, h01=0x0050, text=» IFT ADM+CRDEEX=2 «, t00=0x000c, t01=0x0036}
0x130a…131e Head {h00=0x0010, h01=0x0050, text=»ADMCDE EQU 1«, t00=0x000c, t01=0x0050}
0x131e…132a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0064}
0x132a…1344 Head {h00=0x0016, h01=0x0050, text=» IFF ADM+CRDEEX=2 «, t00=0x000c, t01=0x0070}
0x1344…1358 Head {h00=0x0010, h01=0x0050, text=»ADMCDE EQU 0«, t00=0x000c, t01=0x008a}
0x1358…1364 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x009e}
0x1364…137c Head {h00=0x0014, h01=0x0050, text=»* IF ADM AND SDM«, t00=0x000c, t01=0x00aa}
0x137c…1392 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=2«, t00=0x000c, t01=0x00c2}
0x1392…13a6 Head {h00=0x0010, h01=0x0050, text=»ADMSDM EQU 1«, t00=0x000c, t01=0x00d8}
0x13a6…13b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00ec}
0x13b2…13c8 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=2«, t00=0x000c, t01=0x00f8}
0x13c8…13dc Head {h00=0x0010, h01=0x0050, text=»ADMSDM EQU 0«, t00=0x000c, t01=0x010e}
0x13dc…13e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0122}
0x13e8…140a Head {h00=0x001e, h01=0x0050, text=»* ADMEDM=1 IF ADM AND EDM «, t00=0x000c, t01=0x012e}
0x140a…1420 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+EDM=2«, t00=0x000c, t01=0x0150}
0x1420…1434 Head {h00=0x0010, h01=0x0050, text=»ADMEDM EQU 1«, t00=0x000c, t01=0x0166}
0x1434…1440 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x017a}
0x1440…1456 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+EDM=2«, t00=0x000c, t01=0x0186}
0x1456…146a Head {h00=0x0010, h01=0x0050, text=»ADMEDM EQU 0«, t00=0x000d, t01=0x000c}
0x146a…1476 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0020}
0x1476…149a Head {h00=0x0020, h01=0x0050, text=»* ADM000=1 IF NOT EDM OR SDM«, t00=0x000d, t01=0x002c}
0x149a…14b0 Head {h00=0x0012, h01=0x0050, text=» IFT SDM+EDM=0«, t00=0x000d, t01=0x0050}
0x14b0…14c4 Head {h00=0x0010, h01=0x0050, text=»ADM000 EQU 1«, t00=0x000d, t01=0x0066}
0x14c4…14d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x007a}
0x14d0…14e6 Head {h00=0x0012, h01=0x0050, text=» IFF SDM+EDM=0«, t00=0x000d, t01=0x0086}
0x14e6…14fa Head {h00=0x0010, h01=0x0050, text=»ADM000 EQU 0«, t00=0x000d, t01=0x009c}
0x14fa…1506 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00b0}
0x1506…152a Head {h00=0x0020, h01=0x0050, text=»* SDM000=1 IF NOT ADM OR EDM«, t00=0x000d, t01=0x00bc}
0x152a…1540 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+EDM=0«, t00=0x000d, t01=0x00e0}
0x1540…1554 Head {h00=0x0010, h01=0x0050, text=»SDM000 EQU 1«, t00=0x000d, t01=0x00f6}
0x1554…1560 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x010a}
0x1560…1576 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+EDM=0«, t00=0x000d, t01=0x0116}
0x1576…158a Head {h00=0x0010, h01=0x0050, text=»SDM000 EQU 0«, t00=0x000d, t01=0x012c}
0x158a…1596 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0140}
0x1596…15ba Head {h00=0x0020, h01=0x0050, text=»* EDM000=1 IF NOT ADM OR SDM«, t00=0x000d, t01=0x014c}
0x15ba…15d0 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x000d, t01=0x0170}
0x15d0…15e4 Head {h00=0x0010, h01=0x0050, text=»EDM000 EQU 1«, t00=0x000d, t01=0x0186}
0x15e4…15f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x000a}
0x15f0…1606 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x000e, t01=0x0016}
0x1606…161a Head {h00=0x0010, h01=0x0050, text=»EDM000 EQU 0«, t00=0x000e, t01=0x002c}
0x161a…1626 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0040}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1630…163e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0056}
0x163e…1648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1648…1660 Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x000e, t01=0x006e}
0x1660…166a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x166a…1698 Head {h00=0x002a, h01=0x0050, text=»EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS«, t00=0x000e, t01=0x0090}
0x1698…16c2 Head {h00=0x0026, h01=0x0050, text=»PROT EQU /0040 THIS DATA PROTECTED«, t00=0x000e, t01=0x00be}
0x16c2…16ec Head {h00=0x0026, h01=0x0050, text=»NODERR EQU /8800 NO EXPECTED DATA «, t00=0x000e, t01=0x00e8}
0x16ec…171c Head {h00=0x002c, h01=0x0050, text=»KEYERR EQU /8400 EXPECTED KEY NOT FOUND «, t00=0x000e, t01=0x0112}
0x171c…1752 Head {h00=0x0032, h01=0x0050, text=»PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS «, t00=0x000e, t01=0x0142}
0x1752…1780 Head {h00=0x002a, h01=0x0050, text=»REQERR EQU /8000 GENERAL REQUEST ERROR«, t00=0x000e, t01=0x0178}
0x1780…17a6 Head {h00=0x0022, h01=0x0050, text=»REQER2 EQU /FFFE REQUEST ERROR«, t00=0x000f, t01=0x0016}
0x17a6…17d0 Head {h00=0x0026, h01=0x0050, text=»LGTERR EQU /0008 INCORRECT LENGTH «, t00=0x000f, t01=0x003c}
0x17d0…17fe Head {h00=0x002a, h01=0x0050, text=»EDMERR EQU /8080 DATA MANAGEMENT ERROR«, t00=0x000f, t01=0x0066}
0x17fe…1822 Head {h00=0x0020, h01=0x0050, text=»EOFERR EQU /9000 END OF FILE«, t00=0x000f, t01=0x0094}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182c…1840 Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x000f, t01=0x00c2}
0x1840…184a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d6}
0x184a…1870 Head {h00=0x0022, h01=0x0050, text=»RETRIE EQU /0100 DISC RETRIES «, t00=0x000f, t01=0x00e0}
0x1870…1898 Head {h00=0x0024, h01=0x0050, text=»NOKEY EQU /0400 NOT SEARCHED KEY«, t00=0x000f, t01=0x0106}
0x1898…18be Head {h00=0x0022, h01=0x0050, text=»NXTKYS EQU /0200 NEXT KEY SAME«, t00=0x000f, t01=0x012e}
0x18be…18e2 Head {h00=0x0020, h01=0x0050, text=»EOFRC EQU /1000 END OF FILE «, t00=0x000f, t01=0x0154}
0x18e2…18ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0178}
0x18ec…1924 Head {h00=0x0034, h01=0x0050, text=»MMTAB1 FORM 16=/0000,16=/0400,16=/0800,16=/0C00 «, t00=0x000f, t01=0x0182}
0x1924…195c Head {h00=0x0034, h01=0x0050, text=»MMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 «, t00=0x0010, t01=0x002a}
0x195c…1994 Head {h00=0x0034, h01=0x0050, text=»MMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 «, t00=0x0010, t01=0x0062}
0x1994…19cc Head {h00=0x0034, h01=0x0050, text=»MMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 «, t00=0x0010, t01=0x009a}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d6…19ea Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS «, t00=0x0010, t01=0x00dc}
0x19ea…19f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f0}
0x19f4…1a0a Head {h00=0x0012, h01=0x0050, text=»SIZDIF EQU 10 «, t00=0x0010, t01=0x00fa}
0x1a0a…1a30 Head {h00=0x0022, h01=0x0050, text=»STCRES EQU 14 TASK STACK SIZE «, t00=0x0010, t01=0x0110}
0x1a30…1a3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0136}
0x1a3e…1a54 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=3 «, t00=0x0010, t01=0x0144}
0x1a54…1a6a Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=4 «, t00=0x0010, t01=0x015a}
0x1a6a…1a80 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=5 «, t00=0x0010, t01=0x0170}
0x1a80…1a96 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=6 «, t00=0x0010, t01=0x0186}
0x1a96…1aa6 Head {h00=0x000c, h01=0x0050, text=»F EQU 0 «, t00=0x0011, t01=0x000c}
0x1aa6…1ab6 Head {h00=0x000c, h01=0x0050, text=»G EQU 0 «, t00=0x0011, t01=0x001c}
0x1ab6…1ac6 Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x002c}
0x1ac6…1ad6 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x003c}
0x1ad6…1ae2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x004c}
0x1ae2…1af8 Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=3 «, t00=0x0011, t01=0x0058}
0x1af8…1b08 Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x006e}
0x1b08…1b18 Head {h00=0x000c, h01=0x0050, text=»G EQU 0 «, t00=0x0011, t01=0x007e}
0x1b18…1b28 Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x008e}
0x1b28…1b38 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x009e}
0x1b38…1b44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00ae}
0x1b44…1b5a Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=4 «, t00=0x0011, t01=0x00ba}
0x1b5a…1b6a Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x00d0}
0x1b6a…1b7a Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0011, t01=0x00e0}
0x1b7a…1b8a Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x00f0}
0x1b8a…1b9a Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x0100}
0x1b9a…1ba6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0110}
0x1ba6…1bbc Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=5 «, t00=0x0011, t01=0x011c}
0x1bbc…1bcc Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x0132}
0x1bcc…1bdc Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0011, t01=0x0142}
0x1bdc…1bec Head {h00=0x000c, h01=0x0050, text=»H EQU 1 «, t00=0x0011, t01=0x0152}
0x1bec…1bfc Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x0162}
0x1bfc…1c08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0172}
0x1c08…1c1e Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=6 «, t00=0x0011, t01=0x017e}
0x1c1e…1c2e (18, 0, 398) Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0012, t01=0x0004}
0x1c2e…1c3e Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0012, t01=0x0014}
0x1c3e…1c4e Head {h00=0x000c, h01=0x0050, text=»H EQU 1 «, t00=0x0012, t01=0x0024}
0x1c4e…1c5e Head {h00=0x000c, h01=0x0050, text=»I EQU 1 «, t00=0x0012, t01=0x0034}
0x1c5e…1c6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0044}
0x1c6a…1c80 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0050}
0x1c80…1c96 Head {h00=0x0012, h01=0x0050, text=»MMTABL EQU 32 «, t00=0x0012, t01=0x0066}
0x1c96…1ca2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x007c}
0x1ca2…1cb8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0088}
0x1cb8…1ccc Head {h00=0x0010, h01=0x0050, text=»MMTABL EQU 0«, t00=0x0012, t01=0x009e}
0x1ccc…1cd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00b2}
0x1cd8…1ce6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00be}
0x1ce6…1cfc Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x0012, t01=0x00cc}
0x1cfc…1d10 Head {h00=0x0010, h01=0x0050, text=»TTABST EQU *«, t00=0x0012, t01=0x00e2}
0x1d10…1d24 Head {h00=0x0010, h01=0x0050, text=»TTABD EQU * «, t00=0x0012, t01=0x00f6}
0x1d24…1d40 Head {h00=0x0018, h01=0x0050, text=»TTABLN EQU *-TTABST «, t00=0x0012, t01=0x010a}
0x1d40…1d54 Head {h00=0x0010, h01=0x0050, text=»TABEND EQU *«, t00=0x0012, t01=0x0126}
0x1d54…1d68 Head {h00=0x0010, h01=0x0050, text=»DMTTSB EQU *«, t00=0x0012, t01=0x013a}
0x1d68…1d82 Head {h00=0x0016, h01=0x0050, text=»SDMSTS EQU TTABLN «, t00=0x0012, t01=0x014e}
0x1d82…1d9c Head {h00=0x0016, h01=0x0050, text=»SDMTTD EQU TTABLN «, t00=0x0012, t01=0x0168}
0x1d9c…1db0 Head {h00=0x0010, h01=0x0050, text=»SDMBF1 EQU *«, t00=0x0012, t01=0x0182}
0x1db0…1dc4 Head {h00=0x0010, h01=0x0050, text=»SDMBF2 EQU *«, t00=0x0013, t01=0x0008}
0x1dc4…1dd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x001c}
0x1dd0…1de6 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0013, t01=0x0028}
0x1de6…1df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1df0…1e14 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0013, t01=0x0048}
0x1e14…1e36 Head {h00=0x001e, h01=0x0050, text=»* TTAB:S FOR DM TASKS * «, t00=0x0013, t01=0x006c}
0x1e36…1e58 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0013, t01=0x008e}
0x1e58…1e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b0}
0x1e62…1e76 Head {h00=0x0010, h01=0x0050, text=»TTABST EQU *«, t00=0x0013, t01=0x00ba}
0x1e76…1e86 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0013, t01=0x00ce}
0x1e86…1e96 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0013, t01=0x00de}
0x1e96…1ea6 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0013, t01=0x00ee}
0x1ea6…1eb6 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0013, t01=0x00fe}
0x1eb6…1ecc Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0013, t01=0x010e}
0x1ecc…1ef0 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0013, t01=0x0124}
0x1ef0…1f16 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0013, t01=0x0148}
0x1f16…1f3c Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0013, t01=0x016e}
0x1f3c…1f6e (20, 0, 400) Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0014, t01=0x0004}
0x1f6e…1f76 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0036}
0x1f76…1f8a Head {h00=0x0010, h01=0x0050, text=»TTABD EQU * «, t00=0x0014, t01=0x003e}
0x1f8a…1fb0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0014, t01=0x0052}
0x1fb0…1fca Head {h00=0x0016, h01=0x0050, text=» DATA '#D' TASK ID«, t00=0x0014, t01=0x0078}
0x1fca…1fe6 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0014, t01=0x0092}
0x1fe6…2006 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0014, t01=0x00ae}
0x2006…201e Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0014, t01=0x00ce}
0x201e…203e Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0014, t01=0x00e6}
0x203e…2072 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0014, t01=0x0106}
0x2072…2094 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0014, t01=0x013a}
0x2094…20bc Head {h00=0x0024, h01=0x0050, text=» DATA TTABDE-* TERMINAL DEVICES «, t00=0x0014, t01=0x015c}
0x20bc…20d6 Head {h00=0x0016, h01=0x0050, text=»TTABTD EQU *-TTABD«, t00=0x0014, t01=0x0184}
0x20d6…20fa Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0015, t01=0x000e}
0x20fa…210e Head {h00=0x0010, h01=0x0050, text=»TTABDE EQU *«, t00=0x0015, t01=0x0032}
0x210e…212c Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0015, t01=0x0046}
0x212c…214a Head {h00=0x001a, h01=0x0050, text=»SDMSTS EQU *-TTABDE-2 «, t00=0x0015, t01=0x0064}
0x214a…2166 Head {h00=0x0018, h01=0x0050, text=»DMTTSB EQU *-2-TTABD«, t00=0x0015, t01=0x0082}
0x2166…2180 Head {h00=0x0016, h01=0x0050, text=»TTBBF1 EQU *-TTABD«, t00=0x0015, t01=0x009e}
0x2180…219a Head {h00=0x0016, h01=0x0050, text=» RES RECBFZ BUFAR1«, t00=0x0015, t01=0x00b8}
0x219a…21b4 Head {h00=0x0016, h01=0x0050, text=»TTBBF2 EQU *-TTABD«, t00=0x0015, t01=0x00d2}
0x21b4…21ce Head {h00=0x0016, h01=0x0050, text=» RES RECBFZ BUFAR2«, t00=0x0015, t01=0x00ec}
0x21ce…21ea Head {h00=0x0018, h01=0x0050, text=»TTABLN EQU *-TTABST «, t00=0x0015, t01=0x0106}
0x21ea…220a Head {h00=0x001c, h01=0x0050, text=»SDMTTD EQU TTABTD-DMTTSB«, t00=0x0015, t01=0x0122}
0x220a…222a Head {h00=0x001c, h01=0x0050, text=»SDMBF1 EQU TTBBF1-DMTTSB«, t00=0x0015, t01=0x0142}
0x222a…224a Head {h00=0x001c, h01=0x0050, text=»SDMBF2 EQU TTBBF2-DMTTSB«, t00=0x0015, t01=0x0162}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0182}
0x2258…2268 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0015, t01=0x0190}
0x2268…2278 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0016, t01=0x0010}
0x2278…2288 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0016, t01=0x0020}
0x2288…2298 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0016, t01=0x0030}
0x2298…22ae Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0016, t01=0x0040}
0x22ae…22d2 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0016, t01=0x0056}
0x22d2…22f8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0016, t01=0x007a}
0x22f8…231e Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0016, t01=0x00a0}
0x231e…2350 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0016, t01=0x00c6}
0x2350…2358 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00f8}
0x2358…236c Head {h00=0x0010, h01=0x0050, text=»TTABE EQU * «, t00=0x0016, t01=0x0100}
0x236c…2392 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0016, t01=0x0114}
0x2392…23ac Head {h00=0x0016, h01=0x0050, text=» DATA '#E' TASK ID«, t00=0x0016, t01=0x013a}
0x23ac…23c8 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0016, t01=0x0154}
0x23c8…23e8 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0016, t01=0x0170}
0x23e8…2400 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0016, t01=0x0190}
0x2400…2420 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0017, t01=0x0018}
0x2420…2454 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0017, t01=0x0038}
0x2454…2476 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0017, t01=0x006c}
0x2476…249e Head {h00=0x0024, h01=0x0050, text=» DATA TTABEE-* TERMINAL DEVICES «, t00=0x0017, t01=0x008e}
0x249e…24c2 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0017, t01=0x00b6}
0x24c2…24d6 Head {h00=0x0010, h01=0x0050, text=»TTABEE EQU *«, t00=0x0017, t01=0x00da}
0x24d6…24f4 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0017, t01=0x00ee}
0x24f4…251c Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x0017, t01=0x010c}
0x251c…252c Head {h00=0x000c, h01=0x0050, text=» IFT F=1«, t00=0x0017, t01=0x0134}
0x252c…253a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0144}
0x253a…254a Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0017, t01=0x0152}
0x254a…255a Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0017, t01=0x0162}
0x255a…256a Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0017, t01=0x0172}
0x256a…257a Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0017, t01=0x0182}
0x257a…2590 (24, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0018, t01=0x0004}
0x2590…25b4 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0018, t01=0x001a}
0x25b4…25da Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0018, t01=0x003e}
0x25da…2600 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0018, t01=0x0064}
0x2600…2632 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0018, t01=0x008a}
0x2632…263a Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00bc}
0x263a…264e Head {h00=0x0010, h01=0x0050, text=»TTABF EQU * «, t00=0x0018, t01=0x00c4}
0x264e…2674 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0018, t01=0x00d8}
0x2674…268e Head {h00=0x0016, h01=0x0050, text=» DATA '#F' TASK ID«, t00=0x0018, t01=0x00fe}
0x268e…26aa Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0018, t01=0x0118}
0x26aa…26ca Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0018, t01=0x0134}
0x26ca…26e2 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0018, t01=0x0154}
0x26e2…2702 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0018, t01=0x016c}
0x2702…2736 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0018, t01=0x018c}
0x2736…2758 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0019, t01=0x0030}
0x2758…2780 Head {h00=0x0024, h01=0x0050, text=» DATA TTABFE-* TERMINAL DEVICES «, t00=0x0019, t01=0x0052}
0x2780…27a4 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0019, t01=0x007a}
0x27a4…27b8 Head {h00=0x0010, h01=0x0050, text=»TTABFE EQU *«, t00=0x0019, t01=0x009e}
0x27b8…27d6 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0019, t01=0x00b2}
0x27d6…27fe Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x0019, t01=0x00d0}
0x27fe…280e Head {h00=0x000c, h01=0x0050, text=» IFT G=1«, t00=0x0019, t01=0x00f8}
0x280e…281c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0108}
0x281c…282c Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0019, t01=0x0116}
0x282c…283c Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0019, t01=0x0126}
0x283c…284c Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0019, t01=0x0136}
0x284c…285c Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0019, t01=0x0146}
0x285c…2872 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0019, t01=0x0156}
0x2872…2896 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0019, t01=0x016c}
0x2896…28bc Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0019, t01=0x0190}
0x28bc…28e2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001a, t01=0x0026}
0x28e2…2914 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001a, t01=0x004c}
0x2914…291c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x007e}
0x291c…2930 Head {h00=0x0010, h01=0x0050, text=»TTABG EQU * «, t00=0x001a, t01=0x0086}
0x2930…2956 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001a, t01=0x009a}
0x2956…2970 Head {h00=0x0016, h01=0x0050, text=» DATA '#G' TASK ID«, t00=0x001a, t01=0x00c0}
0x2970…298c Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001a, t01=0x00da}
0x298c…29ac Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001a, t01=0x00f6}
0x29ac…29c4 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001a, t01=0x0116}
0x29c4…29e4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001a, t01=0x012e}
0x29e4…2a18 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001a, t01=0x014e}
0x2a18…2a3a Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001a, t01=0x0182}
0x2a3a…2a62 Head {h00=0x0024, h01=0x0050, text=» DATA TTABGE-* TERMINAL DEVICES «, t00=0x001b, t01=0x0014}
0x2a62…2a86 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001b, t01=0x003c}
0x2a86…2a9a Head {h00=0x0010, h01=0x0050, text=»TTABGE EQU *«, t00=0x001b, t01=0x0060}
0x2a9a…2ab8 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001b, t01=0x0074}
0x2ab8…2ae0 Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001b, t01=0x0092}
0x2ae0…2af0 Head {h00=0x000c, h01=0x0050, text=» IFT H=1«, t00=0x001b, t01=0x00ba}
0x2af0…2afe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00ca}
0x2afe…2b0e Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x001b, t01=0x00d8}
0x2b0e…2b1e Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x001b, t01=0x00e8}
0x2b1e…2b2e Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x001b, t01=0x00f8}
0x2b2e…2b3e Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x001b, t01=0x0108}
0x2b3e…2b54 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x001b, t01=0x0118}
0x2b54…2b78 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x001b, t01=0x012e}
0x2b78…2b9e Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x001b, t01=0x0152}
0x2b9e…2bc4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001b, t01=0x0178}
0x2bc4…2bf6 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001c, t01=0x000e}
0x2bf6…2bfe Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0040}
0x2bfe…2c12 Head {h00=0x0010, h01=0x0050, text=»TTABH EQU * «, t00=0x001c, t01=0x0048}
0x2c12…2c38 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001c, t01=0x005c}
0x2c38…2c52 Head {h00=0x0016, h01=0x0050, text=» DATA '#H' TASK ID«, t00=0x001c, t01=0x0082}
0x2c52…2c6e Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001c, t01=0x009c}
0x2c6e…2c8e Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001c, t01=0x00b8}
0x2c8e…2ca6 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001c, t01=0x00d8}
0x2ca6…2cc6 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001c, t01=0x00f0}
0x2cc6…2cfa Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001c, t01=0x0110}
0x2cfa…2d1c Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001c, t01=0x0144}
0x2d1c…2d44 Head {h00=0x0024, h01=0x0050, text=» DATA TTABHE-* TERMINAL DEVICES «, t00=0x001c, t01=0x0166}
0x2d44…2d68 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001c, t01=0x018e}
0x2d68…2d7c Head {h00=0x0010, h01=0x0050, text=»TTABHE EQU *«, t00=0x001d, t01=0x0022}
0x2d7c…2d9a Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001d, t01=0x0036}
0x2d9a…2dc2 Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001d, t01=0x0054}
0x2dc2…2dd2 Head {h00=0x000c, h01=0x0050, text=» IFT I=1«, t00=0x001d, t01=0x007c}
0x2dd2…2de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x008c}
0x2de0…2df0 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x001d, t01=0x009a}
0x2df0…2e00 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x001d, t01=0x00aa}
0x2e00…2e10 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x001d, t01=0x00ba}
0x2e10…2e20 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x001d, t01=0x00ca}
0x2e20…2e36 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x001d, t01=0x00da}
0x2e36…2e5a Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x001d, t01=0x00f0}
0x2e5a…2e80 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x001d, t01=0x0114}
0x2e80…2ea6 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001d, t01=0x013a}
0x2ea6…2ed8 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001d, t01=0x0160}
0x2ed8…2ee0 (30, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0004}
0x2ee0…2ef4 Head {h00=0x0010, h01=0x0050, text=»TTABI EQU * «, t00=0x001e, t01=0x000c}
0x2ef4…2f1a Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001e, t01=0x0020}
0x2f1a…2f34 Head {h00=0x0016, h01=0x0050, text=» DATA '#I' TASK ID«, t00=0x001e, t01=0x0046}
0x2f34…2f50 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001e, t01=0x0060}
0x2f50…2f70 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001e, t01=0x007c}
0x2f70…2f88 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001e, t01=0x009c}
0x2f88…2fa8 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001e, t01=0x00b4}
0x2fa8…2fdc Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001e, t01=0x00d4}
0x2fdc…2ffe Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001e, t01=0x0108}
0x2ffe…3026 Head {h00=0x0024, h01=0x0050, text=» DATA TTABIE-* TERMINAL DEVICES «, t00=0x001e, t01=0x012a}
0x3026…304a Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001e, t01=0x0152}
0x304a…305e Head {h00=0x0010, h01=0x0050, text=»TTABIE EQU *«, t00=0x001e, t01=0x0176}
0x305e…307c Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001e, t01=0x018a}
0x307c…30a4 Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001f, t01=0x0018}
0x30a4…30b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0040}
0x30b0…30c6 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x001f, t01=0x004c}
0x30c6…30e6 Head {h00=0x001c, h01=0x0050, text=»TPART1 EQU TTABD-TTABST «, t00=0x001f, t01=0x0062}
0x30e6…3102 Head {h00=0x0018, h01=0x0050, text=»TABEND EQU *+TPART1 «, t00=0x001f, t01=0x0082}
0x3102…310e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x009e}
0x310e…311c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00aa}
0x311c…3126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b8}
0x3126…3148 Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x001f, t01=0x00c2}
0x3148…3152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e4}
0x3152…3166 Head {h00=0x0010, h01=0x0050, text=»FDBSTA EQU *«, t00=0x001f, t01=0x00ee}
0x3166…317a Head {h00=0x0010, h01=0x0050, text=»DWDM01 EQU *«, t00=0x001f, t01=0x0102}
0x317a…31ac Head {h00=0x002e, h01=0x0050, text=» DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD«, t00=0x001f, t01=0x0116}
0x31ac…31c2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0148}
0x31c2…31ea Head {h00=0x0024, h01=0x0050, text=» DATA 0,FDBMMU SPECIAL DWT ITEMS«, t00=0x001f, t01=0x015e}
0x31ea…31f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0186}
0x31f6…322e (32, 0, 398) Head {h00=0x0034, h01=0x0050, text=»DWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI «, t00=0x0020, t01=0x0004}
0x322e…324a Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0020, t01=0x003c}
0x324a…3266 Head {h00=0x0018, h01=0x0050, text=» IFT EDM000+MMUPAG=2«, t00=0x0020, t01=0x0058}
0x3266…327a Head {h00=0x0010, h01=0x0050, text=»FDBMMU EQU *«, t00=0x0020, t01=0x0074}
0x327a…3286 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0088}
0x3286…329a Head {h00=0x0010, h01=0x0050, text=»* FWT PART«, t00=0x0020, t01=0x0094}
0x329a…32b6 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0020, t01=0x00a8}
0x32b6…32cc Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0020, t01=0x00c4}
0x32cc…32e2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x00da}
0x32e2…32f6 Head {h00=0x0010, h01=0x0050, text=»FDBMMU EQU *«, t00=0x0020, t01=0x00f0}
0x32f6…331a Head {h00=0x0020, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 MMU ECB «, t00=0x0020, t01=0x0104}
0x331a…3326 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0128}
0x3326…333c Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0020, t01=0x0134}
0x333c…335e Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 FDBECB«, t00=0x0020, t01=0x014a}
0x335e…3376 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x0020, t01=0x016c}
0x3376…3388 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0020, t01=0x0184}
0x3388…33a4 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0021, t01=0x0008}
0x33a4…33c0 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,FDBSTA,0,0«, t00=0x0021, t01=0x0024}
0x33c0…33d8 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x0021, t01=0x0040}
0x33d8…33e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0058}
0x33e4…33ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33ee…33fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x006e}
0x33fc…3406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007c}
0x3406…3410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0086}
0x3410…3426 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0021, t01=0x0090}
0x3426…343c Head {h00=0x0012, h01=0x0050, text=»START1 EQU 44 «, t00=0x0021, t01=0x00a6}
0x343c…3448 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00bc}
0x3448…345e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00c8}
0x345e…3474 Head {h00=0x0012, h01=0x0050, text=»START1 EQU 62 «, t00=0x0021, t01=0x00de}
0x3474…3480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00f4}
0x3480…349c Head {h00=0x0018, h01=0x0050, text=»FDBMEC EQU START1-14«, t00=0x0021, t01=0x0100}
0x349c…34c0 Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START1 ECB START «, t00=0x0021, t01=0x011c}
0x34c0…34e6 Head {h00=0x0022, h01=0x0050, text=»FDBOMD EQU START1+14 OPEN MODE«, t00=0x0021, t01=0x0140}
0x34e6…3516 Head {h00=0x002c, h01=0x0050, text=»FDBLRN EQU START1+15 LAST RECORD NUMBER «, t00=0x0021, t01=0x0166}
0x3516…3540 Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START1+18 RECORD LENGTH«, t00=0x0022, t01=0x0008}
0x3540…356c Head {h00=0x0028, h01=0x0050, text=»FDBENL EQU START1+20 ENLARGE FACTOR «, t00=0x0022, t01=0x0032}
0x356c…35a4 Head {h00=0x0034, h01=0x0050, text=»FDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR «, t00=0x0022, t01=0x005e}
0x35a4…35ce Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START1+24 SECTOR NUMBER«, t00=0x0022, t01=0x0096}
0x35ce…3602 Head {h00=0x0030, h01=0x0050, text=»FDBRRO EQU START1+28 RELATIVE RECORD OFFSET «, t00=0x0022, t01=0x00c0}
0x3602…362e Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START1+30 BLOCKING FACTOR«, t00=0x0022, t01=0x00f4}
0x362e…3664 Head {h00=0x0032, h01=0x0050, text=»FDBTNR EQU START1+31 TASK NUMBER CALLING TASK «, t00=0x0022, t01=0x0120}
0x3664…3692 Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START1+32 NO OF INDEX FILES«, t00=0x0022, t01=0x0156}
0x3692…36c6 Head {h00=0x0030, h01=0x0050, text=»FDBBLZ EQU START1+33 NR OF SECTORS IN BLOCK «, t00=0x0022, t01=0x0184}
0x36c6…36f0 Head {h00=0x0026, h01=0x0050, text=»FDBEAL EQU START1+34 EA LINK ROOT «, t00=0x0023, t01=0x0028}
0x36f0…371a Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START1+36 CRN LINK ROOT«, t00=0x0023, t01=0x0052}
0x371a…374e Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START1+38 KEY ADDRESS IN DATA FILE«, t00=0x0023, t01=0x007c}
0x374e…3782 Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START1+40 ADDRESS OF MASTER INDEX«, t00=0x0023, t01=0x00b0}
0x3782…37b8 Head {h00=0x0032, h01=0x0050, text=»FDBADF EQU START1+42 ADDRESS OF DATA FILE FDB «, t00=0x0023, t01=0x00e4}
0x37b8…37ee Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START1+44 ADDRESS OF INDEX FILE FDB«, t00=0x0023, t01=0x011a}
0x37ee…382c Head {h00=0x003a, h01=0x0050, text=»FDBDBR EQU START1+52 DELAY,BASIC AND REL BUFFER FLAGS «, t00=0x0023, t01=0x0150}
0x382c…385c Head {h00=0x002c, h01=0x0050, text=»FDBDMI EQU START1+53 RELATIVE DMTASK ID «, t00=0x0023, t01=0x018e}
0x385c…3884 Head {h00=0x0024, h01=0x0050, text=»FDBMRO EQU START1+54 MAX FDBRRO «, t00=0x0024, t01=0x002e}
0x3884…38ba Head {h00=0x0032, h01=0x0050, text=»FDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC «, t00=0x0024, t01=0x0056}
0x38ba…38c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008c}
0x38c4…38da Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0024, t01=0x0096}
0x38da…38e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ac}
0x38e4…390e Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0024, t01=0x00b6}
0x390e…3918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x3918…3934 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0024, t01=0x00ea}
0x3934…3958 Head {h00=0x0020, h01=0x0050, text=»CRNSTA EQU 3 CURRENT STATUS «, t00=0x0024, t01=0x0106}
0x3958…397e Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0024, t01=0x012a}
0x397e…3988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0150}
0x3988…3992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3992…399c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x399c…39a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016e}
0x39a6…39ca Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0024, t01=0x0178}
0x39ca…39ee Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0025, t01=0x000c}
0x39ee…3a12 Head {h00=0x0020, h01=0x0050, text=»* DRIVER ADDRESS BLOCK *«, t00=0x0025, t01=0x0030}
0x3a12…3a36 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0054}
0x3a36…3a5a Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0025, t01=0x0078}
0x3a5a…3a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009c}
0x3a64…3a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a6}
0x3a6e…3a9a Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0025, t01=0x00b0}
0x3a9a…3ac6 Head {h00=0x0028, h01=0x0050, text=»TIODM DATA TIODM0 ACTIVATION ADDRESS«, t00=0x0025, t01=0x00dc}
0x3ac6…3adc Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0025, t01=0x0108}
0x3adc…3ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011e}
0x3ae6…3af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0128}
0x3af0…3b04 Head {h00=0x0010, h01=0x0050, text=»TIODM0 EQU *«, t00=0x0025, t01=0x0132}
0x3b04…3b1a Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0025, t01=0x0146}
0x3b1a…3b32 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,FDBECB«, t00=0x0025, t01=0x015c}
0x3b32…3b4a Head {h00=0x0014, h01=0x0050, text=» ADKL A14,ECBCW «, t00=0x0025, t01=0x0174}
0x3b4a…3b68 Head {h00=0x001a, h01=0x0050, text=» ADR A14,A6 STACK BASE«, t00=0x0025, t01=0x018c}
0x3b68…3b7a Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0026, t01=0x001a}
0x3b7a…3ba0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TDM100 NOT READ STATUS«, t00=0x0026, t01=0x002c}
0x3ba0…3bb2 Head {h00=0x000e, h01=0x0050, text=» IFT ADM=1«, t00=0x0026, t01=0x0052}
0x3bb2…3bdc Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTAB,A6 USER TTAB ADDRESS«, t00=0x0026, t01=0x0064}
0x3bdc…3bf0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0026, t01=0x008e}
0x3bf0…3c0e Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x0026, t01=0x00a2}
0x3c0e…3c20 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0026, t01=0x00c0}
0x3c20…3c4c Head {h00=0x0028, h01=0x0050, text=» CF A14,FNDFDB GET FC ENTRY ADDRESS «, t00=0x0026, t01=0x00d2}
0x3c4c…3c6a Head {h00=0x001a, h01=0x0050, text=» LCR A4,A4 GET STATUS «, t00=0x0026, t01=0x00fe}
0x3c6a…3c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x011c}
0x3c76…3c8c Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=2«, t00=0x0026, t01=0x0128}
0x3c8c…3ca2 Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0026, t01=0x013e}
0x3ca2…3cc8 Head {h00=0x0022, h01=0x0050, text=» RF(E) RDST10 FILE NOT OPENED «, t00=0x0026, t01=0x0154}
0x3cc8…3ce0 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0026, t01=0x017a}
0x3ce0…3cfe (39, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(NN) RDST50 S-FILE «, t00=0x0027, t01=0x0004}
0x3cfe…3d1a Head {h00=0x0018, h01=0x0050, text=» RF RDSTAT X,L-FILE «, t00=0x0027, t01=0x0022}
0x3d1a…3d2e Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0027, t01=0x003e}
0x3d2e…3d42 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0027, t01=0x0052}
0x3d42…3d62 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) RDSTAT L,X-FILE «, t00=0x0027, t01=0x0066}
0x3d62…3d76 Head {h00=0x0010, h01=0x0050, text=»RDST50 EQU *«, t00=0x0027, t01=0x0086}
0x3d76…3d82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x009a}
0x3d82…3d98 Head {h00=0x0012, h01=0x0050, text=» IFT ADMEDM=1 «, t00=0x0027, t01=0x00a6}
0x3d98…3dae Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0027, t01=0x00bc}
0x3dae…3dc8 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDST10 OPEN«, t00=0x0027, t01=0x00d2}
0x3dc8…3de0 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0027, t01=0x00ec}
0x3de0…3dfe Head {h00=0x001a, h01=0x0050, text=» RF(NN) TDM150 S-FILE «, t00=0x0027, t01=0x0104}
0x3dfe…3e10 Head {h00=0x000e, h01=0x0050, text=» RF RDSTAT«, t00=0x0027, t01=0x0122}
0x3e10…3e24 Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0027, t01=0x0134}
0x3e24…3e38 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0027, t01=0x0148}
0x3e38…3e58 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TDM150 NO STATUS «, t00=0x0027, t01=0x015c}
0x3e58…3e68 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0027, t01=0x017c}
0x3e68…3e74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x018c}
0x3e74…3e86 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0028, t01=0x0008}
0x3e86…3ea6 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A6 FDB ADDRESS «, t00=0x0028, t01=0x001a}
0x3ea6…3eca Head {h00=0x0020, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY «, t00=0x0028, t01=0x003a}
0x3eca…3ee2 Head {h00=0x0014, h01=0x0050, text=» LC A4,CRNSTA,A2«, t00=0x0028, t01=0x005e}
0x3ee2…3eee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0076}
0x3eee…3f06 Head {h00=0x0014, h01=0x0050, text=»RDSTAT EQU * =3«, t00=0x0028, t01=0x0082}
0x3f06…3f1c Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0028, t01=0x009a}
0x3f1c…3f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00b0}
0x3f2a…3f3a Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0028, t01=0x00be}
0x3f3a…3f4e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0028, t01=0x00ce}
0x3f4e…3f74 Head {h00=0x0022, h01=0x0050, text=» ST A4,ECBCW,A8 RETURN STATUS «, t00=0x0028, t01=0x00e2}
0x3f74…3f8a Head {h00=0x0012, h01=0x0050, text=» CM ECBCW+2,A8«, t00=0x0028, t01=0x0108}
0x3f8a…3fa8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RET CODE OK «, t00=0x0028, t01=0x011e}
0x3fa8…3fc2 Head {h00=0x0016, h01=0x0050, text=» ABL DISEND END IO«, t00=0x0028, t01=0x013c}
0x3fc2…3fce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0156}
0x3fce…3fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fd8…3fee Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0028, t01=0x016c}
0x3fee…3ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0182}
0x3ff8…400c Head {h00=0x0010, h01=0x0050, text=»TDM100 EQU *«, t00=0x0028, t01=0x018c}
0x400c…4028 Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x0029, t01=0x0010}
0x4028…403e Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0029, t01=0x002c}
0x403e…4058 Head {h00=0x0016, h01=0x0050, text=» RF(E) TDM200 OPEN«, t00=0x0029, t01=0x0042}
0x4058…4070 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0029, t01=0x005c}
0x4070…408e Head {h00=0x001a, h01=0x0050, text=» RF(N) TDM300 L,X-FILE«, t00=0x0029, t01=0x0074}
0x408e…409a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0092}
0x409a…40ae Head {h00=0x0010, h01=0x0050, text=»TDM150 EQU *«, t00=0x0029, t01=0x009e}
0x40ae…40c0 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0029, t01=0x00b2}
0x40c0…40da Head {h00=0x0016, h01=0x0050, text=» ABL TIOSDM S-FILE«, t00=0x0029, t01=0x00c4}
0x40da…40e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00de}
0x40e6…40f8 Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x0029, t01=0x00ea}
0x40f8…4112 Head {h00=0x0016, h01=0x0050, text=» ABL TIOEDM S-FILE«, t00=0x0029, t01=0x00fc}
0x4112…411e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0116}
0x411e…413a Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x0029, t01=0x0122}
0x413a…414e Head {h00=0x0010, h01=0x0050, text=»TDM200 EQU *«, t00=0x0029, t01=0x013e}
0x414e…4176 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBBA,A8 GET FDB ADDRESS «, t00=0x0029, t01=0x0152}
0x4176…418c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0029, t01=0x017a}
0x418c…41b6 Head {h00=0x0026, h01=0x0050, text=» LC A1,FPB:FO,A1 FILE ORGANISATION«, t00=0x0029, t01=0x0190}
0x41b6…41c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x002a}
0x41c2…41de Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x002a, t01=0x0036}
0x41de…41f4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002a, t01=0x0052}
0x41f4…420e Head {h00=0x0016, h01=0x0050, text=» EL A1,FPB:FO+7,A1«, t00=0x002a, t01=0x0068}
0x420e…421a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0082}
0x421a…4236 Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x002a, t01=0x008e}
0x4236…424a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x002a, t01=0x00aa}
0x424a…425c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002a, t01=0x00be}
0x425c…4280 Head {h00=0x0020, h01=0x0050, text=» RB(NP) TDM150 S-FILE,I-FILE«, t00=0x002a, t01=0x00d0}
0x4280…4294 Head {h00=0x0010, h01=0x0050, text=»TDM300 EQU *«, t00=0x002a, t01=0x00f4}
0x4294…42a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0108}
0x42a0…42b2 Head {h00=0x000e, h01=0x0050, text=» IFT ADM=1«, t00=0x002a, t01=0x0114}
0x42b2…42ce Head {h00=0x0018, h01=0x0050, text=» ABL TIOADM L,X-FILE«, t00=0x002a, t01=0x0126}
0x42ce…42da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0142}
0x42da…42f0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002a, t01=0x014e}
0x42f0…42fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0164}
0x42fa…4304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016e}
0x4304…4316 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0178}
0x4316…4328 Head {h00=0x000e, h01=0x0050, text=»* DMACTI *«, t00=0x002a, t01=0x018a}
0x4328…433a Head {h00=0x000e, h01=0x0050, text=»* DMACTD *«, t00=0x002b, t01=0x000c}
0x433a…434c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x001e}
0x434c…4356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0030}
0x4356…437c Head {h00=0x0022, h01=0x0050, text=»* ACTIVATE ADM AND/OR SDM TASK«, t00=0x002b, t01=0x003a}
0x437c…4386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0060}
0x4386…43b0 Head {h00=0x0026, h01=0x0050, text=»* INPUT : A2 = DISPATCH ADDRESS «, t00=0x002b, t01=0x006a}
0x43b0…43d4 Head {h00=0x0020, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x002b, t01=0x0094}
0x43d4…43de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b8}
0x43de…43f2 Head {h00=0x0010, h01=0x0050, text=»DMACTI EQU *«, t00=0x002b, t01=0x00c2}
0x43f2…4408 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x002b, t01=0x00d6}
0x4408…442e Head {h00=0x0022, h01=0x0050, text=» LC A7,FWTVOL,A6 GET FILE CODE«, t00=0x002b, t01=0x00ec}
0x442e…4442 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002b, t01=0x0112}
0x4442…4454 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002b, t01=0x0126}
0x4454…4468 Head {h00=0x0010, h01=0x0050, text=»DMAC10 EQU *«, t00=0x002b, t01=0x0138}
0x4468…447a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002b, t01=0x014c}
0x447a…4494 Head {h00=0x0016, h01=0x0050, text=» CC A7,DFTAB-1,A3 «, t00=0x002b, t01=0x015e}
0x4494…44c0 Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMAC10 CHECK NEXT FILE CODE «, t00=0x002b, t01=0x0178}
0x44c0…44ee Head {h00=0x002a, h01=0x0050, text=» LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER«, t00=0x002c, t01=0x0014}
0x44ee…4504 Head {h00=0x0012, h01=0x0050, text=» CF A15,FINDTT«, t00=0x002c, t01=0x0042}
0x4504…4528 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TASHLT TTAB NOT FOUND«, t00=0x002c, t01=0x0058}
0x4528…4540 Head {h00=0x0014, h01=0x0050, text=» LD A1,TTB:SA,A5«, t00=0x002c, t01=0x007c}
0x4540…4560 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMAC50 TASK FREE «, t00=0x002c, t01=0x0094}
0x4560…458a Head {h00=0x0026, h01=0x0050, text=» LC A7,DMTIDS-1,A3 SECONDARY TASK «, t00=0x002c, t01=0x00b4}
0x458a…459e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002c, t01=0x00de}
0x459e…45b4 Head {h00=0x0012, h01=0x0050, text=» CF A15,FINDTT«, t00=0x002c, t01=0x00f2}
0x45b4…45d8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TASHLT TTAB NOT FOUND«, t00=0x002c, t01=0x0108}
0x45d8…45ec Head {h00=0x0010, h01=0x0050, text=»DMAC50 EQU *«, t00=0x002c, t01=0x012c}
0x45ec…460a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x002c, t01=0x0140}
0x460a…4630 Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DM TASK«, t00=0x002c, t01=0x015e}
0x4630…4642 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x002c, t01=0x0184}
0x4642…4658 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002d, t01=0x0008}
0x4658…4662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x4662…466c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0028}
0x466c…4694 Head {h00=0x0024, h01=0x0050, text=»DMACTD EQU * ACTIVATE DM TASK #D«, t00=0x002d, t01=0x0032}
0x4694…46aa Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TTABD«, t00=0x002d, t01=0x005a}
0x46aa…46bc Head {h00=0x000e, h01=0x0050, text=» RB DMAC50«, t00=0x002d, t01=0x0070}
0x46bc…46c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0082}
0x46c8…46d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008e}
0x46d2…46f2 Head {h00=0x001c, h01=0x0050, text=»* ABNORMAL SYSTEM ERROR «, t00=0x002d, t01=0x0098}
0x46f2…46fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b8}
0x46fc…4710 Head {h00=0x0010, h01=0x0050, text=»TASHLT EQU *«, t00=0x002d, t01=0x00c2}
0x4710…4724 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x002d, t01=0x00d6}
0x4724…4738 Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x002d, t01=0x00ea}
0x4738…4742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fe}
0x4742…4758 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002d, t01=0x0108}
0x4758…4762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011e}
0x4762…476c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0128}
0x476c…477e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0132}
0x477e…4790 Head {h00=0x000e, h01=0x0050, text=»* DMXACD *«, t00=0x002d, t01=0x0144}
0x4790…47a2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0156}
0x47a2…47ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0168}
0x47ac…47e2 Head {h00=0x0032, h01=0x0050, text=»* EXIT RUNNING TASK AND ACTIVATE DM TASK #D «, t00=0x002d, t01=0x0172}
0x47e2…47ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x47ec…47f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0022}
0x47f6…481e Head {h00=0x0024, h01=0x0050, text=»* INPUT: A8=DISPATCH ADDRESS «, t00=0x002e, t01=0x002c}
0x481e…4840 Head {h00=0x001e, h01=0x0050, text=»* A6=FDB ADDRESS «, t00=0x002e, t01=0x0054}
0x4840…484a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0076}
0x484a…4880 Head {h00=0x0032, h01=0x0050, text=»DMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D«, t00=0x002e, t01=0x0080}
0x4880…4896 Head {h00=0x0012, h01=0x0050, text=» IFF SDM+ADM=0«, t00=0x002e, t01=0x00b6}
0x4896…48ba Head {h00=0x0020, h01=0x0050, text=» LD A5,PRUN RUNNING TASK ID «, t00=0x002e, t01=0x00cc}
0x48ba…48c6 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002e, t01=0x00f0}
0x48c6…48da Head {h00=0x0010, h01=0x0050, text=» CF A15,EXIT«, t00=0x002e, t01=0x00fc}
0x48da…48ea Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x002e, t01=0x0110}
0x48ea…490e Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 DISPATCH ADDRESS «, t00=0x002e, t01=0x0120}
0x490e…4920 Head {h00=0x000e, h01=0x0050, text=» RB DMACTD«, t00=0x002e, t01=0x0144}
0x4920…492c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0156}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0162}
0x4936…494c Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002e, t01=0x016c}
0x494c…4956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0182}
0x4956…4960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x018c}
0x4960…4972 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0008}
0x4972…4984 Head {h00=0x000e, h01=0x0050, text=»* DMTEND *«, t00=0x002f, t01=0x001a}
0x4984…4996 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x002c}
0x4996…49a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49a0…49b6 Head {h00=0x0012, h01=0x0050, text=»* COMMIT ENTRY«, t00=0x002f, t01=0x0048}
0x49b6…49ca Head {h00=0x0010, h01=0x0050, text=»* ENTERED BY«, t00=0x002f, t01=0x005e}
0x49ca…49d8 Head {h00=0x000a, h01=0x0050, text=»* LKM «, t00=0x002f, t01=0x0072}
0x49d8…49ea Head {h00=0x000e, h01=0x0050, text=»* DATA 16 «, t00=0x002f, t01=0x0080}
0x49ea…49f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0092}
0x49f4…49fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009c}
0x49fe…4a12 Head {h00=0x0010, h01=0x0050, text=»DMTEND EQU *«, t00=0x002f, t01=0x00a6}
0x4a12…4a24 Head {h00=0x000e, h01=0x0050, text=» IFT EDM=0«, t00=0x002f, t01=0x00ba}
0x4a24…4a36 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x002f, t01=0x00cc}
0x4a36…4a60 Head {h00=0x0026, h01=0x0050, text=» LDR A6,A5 SAVE USER TTAB ADDRESS «, t00=0x002f, t01=0x00de}
0x4a60…4a80 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A7 ORDER CODE =2«, t00=0x002f, t01=0x0108}
0x4a80…4a98 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/7F =2 «, t00=0x002f, t01=0x0128}
0x4a98…4ac8 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DMTERR ERROR: ORDER NOT ALLOWED «, t00=0x002f, t01=0x0140}
0x4ac8…4aec Head {h00=0x0020, h01=0x0050, text=» LD A3,SCTTCT TCTAB ADDRESS «, t00=0x002f, t01=0x0170}
0x4aec…4b00 (48, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DMTE10 EQU *«, t00=0x0030, t01=0x0004}
0x4b00…4b1a Head {h00=0x0016, h01=0x0050, text=» ADK A3,2 POINTER «, t00=0x0030, t01=0x0018}
0x4b1a…4b3c Head {h00=0x001e, h01=0x0050, text=» CWR* A5,A3 ENTRY IN TABLE«, t00=0x0030, t01=0x0032}
0x4b3c…4b5c Head {h00=0x001c, h01=0x0050, text=» RB(NE) DMTE10 TRY NEXT «, t00=0x0030, t01=0x0054}
0x4b5c…4b86 Head {h00=0x0026, h01=0x0050, text=» SU A3,SCTTCT RELATIVE TASK NUMBER«, t00=0x0030, t01=0x0074}
0x4b86…4b9c Head {h00=0x0012, h01=0x0050, text=»* SUK A3,2 =5«, t00=0x0030, t01=0x009e}
0x4b9c…4bae Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0030, t01=0x00b4}
0x4bae…4bc6 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACK «, t00=0x0030, t01=0x00c6}
0x4bc6…4bdc Head {h00=0x0012, h01=0x0050, text=» CF A14,RELPRO«, t00=0x0030, t01=0x00de}
0x4bdc…4bf0 Head {h00=0x0010, h01=0x0050, text=»DMTE40 EQU *«, t00=0x0030, t01=0x00f4}
0x4bf0…4c0c Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 TTAB USER«, t00=0x0030, t01=0x0108}
0x4c0c…4c36 Head {h00=0x0026, h01=0x0050, text=» ST A7,TTB:SA+14,A5 RET CODE IN A7«, t00=0x0030, t01=0x0124}
0x4c36…4c42 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0030, t01=0x014e}
0x4c42…4c64 Head {h00=0x001e, h01=0x0050, text=» CF A15,QTJOB RESTART USER«, t00=0x0030, t01=0x015a}
0x4c64…4c76 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0030, t01=0x017c}
0x4c76…4c98 Head {h00=0x001e, h01=0x0050, text=»DMTERR EQU * REQUEST ERROR«, t00=0x0030, t01=0x018e}
0x4c98…4cb0 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,REQER2 «, t00=0x0031, t01=0x0020}
0x4cb0…4cca Head {h00=0x0016, h01=0x0050, text=» RB DMTE40 RETURN «, t00=0x0031, t01=0x0038}
0x4cca…4cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0052}
0x4cd4…4ce8 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0031, t01=0x005c}
0x4ce8…4d04 Head {h00=0x0018, h01=0x0050, text=»STACK DATA 0 4 WORDS«, t00=0x0031, t01=0x0070}
0x4d04…4d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008c}
0x4d0e…4d1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0096}
0x4d1a…4d2c Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x0031, t01=0x00a2}
0x4d2c…4d50 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A5 SAVE TTAB USER =1«, t00=0x0031, t01=0x00b4}
0x4d50…4d86 Head {h00=0x0032, h01=0x0050, text=» LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1«, t00=0x0031, t01=0x00d8}
0x4d86…4db2 Head {h00=0x0028, h01=0x0050, text=» AD A1,TTB:TD,A1 DEVICE TABLE LENGTH«, t00=0x0031, t01=0x010e}
0x4db2…4de6 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,TTB:TD BASE PARAMETER BLOCK ADDRESS«, t00=0x0031, t01=0x013a}
0x4de6…4dfa Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0031, t01=0x016e}
0x4dfa…4e18 Head {h00=0x001a, h01=0x0050, text=» OR A2,2,A1 ORDER WORD«, t00=0x0031, t01=0x0182}
0x4e18…4e42 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) LKMRQE OTHER REQUEST BUSY«, t00=0x0032, t01=0x0010}
0x4e42…4e72 Head {h00=0x002c, h01=0x0050, text=» LDKL A2,/100 COMMIT ROLLBACK ACTIVATION«, t00=0x0032, t01=0x003a}
0x4e72…4e84 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0032, t01=0x006a}
0x4e84…4ea8 Head {h00=0x0020, h01=0x0050, text=» ST A7,PABORD,A1 ORDER WORD «, t00=0x0032, t01=0x007c}
0x4ea8…4ee2 Head {h00=0x0036, h01=0x0050, text=» ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS «, t00=0x0032, t01=0x00a0}
0x4ee2…4f04 Head {h00=0x001e, h01=0x0050, text=» LDKL A7,'$E' EDM TASK ID «, t00=0x0032, t01=0x00da}
0x4f04…4f2a Head {h00=0x0022, h01=0x0050, text=» ABL TIOECR ACTIVATE EDM TASK «, t00=0x0032, t01=0x00fc}
0x4f2a…4f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0122}
0x4f34…4f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x012c}
0x4f3e…4f4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0136}
0x4f4a…4f60 Head {h00=0x0012, h01=0x0050, text=» IFT ADM000=1 «, t00=0x0032, t01=0x0142}
0x4f60…4f84 Head {h00=0x0020, h01=0x0050, text=» CM TTB:SA+14,A5 RETURN CODE«, t00=0x0032, t01=0x0158}
0x4f84…4f90 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0032, t01=0x017c}
0x4f90…4fa6 Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x0032, t01=0x0188}
0x4fa6…4fb8 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0033, t01=0x000e}
0x4fb8…4fc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0020}
0x4fc4…4fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x002c}
0x4fd2…4fda Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x003a}
0x4fda…502e Head {h00=0x0050, h01=0x0050, text=»*************************************************************************** «, t00=0x0033, t01=0x0042}
0x502e…5082 Head {h00=0x0050, h01=0x0050, text=»* C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * «, t00=0x0033, t01=0x0096}
0x5082…50d6 Head {h00=0x0050, h01=0x0050, text=»*************************************************************************** «, t00=0x0033, t01=0x00ea}
0x50d6…50e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x013e}
0x50e0…50ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0148}
0x50ea…50f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0152}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015c}
0x50fe…5128 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0166}
0x5128…5150 Head {h00=0x0024, h01=0x0050, text=»* SUBROUTINES NOT IN SYSTEM *«, t00=0x0033, t01=0x0190}
0x5150…5178 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0034, t01=0x0028}
0x5178…5182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0050}
0x5182…5198 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x0034, t01=0x005a}
0x5198…51ac Head {h00=0x0010, h01=0x0050, text=»DMACTD EQU *«, t00=0x0034, t01=0x0070}
0x51ac…51c0 Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0034, t01=0x0084}
0x51c0…51d4 Head {h00=0x0010, h01=0x0050, text=»MOV:US EQU *«, t00=0x0034, t01=0x0098}
0x51d4…51e8 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x0034, t01=0x00ac}
0x51e8…51fc Head {h00=0x0010, h01=0x0050, text=»FINDTT EQU *«, t00=0x0034, t01=0x00c0}
0x51fc…5210 Head {h00=0x0010, h01=0x0050, text=»RTNA14 EQU *«, t00=0x0034, t01=0x00d4}
0x5210…5224 Head {h00=0x0010, h01=0x0050, text=»SETCRO EQU *«, t00=0x0034, t01=0x00e8}
0x5224…5230 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00fc}
0x5230…5242 Head {h00=0x000e, h01=0x0050, text=» IFF SDM=1«, t00=0x0034, t01=0x0108}
0x5242…5256 Head {h00=0x0010, h01=0x0050, text=»CASZEN EQU *«, t00=0x0034, t01=0x011a}
0x5256…526a Head {h00=0x0010, h01=0x0050, text=»COSZEN EQU *«, t00=0x0034, t01=0x012e}
0x526a…5276 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0142}
0x5276…5290 Head {h00=0x0016, h01=0x0050, text=» IFT SDM+ADMCDE=0 «, t00=0x0034, t01=0x014e}
0x5290…52a4 Head {h00=0x0010, h01=0x0050, text=»ENLFAC EQU *«, t00=0x0034, t01=0x0168}
0x52a4…52b8 Head {h00=0x0010, h01=0x0050, text=»CONENL EQU *«, t00=0x0034, t01=0x017c}
0x52b8…52cc Head {h00=0x0010, h01=0x0050, text=»TOTSIZ EQU *«, t00=0x0034, t01=0x0190}
0x52cc…52d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0014}
0x52d8…52f8 Head {h00=0x001c, h01=0x0050, text=» RB TASHLT SYSGEN ERROR «, t00=0x0035, t01=0x0020}
0x52f8…5302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0040}
0x5302…530c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004a}
0x530c…5316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0054}
0x5316…532c Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0035, t01=0x005e}
0x532c…5342 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0035, t01=0x0074}
0x5342…534a Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x008a}
0x534a…5386 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0035, t01=0x0092}
0x5386…5390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ce}
0x5390…53ce Head {h00=0x003a, h01=0x0050, text=»* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE«, t00=0x0035, t01=0x00d8}
0x53ce…53d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0116}
0x53d8…5414 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0035, t01=0x0120}
0x5414…541e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015c}
0x541e…5438 Head {h00=0x0016, h01=0x0050, text=»* A1 = TTAB ADDR«, t00=0x0035, t01=0x0166}
0x5438…5460 Head {h00=0x0024, h01=0x0050, text=»* A2 = FILE CODE TO SEARCH FOR«, t00=0x0035, t01=0x0180}
0x5460…5498 Head {h00=0x0034, h01=0x0050, text=»* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED «, t00=0x0036, t01=0x0018}
0x5498…54a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0050}
0x54a2…54de Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0036, t01=0x005a}
0x54de…54e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0096}
0x54e8…5502 Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0036, t01=0x00a0}
0x5502…5538 Head {h00=0x0032, h01=0x0050, text=»* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND «, t00=0x0036, t01=0x00ba}
0x5538…5572 Head {h00=0x0036, h01=0x0050, text=»* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND«, t00=0x0036, t01=0x00f0}
0x5572…55a8 Head {h00=0x0032, h01=0x0050, text=»* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB «, t00=0x0036, t01=0x012a}
0x55a8…55b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0160}
0x55b2…55ee Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0036, t01=0x016a}
0x55ee…55f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0016}
0x55f8…560a Head {h00=0x000e, h01=0x0050, text=»* A1-A5 «, t00=0x0037, t01=0x0020}
0x560a…5614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0032}
0x5614…5652 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0037, t01=0x003c}
0x5652…5660 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x007a}
0x5660…5668 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x0088}
0x5668…567a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0090}
0x567a…568c Head {h00=0x000e, h01=0x0050, text=»* FNDFDB *«, t00=0x0037, t01=0x00a2}
0x568c…569e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x00b4}
0x569e…56a6 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x00c6}
0x56a6…56ba Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0037, t01=0x00ce}
0x56ba…56e4 Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:TD,A1 LENGTH DEV DESCR «, t00=0x0037, t01=0x00e2}
0x56e4…56f8 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0037, t01=0x010c}
0x56f8…570a Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0037, t01=0x0120}
0x570a…5736 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND040 FILE CODE NOT IN TTAB«, t00=0x0037, t01=0x0132}
0x5736…5748 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0037, t01=0x015e}
0x5748…5760 Head {h00=0x0014, h01=0x0050, text=» ADKL A4,TTB:TD «, t00=0x0037, t01=0x0170}
0x5760…5772 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0037, t01=0x0188}
0x5772…5786 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A4 «, t00=0x0038, t01=0x000a}
0x5786…579c Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND030«, t00=0x0038, t01=0x001e}
0x579c…57ae Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0038, t01=0x0034}
0x57ae…57d4 Head {h00=0x0022, h01=0x0050, text=» RF FND080 CODE FOUND IN TTAB «, t00=0x0038, t01=0x0046}
0x57d4…57e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x006c}
0x57e2…57ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007a}
0x57ec…5812 Head {h00=0x0022, h01=0x0050, text=»* SEARCH FILE CODE IN SCTCDT«, t00=0x0038, t01=0x0084}
0x5812…581c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00aa}
0x581c…5830 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0038, t01=0x00b4}
0x5830…5842 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0038, t01=0x00c8}
0x5842…586e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FND060 ONLY TTAB IS SEACHED «, t00=0x0038, t01=0x00da}
0x586e…5884 Head {h00=0x0012, h01=0x0050, text=» LD* A4,SCTCDT«, t00=0x0038, t01=0x0106}
0x5884…5898 Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0038, t01=0x011c}
0x5898…58aa Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0038, t01=0x0130}
0x58aa…58d6 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND060 CODE NOT FOUND AT ALL«, t00=0x0038, t01=0x0142}
0x58d6…58ec Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTCDT «, t00=0x0038, t01=0x016e}
0x58ec…58fe Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0038, t01=0x0184}
0x58fe…5912 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A3 «, t00=0x0039, t01=0x0008}
0x5912…5928 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND050«, t00=0x0039, t01=0x001c}
0x5928…593e Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTCDT «, t00=0x0039, t01=0x0032}
0x593e…595c Head {h00=0x001a, h01=0x0050, text=» RF FND080 CODE FOUND «, t00=0x0039, t01=0x0048}
0x595c…5970 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0039, t01=0x0066}
0x5970…598a Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 NO CODE «, t00=0x0039, t01=0x007a}
0x598a…599e Head {h00=0x0010, h01=0x0050, text=»FND080 EQU *«, t00=0x0039, t01=0x0094}
0x599e…59ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x00a8}
0x59ae…59bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00b8}
0x59bc…59c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c6}
0x59c6…59ee Head {h00=0x0024, h01=0x0050, text=»* MOVE BLOCK AND MOVE CONSTANTS «, t00=0x0039, t01=0x00d0}
0x59ee…59f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f8}
0x59f8…5a22 Head {h00=0x0026, h01=0x0050, text=»MOVTIS EQU 0 TASK ID SENDING TASK «, t00=0x0039, t01=0x0102}
0x5a22…5a4e Head {h00=0x0028, h01=0x0050, text=»MOVTIR EQU 2 TASK ID RECEIVING TASK «, t00=0x0039, t01=0x012c}
0x5a4e…5a7e Head {h00=0x002c, h01=0x0050, text=»MOVBAS EQU 4 BUFFER ADDRESS SENDING TASK«, t00=0x0039, t01=0x0158}
0x5a7e…5ab0 Head {h00=0x002e, h01=0x0050, text=»MOVBAR EQU 6 BUFFER ADDRESS RECEIVING TASK«, t00=0x0039, t01=0x0188}
0x5ab0…5adc Head {h00=0x0028, h01=0x0050, text=»MOVLEN EQU 8 NUMBER OF BYTES TO MOVE«, t00=0x003a, t01=0x002a}
0x5adc…5ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0056}
0x5ae6…5b06 Head {h00=0x001c, h01=0x0050, text=»MOVSAV EQU 10 SAVE AREA «, t00=0x003a, t01=0x0060}
0x5b06…5b0e Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x0080}
0x5b0e…5b16 Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x0088}
0x5b16…5b2a Head {h00=0x0010, h01=0x0050, text=»MOVBLK EQU *«, t00=0x003a, t01=0x0090}
0x5b2a…5b3c Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003a, t01=0x00a4}
0x5b3c…5b4e Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003a, t01=0x00b6}
0x5b4e…5b5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x00c8}
0x5b5e…5b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d8}
0x5b68…5b78 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x00e2}
0x5b78…5b86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00f2}
0x5b86…5b8e Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x0100}
0x5b8e…5ba0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0108}
0x5ba0…5bb2 Head {h00=0x000e, h01=0x0050, text=»* MOV:US *«, t00=0x003a, t01=0x011a}
0x5bb2…5bc4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x012c}
0x5bc4…5bcc Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x013e}
0x5bcc…5bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0146}
0x5bd6…5bec Head {h00=0x0012, h01=0x0050, text=»* M O V : U S «, t00=0x003a, t01=0x0150}
0x5bec…5bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0166}
0x5bf6…5c3e Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO«, t00=0x003a, t01=0x0170}
0x5c3e…5c8e Head {h00=0x004c, h01=0x0050, text=»* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x003b, t01=0x0028}
0x5c8e…5cdc Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x003b, t01=0x0078}
0x5cdc…5ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c6}
0x5ce6…5d22 Head {h00=0x0038, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA)«, t00=0x003b, t01=0x00d0}
0x5d22…5d62 Head {h00=0x003c, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA)«, t00=0x003b, t01=0x010c}
0x5d62…5d94 Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x003b, t01=0x014c}
0x5d94…5dbc Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x003b, t01=0x017e}
0x5dbc…5dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0016}
0x5dc6…5de4 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4=DESTROYED«, t00=0x003c, t01=0x0020}
0x5de4…5dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003e}
0x5dee…5e02 Head {h00=0x0010, h01=0x0050, text=»MOV:US EQU *«, t00=0x003c, t01=0x0048}
0x5e02…5e22 Head {h00=0x001c, h01=0x0050, text=» LD A4,TTB:ID,A4 TASK ID«, t00=0x003c, t01=0x005c}
0x5e22…5e3e Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIS+MOVBLK«, t00=0x003c, t01=0x007c}
0x5e3e…5e68 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,'#M' DESTINATION TASK ID «, t00=0x003c, t01=0x0098}
0x5e68…5e84 Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIR+MOVBLK«, t00=0x003c, t01=0x00c2}
0x5e84…5e96 Head {h00=0x000e, h01=0x0050, text=» RF MOVCOM«, t00=0x003c, t01=0x00de}
0x5e96…5eac Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM«, t00=0x003c, t01=0x00f0}
0x5eac…5eb4 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0106}
0x5eb4…5ec6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x010e}
0x5ec6…5ed8 Head {h00=0x000e, h01=0x0050, text=»* MOV:SU *«, t00=0x003c, t01=0x0120}
0x5ed8…5eea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x0132}
0x5eea…5ef2 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0144}
0x5ef2…5efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014c}
0x5efc…5f12 Head {h00=0x0012, h01=0x0050, text=»* M O V : S U «, t00=0x003c, t01=0x0156}
0x5f12…5f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x016c}
0x5f1c…5f66 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO«, t00=0x003c, t01=0x0176}
0x5f66…5fb4 Head {h00=0x004a, h01=0x0050, text=»* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x003d, t01=0x0030}
0x5fb4…6002 Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x003d, t01=0x007e}
0x6002…600c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00cc}
0x600c…604a Head {h00=0x003a, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA)«, t00=0x003d, t01=0x00d6}
0x604a…6088 Head {h00=0x003a, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA)«, t00=0x003d, t01=0x0114}
0x6088…60ba Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x003d, t01=0x0152}
0x60ba…60e2 Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x003d, t01=0x0184}
0x60e2…60ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x001c}
0x60ec…610a Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4=DESTROYED«, t00=0x003e, t01=0x0026}
0x610a…6114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0044}
0x6114…6128 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x003e, t01=0x004e}
0x6128…615a Head {h00=0x002e, h01=0x0050, text=» LD A4,TTB:ID,A4 TASK ID DESTINATION TASK «, t00=0x003e, t01=0x0062}
0x615a…6176 Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIR+MOVBLK«, t00=0x003e, t01=0x0094}
0x6176…61a0 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,'#M' TASK ID SOURCE TASK «, t00=0x003e, t01=0x00b0}
0x61a0…61bc Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIS+MOVBLK«, t00=0x003e, t01=0x00da}
0x61bc…61ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00f6}
0x61ca…61de Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x003e, t01=0x0104}
0x61de…61ea Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003e, t01=0x0118}
0x61ea…620e Head {h00=0x0020, h01=0x0050, text=» ST A7,MOVSAV+MOVBLK SAVE A7«, t00=0x003e, t01=0x0124}
0x620e…6226 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,MOVBLK «, t00=0x003e, t01=0x0148}
0x6226…623e Head {h00=0x0014, h01=0x0050, text=» ST A1,MOVBAS,A7«, t00=0x003e, t01=0x0160}
0x623e…626a Head {h00=0x0028, h01=0x0050, text=» ST A2,MOVBAR,A7 DESTINATION ADDRESS«, t00=0x003e, t01=0x0178}
0x626a…6292 Head {h00=0x0024, h01=0x0050, text=» ST A3,MOVLEN,A7 LENGTH TO MOVE «, t00=0x003f, t01=0x0014}
0x6292…629e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x003c}
0x629e…62ae Head {h00=0x000c, h01=0x0050, text=» DATA 21«, t00=0x003f, t01=0x0048}
0x62ae…62d6 Head {h00=0x0024, h01=0x0050, text=» LD A7,MOVSAV,A7 SAVED REGISTER «, t00=0x003f, t01=0x0058}
0x62d6…62e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x0080}
0x62e6…62f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0090}
0x62f4…62fc Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x009e}
0x62fc…630e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00a6}
0x630e…6320 Head {h00=0x000e, h01=0x0050, text=»* FINDTT *«, t00=0x003f, t01=0x00b8}
0x6320…6332 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00ca}
0x6332…633a Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x00dc}
0x633a…6344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00e4}
0x6344…6360 Head {h00=0x0018, h01=0x0050, text=»* FIND TTAB ADDRESS «, t00=0x003f, t01=0x00ee}
0x6360…636a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x010a}
0x636a…6390 Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A7=TASK NUMBER 0-5 «, t00=0x003f, t01=0x0114}
0x6390…639a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x013a}
0x639a…63bc Head {h00=0x001e, h01=0x0050, text=»* EXIT: A5=TTAB ADDRESS«, t00=0x003f, t01=0x0144}
0x63bc…63e8 Head {h00=0x0028, h01=0x0050, text=»* A5=0 TTAB NOT FOUND CR=0 «, t00=0x003f, t01=0x0166}
0x63e8…6400 (64, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A7=-1«, t00=0x0040, t01=0x0004}
0x6400…640a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001c}
0x640a…641e Head {h00=0x0010, h01=0x0050, text=»FINDTT EQU *«, t00=0x0040, t01=0x0026}
0x641e…6430 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0040, t01=0x003a}
0x6430…645a Head {h00=0x0026, h01=0x0050, text=» RF(N) NFOUND ILLEGAL TASK NUMBER «, t00=0x0040, t01=0x004c}
0x645a…6482 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,TTABD ADDRESS TO TASK 0«, t00=0x0040, t01=0x0076}
0x6482…6496 Head {h00=0x0010, h01=0x0050, text=»FIND10 EQU *«, t00=0x0040, t01=0x009e}
0x6496…64a8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0040, t01=0x00b2}
0x64a8…64c8 Head {h00=0x001c, h01=0x0050, text=» RF(N) FINEND TASK FOUND«, t00=0x0040, t01=0x00c4}
0x64c8…64f8 Head {h00=0x002c, h01=0x0050, text=» ADKL A5,TTABLN POINTER TO NEXT TTAB =4 «, t00=0x0040, t01=0x00e4}
0x64f8…650e Head {h00=0x0012, h01=0x0050, text=» CWK A5,TABEND«, t00=0x0040, t01=0x0114}
0x650e…6532 Head {h00=0x0020, h01=0x0050, text=» RB(NE) FIND10 NOT LAST TTAB«, t00=0x0040, t01=0x012a}
0x6532…6546 Head {h00=0x0010, h01=0x0050, text=»NFOUND EQU *«, t00=0x0040, t01=0x014e}
0x6546…6570 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 INDICATE TTAB NOT FOUND «, t00=0x0040, t01=0x0162}
0x6570…6584 Head {h00=0x0010, h01=0x0050, text=»FINEND EQU *«, t00=0x0040, t01=0x018c}
0x6584…6598 Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0041, t01=0x0010}
0x6598…65b2 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A5 SET CR «, t00=0x0041, t01=0x0024}
0x65b2…65c4 Head {h00=0x000e, h01=0x0050, text=» ABR* A15 «, t00=0x0041, t01=0x003e}
0x65c4…65d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0050}
0x65d0…65e6 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0041, t01=0x005c}
0x65e6…65f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0072}
0x65f0…660a Head {h00=0x0016, h01=0x0050, text=» IFF SDM+ADMCDE=0 «, t00=0x0041, t01=0x007c}
0x660a…6614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0096}
0x6614…6626 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00a0}
0x6626…6638 Head {h00=0x000e, h01=0x0050, text=»* ENLFAC *«, t00=0x0041, t01=0x00b2}
0x6638…664a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00c4}
0x664a…6654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d6}
0x6654…668a Head {h00=0x0032, h01=0x0050, text=»* GET ENLARGE FACTOR AND CONVERT TO SECTORS «, t00=0x0041, t01=0x00e0}
0x668a…6694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0116}
0x6694…66b8 Head {h00=0x0020, h01=0x0050, text=»* INPUT : A12=FPB ADDRESS«, t00=0x0041, t01=0x0120}
0x66b8…66ec Head {h00=0x0030, h01=0x0050, text=»* A4=NUMBER OF SECTORS PER BLOCK«, t00=0x0041, t01=0x0144}
0x66ec…6708 Head {h00=0x0018, h01=0x0050, text=»* OUTPUT: A1= RC«, t00=0x0041, t01=0x0178}
0x6708…673c (66, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* A4=NUMBER OF SECTORS PER BLOCK«, t00=0x0042, t01=0x0004}
0x673c…6772 Head {h00=0x0032, h01=0x0050, text=»* A3= ENLARGE IN NUMBER OF SECTORS«, t00=0x0042, t01=0x0038}
0x6772…679c Head {h00=0x0026, h01=0x0050, text=»* A2,A5,A6,A7 ARE USED«, t00=0x0042, t01=0x006e}
0x679c…67a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0098}
0x67a6…67ba Head {h00=0x0010, h01=0x0050, text=»ENLFAC EQU *«, t00=0x0042, t01=0x00a2}
0x67ba…67da Head {h00=0x001c, h01=0x0050, text=» ST A13,-8,A14 SAVE A13 «, t00=0x0042, t01=0x00b6}
0x67da…680a Head {h00=0x002c, h01=0x0050, text=» CF A14,TOTSIZ GET TOTAL LENGTH OF FILE «, t00=0x0042, t01=0x00d6}
0x680a…6828 Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0042, t01=0x0106}
0x6828…684e Head {h00=0x0022, h01=0x0050, text=» LDR A3,A2 CONVERT PERCENTAGE «, t00=0x0042, t01=0x0124}
0x684e…6870 Head {h00=0x001e, h01=0x0050, text=» LD A6,FPB:EL,A12 ENLARGE «, t00=0x0042, t01=0x014a}
0x6870…688e Head {h00=0x001a, h01=0x0050, text=» RF(N) SETCRO OVERFLOW«, t00=0x0042, t01=0x016c}
0x688e…68a0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0042, t01=0x018a}
0x68a0…68b6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENLF30 «, t00=0x0043, t01=0x000c}
0x68b6…68cc Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0043, t01=0x0022}
0x68cc…68de Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0043, t01=0x0038}
0x68de…68fe Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SETCRO OVERFLOW «, t00=0x0043, t01=0x004a}
0x68fe…6920 Head {h00=0x001e, h01=0x0050, text=» LD A6,FPB:EL,A12 ENLARGE «, t00=0x0043, t01=0x006a}
0x6920…6932 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0043, t01=0x008c}
0x6932…693c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009e}
0x693c…6952 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0043, t01=0x00a8}
0x6952…695c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00be}
0x695c…6966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00c8}
0x6966…697a Head {h00=0x0010, h01=0x0050, text=»ENLF30 EQU *«, t00=0x0043, t01=0x00d2}
0x697a…698c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0043, t01=0x00e6}
0x698c…699e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x0043, t01=0x00f8}
0x699e…69b8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ENLF40 ZERO«, t00=0x0043, t01=0x010a}
0x69b8…69ce Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0043, t01=0x0124}
0x69ce…69e2 Head {h00=0x0010, h01=0x0050, text=»ENLF40 EQU *«, t00=0x0043, t01=0x013a}
0x69e2…69f4 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0043, t01=0x014e}
0x69f4…6a12 Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0043, t01=0x0160}
0x6a12…6a26 Head {h00=0x0010, h01=0x0050, text=» LDK A6,100 «, t00=0x0043, t01=0x017e}
0x6a26…6a4e (68, 0, 398) Head {h00=0x0024, h01=0x0050, text=» CF A14,DIVMOD NUMBER OF SECTORS«, t00=0x0044, t01=0x0004}
0x6a4e…6a6c Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0044, t01=0x002c}
0x6a6c…6a7e Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0044, t01=0x004a}
0x6a7e…6a9c Head {h00=0x001a, h01=0x0050, text=» RF(Z) ENLF45 NO REST «, t00=0x0044, t01=0x005c}
0x6a9c…6acc Head {h00=0x002c, h01=0x0050, text=» ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE «, t00=0x0044, t01=0x007a}
0x6acc…6ae0 Head {h00=0x0010, h01=0x0050, text=»ENLF45 EQU *«, t00=0x0044, t01=0x00aa}
0x6ae0…6afc Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 RESET REST«, t00=0x0044, t01=0x00be}
0x6afc…6b2c Head {h00=0x002c, h01=0x0050, text=» LDR A3,A2 ENLARGE IN NUMBER OF SECTORS «, t00=0x0044, t01=0x00da}
0x6b2c…6b5c Head {h00=0x002c, h01=0x0050, text=» LDR A6,A4 NUMBER OF SECTORS PER RECORD «, t00=0x0044, t01=0x010a}
0x6b5c…6b72 Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x0044, t01=0x013a}
0x6b72…6b84 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0044, t01=0x0150}
0x6b84…6bb4 Head {h00=0x002c, h01=0x0050, text=» RF(Z) ENLF60 REST=0,INCLUDING ENLARGE=0«, t00=0x0044, t01=0x0162}
0x6bb4…6bec (69, 0, 400) Head {h00=0x0034, h01=0x0050, text=» SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS«, t00=0x0045, t01=0x0004}
0x6bec…6c00 Head {h00=0x0010, h01=0x0050, text=»ENLF50 EQU *«, t00=0x0045, t01=0x003c}
0x6c00…6c22 Head {h00=0x001e, h01=0x0050, text=» ADR A3,A4 ONE MORE BLOCK «, t00=0x0045, t01=0x0050}
0x6c22…6c42 Head {h00=0x001c, h01=0x0050, text=» RF(NP) SETCRO OVERFLOW «, t00=0x0045, t01=0x0072}
0x6c42…6c56 Head {h00=0x0010, h01=0x0050, text=»ENLF60 EQU *«, t00=0x0045, t01=0x0092}
0x6c56…6c68 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0045, t01=0x00a6}
0x6c68…6c7a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0045, t01=0x00b8}
0x6c7a…6c90 Head {h00=0x0012, h01=0x0050, text=» CF A14,DV3RST«, t00=0x0045, t01=0x00ca}
0x6c90…6cb8 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ENLF50 NOT MULTIPLE OF 3«, t00=0x0045, t01=0x00e0}
0x6cb8…6cde Head {h00=0x0022, h01=0x0050, text=» LD A13,-8,A14 SAVED REGISTER «, t00=0x0045, t01=0x0108}
0x6cde…6cf0 Head {h00=0x000e, h01=0x0050, text=» RF RTNA14«, t00=0x0045, t01=0x012e}
0x6cf0…6d06 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0045, t01=0x0140}
0x6d06…6d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0156}
0x6d10…6d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0160}
0x6d1a…6d2c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x016a}
0x6d2c…6d3e Head {h00=0x000e, h01=0x0050, text=»* CONENL *«, t00=0x0045, t01=0x017c}
0x6d3e…6d50 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x018e}
0x6d50…6d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0010}
0x6d5a…6d9a Head {h00=0x003c, h01=0x0050, text=»* CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE«, t00=0x0046, t01=0x001a}
0x6d9a…6da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005a}
0x6da4…6dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0064}
0x6dae…6dc2 Head {h00=0x0010, h01=0x0050, text=»CONENL EQU *«, t00=0x0046, t01=0x006e}
0x6dc2…6df0 Head {h00=0x002a, h01=0x0050, text=» CF A14,TOTSIZ GET TOTAL SIZE OF FILE «, t00=0x0046, t01=0x0082}
0x6df0…6e12 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A1 SAVE TOTAL SIZE«, t00=0x0046, t01=0x00b0}
0x6e12…6e24 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0046, t01=0x00d2}
0x6e24…6e50 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBENL,A11 ENLARGE IN SECTORS«, t00=0x0046, t01=0x00e4}
0x6e50…6e64 Head {h00=0x0010, h01=0x0050, text=» LDK A7,100 «, t00=0x0046, t01=0x0110}
0x6e64…6e7a Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0046, t01=0x0124}
0x6e7a…6ea4 Head {h00=0x0026, h01=0x0050, text=» SLN A3,A5 NORMALIZE BEFORE DIVIDE«, t00=0x0046, t01=0x013a}
0x6ea4…6eb6 Head {h00=0x000e, h01=0x0050, text=» NGR A5,A5«, t00=0x0046, t01=0x0164}
0x6eb6…6ec8 Head {h00=0x000e, h01=0x0050, text=» ADK A5,15«, t00=0x0046, t01=0x0176}
0x6ec8…6ef4 Head {h00=0x0028, h01=0x0050, text=» RF(NP) CON400 NO NEED TO NORMALIZE «, t00=0x0046, t01=0x0188}
0x6ef4…6f08 Head {h00=0x0010, h01=0x0050, text=»CON200 EQU *«, t00=0x0047, t01=0x0024}
0x6f08…6f3c Head {h00=0x0030, h01=0x0050, text=» SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT «, t00=0x0047, t01=0x0038}
0x6f3c…6f4e Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0047, t01=0x006c}
0x6f4e…6f60 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0047, t01=0x007e}
0x6f60…6f82 Head {h00=0x001e, h01=0x0050, text=» RF(NN) CON300 BIT NOT SET«, t00=0x0047, t01=0x0090}
0x6f82…6f98 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/7FFF«, t00=0x0047, t01=0x00b2}
0x6f98…6fb6 Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/4000 SET BIT«, t00=0x0047, t01=0x00c8}
0x6fb6…6fca Head {h00=0x0010, h01=0x0050, text=»CON300 EQU *«, t00=0x0047, t01=0x00e6}
0x6fca…6fdc Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0047, t01=0x00fa}
0x6fdc…7004 Head {h00=0x0024, h01=0x0050, text=» RB(P) CON200 CONTINUE TO SHIFT «, t00=0x0047, t01=0x010c}
0x7004…7012 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0134}
0x7012…7026 Head {h00=0x0010, h01=0x0050, text=»CON400 EQU *«, t00=0x0047, t01=0x0142}
0x7026…7038 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0047, t01=0x0156}
0x7038…704a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0047, t01=0x0168}
0x704a…7074 Head {h00=0x0026, h01=0x0050, text=» CF A14,DIVMOD ENLARGE IN PERCENT «, t00=0x0047, t01=0x017a}
0x7074…709a Head {h00=0x0022, h01=0x0050, text=» ST A2,FPB:EL,A12 SAVE ENLARGE«, t00=0x0048, t01=0x0014}
0x709a…70aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x003a}
0x70aa…70c0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0048, t01=0x004a}
0x70c0…70ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0060}
0x70ca…70d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x006a}
0x70d4…70e6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x0074}
0x70e6…70f8 Head {h00=0x000e, h01=0x0050, text=»* TOTSIZ *«, t00=0x0048, t01=0x0086}
0x70f8…710a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x0098}
0x710a…7114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00aa}
0x7114…713c Head {h00=0x0024, h01=0x0050, text=»* CALCULATE TOTAL SIZE OF FILE«, t00=0x0048, t01=0x00b4}
0x713c…7146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00dc}
0x7146…716e Head {h00=0x0024, h01=0x0050, text=»* INPUT : A12 = FPB ADDRESS «, t00=0x0048, t01=0x00e6}
0x716e…719c Head {h00=0x002a, h01=0x0050, text=»* OUTPUT: A1,A2=TOTAL SIZE OF FILE«, t00=0x0048, t01=0x010e}
0x719c…71f0 Head {h00=0x0050, h01=0x0050, text=»* A13 = ADDRESS TO LAST SIZE + DIFFFERENCE IN SIZE DISPLACEMENT «, t00=0x0048, t01=0x013c}
0x71f0…720c Head {h00=0x0018, h01=0x0050, text=»* A5 = 0«, t00=0x0048, t01=0x0190}
0x720c…7232 Head {h00=0x0022, h01=0x0050, text=»* A6,A7 ARE USED «, t00=0x0049, t01=0x001c}
0x7232…723c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0042}
0x723c…7250 Head {h00=0x0010, h01=0x0050, text=»TOTSIZ EQU *«, t00=0x0049, t01=0x004c}
0x7250…7264 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A12«, t00=0x0049, t01=0x0060}
0x7264…728c Head {h00=0x0024, h01=0x0050, text=» ADKL A13,FPB:S1 ADDRESS TO SIZE«, t00=0x0049, t01=0x0074}
0x728c…72a6 Head {h00=0x0016, h01=0x0050, text=» LDK A5,4 COUNTER «, t00=0x0049, t01=0x009c}
0x72a6…72b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0049, t01=0x00b6}
0x72b8…72ca Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x00c8}
0x72ca…72de Head {h00=0x0010, h01=0x0050, text=»TOTS10 EQU *«, t00=0x0049, t01=0x00da}
0x72de…72fc Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A13 GET SIZE «, t00=0x0049, t01=0x00ee}
0x72fc…7310 Head {h00=0x0010, h01=0x0050, text=» LD A7,2,A13«, t00=0x0049, t01=0x010c}
0x7310…7334 Head {h00=0x0020, h01=0x0050, text=» CF A14,ADDMOD SUM OF SIZES «, t00=0x0049, t01=0x0120}
0x7334…7352 Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0049, t01=0x0144}
0x7352…7374 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,SIZDIF NEXT SIZE«, t00=0x0049, t01=0x0162}
0x7374…7386 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0049, t01=0x0184}
0x7386…73a4 Head {h00=0x001a, h01=0x0050, text=» RB(P) TOTS10 ADD NEXT«, t00=0x004a, t01=0x0008}
0x73a4…73b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0026}
0x73b0…73be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0032}
0x73be…73d4 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x004a, t01=0x0040}
0x73d4…73dc Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0056}
0x73dc…73ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x005e}
0x73ee…7400 Head {h00=0x000e, h01=0x0050, text=»* RTNA14 *«, t00=0x004a, t01=0x0070}
0x7400…7412 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x0082}
0x7412…741a Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0094}
0x741a…7424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x009c}
0x7424…7446 Head {h00=0x001e, h01=0x0050, text=»* SET CONDITION AND RETURN«, t00=0x004a, t01=0x00a6}
0x7446…7450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00c8}
0x7450…7464 Head {h00=0x0010, h01=0x0050, text=»RTNA14 EQU *«, t00=0x004a, t01=0x00d2}
0x7464…7478 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x004a, t01=0x00e6}
0x7478…748a Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x004a, t01=0x00fa}
0x748a…749c Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x004a, t01=0x010c}
0x749c…74ae Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x004a, t01=0x011e}
0x74ae…74b6 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0130}
0x74b6…74be Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0138}
0x74be…74d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x0140}
0x74d0…74e2 Head {h00=0x000e, h01=0x0050, text=»* SETCRO *«, t00=0x004a, t01=0x0152}
0x74e2…74f4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x0164}
0x74f4…74fc Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0176}
0x74fc…7506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x017e}
0x7506…7528 Head {h00=0x001e, h01=0x0050, text=»* SET OVERFLOW AND RETURN «, t00=0x004a, t01=0x0188}
0x7528…7532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x001a}
0x7532…7546 Head {h00=0x0010, h01=0x0050, text=»SETCRO EQU *«, t00=0x004b, t01=0x0024}
0x7546…755c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8000«, t00=0x004b, t01=0x0038}
0x755c…756e Head {h00=0x000e, h01=0x0050, text=» RB RTNA14«, t00=0x004b, t01=0x004e}
0x756e…757a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0060}
0x757a…7588 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x006c}
0x7588…759a Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x004b, t01=0x007a}
0x759a…75a2 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x008c}
0x75a2…75b4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x0094}
0x75b4…75c6 Head {h00=0x000e, h01=0x0050, text=»* COSZEN *«, t00=0x004b, t01=0x00a6}
0x75c6…75d8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x00b8}
0x75d8…75e0 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00ca}
0x75e0…75ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d2}
0x75ea…7632 Head {h00=0x0044, h01=0x0050, text=»* COSZEN=CONVERT SIZE TO NBR OF RECORS AND ENLARGE TO PERCENTAGE«, t00=0x004b, t01=0x00dc}
0x7632…763c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0124}
0x763c…765c Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A12=FPB ADDRESS«, t00=0x004b, t01=0x012e}
0x765c…767c Head {h00=0x001c, h01=0x0050, text=»* A11=FDB ADDRESS«, t00=0x004b, t01=0x014e}
0x767c…7686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016e}
0x7686…76b6 Head {h00=0x002c, h01=0x0050, text=»* EXIT : SIZE AND ENLARGE UPADTED IN FPB«, t00=0x004b, t01=0x0178}
0x76b6…76e4 Head {h00=0x002a, h01=0x0050, text=»* A1,A2,A3,A4,A5,A6,A7,A13=USED«, t00=0x004c, t01=0x0018}
0x76e4…76ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0046}
0x76ee…7702 Head {h00=0x0010, h01=0x0050, text=»COSZEN EQU *«, t00=0x004c, t01=0x0050}
0x7702…7730 Head {h00=0x002a, h01=0x0050, text=» CF A14,CONENL CONVERT ENLARGE FACTOR «, t00=0x004c, t01=0x0064}
0x7730…773a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0092}
0x773a…7750 Head {h00=0x0012, h01=0x0050, text=»* CONVERT SIZE«, t00=0x004c, t01=0x009c}
0x7750…775a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00b2}
0x775a…777e Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF VOLUMES «, t00=0x004c, t01=0x00bc}
0x777e…779e Head {h00=0x001c, h01=0x0050, text=» LDR A13,A12 FPB ADDRESS«, t00=0x004c, t01=0x00e0}
0x779e…77c8 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,FPB:S1 POINTER TO SIZE 1«, t00=0x004c, t01=0x0100}
0x77c8…77d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x012a}
0x77d6…77ea Head {h00=0x0010, h01=0x0050, text=»COS100 EQU *«, t00=0x004c, t01=0x0138}
0x77ea…77fe Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A13«, t00=0x004c, t01=0x014c}
0x77fe…7828 Head {h00=0x0026, h01=0x0050, text=» LD A2,2,A13 A1,A2=SIZE (SECTORS) «, t00=0x004c, t01=0x0160}
0x7828…785c Head {h00=0x0030, h01=0x0050, text=» LC A6,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK)«, t00=0x004c, t01=0x018a}
0x785c…7870 Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x004d, t01=0x002e}
0x7870…78a0 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 «, t00=0x004d, t01=0x0042}
0x78a0…78be Head {h00=0x001a, h01=0x0050, text=» RB(O) SETCRO OVERFLOW«, t00=0x004d, t01=0x0072}
0x78be…78d0 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004d, t01=0x0090}
0x78d0…7906 Head {h00=0x0032, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK)«, t00=0x004d, t01=0x00a2}
0x7906…791a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x004d, t01=0x00d8}
0x791a…793c Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A6*A7=A1,A2«, t00=0x004d, t01=0x00ec}
0x793c…7950 Head {h00=0x0010, h01=0x0050, text=» STR A1,A13 «, t00=0x004d, t01=0x010e}
0x7950…797a Head {h00=0x0026, h01=0x0050, text=» ST A2,2,A13 A1,A2=SIZE IN RECORDS«, t00=0x004d, t01=0x0122}
0x797a…7992 Head {h00=0x0014, h01=0x0050, text=» ADKL A13,SIZDIF«, t00=0x004d, t01=0x014c}
0x7992…79a4 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x004d, t01=0x0164}
0x79a4…79c4 Head {h00=0x001c, h01=0x0050, text=» RB(P) COS100 NEXT SIZE «, t00=0x004d, t01=0x0176}
0x79c4…79d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0008}
0x79d4…79e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0018}
0x79e0…79ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0024}
0x79ea…79f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x002e}
0x79f4…79fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0038}
0x79fe…7a0a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004e, t01=0x0042}
0x7a0a…7a0e Head {h00=0x4004, h01=0x0000}
0x7a0e…7a12 00 4e 00 4e ┆ N N┆
0x7a12…7a1a (79, 1, 8) 20 04 00 00 00 4f 00 04 ┆ O ┆
0x7a1a…7a6a (80, 0, 400) 00 4f 01 7c 00 06 00 50 2a 20 00 50 00 08 00 14 00 50 46 44 4f 4e 32 30 5c 4c 44 52 5c 41 36 2c 41 31 00 50 00 12 00 10 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 00 50 00 2a 00 14 00 50 5c 4c 44 4b 4c 5c 41 35 2c 44 57 54 53 42 32 20 00 50 ┆ O | P* P PFDON20 LDR A6,A1 P P CM DWTTP,A6 P * P LDKL A5,DWTSB2 P┆
0x7a6a…7aba 00 3e 00 1e 00 50 5c 41 44 52 5c 41 35 2c 41 36 5c 47 45 54 20 53 54 41 43 4b 20 42 41 53 45 20 00 50 00 56 00 06 00 50 2a 20 00 50 00 78 00 36 00 50 46 44 4f 4e 56 4c 5c 45 51 55 5c 2a 5c 45 4e 54 52 59 20 55 53 45 44 20 42 59 20 52 45 41 ┆ > P ADR A5,A6 GET STACK BASE P V P* P x 6 PFDONVL EQU * ENTRY USED BY REA┆
0x7aba…7b0a 44 59 20 49 4e 54 45 52 52 55 50 54 20 52 4f 55 54 49 4e 45 00 50 00 82 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 50 00 bc 00 10 00 50 5c 49 46 54 5c 43 48 41 4e 3d 30 20 00 50 00 d2 00 24 00 50 5c 43 4d 5c 42 55 46 46 4c 47 ┆DY INTERRUPT ROUTINE P P IFT MMUPAG=1 P P IFT CHAN=0 P $ P CM BUFFLG┆
0x7b0a…7b5a 2c 41 36 5c 52 45 53 45 54 20 42 55 46 46 45 52 20 46 4c 41 47 20 00 50 00 e6 00 08 00 50 5c 58 49 46 00 50 01 0e 00 06 00 50 2a 20 00 50 01 1a 00 14 00 50 5c 49 46 46 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 50 01 24 00 34 00 50 5c 49 4d 5c ┆,A6 RESET BUFFER FLAG P P XIF P P* P P IFF TOSS+IBM=0 P $ 4 P IM ┆
0x7b5a…7baa 44 57 54 53 54 32 2c 41 36 5c 53 45 54 20 52 45 43 4f 56 45 52 59 2f 52 45 41 44 59 20 49 4e 54 2e 20 49 4e 44 49 43 41 54 4f 52 20 00 50 01 3c 00 18 00 50 5c 4c 44 4b 5c 41 33 2c 33 5c 34 20 56 4f 4c 55 4d 45 53 20 00 50 01 74 00 06 00 50 ┆DWTST2,A6 SET RECOVERY/READY INT. INDICATOR P < P LDK A3,3 4 VOLUMES P t P┆
0x7baa…7bfa (81, 0, 400) 2a 20 00 50 01 90 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 46 44 30 31 00 51 00 0a 00 06 00 50 2a 20 00 51 00 20 00 06 00 50 2a 20 00 51 00 2a 00 18 00 50 2a 20 20 52 45 41 44 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 51 00 34 00 06 00 50 ┆* P P EJECT DRFD01 Q P* Q P* Q * P* READ VOLUME NAME Q 4 P┆
0x7bfa…7c4a 2a 20 00 51 00 50 00 10 00 50 46 44 4f 4e 4c 44 5c 45 51 55 5c 2a 00 51 00 5a 00 24 00 50 5c 53 43 5c 41 33 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 51 00 6e 00 26 00 50 5c 4c 43 5c 41 34 2c 44 49 58 ┆* Q P PFDONLD EQU * Q Z $ P SC A3,DWTOR,A6 GET VOLUME NAME Q n & P LC A4,DIX┆
0x7c4a…7c9a 54 41 42 2c 41 33 5c 44 52 49 56 45 20 49 4e 44 45 58 20 4d 41 53 4b 20 00 51 00 96 00 1e 00 50 5c 53 43 5c 41 34 2c 44 57 54 41 33 2b 31 2c 41 36 5c 53 41 56 45 20 49 54 20 00 51 00 c0 00 12 00 50 5c 43 46 5c 41 35 2c 53 45 54 43 49 4f 20 ┆TAB,A3 DRIVE INDEX MASK Q P SC A4,DWTA3+1,A6 SAVE IT Q P CF A5,SETCIO ┆
0x7c9a…7cea 00 51 00 e2 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 34 20 00 51 00 f8 00 16 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 5c 4c 4f 43 4b 00 51 01 0c 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 51 01 26 00 1a 00 50 5c 52 46 28 5a 29 5c 46 ┆ Q P LDK A2,/14 Q P CF A5,FD:REA LOCK Q P ANK A3,1 Q & P RF(Z) F┆
0x7cea…7d3a 44 4f 4e 31 39 5c 4f 50 45 52 41 42 4c 45 00 51 01 38 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 36 5c 4e 4f 54 20 4f 50 45 52 41 42 4c 45 00 51 01 56 00 24 00 50 5c 43 46 5c 41 31 35 2c 56 4f 4c 43 4c 52 5c 43 4c 45 41 52 20 56 4f 4c 55 4d 45 20 ┆DON19 OPERABLE Q 8 P LDK A1,6 NOT OPERABLE Q V $ P CF A15,VOLCLR CLEAR VOLUME ┆
0x7d3a…7d8a (82, 0, 400) 4e 41 4d 45 00 51 01 74 00 26 00 50 5c 52 46 5c 46 44 4f 4e 32 31 5c 43 4f 4e 54 49 4e 55 45 20 57 49 54 48 20 4e 45 58 54 20 44 49 53 43 00 52 00 0c 00 06 00 50 2a 20 00 52 00 36 00 10 00 50 46 44 4f 4e 31 39 5c 45 51 55 5c 2a 00 52 00 40 ┆NAME Q t & P RF FDON21 CONTINUE WITH NEXT DISC R P* R 6 PFDON19 EQU * R @┆
0x7d8a…7dda 00 12 00 50 5c 43 46 5c 41 35 2c 56 4f 3a 4e 41 4d 20 00 52 00 54 00 26 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 46 42 46 46 5c 52 45 53 45 54 20 49 42 4d 20 49 4e 44 2e 20 42 49 54 20 00 52 00 6a 00 2c 00 50 5c 41 4e 52 53 5c 41 32 2c 41 36 5c ┆ P CF A5,VO:NAM R T & P LDKL A2,/FBFF RESET IBM IND. BIT R j , P ANRS A2,A6 ┆
0x7dda…7e2a 55 50 44 41 54 45 20 54 45 4d 50 4f 52 41 52 59 20 52 45 54 55 52 4e 20 43 4f 44 45 00 52 00 94 00 10 00 50 46 44 4f 4e 32 31 5c 45 51 55 5c 2a 00 52 00 c4 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 2f 43 00 52 00 d8 00 18 00 50 5c 43 46 5c 41 35 ┆UPDATE TEMPORARY RETURN CODE R PFDON21 EQU * R P LDK A2,/C R P CF A5┆
0x7e2a…7e7a 2c 46 44 3a 52 45 41 5c 55 4e 4c 4f 43 4b 00 52 00 ea 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 52 01 06 00 2c 00 50 5c 4c 43 5c 41 33 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 49 4e 44 45 58 20 46 4f 52 20 4c 41 53 54 20 56 4f 4c 2e 20 ┆,FD:REA UNLOCK R P LDK A3,0 R , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. ┆
0x7e7a…7eca 00 52 01 18 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 31 20 00 52 01 48 00 1e 00 50 5c 52 42 28 4e 4e 29 5c 46 44 4f 4e 4c 44 5c 4e 45 58 54 20 56 4f 4c 55 4d 45 00 52 01 5a 00 10 00 50 5c 43 4d 5c 44 57 54 4f 52 2c 41 36 00 52 01 7c 00 28 00 50 ┆ R P SUK A3,1 R H P RB(NN) FDONLD NEXT VOLUME R Z P CM DWTOR,A6 R | ( P┆
0x7eca…7f1a (83, 0, 400) 5c 43 4d 5c 44 57 54 53 54 32 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 56 4f 4c 55 4d 45 53 20 52 45 41 44 20 00 52 01 90 00 08 00 50 5c 58 49 46 00 53 00 2c 00 2c 00 50 5c 49 4d 5c 44 57 54 53 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 56 4f ┆ CM DWTST2,A6 INDICATE VOLUMES READ R P XIF S , , P IM DWTST,A6 INDICATE VO┆
0x7f1a…7f6a 4c 55 4d 45 20 4e 41 4d 45 53 20 52 45 41 44 20 00 53 00 38 00 06 00 50 2a 20 00 53 00 68 00 12 00 50 5c 49 46 54 5c 4f 50 43 4c 4f 53 3d 31 20 00 53 00 72 00 06 00 50 2a 20 00 53 00 88 00 0a 00 50 5c 45 4a 45 43 54 00 53 00 92 00 06 00 50 ┆LUME NAMES READ S 8 P* S h P IFT OPCLOS=1 S r P* S P EJECT S P┆
0x7f6a…7fba 2a 20 00 53 00 a0 00 3a 00 50 2a 20 20 20 20 54 45 52 4d 49 4e 41 54 45 20 57 41 49 54 20 52 45 51 55 45 53 54 20 46 4f 52 20 4f 50 45 4e 20 4f 52 44 45 52 20 49 46 20 52 55 4e 4e 49 4e 47 20 00 53 00 aa 00 06 00 50 2a 20 00 53 00 e8 00 22 ┆* S : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING S P* S "┆
0x7fba…800a 00 50 5c 4c 44 5c 41 34 2c 44 57 54 54 50 32 2c 41 36 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 00 53 00 f2 00 1e 00 50 5c 52 46 28 5a 29 5c 46 44 4f 4e 30 39 5c 4e 4f 54 20 52 55 4e 4e 49 4e 47 20 00 53 01 18 00 16 00 50 5c 43 4d 52 5c 41 ┆ P LD A4,DWTTP2,A6 TIMER POINTER S P RF(Z) FDON09 NOT RUNNING S P CMR A┆
0x800a…805a 34 5c 53 54 4f 50 20 54 49 4d 45 52 00 53 01 3a 00 24 00 50 5c 43 4d 5c 44 57 54 54 50 32 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 54 49 4d 45 52 20 00 53 01 54 00 10 00 50 46 44 4f 4e 30 39 5c 45 51 55 5c 2a 00 53 01 7c 00 06 00 50 ┆4 STOP TIMER S : $ P CM DWTTP2,A6 INDICATE NO TIMER S T PFDON09 EQU * S | P┆
0x805a…80aa (84, 0, 398) 2a 20 00 53 01 90 00 36 00 50 2a 20 20 20 20 4f 50 45 4e 20 46 44 20 54 4f 20 4d 41 4b 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4c 4f 43 4b 20 4f 52 44 45 52 20 50 4f 53 53 49 42 4c 45 00 54 00 0a 00 06 00 50 2a 20 00 54 00 44 00 32 00 50 5c 4c ┆* S 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE T P* T D 2 P L┆
0x80aa…80fa 44 4b 4c 5c 41 34 2c 53 50 44 4c 43 49 5c 4f 50 45 4e 2f 43 4c 4f 53 45 20 53 54 41 54 55 53 20 57 4f 52 44 20 41 44 44 52 45 53 53 00 54 00 4e 00 26 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 38 30 30 30 5c 4f 50 45 4e 2f 43 4c 4f 53 45 20 42 49 ┆DKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS T N & P LDKL A2,/8000 OPEN/CLOSE BI┆
0x80fa…814a 54 20 4d 41 53 4b 00 54 00 84 00 24 00 50 5c 41 4e 52 2a 5c 41 32 2c 41 34 5c 41 32 3a 3d 4f 50 45 4e 2f 43 4c 4f 53 45 20 46 4c 41 47 20 00 54 00 ae 00 1a 00 50 5c 4f 52 53 5c 41 32 2c 44 57 54 4f 43 46 2c 41 36 5c 53 41 56 45 00 54 00 d6 ┆T MASK T $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG T P ORS A2,DWTOCF,A6 SAVE T ┆
0x814a…819a 00 28 00 50 5c 58 52 52 53 5c 41 32 2c 41 34 5c 53 45 54 20 53 54 41 54 55 53 20 57 4f 52 44 20 54 4f 20 4f 50 45 4e 20 00 54 00 f4 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 34 20 00 54 01 20 00 26 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 53 4f ┆ ( P XRRS A2,A4 SET STATUS WORD TO OPEN T P LDR* A2,A4 T & P OTR A2,0,SO┆
0x819a…81e8 50 44 41 5c 53 45 54 20 44 52 49 56 45 20 54 4f 20 4f 50 45 4e 20 00 54 01 34 00 06 00 50 2a 20 00 54 01 5e 00 10 00 50 46 44 4f 4e 32 33 5c 45 51 55 5c 2a 00 54 01 68 00 08 00 50 5c 58 49 46 00 54 01 7c 00 06 00 50 2a 20 00 54 01 88 ┆PDA SET DRIVE TO OPEN T 4 P* T ^ PFDON23 EQU * T h P XIF T | P* T ┆