|
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: 33268 (0x81f4)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/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 00000 * * IF SDM HANDLING NOT WANTED PUT X:B EQU 0 * X:B EQU 0 SDM EQU 00001 * * * IF EDM HANDLING WANTED PUT X:C EQU 1 * * X:C EQU 0 EDM EQU 00000 * * 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 00004 * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * X:C = INDEX RECORD BUFFER SIZE IN WORDS * X:E EQU 0 RECBFZ EQU 00007 * * 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 00000 * 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…0eb4 Head {h00=0x0012, h01=0x0050, text=»ADM EQU 00000 «, t00=0x0009, t01=0x0094}
0x0eb4…0ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebe…0ef2 Head {h00=0x0030, h01=0x0050, text=»* IF SDM HANDLING NOT WANTED PUT X:B EQU 0«, t00=0x0009, t01=0x00b4}
0x0ef2…0efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efc…0f0e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x00f2}
0x0f0e…0f24 Head {h00=0x0012, h01=0x0050, text=»SDM EQU 00001 «, t00=0x0009, t01=0x0104}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f2e…0f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f38…0f68 Head {h00=0x002c, h01=0x0050, text=»* IF EDM HANDLING WANTED PUT X:C EQU 1«, t00=0x0009, t01=0x012e}
0x0f68…0f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f72…0f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f7c…0f8e Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0009, t01=0x0172}
0x0f8e…0fa4 Head {h00=0x0012, h01=0x0050, text=»EDM EQU 00000 «, t00=0x0009, t01=0x0184}
0x0fa4…0fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000a}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fce Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x000a, t01=0x001e}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fd8…0fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003e}
0x0fe2…1012 Head {h00=0x002c, h01=0x0050, text=»* NUMBER OF DM TASKS IS DEFINED BY X:B. «, t00=0x000a, t01=0x0048}
0x1012…1046 Head {h00=0x0030, h01=0x0050, text=»* ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED.«, t00=0x000a, t01=0x0078}
0x1046…1074 Head {h00=0x002a, h01=0x0050, text=»* ALL OTHER VALUES WILL GIVE 2 TASKS. «, t00=0x000a, t01=0x00ac}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107e…1090 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x000a, t01=0x00e4}
0x1090…10a8 Head {h00=0x0014, h01=0x0050, text=»NTASKS EQU 00004«, t00=0x000a, t01=0x00f6}
0x10a8…10da Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x010e}
0x10da…1108 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0140}
0x1108…1112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016e}
0x1112…1126 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000a, t01=0x0178}
0x1126…1130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x1130…1166 Head {h00=0x0032, h01=0x0050, text=»* X:C = INDEX RECORD BUFFER SIZE IN WORDS«, t00=0x000b, t01=0x0008}
0x1166…1170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003e}
0x1170…1182 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000b, t01=0x0048}
0x1182…119a Head {h00=0x0014, h01=0x0050, text=»RECBFZ EQU 00007«, t00=0x000b, t01=0x005a}
0x119a…11a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0072}
0x11a4…11f0 Head {h00=0x0048, h01=0x0050, text=»* AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD «, t00=0x000b, t01=0x007c}
0x11f0…121a Head {h00=0x0026, h01=0x0050, text=»* IS OBTAINED BY SETTING X:F EQU 0«, t00=0x000b, t01=0x00c8}
0x121a…1224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x1224…1236 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000b, t01=0x00fc}
0x1236…124e Head {h00=0x0014, h01=0x0050, text=»CRDEEX EQU 00000«, t00=0x000b, t01=0x010e}
0x124e…1258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0126}
0x1258…126e Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x000b, t01=0x0130}
0x126e…1278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x1278…1282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0150}
0x1282…129e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000b, t01=0x015a}
0x129e…12ba Head {h00=0x0018, h01=0x0050, text=»* COMBINED * «, t00=0x000b, t01=0x0176}
0x12ba…12d6 (12, 0, 398) Head {h00=0x0018, h01=0x0050, text=»* CONDITIONS * «, t00=0x000c, t01=0x0004}
0x12d6…12f2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0020}
0x12f2…12fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x12fc…1316 Head {h00=0x0016, h01=0x0050, text=» IFT ADM+CRDEEX=2 «, t00=0x000c, t01=0x0046}
0x1316…132a Head {h00=0x0010, h01=0x0050, text=»ADMCDE EQU 1«, t00=0x000c, t01=0x0060}
0x132a…1336 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0074}
0x1336…1350 Head {h00=0x0016, h01=0x0050, text=» IFF ADM+CRDEEX=2 «, t00=0x000c, t01=0x0080}
0x1350…1364 Head {h00=0x0010, h01=0x0050, text=»ADMCDE EQU 0«, t00=0x000c, t01=0x009a}
0x1364…1370 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00ae}
0x1370…1388 Head {h00=0x0014, h01=0x0050, text=»* IF ADM AND SDM«, t00=0x000c, t01=0x00ba}
0x1388…139e Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=2«, t00=0x000c, t01=0x00d2}
0x139e…13b2 Head {h00=0x0010, h01=0x0050, text=»ADMSDM EQU 1«, t00=0x000c, t01=0x00e8}
0x13b2…13be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00fc}
0x13be…13d4 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=2«, t00=0x000c, t01=0x0108}
0x13d4…13e8 Head {h00=0x0010, h01=0x0050, text=»ADMSDM EQU 0«, t00=0x000c, t01=0x011e}
0x13e8…13f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0132}
0x13f4…1416 Head {h00=0x001e, h01=0x0050, text=»* ADMEDM=1 IF ADM AND EDM «, t00=0x000c, t01=0x013e}
0x1416…142c Head {h00=0x0012, h01=0x0050, text=» IFT ADM+EDM=2«, t00=0x000c, t01=0x0160}
0x142c…1440 Head {h00=0x0010, h01=0x0050, text=»ADMEDM EQU 1«, t00=0x000c, t01=0x0176}
0x1440…144c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x018a}
0x144c…1462 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+EDM=2«, t00=0x000d, t01=0x0008}
0x1462…1476 Head {h00=0x0010, h01=0x0050, text=»ADMEDM EQU 0«, t00=0x000d, t01=0x001e}
0x1476…1482 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0032}
0x1482…14a6 Head {h00=0x0020, h01=0x0050, text=»* ADM000=1 IF NOT EDM OR SDM«, t00=0x000d, t01=0x003e}
0x14a6…14bc Head {h00=0x0012, h01=0x0050, text=» IFT SDM+EDM=0«, t00=0x000d, t01=0x0062}
0x14bc…14d0 Head {h00=0x0010, h01=0x0050, text=»ADM000 EQU 1«, t00=0x000d, t01=0x0078}
0x14d0…14dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x008c}
0x14dc…14f2 Head {h00=0x0012, h01=0x0050, text=» IFF SDM+EDM=0«, t00=0x000d, t01=0x0098}
0x14f2…1506 Head {h00=0x0010, h01=0x0050, text=»ADM000 EQU 0«, t00=0x000d, t01=0x00ae}
0x1506…1512 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00c2}
0x1512…1536 Head {h00=0x0020, h01=0x0050, text=»* SDM000=1 IF NOT ADM OR EDM«, t00=0x000d, t01=0x00ce}
0x1536…154c Head {h00=0x0012, h01=0x0050, text=» IFT ADM+EDM=0«, t00=0x000d, t01=0x00f2}
0x154c…1560 Head {h00=0x0010, h01=0x0050, text=»SDM000 EQU 1«, t00=0x000d, t01=0x0108}
0x1560…156c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x011c}
0x156c…1582 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+EDM=0«, t00=0x000d, t01=0x0128}
0x1582…1596 Head {h00=0x0010, h01=0x0050, text=»SDM000 EQU 0«, t00=0x000d, t01=0x013e}
0x1596…15a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0152}
0x15a2…15c6 Head {h00=0x0020, h01=0x0050, text=»* EDM000=1 IF NOT ADM OR SDM«, t00=0x000d, t01=0x015e}
0x15c6…15dc Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x000d, t01=0x0182}
0x15dc…15f0 Head {h00=0x0010, h01=0x0050, text=»EDM000 EQU 1«, t00=0x000e, t01=0x0008}
0x15f0…15fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x001c}
0x15fc…1612 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x000e, t01=0x0028}
0x1612…1626 Head {h00=0x0010, h01=0x0050, text=»EDM000 EQU 0«, t00=0x000e, t01=0x003e}
0x1626…1632 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0052}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005e}
0x163c…164a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0068}
0x164a…1654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x1654…166c Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x000e, t01=0x0080}
0x166c…1676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0098}
0x1676…16a4 Head {h00=0x002a, h01=0x0050, text=»EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS«, t00=0x000e, t01=0x00a2}
0x16a4…16ce Head {h00=0x0026, h01=0x0050, text=»PROT EQU /0040 THIS DATA PROTECTED«, t00=0x000e, t01=0x00d0}
0x16ce…16f8 Head {h00=0x0026, h01=0x0050, text=»NODERR EQU /8800 NO EXPECTED DATA «, t00=0x000e, t01=0x00fa}
0x16f8…1728 Head {h00=0x002c, h01=0x0050, text=»KEYERR EQU /8400 EXPECTED KEY NOT FOUND «, t00=0x000e, t01=0x0124}
0x1728…175e Head {h00=0x0032, h01=0x0050, text=»PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS «, t00=0x000e, t01=0x0154}
0x175e…178c Head {h00=0x002a, h01=0x0050, text=»REQERR EQU /8000 GENERAL REQUEST ERROR«, t00=0x000e, t01=0x018a}
0x178c…17b2 Head {h00=0x0022, h01=0x0050, text=»REQER2 EQU /FFFE REQUEST ERROR«, t00=0x000f, t01=0x0028}
0x17b2…17dc Head {h00=0x0026, h01=0x0050, text=»LGTERR EQU /0008 INCORRECT LENGTH «, t00=0x000f, t01=0x004e}
0x17dc…180a Head {h00=0x002a, h01=0x0050, text=»EDMERR EQU /8080 DATA MANAGEMENT ERROR«, t00=0x000f, t01=0x0078}
0x180a…182e Head {h00=0x0020, h01=0x0050, text=»EOFERR EQU /9000 END OF FILE«, t00=0x000f, t01=0x00a6}
0x182e…1838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x1838…184c Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x000f, t01=0x00d4}
0x184c…1856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x1856…187c Head {h00=0x0022, h01=0x0050, text=»RETRIE EQU /0100 DISC RETRIES «, t00=0x000f, t01=0x00f2}
0x187c…18a4 Head {h00=0x0024, h01=0x0050, text=»NOKEY EQU /0400 NOT SEARCHED KEY«, t00=0x000f, t01=0x0118}
0x18a4…18ca Head {h00=0x0022, h01=0x0050, text=»NXTKYS EQU /0200 NEXT KEY SAME«, t00=0x000f, t01=0x0140}
0x18ca…18ee Head {h00=0x0020, h01=0x0050, text=»EOFRC EQU /1000 END OF FILE «, t00=0x000f, t01=0x0166}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018a}
0x18f8…1930 (16, 0, 400) Head {h00=0x0034, h01=0x0050, text=»MMTAB1 FORM 16=/0000,16=/0400,16=/0800,16=/0C00 «, t00=0x0010, t01=0x0004}
0x1930…1968 Head {h00=0x0034, h01=0x0050, text=»MMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 «, t00=0x0010, t01=0x003c}
0x1968…19a0 Head {h00=0x0034, h01=0x0050, text=»MMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 «, t00=0x0010, t01=0x0074}
0x19a0…19d8 Head {h00=0x0034, h01=0x0050, text=»MMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 «, t00=0x0010, t01=0x00ac}
0x19d8…19e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e4}
0x19e2…19f6 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS «, t00=0x0010, t01=0x00ee}
0x19f6…1a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0102}
0x1a00…1a16 Head {h00=0x0012, h01=0x0050, text=»SIZDIF EQU 10 «, t00=0x0010, t01=0x010c}
0x1a16…1a3c Head {h00=0x0022, h01=0x0050, text=»STCRES EQU 14 TASK STACK SIZE «, t00=0x0010, t01=0x0122}
0x1a3c…1a4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0148}
0x1a4a…1a60 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=3 «, t00=0x0010, t01=0x0156}
0x1a60…1a76 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=4 «, t00=0x0010, t01=0x016c}
0x1a76…1a8c Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=5 «, t00=0x0010, t01=0x0182}
0x1a8c…1aa2 Head {h00=0x0012, h01=0x0050, text=» IFF NTASKS=6 «, t00=0x0011, t01=0x0008}
0x1aa2…1ab2 Head {h00=0x000c, h01=0x0050, text=»F EQU 0 «, t00=0x0011, t01=0x001e}
0x1ab2…1ac2 Head {h00=0x000c, h01=0x0050, text=»G EQU 0 «, t00=0x0011, t01=0x002e}
0x1ac2…1ad2 Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x003e}
0x1ad2…1ae2 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x004e}
0x1ae2…1aee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x005e}
0x1aee…1b04 Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=3 «, t00=0x0011, t01=0x006a}
0x1b04…1b14 Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x0080}
0x1b14…1b24 Head {h00=0x000c, h01=0x0050, text=»G EQU 0 «, t00=0x0011, t01=0x0090}
0x1b24…1b34 Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x00a0}
0x1b34…1b44 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x00b0}
0x1b44…1b50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00c0}
0x1b50…1b66 Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=4 «, t00=0x0011, t01=0x00cc}
0x1b66…1b76 Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x00e2}
0x1b76…1b86 Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0011, t01=0x00f2}
0x1b86…1b96 Head {h00=0x000c, h01=0x0050, text=»H EQU 0 «, t00=0x0011, t01=0x0102}
0x1b96…1ba6 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x0112}
0x1ba6…1bb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0122}
0x1bb2…1bc8 Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=5 «, t00=0x0011, t01=0x012e}
0x1bc8…1bd8 Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0011, t01=0x0144}
0x1bd8…1be8 Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0011, t01=0x0154}
0x1be8…1bf8 Head {h00=0x000c, h01=0x0050, text=»H EQU 1 «, t00=0x0011, t01=0x0164}
0x1bf8…1c08 Head {h00=0x000c, h01=0x0050, text=»I EQU 0 «, t00=0x0011, t01=0x0174}
0x1c08…1c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0184}
0x1c14…1c2a Head {h00=0x0012, h01=0x0050, text=» IFT NTASKS=6 «, t00=0x0011, t01=0x0190}
0x1c2a…1c3a Head {h00=0x000c, h01=0x0050, text=»F EQU 1 «, t00=0x0012, t01=0x0016}
0x1c3a…1c4a Head {h00=0x000c, h01=0x0050, text=»G EQU 1 «, t00=0x0012, t01=0x0026}
0x1c4a…1c5a Head {h00=0x000c, h01=0x0050, text=»H EQU 1 «, t00=0x0012, t01=0x0036}
0x1c5a…1c6a Head {h00=0x000c, h01=0x0050, text=»I EQU 1 «, t00=0x0012, t01=0x0046}
0x1c6a…1c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0056}
0x1c76…1c8c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0062}
0x1c8c…1ca2 Head {h00=0x0012, h01=0x0050, text=»MMTABL EQU 32 «, t00=0x0012, t01=0x0078}
0x1ca2…1cae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x008e}
0x1cae…1cc4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x009a}
0x1cc4…1cd8 Head {h00=0x0010, h01=0x0050, text=»MMTABL EQU 0«, t00=0x0012, t01=0x00b0}
0x1cd8…1ce4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00c4}
0x1ce4…1cf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d0}
0x1cf2…1d08 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x0012, t01=0x00de}
0x1d08…1d1c Head {h00=0x0010, h01=0x0050, text=»TTABST EQU *«, t00=0x0012, t01=0x00f4}
0x1d1c…1d30 Head {h00=0x0010, h01=0x0050, text=»TTABD EQU * «, t00=0x0012, t01=0x0108}
0x1d30…1d4c Head {h00=0x0018, h01=0x0050, text=»TTABLN EQU *-TTABST «, t00=0x0012, t01=0x011c}
0x1d4c…1d60 Head {h00=0x0010, h01=0x0050, text=»TABEND EQU *«, t00=0x0012, t01=0x0138}
0x1d60…1d74 Head {h00=0x0010, h01=0x0050, text=»DMTTSB EQU *«, t00=0x0012, t01=0x014c}
0x1d74…1d8e Head {h00=0x0016, h01=0x0050, text=»SDMSTS EQU TTABLN «, t00=0x0012, t01=0x0160}
0x1d8e…1da8 Head {h00=0x0016, h01=0x0050, text=»SDMTTD EQU TTABLN «, t00=0x0012, t01=0x017a}
0x1da8…1dbc (19, 0, 400) Head {h00=0x0010, h01=0x0050, text=»SDMBF1 EQU *«, t00=0x0013, t01=0x0004}
0x1dbc…1dd0 Head {h00=0x0010, h01=0x0050, text=»SDMBF2 EQU *«, t00=0x0013, t01=0x0018}
0x1dd0…1ddc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x002c}
0x1ddc…1df2 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0013, t01=0x0038}
0x1df2…1dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1dfc…1e20 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0013, t01=0x0058}
0x1e20…1e42 Head {h00=0x001e, h01=0x0050, text=»* TTAB:S FOR DM TASKS * «, t00=0x0013, t01=0x007c}
0x1e42…1e64 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0013, t01=0x009e}
0x1e64…1e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e6e…1e82 Head {h00=0x0010, h01=0x0050, text=»TTABST EQU *«, t00=0x0013, t01=0x00ca}
0x1e82…1e92 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0013, t01=0x00de}
0x1e92…1ea2 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0013, t01=0x00ee}
0x1ea2…1eb2 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0013, t01=0x00fe}
0x1eb2…1ec2 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0013, t01=0x010e}
0x1ec2…1ed8 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0013, t01=0x011e}
0x1ed8…1efc Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0013, t01=0x0134}
0x1efc…1f22 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0013, t01=0x0158}
0x1f22…1f48 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0013, t01=0x017e}
0x1f48…1f7a Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0014, t01=0x0014}
0x1f7a…1f82 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0046}
0x1f82…1f96 Head {h00=0x0010, h01=0x0050, text=»TTABD EQU * «, t00=0x0014, t01=0x004e}
0x1f96…1fbc Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0014, t01=0x0062}
0x1fbc…1fd6 Head {h00=0x0016, h01=0x0050, text=» DATA '#D' TASK ID«, t00=0x0014, t01=0x0088}
0x1fd6…1ff2 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0014, t01=0x00a2}
0x1ff2…2012 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0014, t01=0x00be}
0x2012…202a Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0014, t01=0x00de}
0x202a…204a Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0014, t01=0x00f6}
0x204a…207e Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0014, t01=0x0116}
0x207e…20a0 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0014, t01=0x014a}
0x20a0…20c8 Head {h00=0x0024, h01=0x0050, text=» DATA TTABDE-* TERMINAL DEVICES «, t00=0x0014, t01=0x016c}
0x20c8…20e2 (21, 0, 398) Head {h00=0x0016, h01=0x0050, text=»TTABTD EQU *-TTABD«, t00=0x0015, t01=0x0004}
0x20e2…2106 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0015, t01=0x001e}
0x2106…211a Head {h00=0x0010, h01=0x0050, text=»TTABDE EQU *«, t00=0x0015, t01=0x0042}
0x211a…2138 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0015, t01=0x0056}
0x2138…2156 Head {h00=0x001a, h01=0x0050, text=»SDMSTS EQU *-TTABDE-2 «, t00=0x0015, t01=0x0074}
0x2156…2172 Head {h00=0x0018, h01=0x0050, text=»DMTTSB EQU *-2-TTABD«, t00=0x0015, t01=0x0092}
0x2172…218c Head {h00=0x0016, h01=0x0050, text=»TTBBF1 EQU *-TTABD«, t00=0x0015, t01=0x00ae}
0x218c…21a6 Head {h00=0x0016, h01=0x0050, text=» RES RECBFZ BUFAR1«, t00=0x0015, t01=0x00c8}
0x21a6…21c0 Head {h00=0x0016, h01=0x0050, text=»TTBBF2 EQU *-TTABD«, t00=0x0015, t01=0x00e2}
0x21c0…21da Head {h00=0x0016, h01=0x0050, text=» RES RECBFZ BUFAR2«, t00=0x0015, t01=0x00fc}
0x21da…21f6 Head {h00=0x0018, h01=0x0050, text=»TTABLN EQU *-TTABST «, t00=0x0015, t01=0x0116}
0x21f6…2216 Head {h00=0x001c, h01=0x0050, text=»SDMTTD EQU TTABTD-DMTTSB«, t00=0x0015, t01=0x0132}
0x2216…2236 Head {h00=0x001c, h01=0x0050, text=»SDMBF1 EQU TTBBF1-DMTTSB«, t00=0x0015, t01=0x0152}
0x2236…2256 Head {h00=0x001c, h01=0x0050, text=»SDMBF2 EQU TTBBF2-DMTTSB«, t00=0x0015, t01=0x0172}
0x2256…2264 (22, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0004}
0x2264…2274 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0016, t01=0x0012}
0x2274…2284 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0016, t01=0x0022}
0x2284…2294 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0016, t01=0x0032}
0x2294…22a4 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0016, t01=0x0042}
0x22a4…22ba Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0016, t01=0x0052}
0x22ba…22de Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0016, t01=0x0068}
0x22de…2304 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0016, t01=0x008c}
0x2304…232a Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0016, t01=0x00b2}
0x232a…235c Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0016, t01=0x00d8}
0x235c…2364 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x010a}
0x2364…2378 Head {h00=0x0010, h01=0x0050, text=»TTABE EQU * «, t00=0x0016, t01=0x0112}
0x2378…239e Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0016, t01=0x0126}
0x239e…23b8 Head {h00=0x0016, h01=0x0050, text=» DATA '#E' TASK ID«, t00=0x0016, t01=0x014c}
0x23b8…23d4 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0016, t01=0x0166}
0x23d4…23f4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0016, t01=0x0182}
0x23f4…240c Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0017, t01=0x0012}
0x240c…242c Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0017, t01=0x002a}
0x242c…2460 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0017, t01=0x004a}
0x2460…2482 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0017, t01=0x007e}
0x2482…24aa Head {h00=0x0024, h01=0x0050, text=» DATA TTABEE-* TERMINAL DEVICES «, t00=0x0017, t01=0x00a0}
0x24aa…24ce Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0017, t01=0x00c8}
0x24ce…24e2 Head {h00=0x0010, h01=0x0050, text=»TTABEE EQU *«, t00=0x0017, t01=0x00ec}
0x24e2…2500 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0017, t01=0x0100}
0x2500…2528 Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x0017, t01=0x011e}
0x2528…2538 Head {h00=0x000c, h01=0x0050, text=» IFT F=1«, t00=0x0017, t01=0x0146}
0x2538…2546 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0156}
0x2546…2556 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0017, t01=0x0164}
0x2556…2566 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0017, t01=0x0174}
0x2566…2576 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0017, t01=0x0184}
0x2576…2586 (24, 0, 400) Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0018, t01=0x0004}
0x2586…259c Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0018, t01=0x0014}
0x259c…25c0 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0018, t01=0x002a}
0x25c0…25e6 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x0018, t01=0x004e}
0x25e6…260c Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x0018, t01=0x0074}
0x260c…263e Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x0018, t01=0x009a}
0x263e…2646 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00cc}
0x2646…265a Head {h00=0x0010, h01=0x0050, text=»TTABF EQU * «, t00=0x0018, t01=0x00d4}
0x265a…2680 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0018, t01=0x00e8}
0x2680…269a Head {h00=0x0016, h01=0x0050, text=» DATA '#F' TASK ID«, t00=0x0018, t01=0x010e}
0x269a…26b6 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x0018, t01=0x0128}
0x26b6…26d6 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0018, t01=0x0144}
0x26d6…26ee Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x0018, t01=0x0164}
0x26ee…270e Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0018, t01=0x017c}
0x270e…2742 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x0019, t01=0x000c}
0x2742…2764 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x0019, t01=0x0040}
0x2764…278c Head {h00=0x0024, h01=0x0050, text=» DATA TTABFE-* TERMINAL DEVICES «, t00=0x0019, t01=0x0062}
0x278c…27b0 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x0019, t01=0x008a}
0x27b0…27c4 Head {h00=0x0010, h01=0x0050, text=»TTABFE EQU *«, t00=0x0019, t01=0x00ae}
0x27c4…27e2 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x0019, t01=0x00c2}
0x27e2…280a Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x0019, t01=0x00e0}
0x280a…281a Head {h00=0x000c, h01=0x0050, text=» IFT G=1«, t00=0x0019, t01=0x0108}
0x281a…2828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0118}
0x2828…2838 Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x0019, t01=0x0126}
0x2838…2848 Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x0019, t01=0x0136}
0x2848…2858 Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x0019, t01=0x0146}
0x2858…2868 Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x0019, t01=0x0156}
0x2868…287e Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x0019, t01=0x0166}
0x287e…28a2 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x0019, t01=0x017c}
0x28a2…28c8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x001a, t01=0x0010}
0x28c8…28ee Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001a, t01=0x0036}
0x28ee…2920 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001a, t01=0x005c}
0x2920…2928 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x008e}
0x2928…293c Head {h00=0x0010, h01=0x0050, text=»TTABG EQU * «, t00=0x001a, t01=0x0096}
0x293c…2962 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001a, t01=0x00aa}
0x2962…297c Head {h00=0x0016, h01=0x0050, text=» DATA '#G' TASK ID«, t00=0x001a, t01=0x00d0}
0x297c…2998 Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001a, t01=0x00ea}
0x2998…29b8 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001a, t01=0x0106}
0x29b8…29d0 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001a, t01=0x0126}
0x29d0…29f0 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001a, t01=0x013e}
0x29f0…2a24 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001a, t01=0x015e}
0x2a24…2a46 (27, 0, 400) Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001b, t01=0x0004}
0x2a46…2a6e Head {h00=0x0024, h01=0x0050, text=» DATA TTABGE-* TERMINAL DEVICES «, t00=0x001b, t01=0x0026}
0x2a6e…2a92 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001b, t01=0x004e}
0x2a92…2aa6 Head {h00=0x0010, h01=0x0050, text=»TTABGE EQU *«, t00=0x001b, t01=0x0072}
0x2aa6…2ac4 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001b, t01=0x0086}
0x2ac4…2aec Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001b, t01=0x00a4}
0x2aec…2afc Head {h00=0x000c, h01=0x0050, text=» IFT H=1«, t00=0x001b, t01=0x00cc}
0x2afc…2b0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00dc}
0x2b0a…2b1a Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x001b, t01=0x00ea}
0x2b1a…2b2a Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x001b, t01=0x00fa}
0x2b2a…2b3a Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x001b, t01=0x010a}
0x2b3a…2b4a Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x001b, t01=0x011a}
0x2b4a…2b60 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x001b, t01=0x012a}
0x2b60…2b84 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x001b, t01=0x0140}
0x2b84…2baa Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x001b, t01=0x0164}
0x2baa…2bd0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001b, t01=0x018a}
0x2bd0…2c02 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001c, t01=0x0020}
0x2c02…2c0a Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0052}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=»TTABH EQU * «, t00=0x001c, t01=0x005a}
0x2c1e…2c44 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001c, t01=0x006e}
0x2c44…2c5e Head {h00=0x0016, h01=0x0050, text=» DATA '#H' TASK ID«, t00=0x001c, t01=0x0094}
0x2c5e…2c7a Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001c, t01=0x00ae}
0x2c7a…2c9a Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001c, t01=0x00ca}
0x2c9a…2cb2 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001c, t01=0x00ea}
0x2cb2…2cd2 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001c, t01=0x0102}
0x2cd2…2d06 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001c, t01=0x0122}
0x2d06…2d28 Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001c, t01=0x0156}
0x2d28…2d50 Head {h00=0x0024, h01=0x0050, text=» DATA TTABHE-* TERMINAL DEVICES «, t00=0x001c, t01=0x0178}
0x2d50…2d74 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001d, t01=0x0010}
0x2d74…2d88 Head {h00=0x0010, h01=0x0050, text=»TTABHE EQU *«, t00=0x001d, t01=0x0034}
0x2d88…2da6 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001d, t01=0x0048}
0x2da6…2dce Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001d, t01=0x0066}
0x2dce…2dde Head {h00=0x000c, h01=0x0050, text=» IFT I=1«, t00=0x001d, t01=0x008e}
0x2dde…2dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x009e}
0x2dec…2dfc Head {h00=0x000c, h01=0x0050, text=» MMTAB1 «, t00=0x001d, t01=0x00ac}
0x2dfc…2e0c Head {h00=0x000c, h01=0x0050, text=» MMTAB2 «, t00=0x001d, t01=0x00bc}
0x2e0c…2e1c Head {h00=0x000c, h01=0x0050, text=» MMTAB3 «, t00=0x001d, t01=0x00cc}
0x2e1c…2e2c Head {h00=0x000c, h01=0x0050, text=» MMTAB4 «, t00=0x001d, t01=0x00dc}
0x2e2c…2e42 Head {h00=0x0012, h01=0x0050, text=» RORG *-MMTABL«, t00=0x001d, t01=0x00ec}
0x2e42…2e66 Head {h00=0x0020, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE«, t00=0x001d, t01=0x0102}
0x2e66…2e8c Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT TABLE POINTER «, t00=0x001d, t01=0x0126}
0x2e8c…2eb2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK POINTER «, t00=0x001d, t01=0x014c}
0x2eb2…2ee4 Head {h00=0x002e, h01=0x0050, text=» DATA 0 APPLICATION CONTROL BLOCK POINTER «, t00=0x001d, t01=0x0172}
0x2ee4…2eec Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0014}
0x2eec…2f00 Head {h00=0x0010, h01=0x0050, text=»TTABI EQU * «, t00=0x001e, t01=0x001c}
0x2f00…2f26 Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x001e, t01=0x0030}
0x2f26…2f40 Head {h00=0x0016, h01=0x0050, text=» DATA '#I' TASK ID«, t00=0x001e, t01=0x0056}
0x2f40…2f5c Head {h00=0x0018, h01=0x0050, text=» DATA 49 TASK LEVEL «, t00=0x001e, t01=0x0070}
0x2f5c…2f7c Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x001e, t01=0x008c}
0x2f7c…2f94 Head {h00=0x0014, h01=0x0050, text=» DATA /C4C0 PSW «, t00=0x001e, t01=0x00ac}
0x2f94…2fb4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x001e, t01=0x00c4}
0x2fb4…2fe8 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7«, t00=0x001e, t01=0x00e4}
0x2fe8…300a Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 A8-A14«, t00=0x001e, t01=0x0118}
0x300a…3032 Head {h00=0x0024, h01=0x0050, text=» DATA TTABIE-* TERMINAL DEVICES «, t00=0x001e, t01=0x013a}
0x3032…3056 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0 MASTER INDEX ENTRY«, t00=0x001e, t01=0x0162}
0x3056…306a Head {h00=0x0010, h01=0x0050, text=»TTABIE EQU *«, t00=0x001e, t01=0x0186}
0x306a…3088 Head {h00=0x001a, h01=0x0050, text=» RES STCRES TASK STACK«, t00=0x001f, t01=0x000a}
0x3088…30b0 Head {h00=0x0024, h01=0x0050, text=» RES RECBFZ+RECBFZ BUFAR1,BUFAR2«, t00=0x001f, t01=0x0028}
0x30b0…30bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0050}
0x30bc…30d2 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x001f, t01=0x005c}
0x30d2…30f2 Head {h00=0x001c, h01=0x0050, text=»TPART1 EQU TTABD-TTABST «, t00=0x001f, t01=0x0072}
0x30f2…310e Head {h00=0x0018, h01=0x0050, text=»TABEND EQU *+TPART1 «, t00=0x001f, t01=0x0092}
0x310e…311a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ae}
0x311a…3128 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00ba}
0x3128…3132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c8}
0x3132…3154 Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x001f, t01=0x00d2}
0x3154…315e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x315e…3172 Head {h00=0x0010, h01=0x0050, text=»FDBSTA EQU *«, t00=0x001f, t01=0x00fe}
0x3172…3186 Head {h00=0x0010, h01=0x0050, text=»DWDM01 EQU *«, t00=0x001f, t01=0x0112}
0x3186…31b8 Head {h00=0x002e, h01=0x0050, text=» DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD«, t00=0x001f, t01=0x0126}
0x31b8…31ce Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0158}
0x31ce…31f6 Head {h00=0x0024, h01=0x0050, text=» DATA 0,FDBMMU SPECIAL DWT ITEMS«, t00=0x001f, t01=0x016e}
0x31f6…3202 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0008}
0x3202…323a Head {h00=0x0034, h01=0x0050, text=»DWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI «, t00=0x0020, t01=0x0014}
0x323a…3256 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0020, t01=0x004c}
0x3256…3272 Head {h00=0x0018, h01=0x0050, text=» IFT EDM000+MMUPAG=2«, t00=0x0020, t01=0x0068}
0x3272…3286 Head {h00=0x0010, h01=0x0050, text=»FDBMMU EQU *«, t00=0x0020, t01=0x0084}
0x3286…3292 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0098}
0x3292…32a6 Head {h00=0x0010, h01=0x0050, text=»* FWT PART«, t00=0x0020, t01=0x00a4}
0x32a6…32c2 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0020, t01=0x00b8}
0x32c2…32d8 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0020, t01=0x00d4}
0x32d8…32ee Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x00ea}
0x32ee…3302 Head {h00=0x0010, h01=0x0050, text=»FDBMMU EQU *«, t00=0x0020, t01=0x0100}
0x3302…3326 Head {h00=0x0020, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 MMU ECB «, t00=0x0020, t01=0x0114}
0x3326…3332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0138}
0x3332…3348 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0020, t01=0x0144}
0x3348…336a Head {h00=0x001e, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 FDBECB«, t00=0x0020, t01=0x015a}
0x336a…3382 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x0020, t01=0x017c}
0x3382…3394 (33, 0, 400) Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0021, t01=0x0004}
0x3394…33b0 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0021, t01=0x0016}
0x33b0…33cc Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,FDBSTA,0,0«, t00=0x0021, t01=0x0032}
0x33cc…33e4 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x0021, t01=0x004e}
0x33e4…33f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0066}
0x33f0…33fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0072}
0x33fa…3408 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x007c}
0x3408…3412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008a}
0x3412…341c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0094}
0x341c…3432 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0021, t01=0x009e}
0x3432…3448 Head {h00=0x0012, h01=0x0050, text=»START1 EQU 44 «, t00=0x0021, t01=0x00b4}
0x3448…3454 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00ca}
0x3454…346a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00d6}
0x346a…3480 Head {h00=0x0012, h01=0x0050, text=»START1 EQU 62 «, t00=0x0021, t01=0x00ec}
0x3480…348c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0102}
0x348c…34a8 Head {h00=0x0018, h01=0x0050, text=»FDBMEC EQU START1-14«, t00=0x0021, t01=0x010e}
0x34a8…34cc Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START1 ECB START «, t00=0x0021, t01=0x012a}
0x34cc…34f2 Head {h00=0x0022, h01=0x0050, text=»FDBOMD EQU START1+14 OPEN MODE«, t00=0x0021, t01=0x014e}
0x34f2…3522 Head {h00=0x002c, h01=0x0050, text=»FDBLRN EQU START1+15 LAST RECORD NUMBER «, t00=0x0021, t01=0x0174}
0x3522…354c Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START1+18 RECORD LENGTH«, t00=0x0022, t01=0x0014}
0x354c…3578 Head {h00=0x0028, h01=0x0050, text=»FDBENL EQU START1+20 ENLARGE FACTOR «, t00=0x0022, t01=0x003e}
0x3578…35b0 Head {h00=0x0034, h01=0x0050, text=»FDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR «, t00=0x0022, t01=0x006a}
0x35b0…35da Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START1+24 SECTOR NUMBER«, t00=0x0022, t01=0x00a2}
0x35da…360e Head {h00=0x0030, h01=0x0050, text=»FDBRRO EQU START1+28 RELATIVE RECORD OFFSET «, t00=0x0022, t01=0x00cc}
0x360e…363a Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START1+30 BLOCKING FACTOR«, t00=0x0022, t01=0x0100}
0x363a…3670 Head {h00=0x0032, h01=0x0050, text=»FDBTNR EQU START1+31 TASK NUMBER CALLING TASK «, t00=0x0022, t01=0x012c}
0x3670…369e Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START1+32 NO OF INDEX FILES«, t00=0x0022, t01=0x0162}
0x369e…36d2 Head {h00=0x0030, h01=0x0050, text=»FDBBLZ EQU START1+33 NR OF SECTORS IN BLOCK «, t00=0x0022, t01=0x0190}
0x36d2…36fc Head {h00=0x0026, h01=0x0050, text=»FDBEAL EQU START1+34 EA LINK ROOT «, t00=0x0023, t01=0x0034}
0x36fc…3726 Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START1+36 CRN LINK ROOT«, t00=0x0023, t01=0x005e}
0x3726…375a Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START1+38 KEY ADDRESS IN DATA FILE«, t00=0x0023, t01=0x0088}
0x375a…378e Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START1+40 ADDRESS OF MASTER INDEX«, t00=0x0023, t01=0x00bc}
0x378e…37c4 Head {h00=0x0032, h01=0x0050, text=»FDBADF EQU START1+42 ADDRESS OF DATA FILE FDB «, t00=0x0023, t01=0x00f0}
0x37c4…37fa Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START1+44 ADDRESS OF INDEX FILE FDB«, t00=0x0023, t01=0x0126}
0x37fa…3838 Head {h00=0x003a, h01=0x0050, text=»FDBDBR EQU START1+52 DELAY,BASIC AND REL BUFFER FLAGS «, t00=0x0023, t01=0x015c}
0x3838…3868 Head {h00=0x002c, h01=0x0050, text=»FDBDMI EQU START1+53 RELATIVE DMTASK ID «, t00=0x0024, t01=0x000a}
0x3868…3890 Head {h00=0x0024, h01=0x0050, text=»FDBMRO EQU START1+54 MAX FDBRRO «, t00=0x0024, t01=0x003a}
0x3890…38c6 Head {h00=0x0032, h01=0x0050, text=»FDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC «, t00=0x0024, t01=0x0062}
0x38c6…38d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0098}
0x38d0…38e6 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0024, t01=0x00a2}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b8}
0x38f0…391a Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0024, t01=0x00c2}
0x391a…3924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ec}
0x3924…3940 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0024, t01=0x00f6}
0x3940…3964 Head {h00=0x0020, h01=0x0050, text=»CRNSTA EQU 3 CURRENT STATUS «, t00=0x0024, t01=0x0112}
0x3964…398a Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0024, t01=0x0136}
0x398a…3994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015c}
0x3994…399e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0166}
0x399e…39a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0170}
0x39a8…39b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017a}
0x39b2…39d6 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0024, t01=0x0184}
0x39d6…39fa Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0018}
0x39fa…3a1e Head {h00=0x0020, h01=0x0050, text=»* DRIVER ADDRESS BLOCK *«, t00=0x0025, t01=0x003c}
0x3a1e…3a42 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0060}
0x3a42…3a66 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0025, t01=0x0084}
0x3a66…3a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a8}
0x3a70…3a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b2}
0x3a7a…3aa6 Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0025, t01=0x00bc}
0x3aa6…3ad2 Head {h00=0x0028, h01=0x0050, text=»TIODM DATA TIODM0 ACTIVATION ADDRESS«, t00=0x0025, t01=0x00e8}
0x3ad2…3ae8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0025, t01=0x0114}
0x3ae8…3af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012a}
0x3af2…3afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3afc…3b10 Head {h00=0x0010, h01=0x0050, text=»TIODM0 EQU *«, t00=0x0025, t01=0x013e}
0x3b10…3b26 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0025, t01=0x0152}
0x3b26…3b3e Head {h00=0x0014, h01=0x0050, text=» LDKL A14,FDBECB«, t00=0x0025, t01=0x0168}
0x3b3e…3b56 Head {h00=0x0014, h01=0x0050, text=» ADKL A14,ECBCW «, t00=0x0025, t01=0x0180}
0x3b56…3b74 Head {h00=0x001a, h01=0x0050, text=» ADR A14,A6 STACK BASE«, t00=0x0026, t01=0x0008}
0x3b74…3b86 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0026, t01=0x0026}
0x3b86…3bac Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TDM100 NOT READ STATUS«, t00=0x0026, t01=0x0038}
0x3bac…3bbe Head {h00=0x000e, h01=0x0050, text=» IFT ADM=1«, t00=0x0026, t01=0x005e}
0x3bbe…3be8 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTAB,A6 USER TTAB ADDRESS«, t00=0x0026, t01=0x0070}
0x3be8…3bfc Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0026, t01=0x009a}
0x3bfc…3c1a Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x0026, t01=0x00ae}
0x3c1a…3c2c Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0026, t01=0x00cc}
0x3c2c…3c58 Head {h00=0x0028, h01=0x0050, text=» CF A14,FNDFDB GET FC ENTRY ADDRESS «, t00=0x0026, t01=0x00de}
0x3c58…3c76 Head {h00=0x001a, h01=0x0050, text=» LCR A4,A4 GET STATUS «, t00=0x0026, t01=0x010a}
0x3c76…3c82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0128}
0x3c82…3c98 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=2«, t00=0x0026, t01=0x0134}
0x3c98…3cae Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0026, t01=0x014a}
0x3cae…3cd4 Head {h00=0x0022, h01=0x0050, text=» RF(E) RDST10 FILE NOT OPENED «, t00=0x0026, t01=0x0160}
0x3cd4…3cec Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0026, t01=0x0186}
0x3cec…3d0a Head {h00=0x001a, h01=0x0050, text=» RF(NN) RDST50 S-FILE «, t00=0x0027, t01=0x000e}
0x3d0a…3d26 Head {h00=0x0018, h01=0x0050, text=» RF RDSTAT X,L-FILE «, t00=0x0027, t01=0x002c}
0x3d26…3d3a Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0027, t01=0x0048}
0x3d3a…3d4e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0027, t01=0x005c}
0x3d4e…3d6e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) RDSTAT L,X-FILE «, t00=0x0027, t01=0x0070}
0x3d6e…3d82 Head {h00=0x0010, h01=0x0050, text=»RDST50 EQU *«, t00=0x0027, t01=0x0090}
0x3d82…3d8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00a4}
0x3d8e…3da4 Head {h00=0x0012, h01=0x0050, text=» IFT ADMEDM=1 «, t00=0x0027, t01=0x00b0}
0x3da4…3dba Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0027, t01=0x00c6}
0x3dba…3dd4 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDST10 OPEN«, t00=0x0027, t01=0x00dc}
0x3dd4…3dec Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0027, t01=0x00f6}
0x3dec…3e0a Head {h00=0x001a, h01=0x0050, text=» RF(NN) TDM150 S-FILE «, t00=0x0027, t01=0x010e}
0x3e0a…3e1c Head {h00=0x000e, h01=0x0050, text=» RF RDSTAT«, t00=0x0027, t01=0x012c}
0x3e1c…3e30 Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0027, t01=0x013e}
0x3e30…3e44 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0027, t01=0x0152}
0x3e44…3e64 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TDM150 NO STATUS «, t00=0x0027, t01=0x0166}
0x3e64…3e74 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0027, t01=0x0186}
0x3e74…3e80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0008}
0x3e80…3e92 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0028, t01=0x0014}
0x3e92…3eb2 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A6 FDB ADDRESS «, t00=0x0028, t01=0x0026}
0x3eb2…3ed6 Head {h00=0x0020, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY «, t00=0x0028, t01=0x0046}
0x3ed6…3eee Head {h00=0x0014, h01=0x0050, text=» LC A4,CRNSTA,A2«, t00=0x0028, t01=0x006a}
0x3eee…3efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0082}
0x3efa…3f12 Head {h00=0x0014, h01=0x0050, text=»RDSTAT EQU * =3«, t00=0x0028, t01=0x008e}
0x3f12…3f28 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0028, t01=0x00a6}
0x3f28…3f36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00bc}
0x3f36…3f46 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0028, t01=0x00ca}
0x3f46…3f5a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0028, t01=0x00da}
0x3f5a…3f80 Head {h00=0x0022, h01=0x0050, text=» ST A4,ECBCW,A8 RETURN STATUS «, t00=0x0028, t01=0x00ee}
0x3f80…3f96 Head {h00=0x0012, h01=0x0050, text=» CM ECBCW+2,A8«, t00=0x0028, t01=0x0114}
0x3f96…3fb4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RET CODE OK «, t00=0x0028, t01=0x012a}
0x3fb4…3fce Head {h00=0x0016, h01=0x0050, text=» ABL DISEND END IO«, t00=0x0028, t01=0x0148}
0x3fce…3fda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0162}
0x3fda…3fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016e}
0x3fe4…3ffa Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0028, t01=0x0178}
0x3ffa…4004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018e}
0x4004…4018 Head {h00=0x0010, h01=0x0050, text=»TDM100 EQU *«, t00=0x0029, t01=0x0008}
0x4018…4034 Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x0029, t01=0x001c}
0x4034…404a Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0029, t01=0x0038}
0x404a…4064 Head {h00=0x0016, h01=0x0050, text=» RF(E) TDM200 OPEN«, t00=0x0029, t01=0x004e}
0x4064…407c Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBOMD,A6«, t00=0x0029, t01=0x0068}
0x407c…409a Head {h00=0x001a, h01=0x0050, text=» RF(N) TDM300 L,X-FILE«, t00=0x0029, t01=0x0080}
0x409a…40a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x009e}
0x40a6…40ba Head {h00=0x0010, h01=0x0050, text=»TDM150 EQU *«, t00=0x0029, t01=0x00aa}
0x40ba…40cc Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x0029, t01=0x00be}
0x40cc…40e6 Head {h00=0x0016, h01=0x0050, text=» ABL TIOSDM S-FILE«, t00=0x0029, t01=0x00d0}
0x40e6…40f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ea}
0x40f2…4104 Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x0029, t01=0x00f6}
0x4104…411e Head {h00=0x0016, h01=0x0050, text=» ABL TIOEDM S-FILE«, t00=0x0029, t01=0x0108}
0x411e…412a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0122}
0x412a…4146 Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x0029, t01=0x012e}
0x4146…415a Head {h00=0x0010, h01=0x0050, text=»TDM200 EQU *«, t00=0x0029, t01=0x014a}
0x415a…4182 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBBA,A8 GET FDB ADDRESS «, t00=0x0029, t01=0x015e}
0x4182…4198 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0029, t01=0x0186}
0x4198…41c2 Head {h00=0x0026, h01=0x0050, text=» LC A1,FPB:FO,A1 FILE ORGANISATION«, t00=0x002a, t01=0x000c}
0x41c2…41ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0036}
0x41ce…41ea Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x002a, t01=0x0042}
0x41ea…4200 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002a, t01=0x005e}
0x4200…421a Head {h00=0x0016, h01=0x0050, text=» EL A1,FPB:FO+7,A1«, t00=0x002a, t01=0x0074}
0x421a…4226 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x008e}
0x4226…4242 Head {h00=0x0018, h01=0x0050, text=» IFF ADMSDM+ADMEDM=0«, t00=0x002a, t01=0x009a}
0x4242…4256 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x002a, t01=0x00b6}
0x4256…4268 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002a, t01=0x00ca}
0x4268…428c Head {h00=0x0020, h01=0x0050, text=» RB(NP) TDM150 S-FILE,I-FILE«, t00=0x002a, t01=0x00dc}
0x428c…42a0 Head {h00=0x0010, h01=0x0050, text=»TDM300 EQU *«, t00=0x002a, t01=0x0100}
0x42a0…42ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0114}
0x42ac…42be Head {h00=0x000e, h01=0x0050, text=» IFT ADM=1«, t00=0x002a, t01=0x0120}
0x42be…42da Head {h00=0x0018, h01=0x0050, text=» ABL TIOADM L,X-FILE«, t00=0x002a, t01=0x0132}
0x42da…42e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x014e}
0x42e6…42fc Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002a, t01=0x015a}
0x42fc…4306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0170}
0x4306…4310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x017a}
0x4310…4322 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0184}
0x4322…4334 Head {h00=0x000e, h01=0x0050, text=»* DMACTI *«, t00=0x002b, t01=0x0008}
0x4334…4346 Head {h00=0x000e, h01=0x0050, text=»* DMACTD *«, t00=0x002b, t01=0x001a}
0x4346…4358 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x002c}
0x4358…4362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003e}
0x4362…4388 Head {h00=0x0022, h01=0x0050, text=»* ACTIVATE ADM AND/OR SDM TASK«, t00=0x002b, t01=0x0048}
0x4388…4392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006e}
0x4392…43bc Head {h00=0x0026, h01=0x0050, text=»* INPUT : A2 = DISPATCH ADDRESS «, t00=0x002b, t01=0x0078}
0x43bc…43e0 Head {h00=0x0020, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x002b, t01=0x00a2}
0x43e0…43ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c6}
0x43ea…43fe Head {h00=0x0010, h01=0x0050, text=»DMACTI EQU *«, t00=0x002b, t01=0x00d0}
0x43fe…4414 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x002b, t01=0x00e4}
0x4414…443a Head {h00=0x0022, h01=0x0050, text=» LC A7,FWTVOL,A6 GET FILE CODE«, t00=0x002b, t01=0x00fa}
0x443a…444e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002b, t01=0x0120}
0x444e…4460 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002b, t01=0x0134}
0x4460…4474 Head {h00=0x0010, h01=0x0050, text=»DMAC10 EQU *«, t00=0x002b, t01=0x0146}
0x4474…4486 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002b, t01=0x015a}
0x4486…44a0 Head {h00=0x0016, h01=0x0050, text=» CC A7,DFTAB-1,A3 «, t00=0x002b, t01=0x016c}
0x44a0…44cc Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMAC10 CHECK NEXT FILE CODE «, t00=0x002b, t01=0x0186}
0x44cc…44fa Head {h00=0x002a, h01=0x0050, text=» LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER«, t00=0x002c, t01=0x0022}
0x44fa…4510 Head {h00=0x0012, h01=0x0050, text=» CF A15,FINDTT«, t00=0x002c, t01=0x0050}
0x4510…4534 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TASHLT TTAB NOT FOUND«, t00=0x002c, t01=0x0066}
0x4534…454c Head {h00=0x0014, h01=0x0050, text=» LD A1,TTB:SA,A5«, t00=0x002c, t01=0x008a}
0x454c…456c Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMAC50 TASK FREE «, t00=0x002c, t01=0x00a2}
0x456c…4596 Head {h00=0x0026, h01=0x0050, text=» LC A7,DMTIDS-1,A3 SECONDARY TASK «, t00=0x002c, t01=0x00c2}
0x4596…45aa Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x002c, t01=0x00ec}
0x45aa…45c0 Head {h00=0x0012, h01=0x0050, text=» CF A15,FINDTT«, t00=0x002c, t01=0x0100}
0x45c0…45e4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TASHLT TTAB NOT FOUND«, t00=0x002c, t01=0x0116}
0x45e4…45f8 Head {h00=0x0010, h01=0x0050, text=»DMAC50 EQU *«, t00=0x002c, t01=0x013a}
0x45f8…4616 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x002c, t01=0x014e}
0x4616…463c Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DM TASK«, t00=0x002c, t01=0x016c}
0x463c…464e (45, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x002d, t01=0x0004}
0x464e…4664 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002d, t01=0x0016}
0x4664…466e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002c}
0x466e…4678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4678…46a0 Head {h00=0x0024, h01=0x0050, text=»DMACTD EQU * ACTIVATE DM TASK #D«, t00=0x002d, t01=0x0040}
0x46a0…46b6 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,TTABD«, t00=0x002d, t01=0x0068}
0x46b6…46c8 Head {h00=0x000e, h01=0x0050, text=» RB DMAC50«, t00=0x002d, t01=0x007e}
0x46c8…46d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0090}
0x46d4…46de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009c}
0x46de…46fe Head {h00=0x001c, h01=0x0050, text=»* ABNORMAL SYSTEM ERROR «, t00=0x002d, t01=0x00a6}
0x46fe…4708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c6}
0x4708…471c Head {h00=0x0010, h01=0x0050, text=»TASHLT EQU *«, t00=0x002d, t01=0x00d0}
0x471c…4730 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/11 «, t00=0x002d, t01=0x00e4}
0x4730…4744 Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x002d, t01=0x00f8}
0x4744…474e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010c}
0x474e…4764 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002d, t01=0x0116}
0x4764…476e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012c}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0136}
0x4778…478a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0140}
0x478a…479c Head {h00=0x000e, h01=0x0050, text=»* DMXACD *«, t00=0x002d, t01=0x0152}
0x479c…47ae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0164}
0x47ae…47b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0176}
0x47b8…47ee Head {h00=0x0032, h01=0x0050, text=»* EXIT RUNNING TASK AND ACTIVATE DM TASK #D «, t00=0x002d, t01=0x0180}
0x47ee…47f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0026}
0x47f8…4802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0030}
0x4802…482a Head {h00=0x0024, h01=0x0050, text=»* INPUT: A8=DISPATCH ADDRESS «, t00=0x002e, t01=0x003a}
0x482a…484c Head {h00=0x001e, h01=0x0050, text=»* A6=FDB ADDRESS «, t00=0x002e, t01=0x0062}
0x484c…4856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0084}
0x4856…488c Head {h00=0x0032, h01=0x0050, text=»DMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D«, t00=0x002e, t01=0x008e}
0x488c…48a2 Head {h00=0x0012, h01=0x0050, text=» IFF SDM+ADM=0«, t00=0x002e, t01=0x00c4}
0x48a2…48c6 Head {h00=0x0020, h01=0x0050, text=» LD A5,PRUN RUNNING TASK ID «, t00=0x002e, t01=0x00da}
0x48c6…48d2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002e, t01=0x00fe}
0x48d2…48e6 Head {h00=0x0010, h01=0x0050, text=» CF A15,EXIT«, t00=0x002e, t01=0x010a}
0x48e6…48f6 Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x002e, t01=0x011e}
0x48f6…491a Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 DISPATCH ADDRESS «, t00=0x002e, t01=0x012e}
0x491a…492c Head {h00=0x000e, h01=0x0050, text=» RB DMACTD«, t00=0x002e, t01=0x0152}
0x492c…4938 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0164}
0x4938…4942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0170}
0x4942…4958 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x002e, t01=0x017a}
0x4958…4962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0190}
0x4962…496c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000a}
0x496c…497e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0014}
0x497e…4990 Head {h00=0x000e, h01=0x0050, text=»* DMTEND *«, t00=0x002f, t01=0x0026}
0x4990…49a2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0038}
0x49a2…49ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004a}
0x49ac…49c2 Head {h00=0x0012, h01=0x0050, text=»* COMMIT ENTRY«, t00=0x002f, t01=0x0054}
0x49c2…49d6 Head {h00=0x0010, h01=0x0050, text=»* ENTERED BY«, t00=0x002f, t01=0x006a}
0x49d6…49e4 Head {h00=0x000a, h01=0x0050, text=»* LKM «, t00=0x002f, t01=0x007e}
0x49e4…49f6 Head {h00=0x000e, h01=0x0050, text=»* DATA 16 «, t00=0x002f, t01=0x008c}
0x49f6…4a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009e}
0x4a00…4a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a8}
0x4a0a…4a1e Head {h00=0x0010, h01=0x0050, text=»DMTEND EQU *«, t00=0x002f, t01=0x00b2}
0x4a1e…4a30 Head {h00=0x000e, h01=0x0050, text=» IFT EDM=0«, t00=0x002f, t01=0x00c6}
0x4a30…4a42 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x002f, t01=0x00d8}
0x4a42…4a6c Head {h00=0x0026, h01=0x0050, text=» LDR A6,A5 SAVE USER TTAB ADDRESS «, t00=0x002f, t01=0x00ea}
0x4a6c…4a8c Head {h00=0x001c, h01=0x0050, text=» LDR A3,A7 ORDER CODE =2«, t00=0x002f, t01=0x0114}
0x4a8c…4aa4 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/7F =2 «, t00=0x002f, t01=0x0134}
0x4aa4…4ad4 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DMTERR ERROR: ORDER NOT ALLOWED «, t00=0x002f, t01=0x014c}
0x4ad4…4af8 Head {h00=0x0020, h01=0x0050, text=» LD A3,SCTTCT TCTAB ADDRESS «, t00=0x002f, t01=0x017c}
0x4af8…4b0c Head {h00=0x0010, h01=0x0050, text=»DMTE10 EQU *«, t00=0x0030, t01=0x0010}
0x4b0c…4b26 Head {h00=0x0016, h01=0x0050, text=» ADK A3,2 POINTER «, t00=0x0030, t01=0x0024}
0x4b26…4b48 Head {h00=0x001e, h01=0x0050, text=» CWR* A5,A3 ENTRY IN TABLE«, t00=0x0030, t01=0x003e}
0x4b48…4b68 Head {h00=0x001c, h01=0x0050, text=» RB(NE) DMTE10 TRY NEXT «, t00=0x0030, t01=0x0060}
0x4b68…4b92 Head {h00=0x0026, h01=0x0050, text=» SU A3,SCTTCT RELATIVE TASK NUMBER«, t00=0x0030, t01=0x0080}
0x4b92…4ba8 Head {h00=0x0012, h01=0x0050, text=»* SUK A3,2 =5«, t00=0x0030, t01=0x00aa}
0x4ba8…4bba Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0030, t01=0x00c0}
0x4bba…4bd2 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACK «, t00=0x0030, t01=0x00d2}
0x4bd2…4be8 Head {h00=0x0012, h01=0x0050, text=» CF A14,RELPRO«, t00=0x0030, t01=0x00ea}
0x4be8…4bfc Head {h00=0x0010, h01=0x0050, text=»DMTE40 EQU *«, t00=0x0030, t01=0x0100}
0x4bfc…4c18 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 TTAB USER«, t00=0x0030, t01=0x0114}
0x4c18…4c42 Head {h00=0x0026, h01=0x0050, text=» ST A7,TTB:SA+14,A5 RET CODE IN A7«, t00=0x0030, t01=0x0130}
0x4c42…4c4e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0030, t01=0x015a}
0x4c4e…4c70 Head {h00=0x001e, h01=0x0050, text=» CF A15,QTJOB RESTART USER«, t00=0x0030, t01=0x0166}
0x4c70…4c82 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0030, t01=0x0188}
0x4c82…4ca4 Head {h00=0x001e, h01=0x0050, text=»DMTERR EQU * REQUEST ERROR«, t00=0x0031, t01=0x000a}
0x4ca4…4cbc Head {h00=0x0014, h01=0x0050, text=» LDKL A7,REQER2 «, t00=0x0031, t01=0x002c}
0x4cbc…4cd6 Head {h00=0x0016, h01=0x0050, text=» RB DMTE40 RETURN «, t00=0x0031, t01=0x0044}
0x4cd6…4ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005e}
0x4ce0…4cf4 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0031, t01=0x0068}
0x4cf4…4d10 Head {h00=0x0018, h01=0x0050, text=»STACK DATA 0 4 WORDS«, t00=0x0031, t01=0x007c}
0x4d10…4d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0098}
0x4d1a…4d26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00a2}
0x4d26…4d38 Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x0031, t01=0x00ae}
0x4d38…4d5c Head {h00=0x0020, h01=0x0050, text=» LDR A6,A5 SAVE TTAB USER =1«, t00=0x0031, t01=0x00c0}
0x4d5c…4d92 Head {h00=0x0032, h01=0x0050, text=» LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1«, t00=0x0031, t01=0x00e4}
0x4d92…4dbe Head {h00=0x0028, h01=0x0050, text=» AD A1,TTB:TD,A1 DEVICE TABLE LENGTH«, t00=0x0031, t01=0x011a}
0x4dbe…4df2 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,TTB:TD BASE PARAMETER BLOCK ADDRESS«, t00=0x0031, t01=0x0146}
0x4df2…4e06 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0031, t01=0x017a}
0x4e06…4e24 Head {h00=0x001a, h01=0x0050, text=» OR A2,2,A1 ORDER WORD«, t00=0x0031, t01=0x018e}
0x4e24…4e4e Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) LKMRQE OTHER REQUEST BUSY«, t00=0x0032, t01=0x001c}
0x4e4e…4e7e Head {h00=0x002c, h01=0x0050, text=» LDKL A2,/100 COMMIT ROLLBACK ACTIVATION«, t00=0x0032, t01=0x0046}
0x4e7e…4e90 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0032, t01=0x0076}
0x4e90…4eb4 Head {h00=0x0020, h01=0x0050, text=» ST A7,PABORD,A1 ORDER WORD «, t00=0x0032, t01=0x0088}
0x4eb4…4eee Head {h00=0x0036, h01=0x0050, text=» ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS «, t00=0x0032, t01=0x00ac}
0x4eee…4f10 Head {h00=0x001e, h01=0x0050, text=» LDKL A7,'$E' EDM TASK ID «, t00=0x0032, t01=0x00e6}
0x4f10…4f36 Head {h00=0x0022, h01=0x0050, text=» ABL TIOECR ACTIVATE EDM TASK «, t00=0x0032, t01=0x0108}
0x4f36…4f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x012e}
0x4f40…4f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0138}
0x4f4a…4f56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0142}
0x4f56…4f6c Head {h00=0x0012, h01=0x0050, text=» IFT ADM000=1 «, t00=0x0032, t01=0x014e}
0x4f6c…4f90 Head {h00=0x0020, h01=0x0050, text=» CM TTB:SA+14,A5 RETURN CODE«, t00=0x0032, t01=0x0164}
0x4f90…4f9c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0032, t01=0x0188}
0x4f9c…4fb2 (51, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x0033, t01=0x0004}
0x4fb2…4fc4 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0033, t01=0x001a}
0x4fc4…4fd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x002c}
0x4fd0…4fde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0038}
0x4fde…4fe6 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0046}
0x4fe6…503a Head {h00=0x0050, h01=0x0050, text=»*************************************************************************** «, t00=0x0033, t01=0x004e}
0x503a…508e 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=0x00a2}
0x508e…50e2 Head {h00=0x0050, h01=0x0050, text=»*************************************************************************** «, t00=0x0033, t01=0x00f6}
0x50e2…50ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014a}
0x50ec…50f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0154}
0x50f6…5100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015e}
0x5100…510a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0168}
0x510a…5134 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0172}
0x5134…515c Head {h00=0x0024, h01=0x0050, text=»* SUBROUTINES NOT IN SYSTEM *«, t00=0x0034, t01=0x000c}
0x515c…5184 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0034, t01=0x0034}
0x5184…518e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005c}
0x518e…51a4 Head {h00=0x0012, h01=0x0050, text=» IFT ADM+SDM=0«, t00=0x0034, t01=0x0066}
0x51a4…51b8 Head {h00=0x0010, h01=0x0050, text=»DMACTD EQU *«, t00=0x0034, t01=0x007c}
0x51b8…51cc Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0034, t01=0x0090}
0x51cc…51e0 Head {h00=0x0010, h01=0x0050, text=»MOV:US EQU *«, t00=0x0034, t01=0x00a4}
0x51e0…51f4 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x0034, t01=0x00b8}
0x51f4…5208 Head {h00=0x0010, h01=0x0050, text=»FINDTT EQU *«, t00=0x0034, t01=0x00cc}
0x5208…521c Head {h00=0x0010, h01=0x0050, text=»RTNA14 EQU *«, t00=0x0034, t01=0x00e0}
0x521c…5230 Head {h00=0x0010, h01=0x0050, text=»SETCRO EQU *«, t00=0x0034, t01=0x00f4}
0x5230…523c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0108}
0x523c…524e Head {h00=0x000e, h01=0x0050, text=» IFF SDM=1«, t00=0x0034, t01=0x0114}
0x524e…5262 Head {h00=0x0010, h01=0x0050, text=»CASZEN EQU *«, t00=0x0034, t01=0x0126}
0x5262…5276 Head {h00=0x0010, h01=0x0050, text=»COSZEN EQU *«, t00=0x0034, t01=0x013a}
0x5276…5282 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x014e}
0x5282…529c Head {h00=0x0016, h01=0x0050, text=» IFT SDM+ADMCDE=0 «, t00=0x0034, t01=0x015a}
0x529c…52b0 Head {h00=0x0010, h01=0x0050, text=»ENLFAC EQU *«, t00=0x0034, t01=0x0174}
0x52b0…52c4 Head {h00=0x0010, h01=0x0050, text=»CONENL EQU *«, t00=0x0034, t01=0x0188}
0x52c4…52d8 Head {h00=0x0010, h01=0x0050, text=»TOTSIZ EQU *«, t00=0x0035, t01=0x000c}
0x52d8…52e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0020}
0x52e4…5304 Head {h00=0x001c, h01=0x0050, text=» RB TASHLT SYSGEN ERROR «, t00=0x0035, t01=0x002c}
0x5304…530e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004c}
0x530e…5318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0056}
0x5318…5322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0060}
0x5322…5338 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0035, t01=0x006a}
0x5338…534e Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x0035, t01=0x0080}
0x534e…5356 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0096}
0x5356…5392 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0035, t01=0x009e}
0x5392…539c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00da}
0x539c…53da Head {h00=0x003a, h01=0x0050, text=»* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE«, t00=0x0035, t01=0x00e4}
0x53da…53e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0122}
0x53e4…5420 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0035, t01=0x012c}
0x5420…542a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0168}
0x542a…5444 Head {h00=0x0016, h01=0x0050, text=»* A1 = TTAB ADDR«, t00=0x0035, t01=0x0172}
0x5444…546c Head {h00=0x0024, h01=0x0050, text=»* A2 = FILE CODE TO SEARCH FOR«, t00=0x0035, t01=0x018c}
0x546c…54a4 Head {h00=0x0034, h01=0x0050, text=»* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED «, t00=0x0036, t01=0x0024}
0x54a4…54ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005c}
0x54ae…54ea Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0036, t01=0x0066}
0x54ea…54f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a2}
0x54f4…550e Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0036, t01=0x00ac}
0x550e…5544 Head {h00=0x0032, h01=0x0050, text=»* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND «, t00=0x0036, t01=0x00c6}
0x5544…557e Head {h00=0x0036, h01=0x0050, text=»* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND«, t00=0x0036, t01=0x00fc}
0x557e…55b4 Head {h00=0x0032, h01=0x0050, text=»* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB «, t00=0x0036, t01=0x0136}
0x55b4…55be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016c}
0x55be…55fa Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0036, t01=0x0176}
0x55fa…5604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0022}
0x5604…5616 Head {h00=0x000e, h01=0x0050, text=»* A1-A5 «, t00=0x0037, t01=0x002c}
0x5616…5620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003e}
0x5620…565e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0037, t01=0x0048}
0x565e…566c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0086}
0x566c…5674 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x0094}
0x5674…5686 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x009c}
0x5686…5698 Head {h00=0x000e, h01=0x0050, text=»* FNDFDB *«, t00=0x0037, t01=0x00ae}
0x5698…56aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x00c0}
0x56aa…56b2 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x00d2}
0x56b2…56c6 Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0037, t01=0x00da}
0x56c6…56f0 Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:TD,A1 LENGTH DEV DESCR «, t00=0x0037, t01=0x00ee}
0x56f0…5704 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0037, t01=0x0118}
0x5704…5716 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0037, t01=0x012c}
0x5716…5742 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND040 FILE CODE NOT IN TTAB«, t00=0x0037, t01=0x013e}
0x5742…5754 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0037, t01=0x016a}
0x5754…576c Head {h00=0x0014, h01=0x0050, text=» ADKL A4,TTB:TD «, t00=0x0037, t01=0x017c}
0x576c…577e (56, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0038, t01=0x0004}
0x577e…5792 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A4 «, t00=0x0038, t01=0x0016}
0x5792…57a8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND030«, t00=0x0038, t01=0x002a}
0x57a8…57ba Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0038, t01=0x0040}
0x57ba…57e0 Head {h00=0x0022, h01=0x0050, text=» RF FND080 CODE FOUND IN TTAB «, t00=0x0038, t01=0x0052}
0x57e0…57ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0078}
0x57ee…57f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0086}
0x57f8…581e Head {h00=0x0022, h01=0x0050, text=»* SEARCH FILE CODE IN SCTCDT«, t00=0x0038, t01=0x0090}
0x581e…5828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b6}
0x5828…583c Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0038, t01=0x00c0}
0x583c…584e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0038, t01=0x00d4}
0x584e…587a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FND060 ONLY TTAB IS SEACHED «, t00=0x0038, t01=0x00e6}
0x587a…5890 Head {h00=0x0012, h01=0x0050, text=» LD* A4,SCTCDT«, t00=0x0038, t01=0x0112}
0x5890…58a4 Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0038, t01=0x0128}
0x58a4…58b6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0038, t01=0x013c}
0x58b6…58e2 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND060 CODE NOT FOUND AT ALL«, t00=0x0038, t01=0x014e}
0x58e2…58f8 Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTCDT «, t00=0x0038, t01=0x017a}
0x58f8…590a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0038, t01=0x0190}
0x590a…591e Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A3 «, t00=0x0039, t01=0x0012}
0x591e…5934 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND050«, t00=0x0039, t01=0x0026}
0x5934…594a Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTCDT «, t00=0x0039, t01=0x003c}
0x594a…5968 Head {h00=0x001a, h01=0x0050, text=» RF FND080 CODE FOUND «, t00=0x0039, t01=0x0052}
0x5968…597c Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0039, t01=0x0070}
0x597c…5996 Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 NO CODE «, t00=0x0039, t01=0x0084}
0x5996…59aa Head {h00=0x0010, h01=0x0050, text=»FND080 EQU *«, t00=0x0039, t01=0x009e}
0x59aa…59ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x00b2}
0x59ba…59c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00c2}
0x59c8…59d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d0}
0x59d2…59fa Head {h00=0x0024, h01=0x0050, text=»* MOVE BLOCK AND MOVE CONSTANTS «, t00=0x0039, t01=0x00da}
0x59fa…5a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0102}
0x5a04…5a2e Head {h00=0x0026, h01=0x0050, text=»MOVTIS EQU 0 TASK ID SENDING TASK «, t00=0x0039, t01=0x010c}
0x5a2e…5a5a Head {h00=0x0028, h01=0x0050, text=»MOVTIR EQU 2 TASK ID RECEIVING TASK «, t00=0x0039, t01=0x0136}
0x5a5a…5a8a Head {h00=0x002c, h01=0x0050, text=»MOVBAS EQU 4 BUFFER ADDRESS SENDING TASK«, t00=0x0039, t01=0x0162}
0x5a8a…5abc (58, 0, 400) Head {h00=0x002e, h01=0x0050, text=»MOVBAR EQU 6 BUFFER ADDRESS RECEIVING TASK«, t00=0x003a, t01=0x0004}
0x5abc…5ae8 Head {h00=0x0028, h01=0x0050, text=»MOVLEN EQU 8 NUMBER OF BYTES TO MOVE«, t00=0x003a, t01=0x0036}
0x5ae8…5af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0062}
0x5af2…5b12 Head {h00=0x001c, h01=0x0050, text=»MOVSAV EQU 10 SAVE AREA «, t00=0x003a, t01=0x006c}
0x5b12…5b1a Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x008c}
0x5b1a…5b22 Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x0094}
0x5b22…5b36 Head {h00=0x0010, h01=0x0050, text=»MOVBLK EQU *«, t00=0x003a, t01=0x009c}
0x5b36…5b48 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003a, t01=0x00b0}
0x5b48…5b5a Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003a, t01=0x00c2}
0x5b5a…5b6a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x00d4}
0x5b6a…5b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e4}
0x5b74…5b84 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x00ee}
0x5b84…5b92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00fe}
0x5b92…5b9a Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x010c}
0x5b9a…5bac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0114}
0x5bac…5bbe Head {h00=0x000e, h01=0x0050, text=»* MOV:US *«, t00=0x003a, t01=0x0126}
0x5bbe…5bd0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0138}
0x5bd0…5bd8 Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x014a}
0x5bd8…5be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0152}
0x5be2…5bf8 Head {h00=0x0012, h01=0x0050, text=»* M O V : U S «, t00=0x003a, t01=0x015c}
0x5bf8…5c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0172}
0x5c02…5c4a Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO«, t00=0x003a, t01=0x017c}
0x5c4a…5c9a Head {h00=0x004c, h01=0x0050, text=»* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x003b, t01=0x0034}
0x5c9a…5ce8 Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x003b, t01=0x0084}
0x5ce8…5cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d2}
0x5cf2…5d2e Head {h00=0x0038, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA)«, t00=0x003b, t01=0x00dc}
0x5d2e…5d6e Head {h00=0x003c, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA)«, t00=0x003b, t01=0x0118}
0x5d6e…5da0 Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x003b, t01=0x0158}
0x5da0…5dc8 Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x003b, t01=0x018a}
0x5dc8…5dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0022}
0x5dd2…5df0 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4=DESTROYED«, t00=0x003c, t01=0x002c}
0x5df0…5dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004a}
0x5dfa…5e0e Head {h00=0x0010, h01=0x0050, text=»MOV:US EQU *«, t00=0x003c, t01=0x0054}
0x5e0e…5e2e Head {h00=0x001c, h01=0x0050, text=» LD A4,TTB:ID,A4 TASK ID«, t00=0x003c, t01=0x0068}
0x5e2e…5e4a Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIS+MOVBLK«, t00=0x003c, t01=0x0088}
0x5e4a…5e74 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,'#M' DESTINATION TASK ID «, t00=0x003c, t01=0x00a4}
0x5e74…5e90 Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIR+MOVBLK«, t00=0x003c, t01=0x00ce}
0x5e90…5ea2 Head {h00=0x000e, h01=0x0050, text=» RF MOVCOM«, t00=0x003c, t01=0x00ea}
0x5ea2…5eb8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM«, t00=0x003c, t01=0x00fc}
0x5eb8…5ec0 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0112}
0x5ec0…5ed2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x011a}
0x5ed2…5ee4 Head {h00=0x000e, h01=0x0050, text=»* MOV:SU *«, t00=0x003c, t01=0x012c}
0x5ee4…5ef6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x013e}
0x5ef6…5efe Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0150}
0x5efe…5f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0158}
0x5f08…5f1e Head {h00=0x0012, h01=0x0050, text=»* M O V : S U «, t00=0x003c, t01=0x0162}
0x5f1e…5f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0178}
0x5f28…5f72 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO«, t00=0x003c, t01=0x0182}
0x5f72…5fc0 Head {h00=0x004a, h01=0x0050, text=»* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x003d, t01=0x003c}
0x5fc0…600e Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x003d, t01=0x008a}
0x600e…6018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d8}
0x6018…6056 Head {h00=0x003a, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA)«, t00=0x003d, t01=0x00e2}
0x6056…6094 Head {h00=0x003a, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA)«, t00=0x003d, t01=0x0120}
0x6094…60c6 Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x003d, t01=0x015e}
0x60c6…60ee Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x003d, t01=0x0190}
0x60ee…60f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0028}
0x60f8…6116 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A4=DESTROYED«, t00=0x003e, t01=0x0032}
0x6116…6120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0050}
0x6120…6134 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x003e, t01=0x005a}
0x6134…6166 Head {h00=0x002e, h01=0x0050, text=» LD A4,TTB:ID,A4 TASK ID DESTINATION TASK «, t00=0x003e, t01=0x006e}
0x6166…6182 Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIR+MOVBLK«, t00=0x003e, t01=0x00a0}
0x6182…61ac Head {h00=0x0026, h01=0x0050, text=» LDKL A4,'#M' TASK ID SOURCE TASK «, t00=0x003e, t01=0x00bc}
0x61ac…61c8 Head {h00=0x0018, h01=0x0050, text=» ST A4,MOVTIS+MOVBLK«, t00=0x003e, t01=0x00e6}
0x61c8…61d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0102}
0x61d6…61ea Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x003e, t01=0x0110}
0x61ea…61f6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003e, t01=0x0124}
0x61f6…621a Head {h00=0x0020, h01=0x0050, text=» ST A7,MOVSAV+MOVBLK SAVE A7«, t00=0x003e, t01=0x0130}
0x621a…6232 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,MOVBLK «, t00=0x003e, t01=0x0154}
0x6232…624a Head {h00=0x0014, h01=0x0050, text=» ST A1,MOVBAS,A7«, t00=0x003e, t01=0x016c}
0x624a…6276 Head {h00=0x0028, h01=0x0050, text=» ST A2,MOVBAR,A7 DESTINATION ADDRESS«, t00=0x003e, t01=0x0184}
0x6276…629e Head {h00=0x0024, h01=0x0050, text=» ST A3,MOVLEN,A7 LENGTH TO MOVE «, t00=0x003f, t01=0x0020}
0x629e…62aa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0048}
0x62aa…62ba Head {h00=0x000c, h01=0x0050, text=» DATA 21«, t00=0x003f, t01=0x0054}
0x62ba…62e2 Head {h00=0x0024, h01=0x0050, text=» LD A7,MOVSAV,A7 SAVED REGISTER «, t00=0x003f, t01=0x0064}
0x62e2…62f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x008c}
0x62f2…6300 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x009c}
0x6300…6308 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x00aa}
0x6308…631a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00b2}
0x631a…632c Head {h00=0x000e, h01=0x0050, text=»* FINDTT *«, t00=0x003f, t01=0x00c4}
0x632c…633e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x00d6}
0x633e…6346 Head {h00=0x0004, h01=0x0050, t00=0x003f, t01=0x00e8}
0x6346…6350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f0}
0x6350…636c Head {h00=0x0018, h01=0x0050, text=»* FIND TTAB ADDRESS «, t00=0x003f, t01=0x00fa}
0x636c…6376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0116}
0x6376…639c Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A7=TASK NUMBER 0-5 «, t00=0x003f, t01=0x0120}
0x639c…63a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0146}
0x63a6…63c8 Head {h00=0x001e, h01=0x0050, text=»* EXIT: A5=TTAB ADDRESS«, t00=0x003f, t01=0x0150}
0x63c8…63f4 Head {h00=0x0028, h01=0x0050, text=»* A5=0 TTAB NOT FOUND CR=0 «, t00=0x003f, t01=0x0172}
0x63f4…640c Head {h00=0x0014, h01=0x0050, text=»* A7=-1«, t00=0x0040, t01=0x000e}
0x640c…6416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0026}
0x6416…642a Head {h00=0x0010, h01=0x0050, text=»FINDTT EQU *«, t00=0x0040, t01=0x0030}
0x642a…643c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0040, t01=0x0044}
0x643c…6466 Head {h00=0x0026, h01=0x0050, text=» RF(N) NFOUND ILLEGAL TASK NUMBER «, t00=0x0040, t01=0x0056}
0x6466…648e Head {h00=0x0024, h01=0x0050, text=» LDKL A5,TTABD ADDRESS TO TASK 0«, t00=0x0040, t01=0x0080}
0x648e…64a2 Head {h00=0x0010, h01=0x0050, text=»FIND10 EQU *«, t00=0x0040, t01=0x00a8}
0x64a2…64b4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0040, t01=0x00bc}
0x64b4…64d4 Head {h00=0x001c, h01=0x0050, text=» RF(N) FINEND TASK FOUND«, t00=0x0040, t01=0x00ce}
0x64d4…6504 Head {h00=0x002c, h01=0x0050, text=» ADKL A5,TTABLN POINTER TO NEXT TTAB =4 «, t00=0x0040, t01=0x00ee}
0x6504…651a Head {h00=0x0012, h01=0x0050, text=» CWK A5,TABEND«, t00=0x0040, t01=0x011e}
0x651a…653e Head {h00=0x0020, h01=0x0050, text=» RB(NE) FIND10 NOT LAST TTAB«, t00=0x0040, t01=0x0134}
0x653e…6552 Head {h00=0x0010, h01=0x0050, text=»NFOUND EQU *«, t00=0x0040, t01=0x0158}
0x6552…657c Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 INDICATE TTAB NOT FOUND «, t00=0x0040, t01=0x016c}
0x657c…6590 Head {h00=0x0010, h01=0x0050, text=»FINEND EQU *«, t00=0x0041, t01=0x0008}
0x6590…65a4 Head {h00=0x0010, h01=0x0050, text=» ADKL A15,4 «, t00=0x0041, t01=0x001c}
0x65a4…65be Head {h00=0x0016, h01=0x0050, text=» LDR A5,A5 SET CR «, t00=0x0041, t01=0x0030}
0x65be…65d0 Head {h00=0x000e, h01=0x0050, text=» ABR* A15 «, t00=0x0041, t01=0x004a}
0x65d0…65dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x005c}
0x65dc…65f2 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0041, t01=0x0068}
0x65f2…65fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x007e}
0x65fc…6616 Head {h00=0x0016, h01=0x0050, text=» IFF SDM+ADMCDE=0 «, t00=0x0041, t01=0x0088}
0x6616…6620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a2}
0x6620…6632 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00ac}
0x6632…6644 Head {h00=0x000e, h01=0x0050, text=»* ENLFAC *«, t00=0x0041, t01=0x00be}
0x6644…6656 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0041, t01=0x00d0}
0x6656…6660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e2}
0x6660…6696 Head {h00=0x0032, h01=0x0050, text=»* GET ENLARGE FACTOR AND CONVERT TO SECTORS «, t00=0x0041, t01=0x00ec}
0x6696…66a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0122}
0x66a0…66c4 Head {h00=0x0020, h01=0x0050, text=»* INPUT : A12=FPB ADDRESS«, t00=0x0041, t01=0x012c}
0x66c4…66f8 Head {h00=0x0030, h01=0x0050, text=»* A4=NUMBER OF SECTORS PER BLOCK«, t00=0x0041, t01=0x0150}
0x66f8…6714 Head {h00=0x0018, h01=0x0050, text=»* OUTPUT: A1= RC«, t00=0x0041, t01=0x0184}
0x6714…6748 Head {h00=0x0030, h01=0x0050, text=»* A4=NUMBER OF SECTORS PER BLOCK«, t00=0x0042, t01=0x0010}
0x6748…677e Head {h00=0x0032, h01=0x0050, text=»* A3= ENLARGE IN NUMBER OF SECTORS«, t00=0x0042, t01=0x0044}
0x677e…67a8 Head {h00=0x0026, h01=0x0050, text=»* A2,A5,A6,A7 ARE USED«, t00=0x0042, t01=0x007a}
0x67a8…67b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a4}
0x67b2…67c6 Head {h00=0x0010, h01=0x0050, text=»ENLFAC EQU *«, t00=0x0042, t01=0x00ae}
0x67c6…67e6 Head {h00=0x001c, h01=0x0050, text=» ST A13,-8,A14 SAVE A13 «, t00=0x0042, t01=0x00c2}
0x67e6…6816 Head {h00=0x002c, h01=0x0050, text=» CF A14,TOTSIZ GET TOTAL LENGTH OF FILE «, t00=0x0042, t01=0x00e2}
0x6816…6834 Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0042, t01=0x0112}
0x6834…685a Head {h00=0x0022, h01=0x0050, text=» LDR A3,A2 CONVERT PERCENTAGE «, t00=0x0042, t01=0x0130}
0x685a…687c Head {h00=0x001e, h01=0x0050, text=» LD A6,FPB:EL,A12 ENLARGE «, t00=0x0042, t01=0x0156}
0x687c…689a Head {h00=0x001a, h01=0x0050, text=» RF(N) SETCRO OVERFLOW«, t00=0x0042, t01=0x0178}
0x689a…68ac Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0043, t01=0x0008}
0x68ac…68c2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENLF30 «, t00=0x0043, t01=0x001a}
0x68c2…68d8 Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0043, t01=0x0030}
0x68d8…68ea Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0043, t01=0x0046}
0x68ea…690a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SETCRO OVERFLOW «, t00=0x0043, t01=0x0058}
0x690a…692c Head {h00=0x001e, h01=0x0050, text=» LD A6,FPB:EL,A12 ENLARGE «, t00=0x0043, t01=0x0078}
0x692c…693e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0043, t01=0x009a}
0x693e…6948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ac}
0x6948…695e Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0043, t01=0x00b6}
0x695e…6968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00cc}
0x6968…6972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d6}
0x6972…6986 Head {h00=0x0010, h01=0x0050, text=»ENLF30 EQU *«, t00=0x0043, t01=0x00e0}
0x6986…6998 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0043, t01=0x00f4}
0x6998…69aa Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x0043, t01=0x0106}
0x69aa…69c4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ENLF40 ZERO«, t00=0x0043, t01=0x0118}
0x69c4…69da Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0043, t01=0x0132}
0x69da…69ee Head {h00=0x0010, h01=0x0050, text=»ENLF40 EQU *«, t00=0x0043, t01=0x0148}
0x69ee…6a00 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0043, t01=0x015c}
0x6a00…6a1e Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0043, t01=0x016e}
0x6a1e…6a32 Head {h00=0x0010, h01=0x0050, text=» LDK A6,100 «, t00=0x0043, t01=0x018c}
0x6a32…6a5a Head {h00=0x0024, h01=0x0050, text=» CF A14,DIVMOD NUMBER OF SECTORS«, t00=0x0044, t01=0x0010}
0x6a5a…6a78 Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0044, t01=0x0038}
0x6a78…6a8a Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0044, t01=0x0056}
0x6a8a…6aa8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) ENLF45 NO REST «, t00=0x0044, t01=0x0068}
0x6aa8…6ad8 Head {h00=0x002c, h01=0x0050, text=» ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE «, t00=0x0044, t01=0x0086}
0x6ad8…6aec Head {h00=0x0010, h01=0x0050, text=»ENLF45 EQU *«, t00=0x0044, t01=0x00b6}
0x6aec…6b08 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 RESET REST«, t00=0x0044, t01=0x00ca}
0x6b08…6b38 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A2 ENLARGE IN NUMBER OF SECTORS «, t00=0x0044, t01=0x00e6}
0x6b38…6b68 Head {h00=0x002c, h01=0x0050, text=» LDR A6,A4 NUMBER OF SECTORS PER RECORD «, t00=0x0044, t01=0x0116}
0x6b68…6b7e Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x0044, t01=0x0146}
0x6b7e…6b90 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0044, t01=0x015c}
0x6b90…6bc0 Head {h00=0x002c, h01=0x0050, text=» RF(Z) ENLF60 REST=0,INCLUDING ENLARGE=0«, t00=0x0044, t01=0x016e}
0x6bc0…6bf8 Head {h00=0x0034, h01=0x0050, text=» SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS«, t00=0x0045, t01=0x000e}
0x6bf8…6c0c Head {h00=0x0010, h01=0x0050, text=»ENLF50 EQU *«, t00=0x0045, t01=0x0046}
0x6c0c…6c2e Head {h00=0x001e, h01=0x0050, text=» ADR A3,A4 ONE MORE BLOCK «, t00=0x0045, t01=0x005a}
0x6c2e…6c4e Head {h00=0x001c, h01=0x0050, text=» RF(NP) SETCRO OVERFLOW «, t00=0x0045, t01=0x007c}
0x6c4e…6c62 Head {h00=0x0010, h01=0x0050, text=»ENLF60 EQU *«, t00=0x0045, t01=0x009c}
0x6c62…6c74 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0045, t01=0x00b0}
0x6c74…6c86 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0045, t01=0x00c2}
0x6c86…6c9c Head {h00=0x0012, h01=0x0050, text=» CF A14,DV3RST«, t00=0x0045, t01=0x00d4}
0x6c9c…6cc4 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ENLF50 NOT MULTIPLE OF 3«, t00=0x0045, t01=0x00ea}
0x6cc4…6cea Head {h00=0x0022, h01=0x0050, text=» LD A13,-8,A14 SAVED REGISTER «, t00=0x0045, t01=0x0112}
0x6cea…6cfc Head {h00=0x000e, h01=0x0050, text=» RF RTNA14«, t00=0x0045, t01=0x0138}
0x6cfc…6d12 Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0045, t01=0x014a}
0x6d12…6d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0160}
0x6d1c…6d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x016a}
0x6d26…6d38 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0174}
0x6d38…6d4a Head {h00=0x000e, h01=0x0050, text=»* CONENL *«, t00=0x0045, t01=0x0186}
0x6d4a…6d5c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0008}
0x6d5c…6d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x001a}
0x6d66…6da6 Head {h00=0x003c, h01=0x0050, text=»* CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE«, t00=0x0046, t01=0x0024}
0x6da6…6db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0064}
0x6db0…6dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006e}
0x6dba…6dce Head {h00=0x0010, h01=0x0050, text=»CONENL EQU *«, t00=0x0046, t01=0x0078}
0x6dce…6dfc Head {h00=0x002a, h01=0x0050, text=» CF A14,TOTSIZ GET TOTAL SIZE OF FILE «, t00=0x0046, t01=0x008c}
0x6dfc…6e1e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A1 SAVE TOTAL SIZE«, t00=0x0046, t01=0x00ba}
0x6e1e…6e30 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0046, t01=0x00dc}
0x6e30…6e5c Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBENL,A11 ENLARGE IN SECTORS«, t00=0x0046, t01=0x00ee}
0x6e5c…6e70 Head {h00=0x0010, h01=0x0050, text=» LDK A7,100 «, t00=0x0046, t01=0x011a}
0x6e70…6e86 Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0046, t01=0x012e}
0x6e86…6eb0 Head {h00=0x0026, h01=0x0050, text=» SLN A3,A5 NORMALIZE BEFORE DIVIDE«, t00=0x0046, t01=0x0144}
0x6eb0…6ec2 Head {h00=0x000e, h01=0x0050, text=» NGR A5,A5«, t00=0x0046, t01=0x016e}
0x6ec2…6ed4 Head {h00=0x000e, h01=0x0050, text=» ADK A5,15«, t00=0x0046, t01=0x0180}
0x6ed4…6f00 (71, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RF(NP) CON400 NO NEED TO NORMALIZE «, t00=0x0047, t01=0x0004}
0x6f00…6f14 Head {h00=0x0010, h01=0x0050, text=»CON200 EQU *«, t00=0x0047, t01=0x0030}
0x6f14…6f48 Head {h00=0x0030, h01=0x0050, text=» SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT «, t00=0x0047, t01=0x0044}
0x6f48…6f5a Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0047, t01=0x0078}
0x6f5a…6f6c Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0047, t01=0x008a}
0x6f6c…6f8e Head {h00=0x001e, h01=0x0050, text=» RF(NN) CON300 BIT NOT SET«, t00=0x0047, t01=0x009c}
0x6f8e…6fa4 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/7FFF«, t00=0x0047, t01=0x00be}
0x6fa4…6fc2 Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/4000 SET BIT«, t00=0x0047, t01=0x00d4}
0x6fc2…6fd6 Head {h00=0x0010, h01=0x0050, text=»CON300 EQU *«, t00=0x0047, t01=0x00f2}
0x6fd6…6fe8 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0047, t01=0x0106}
0x6fe8…7010 Head {h00=0x0024, h01=0x0050, text=» RB(P) CON200 CONTINUE TO SHIFT «, t00=0x0047, t01=0x0118}
0x7010…701e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0140}
0x701e…7032 Head {h00=0x0010, h01=0x0050, text=»CON400 EQU *«, t00=0x0047, t01=0x014e}
0x7032…7044 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0047, t01=0x0162}
0x7044…7056 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0047, t01=0x0174}
0x7056…7080 Head {h00=0x0026, h01=0x0050, text=» CF A14,DIVMOD ENLARGE IN PERCENT «, t00=0x0047, t01=0x0186}
0x7080…70a6 Head {h00=0x0022, h01=0x0050, text=» ST A2,FPB:EL,A12 SAVE ENLARGE«, t00=0x0048, t01=0x0020}
0x70a6…70b6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x0046}
0x70b6…70cc Head {h00=0x0012, h01=0x0050, text=» EJECT TIODM «, t00=0x0048, t01=0x0056}
0x70cc…70d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x006c}
0x70d6…70e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0076}
0x70e0…70f2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x0080}
0x70f2…7104 Head {h00=0x000e, h01=0x0050, text=»* TOTSIZ *«, t00=0x0048, t01=0x0092}
0x7104…7116 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0048, t01=0x00a4}
0x7116…7120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00b6}
0x7120…7148 Head {h00=0x0024, h01=0x0050, text=»* CALCULATE TOTAL SIZE OF FILE«, t00=0x0048, t01=0x00c0}
0x7148…7152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e8}
0x7152…717a Head {h00=0x0024, h01=0x0050, text=»* INPUT : A12 = FPB ADDRESS «, t00=0x0048, t01=0x00f2}
0x717a…71a8 Head {h00=0x002a, h01=0x0050, text=»* OUTPUT: A1,A2=TOTAL SIZE OF FILE«, t00=0x0048, t01=0x011a}
0x71a8…71fc Head {h00=0x0050, h01=0x0050, text=»* A13 = ADDRESS TO LAST SIZE + DIFFFERENCE IN SIZE DISPLACEMENT «, t00=0x0048, t01=0x0148}
0x71fc…7218 Head {h00=0x0018, h01=0x0050, text=»* A5 = 0«, t00=0x0049, t01=0x000c}
0x7218…723e Head {h00=0x0022, h01=0x0050, text=»* A6,A7 ARE USED «, t00=0x0049, t01=0x0028}
0x723e…7248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x004e}
0x7248…725c Head {h00=0x0010, h01=0x0050, text=»TOTSIZ EQU *«, t00=0x0049, t01=0x0058}
0x725c…7270 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A12«, t00=0x0049, t01=0x006c}
0x7270…7298 Head {h00=0x0024, h01=0x0050, text=» ADKL A13,FPB:S1 ADDRESS TO SIZE«, t00=0x0049, t01=0x0080}
0x7298…72b2 Head {h00=0x0016, h01=0x0050, text=» LDK A5,4 COUNTER «, t00=0x0049, t01=0x00a8}
0x72b2…72c4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0049, t01=0x00c2}
0x72c4…72d6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x00d4}
0x72d6…72ea Head {h00=0x0010, h01=0x0050, text=»TOTS10 EQU *«, t00=0x0049, t01=0x00e6}
0x72ea…7308 Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A13 GET SIZE «, t00=0x0049, t01=0x00fa}
0x7308…731c Head {h00=0x0010, h01=0x0050, text=» LD A7,2,A13«, t00=0x0049, t01=0x0118}
0x731c…7340 Head {h00=0x0020, h01=0x0050, text=» CF A14,ADDMOD SUM OF SIZES «, t00=0x0049, t01=0x012c}
0x7340…735e Head {h00=0x001a, h01=0x0050, text=» RF(O) SETCRO OVERFLOW«, t00=0x0049, t01=0x0150}
0x735e…7380 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,SIZDIF NEXT SIZE«, t00=0x0049, t01=0x016e}
0x7380…7392 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0049, t01=0x0190}
0x7392…73b0 Head {h00=0x001a, h01=0x0050, text=» RB(P) TOTS10 ADD NEXT«, t00=0x004a, t01=0x0012}
0x73b0…73bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0030}
0x73bc…73ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x003c}
0x73ca…73e0 Head {h00=0x0012, h01=0x0050, text=» IFF ADM+SDM=0«, t00=0x004a, t01=0x004a}
0x73e0…73e8 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0060}
0x73e8…73fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x0068}
0x73fa…740c Head {h00=0x000e, h01=0x0050, text=»* RTNA14 *«, t00=0x004a, t01=0x007a}
0x740c…741e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x008c}
0x741e…7426 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x009e}
0x7426…7430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a6}
0x7430…7452 Head {h00=0x001e, h01=0x0050, text=»* SET CONDITION AND RETURN«, t00=0x004a, t01=0x00b0}
0x7452…745c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d2}
0x745c…7470 Head {h00=0x0010, h01=0x0050, text=»RTNA14 EQU *«, t00=0x004a, t01=0x00dc}
0x7470…7484 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x004a, t01=0x00f0}
0x7484…7496 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x004a, t01=0x0104}
0x7496…74a8 Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x004a, t01=0x0116}
0x74a8…74ba Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x004a, t01=0x0128}
0x74ba…74c2 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x013a}
0x74c2…74ca Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0142}
0x74ca…74dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x014a}
0x74dc…74ee Head {h00=0x000e, h01=0x0050, text=»* SETCRO *«, t00=0x004a, t01=0x015c}
0x74ee…7500 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x016e}
0x7500…7508 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0180}
0x7508…7512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0188}
0x7512…7534 (75, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* SET OVERFLOW AND RETURN «, t00=0x004b, t01=0x0004}
0x7534…753e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0026}
0x753e…7552 Head {h00=0x0010, h01=0x0050, text=»SETCRO EQU *«, t00=0x004b, t01=0x0030}
0x7552…7568 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8000«, t00=0x004b, t01=0x0044}
0x7568…757a Head {h00=0x000e, h01=0x0050, text=» RB RTNA14«, t00=0x004b, t01=0x005a}
0x757a…7586 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x006c}
0x7586…7594 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0078}
0x7594…75a6 Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x004b, t01=0x0086}
0x75a6…75ae Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0098}
0x75ae…75c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x00a0}
0x75c0…75d2 Head {h00=0x000e, h01=0x0050, text=»* COSZEN *«, t00=0x004b, t01=0x00b2}
0x75d2…75e4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x00c4}
0x75e4…75ec Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00d6}
0x75ec…75f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00de}
0x75f6…763e Head {h00=0x0044, h01=0x0050, text=»* COSZEN=CONVERT SIZE TO NBR OF RECORS AND ENLARGE TO PERCENTAGE«, t00=0x004b, t01=0x00e8}
0x763e…7648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0130}
0x7648…7668 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A12=FPB ADDRESS«, t00=0x004b, t01=0x013a}
0x7668…7688 Head {h00=0x001c, h01=0x0050, text=»* A11=FDB ADDRESS«, t00=0x004b, t01=0x015a}
0x7688…7692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x017a}
0x7692…76c2 Head {h00=0x002c, h01=0x0050, text=»* EXIT : SIZE AND ENLARGE UPADTED IN FPB«, t00=0x004b, t01=0x0184}
0x76c2…76f0 Head {h00=0x002a, h01=0x0050, text=»* A1,A2,A3,A4,A5,A6,A7,A13=USED«, t00=0x004c, t01=0x0024}
0x76f0…76fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0052}
0x76fa…770e Head {h00=0x0010, h01=0x0050, text=»COSZEN EQU *«, t00=0x004c, t01=0x005c}
0x770e…773c Head {h00=0x002a, h01=0x0050, text=» CF A14,CONENL CONVERT ENLARGE FACTOR «, t00=0x004c, t01=0x0070}
0x773c…7746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009e}
0x7746…775c Head {h00=0x0012, h01=0x0050, text=»* CONVERT SIZE«, t00=0x004c, t01=0x00a8}
0x775c…7766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00be}
0x7766…778a Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF VOLUMES «, t00=0x004c, t01=0x00c8}
0x778a…77aa Head {h00=0x001c, h01=0x0050, text=» LDR A13,A12 FPB ADDRESS«, t00=0x004c, t01=0x00ec}
0x77aa…77d4 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,FPB:S1 POINTER TO SIZE 1«, t00=0x004c, t01=0x010c}
0x77d4…77e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0136}
0x77e2…77f6 Head {h00=0x0010, h01=0x0050, text=»COS100 EQU *«, t00=0x004c, t01=0x0144}
0x77f6…780a Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A13«, t00=0x004c, t01=0x0158}
0x780a…7834 Head {h00=0x0026, h01=0x0050, text=» LD A2,2,A13 A1,A2=SIZE (SECTORS) «, t00=0x004c, t01=0x016c}
0x7834…7868 Head {h00=0x0030, h01=0x0050, text=» LC A6,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK)«, t00=0x004d, t01=0x0008}
0x7868…787c Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x004d, t01=0x003c}
0x787c…78ac Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 «, t00=0x004d, t01=0x0050}
0x78ac…78ca Head {h00=0x001a, h01=0x0050, text=» RB(O) SETCRO OVERFLOW«, t00=0x004d, t01=0x0080}
0x78ca…78dc Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x004d, t01=0x009e}
0x78dc…7912 Head {h00=0x0032, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK)«, t00=0x004d, t01=0x00b0}
0x7912…7926 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x004d, t01=0x00e6}
0x7926…7948 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A6*A7=A1,A2«, t00=0x004d, t01=0x00fa}
0x7948…795c Head {h00=0x0010, h01=0x0050, text=» STR A1,A13 «, t00=0x004d, t01=0x011c}
0x795c…7986 Head {h00=0x0026, h01=0x0050, text=» ST A2,2,A13 A1,A2=SIZE IN RECORDS«, t00=0x004d, t01=0x0130}
0x7986…799e Head {h00=0x0014, h01=0x0050, text=» ADKL A13,SIZDIF«, t00=0x004d, t01=0x015a}
0x799e…79b0 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x004d, t01=0x0172}
0x79b0…79d0 Head {h00=0x001c, h01=0x0050, text=» RB(P) COS100 NEXT SIZE «, t00=0x004d, t01=0x0184}
0x79d0…79e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0014}
0x79e0…79ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0024}
0x79ec…79f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0030}
0x79f6…7a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x003a}
0x7a00…7a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0044}
0x7a0a…7a16 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004e, t01=0x004e}
0x7a16…7a1a Head {h00=0x4004, h01=0x0000}
0x7a1a…7a1e 00 4e 00 5a ┆ N Z┆
0x7a1e…7a26 (79, 1, 8) 20 04 00 00 00 4f 00 04 ┆ O ┆
0x7a26…7a76 (80, 0, 400) 53 55 42 52 4f 55 54 49 4e 45 53 20 2a 20 00 4f 01 8e 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 50 00 16 00 06 00 50 2a 20 00 50 00 2e 00 06 00 50 2a 20 00 50 00 38 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 50 00 42 ┆SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B┆
0x7a76…7ac6 00 0e 00 50 2a 20 44 56 33 52 53 54 20 2a 00 50 00 54 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 50 00 66 00 06 00 50 2a 20 00 50 00 78 00 06 00 50 2a 20 00 50 00 82 00 28 00 50 2a 20 20 20 43 41 4c 43 55 4c 41 54 45 53 20 52 45 53 54 20 ┆ P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST ┆
0x7ac6…7b16 57 48 45 4e 20 44 49 56 49 44 45 20 42 59 20 33 00 50 00 8c 00 06 00 50 2a 20 00 50 00 b8 00 22 00 50 2a 20 20 20 49 4e 50 55 54 20 20 3a 20 41 31 2c 41 32 20 3d 20 44 49 56 49 44 45 4e 54 20 00 50 00 c2 00 06 00 50 2a 20 00 50 00 e8 00 32 ┆WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2┆
0x7b16…7b66 00 50 2a 20 20 20 4f 55 54 50 55 54 20 3a 20 20 20 20 41 32 20 3d 20 33 2d 52 45 53 54 20 4f 52 20 49 46 20 52 45 53 54 3d 30 20 41 32 3d 30 20 00 50 00 f2 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 3d 30 20 00 50 ┆ P* OUTPUT : A2 = 3-REST OR IF REST=0 A2=0 P P* A1=0 P┆
0x7b66…7bb6 01 28 00 06 00 50 2a 20 00 50 01 46 00 10 00 50 44 56 33 52 53 54 5c 45 51 55 5c 2a 00 50 01 50 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 31 20 00 50 01 64 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 31 00 50 01 76 00 10 00 50 44 56 33 52 31 30 5c 45 ┆ ( P* P F PDV3RST EQU * P P P SLL A1,1 P d P ADR A2,A1 P v PDV3R10 E┆
0x7bb6…7c06 (81, 0, 398) 51 55 5c 2a 00 50 01 88 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 51 00 0c 00 22 00 50 5c 41 4e 4b 5c 41 31 2c 33 5c 4f 4e 45 20 46 49 47 55 52 45 20 49 4e 20 42 41 53 45 20 34 00 51 00 1e 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 32 20 00 51 ┆QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q┆
0x7c06…7c56 00 44 00 32 00 50 5c 41 44 52 5c 41 32 2c 41 31 5c 41 44 44 45 44 20 54 4f 20 52 45 53 54 20 4f 46 20 46 49 47 55 52 45 53 20 49 4e 20 42 41 53 45 20 34 20 00 51 00 56 00 1a 00 50 5c 52 46 28 5a 29 5c 53 45 54 32 43 52 5c 52 45 53 54 20 3d ┆ D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST =┆
0x7c56…7ca6 20 30 00 51 00 8c 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 33 20 00 51 00 aa 00 22 00 50 5c 52 42 28 50 29 5c 44 56 33 52 31 30 5c 43 4f 4e 54 49 4e 55 45 20 54 4f 20 41 44 44 20 00 51 00 bc 00 0e 00 50 5c 4e 47 52 5c 41 32 2c 41 32 00 51 00 e2 ┆ 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q ┆
0x7ca6…7cf6 00 0e 00 50 5c 52 46 5c 53 45 54 32 43 52 00 51 00 f4 00 06 00 50 2a 20 00 51 01 06 00 12 00 50 5c 45 4a 45 43 54 5c 5c 46 4d 43 44 45 46 00 51 01 10 00 06 00 50 2a 20 00 51 01 26 00 06 00 50 2a 20 00 51 01 30 00 0e 00 50 2a 2a 2a 2a 2a 2a ┆ P RF SET2CR Q P* Q P EJECT FMCDEF Q P* Q & P* Q 0 P******┆
0x7cf6…7d44 2a 2a 2a 2a 00 51 01 3a 00 0e 00 50 2a 20 47 45 54 46 49 4c 20 2a 00 51 01 4c 00 0e 00 50 2a 20 47 45 54 50 41 52 20 2a 00 51 01 5e 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 51 01 70 00 06 00 50 2a 20 00 51 01 82 00 06 00 50 2a 20 ┆**** Q : P* GETFIL * Q L P* GETPAR * Q ^ P********** Q p P* Q P* ┆
0x7d44…7d94 (82, 0, 400) 00 51 01 8c 00 20 00 50 2a 20 20 20 47 45 54 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 20 4c 45 4e 47 54 48 20 00 52 00 08 00 06 00 50 2a 20 00 52 00 2c 00 28 00 50 2a 20 20 20 49 4e 50 55 54 20 3a 20 41 32 20 3d 20 46 49 4c 45 20 53 45 43 54 ┆ Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECT┆
0x7d94…7de4 49 4f 4e 20 4e 55 4d 42 45 52 00 52 00 36 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 31 30 20 3d 20 46 50 42 20 41 44 44 52 45 53 53 00 52 00 62 00 06 00 50 2a 20 00 52 00 86 00 2c 00 50 2a 20 20 20 4f 55 54 50 55 54 3a 20 41 31 2c 41 ┆ION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A┆
0x7de4…7e34 32 20 3d 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 20 4c 45 4e 47 54 48 20 00 52 00 90 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 20 53 45 54 20 41 43 43 4f 52 44 49 4e 47 20 54 4f 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 20 ┆2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION ┆
0x7e34…7e84 4c 45 4e 47 54 48 00 52 00 c0 00 06 00 50 2a 20 00 52 00 fe 00 06 00 50 2a 20 00 52 01 08 00 10 00 50 47 45 54 46 49 4c 5c 45 51 55 5c 2a 00 52 01 12 00 1e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 4d 55 4c 54 49 50 4c 59 20 42 59 20 31 30 20 ┆LENGTH R P* R P* R PGETFIL EQU * R P LDR A1,A2 MULTIPLY BY 10 ┆
0x7e84…7ed4 00 52 01 26 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 32 20 00 52 01 48 00 0e 00 50 5c 41 44 52 5c 41 31 2c 41 32 00 52 01 5a 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 31 20 00 52 01 6c 00 2e 00 50 5c 41 44 52 5c 41 31 2c 41 31 30 5c 41 44 44 52 45 53 ┆ R & P SLL A1,2 R H P ADR A1,A2 R Z P SLL A1,1 R l . P ADR A1,A10 ADDRES┆
0x7ed4…7f24 (83, 0, 400) 53 20 54 4f 20 46 49 4c 45 20 53 45 43 54 49 4f 4e 20 4c 45 4e 47 54 48 00 52 01 7e 00 2c 00 50 5c 41 44 4b 4c 5c 41 31 2c 46 50 42 3a 53 31 5c 53 49 5a 45 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 49 4e 20 46 50 42 00 53 00 20 00 10 00 50 ┆S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S P┆
0x7f24…7f74 47 45 54 50 41 52 5c 45 51 55 5c 2a 00 53 00 50 00 26 00 50 5c 4c 44 5c 41 32 2c 32 2c 41 31 5c 4c 45 41 53 54 20 53 49 47 4e 49 46 49 43 41 4e 54 20 50 41 52 54 00 53 00 64 00 26 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 5c 4d 4f 53 54 20 53 ┆GETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST S┆
0x7f74…7fc4 49 47 4e 49 46 49 43 41 4e 54 20 50 41 52 54 20 00 53 00 8e 00 16 00 50 5c 52 46 5c 44 42 4c 58 30 30 5c 53 45 54 20 43 52 20 00 53 00 b8 00 06 00 50 2a 20 00 53 00 d2 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 53 00 dc 00 12 ┆IGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S ┆
0x7fc4…8014 00 50 5c 45 4a 45 43 54 5c 5c 46 4d 43 44 45 46 00 53 00 f2 00 06 00 50 2a 20 00 53 01 08 00 06 00 50 2a 20 00 53 01 12 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 53 01 1c 00 0e 00 50 2a 20 44 42 4c 41 44 44 20 2a 00 53 01 2e 00 0e 00 50 ┆ P EJECT FMCDEF S P* S P* S P********** S P* DBLADD * S . P┆
0x8014…8064 2a 20 44 42 4c 41 44 52 20 2a 00 53 01 40 00 0e 00 50 2a 20 44 42 4c 41 44 31 20 2a 00 53 01 52 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 53 01 64 00 06 00 50 2a 20 00 53 01 76 00 06 00 50 2a 20 00 53 01 80 00 26 00 50 2a 20 20 20 44 4f ┆* DBLADR * S @ P* DBLAD1 * S R P********** S d P* S v P* S & P* DO┆
0x8064…80b4 (84, 0, 400) 55 42 4c 45 20 41 44 44 20 4f 4e 20 4d 45 4d 4f 52 59 20 4c 4f 43 41 54 49 4f 4e 53 00 53 01 8a 00 30 00 50 2a 20 20 20 44 4f 55 42 4c 45 20 41 44 44 20 4f 4e 20 4d 45 4d 4f 52 59 20 42 59 20 52 45 47 49 53 54 45 52 53 20 41 31 2c 41 32 20 ┆UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 ┆
0x80b4…8104 00 54 00 24 00 06 00 50 2a 20 00 54 00 58 00 26 00 50 2a 20 20 20 49 4e 50 55 54 20 3a 20 20 41 33 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 41 52 47 31 20 00 54 00 62 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 36 20 3d 20 41 44 ┆ T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = AD┆
0x8104…8154 44 52 45 53 53 20 54 4f 20 41 52 47 32 20 00 54 00 8c 00 06 00 50 2a 20 00 54 00 b6 00 2c 00 50 2a 20 20 20 4f 55 54 50 55 54 3a 20 20 41 33 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 41 52 47 31 20 2b 20 41 52 47 32 00 54 00 c0 00 22 00 50 ┆DRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P┆
0x8154…81a4 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 31 2c 41 32 20 3d 20 41 52 47 31 2b 41 52 47 32 00 54 00 f0 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 36 2c 41 37 20 41 52 45 20 44 45 53 54 4f 59 45 44 20 00 54 01 16 00 06 00 50 2a 20 ┆* A1,A2 = ARG1+ARG2 T $ P* A6,A7 ARE DESTOYED T P* ┆
0x81a4…81f4 00 54 01 3e 00 1e 00 50 44 42 4c 41 44 31 5c 45 51 55 5c 2a 5c 53 50 45 43 49 41 4c 20 45 4e 54 52 59 00 54 01 48 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 35 00 54 01 6a 00 14 00 50 5c 41 44 4b 4c 5c 41 36 2c 46 4d 3a 42 55 46 20 00 54 01 7c ┆ T > PDBLAD1 EQU * SPECIAL ENTRY T H P LDR A6,A5 T j P ADKL A6,FM:BUF T |┆