|
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: 81074 (0x13cb2)
Notes: pts_type(SC)
Names: »SYSLOD.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/SYSLOD.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:DE10/SYSLOD.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:DE10/SYSLOD.SC«
IDENT SYSLOD REL 10.0 80-03-15 870105041000 PRR 10.0 80-03-14 =3,CONDITIONAL ASSEMBLY FOR SYSLOD TEST PRR 10.0 80-01-18 =2,S:GTAB LIMITED TO ONE SECTOR PRR 10.0 79-12-20 =1,SEGBLK/PAGBLK NOT GEN. FOR CORE RES. SEGM. ENTRY SYSLOD ENTRY SYSBAS ENTRY NUMSEG ENTRY PRGLG1 *************************** * * * ENTRIES AND EXTERNALS * * * *************************** EXTRN CONVRT EXTRN LDALEN EXTRN SCTADA EXTRN SCTANO EXTRN SCTBUG EXTRN SCTEFA EXTRN SCTLAC EXTRN SCTLAP EXTRN SCTMMC EXTRN SCTMMP EXTRN SCTMSZ EXTRN SCTNOP EXTRN SCTNPE EXTRN SCTOPT EXTRN SCTIPL EXTRN SCTPSZ EXTRN SCTSFA EXTRN SCTSWB EJECT EXTRN SAVE01 EXTRN SAVE02 EXTRN SAVE03 EXTRN SAVE04 EXTRN SAVE05 EXTRN SAVE06 EXTRN SAVE07 EXTRN SAVE08 EXTRN SAVE09 EXTRN SAVE10 EXTRN SAVE11 EXTRN SAVE12 EXTRN SAVE13 EXTRN SAVE18 EXTRN SAVE20 EXTRN SAVE22 EXTRN SAVE25 EXTRN SAVE26 EXTRN SAVE27 EXTRN SAVE28 EXTRN SAVE29 EXTRN APPTYP EXTRN REL EXTRN ERROR EXTRN MMDDIV EXTRN M:REL EXTRN TABBE EXTRN MMEND EXTRN CMPADR EXTRN MOVE EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB EXTRN TTB:CB EJECT ******************************* * CONFIGURATION FILE (CONFIG) * ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID SAVE09 VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 SAVE05 TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 6 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 LAMP 1 CODE LMP2 EQU /200 LMP3 EQU /100 LMP4 EQU /80 LMP5 EQU /40 LMP6 EQU /20 LMP7 EQU /10 LMP8 EQU 8 LMP9 EQU 4 LMP10 EQU 2 LMP11 EQU 1 EJECT ********************* * OTHER CONSTANTS * ********************* NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB COMLG EQU 4 LENGTH OF COMMON PART PAGSIZ EQU /1000 PHYSICAL PAGE SIZE CBLEN EQU 256 CASSETTE BUFFER LENGTH BLKLEN EQU 6 SEGMENT BLOCK LENGTH PAGLG EQU 8 PAGE LENGTH IN S:GTAB PRGLG1 EQU 2 NCHTID EQU 5 NBR OF CHAR. IN TID RECORD SWPFEL EQU 14 FILE EXTENT LENGTH EJECT *********************** * CASSETTE HANDLING * *********************** CHCR EQU /E DEVICE ADDRESS FOR CASSETTE LOCK EQU /2 LOCK CASSETTE SBOT EQU 8 SEARCH BEGINNING OF TAPE STMF EQU /C SEARCH TAPEMARK FORWARD * * DISC/FLEXIBLE DISC HANDLING * BUFLEN EQU 256 LENGTH OF READ BUFFER DKBA3 EQU 514 BUFFER LENGTH VERSION A3 RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH FDCU EQU /09 FLEXIBLE DISC CU ADDRESS FDIOP EQU FDCU+FDCU MUX ADDRESS MUXCC EQU /8080 1:ST MUX WORD MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS QBLFAC EQU 6 BLOCKING FACTOR * * DATA AREA DEFINITION * SYSBAS EQU * SAVCON DATA BUFLEN MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS SAVMEM DATA 0 SAVE AREA CYLNBR DATA /FFFF CYLINDER NUMBER SECNBR DATA 0 PHYSICAL SECTOR NUMBER DEVTAB DATA /1909,/1101,/0828 SWPTAB DATA '$S','WA','P ',' ' EJECT ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT ************************** * CONDITIONAL ASSEMBLY * ************************** CASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE DISC EQU 1 1-PROGRAM LOAD DEVICE = DISC FLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC MFDISC EQU 1 1-PROGRAM LOAD DEVICE = MINI FIXED DISC CFTEST EQU 1 1-TEST THE CONFIGURATION FILE CFTCAS EQU CFTEST+CASS CFTFLD EQU CFTEST+FLDISC LODTST EQU 0 1-BUGGER START AFTER MONITOR LOADING =3 EJECT ****************************************************** * * * APPLICATION LOAD PART OF SYSLOD * * =============================== * * * * ENTRY: A1 - FORMAT AND DEVICE TYPE * * A2 - PROGRAM LOAD DEVICE * * A3 - APPLICATION NUMBER * * A7 - APPLICATION DISC ADDRESS BIT 16-31 * * A8 - APPLICATION DISC ADDRESS BIT 0-15 * * A9 - SAVE09 OF FREE AREA * * A13 - MONITOR SAVE09 ADDRESS * * * * EXIT: * * * * SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * * LODSEG,REBUF,MOVBUF,RDBLK, * * CONLOD,CONEX,MOVREV * * * ****************************************************** SYSLOD EQU * * * SAVE REGISTERS * ST A1,SCTSFA+2 SAVE FORMAT AND DEVICE TYPE ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE ST A3,SCTANO APPLICATION NUMBER ST A8,SCTADA SAVE APPLICATION DISC ADDRESS BIT 0-15 ST A7,SCTADA+2 SAVE APPLICATION DISC ADDRESS BIT 16-31 ST A9,SCTSFA SAVE SAVE09 OF FREE AREA IFT LODTST=1 =3 LDKL A14,SYSBAS =3 LDR A13,P =3 ADKL A13,10 =3 LD A1,SCTBUG =3 ABR(NZ) A1 =3 XIF =3 EJECT * * INDICATE SYSLOD RUNS * LDKL A1,LMP1 OTR A1,0,SOP * * INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) * AND ADDRESS TO GETPSW-ROUTINE * LDR A8,P RETURN ADDRESS LDKL A3,REL+2 RELOCATION ROUTINE CFR A8,A3 LDKL A5,/5555 LOAD TEST PATTERN LDK A6,64 INIT PAGE COUNTER LD A1,SCTOPT GET OPTION WORD ANK A1,1 MMU IN SYSTEM? RF(Z) AP:100 NO! EJECT * * EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY * SLL A6,2 UPPER SAVE20=256 KB LDK A1,0 MMU ENTRY POINTER AP:010 EQU * LD A2,TABBE GET PAGE ADDRESS SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ST A2,TABBE STORE IT BACK TL TABBE LOAD MMU REGISTERS ES A5,PAGSIZ-2,A1 STORE TEST PATTERN EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT CWR A2,A5 COMPARE WITH TEST PATTERN RF(E) AP:200 SUK A6,4 DECREMENT NUMBER OF PAGES RB AP:010 * * END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY * EJECT AP:100 EQU * * * EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY * LDKL A1,PAGSIZ-2 SAVE09 AT /FFFE AP:110 EQU * SUKL A1,PAGSIZ NEXT PHYSICAL PAGE LDR* A2,A1 SAVE OLD MEMORY CONTENT STR A5,A1 STORE TEST PATTERN CWR* A5,A1 CHECK IF MEMORY RF(E) AP:120 MEMORY END FOUND SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES RB AP:110 AP:120 EQU * STR A2,A1 RESTORE OLD MEMORY CONTENT * * END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY * EJECT * * COMMON EXECUTION PATH * AP:200 EQU * ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES SRL A6,6 NUMBER OF 64KB-PARTITIONS =2 ST A6,SCTEFA+2 STORE =2 LDKL A6,/FFFE HIGHEST ADDRESS IN PARTITION =2 ST A6,SCTEFA STORE =2 * * GET DISC ADDRESS OF APPLICATION VTOC RECORD * LD A11,SCTADA+2 LDKL A12,SCTADA * * INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE LD A9,SCTSFA POINTER TO READ BUFFER LDR A3,A9 SAVE ADKL A3,BUFLEN COMPUTE START OF FREE AREA ST A3,SCTSFA STORE IN SYSTAB LD A2,SCTIPL GET PROGRAM LOAD DEVICE LDR A1,A2 SAVE * * CHECK PROGRAM LOAD MEDIUM * ANK A2,/C0 CHECK IF CASSETTE RF(P) AP:210 YES! ST A9,MXBUF FLEXIBLE DISC/DISC BUFFER ADDRESS LDR A2,A1 GET PROGRAM LOAD DEVICE SRL A2,4 BIT15 INDICATE UNIT 1 OR 2 LC A3,SCTSFA+3 GET DEVICE TYPE ANK A3,/FF RF(NP) FDTERR SUK A3,3 RF(N) AP:230 DISC RF(Z) AP:225 MINI FIXED DISC SUK A3,5 RF(Z) AP:220 FLEXIBLE DISC FDTERR LDKL A1,LMP10 INDICATE FORMAT/DEVICE TYPE ERROR CALL ERROR AP:210 EQU * IFT CASS=1 * * PROGRAM LOAD DEVICE = CASSETTE * LDKL A1,RDBLK GET SUBROUTINE ADDRESS LDR A10,A1 SAVE =2 ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE AP:215 EQU * CF A14,RDBLK READ ONE CASSETTE BLOCK LDR A1,A1 TAPE MARK? RF(Z) AP:235 NO! CF A14,CASSIN INIT APPLICATION CASSETTE RB AP:215 XIF IFF CASS=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT AP:220 EQU * IFT FLDISC=1 * * PROGRAM LOAD DEVICE = FLEXIBLE DISC * * * MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2 * ORK A2,/F8 ST A2,SCTIPL * * INIT FLEXIBLE DISC * CF A14,FDINIT =2 =2 =2 =2 RF AP:232 =2 XIF IFF FLDISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT AP:225 EQU * IFT MFDISC=1 * * PROGRAM LOAD DEVICE = MINI FIXED DISC * * MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 * ORK A2,/F4 ST A2,SCTIPL * * INIT MINI FIXED DISC * CF A14,MDINIT =2 =2 =2 =2 RF AP:232 =2 XIF IFF MFDISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT AP:230 EQU * IFT DISC=1 * * PROGRAM LOAD DEVICE = DISC * * * MODIFY SCTIPL: /F0 - CARTRIDGE DISC, /F1 - FIX DISC * SRL A2,1 XRK A2,1 ORK A2,/F0 ST A2,SCTIPL * * INITIALIZE DISC COMMANDS * CF A14,DUINIT AP:232 EQU * =2 LD A10,READ GET SUBROUTINE ADDRESS =2 CFR A14,A10 READ FIRST SECTOR =2 XIF IFF DISC=1 LDKL A1,LMP9 CALL ERROR XIF EJECT AP:235 EQU * * * COMMON EXECUTION PATH * * * SAVE INFORMATION ABOUT THE LOAD MODULE * LDR* A6,A9 GET SAVE09 ADDRESS (UNSEGMENTED APPL.) ST A6,SAVE09,A13 SAVE LD A6,COMLG,A9 GET LENGTH OF COMMON PART ST A6,SAVE04,A13 SAVE LD A2,SCTOPT GET OPTION WORD LD A3,PRGLG1+8,A9 GET PROGRAM TYPE ST A3,APPTYP,A13 SAVE APPLICATION TYPE CWK A3,'CR' CREDIT APPLICATION? RF(E) AP2340 YES CWK A3,'BA' BASIC APPLICATION RF(E) AP2340 YES CWK A3,'CO' COBOL APPLICATION? RF(E) AP2340 YES * * ASSEMBLER APPLICATION * ORKL A2,/8000 INDICATE ASSEMBLER APPLICATION ST A2,SCTOPT IN OPTION WORD RF AP2350 AP2340 LD A3,PAGLG+8,A9 PHYSICAL PAGE SIZE ST A3,SCTPSZ SAVE AP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES SRC A2,1 MMU IN SYSTEM? RF(NN) AP:240 NO! EJECT * * EXECUTION PATH FOR SYSTEMS WITH MMU OPTION * LD A3,SCTPSZ GET PAGE SIZE LDR A1,A3 SAVE ANKL A1,/03FF EVEN 1K-MULTIPLE? RF(Z) AP:236 YES! LDK A1,LMP8 CALL ERROR INDICATE PAGE SIZE ERROR AP:236 EQU * SRL A3,2 LOGICAL PAGE SIZE SLL A5,8 MAP IT ON MMU ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS LDR A1,A5 SAVE * * CHECK IF ASSEMBLER APPLICATION * SLC A2,1 ASSEMBLER APPLICATION ABL(N) AP:330 YES AP:237 LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS AP:238 ABL(Z) AP:330 NO SEGMENTS! RF AP:245 * * END OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION * EJECT AP:240 EQU * * * EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION * SLL A5,10 HIGHEST PHYSICAL AND LOGICAL MEMORY ADDRESS LDR A1,A5 SAVE * * CHECK IF ASSEMBLER APPLICATION * SLC A2,1 ASSEMBLER APPLICATION? RF(N) AP:275 YES LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS RF(Z) AP:275 NO SEGMENTS! EJECT AP:245 EQU * * * COMMON EXECUTION PATH * ST A1,SAVE06,A13 SAVE A1 =2 ST A2,SAVE29,A13 SAVE NUMBER OF SEGMENTS LD A4,SCTOPT GET OPTION WORD ANK A4,2 DISC PAGING? RF(Z) AP:260 NO! LD A4,SCTIPL GET PROGRAM LOAD DEVICE SUK A4,/F0 CHECK IF CASSETTE RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! * * COMPUTE NUMBER OF CORE RESIDENT PAGES * CM SAVE05,A13 RESET COUNTER LDR A6,A9 START OF APPLICATION ADK A6,14 START OF SEGMENT BLOCKS AP:250 EQU * ST A2,SAVE01,A13 SAVE REMAINING NBR OF SEGM. =2 ADK A6,6 NEXT SEGMENT BLOCK ST A9,SAVE03,A13 SAVE A9 =2 ST A11,SAVE13,A13 SAVE A11 =2 LDR A11,A6 GET POINTER IN S:GTAB =2 ADKL A9,BUFLEN-16 END OF READ BUFFER =2 CALL CMPADR POINTER OUTSIDE BUFFER? =2 RF(L) AP:252 NO! =2 SUR A6,A9 DISPLACEMENT IN NEXT SECTOR =2 SUKL A9,BUFLEN-16 START OF BUFFER =2 ADR A6,A9 NEXT SEGMENT BLOCK =2 LD A11,SAVE13,A13 GET LAST SECTOR NUMBER =2 ST A3,SAVE07,A13 SAVE A3 =2 ST A5,SAVE08,A13 SAVE A5 =2 CFR A14,A10 READ NEXT SECTOR/BLOCK =2 LD A3,SAVE07,A13 RESTORE A3 =2 LD A5,SAVE08,A13 RESTORE A5 =2 ST A11,SAVE13,A13 SAVE CURRENT SECTOR NUMBER =2 AP:252 LD A11,SAVE13,A13 GET NEXT SECTOR NUMBER =2 LD A9,SAVE03,A13 START OF BUFFER =2 LCR A4,A6 GET SEGMENT TYPE CCK A4,'RR' CORE RESIDENT SEGMENT? RF(NE) AP:255 NO! IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER AP:255 EQU * LD A2,SAVE01,A13 GET REMAINING NBR OF SEGM. =2 SUK A2,1 MOORE SEGMENTS? RB(NZ) AP:250 YES! LD A11,SCTADA+2 GET APPLICATION START ADDRESS =2 ST A3,SAVE03,A13 SAVE A3 =2 ST A5,SAVE08,A13 SAVE A5 =2 CFR A14,A10 READ FIRST SECTOR =2 LD A3,SAVE03,A13 RESTORE A3 =2 LD A5,SAVE08,A13 RESTORE A5 =2 LD A2,SAVE05,A13 NUMBER OF RESIDENT SEGMENTS RF(Z) AP:270 NO RESIDENT SEGMENTS! AP:260 EQU * ST A2,SCTNOP SAVE NUMBER OF PAGES LDR A4,A9 SAVE A9 LDR A8,A11 SAVE A11 * =2 * CHECK MEMORY OVERFLOW =2 * LD A7,SCTEFA+2 GET PARTITION NUMBER =2 AP:262 LD A11,SCTPSZ GET PAGE SIZE =2 LD A9,SCTEFA GET END OF FREE AREA =2 CALL CMPADR ENOUGTH SPACE IN THIS PARTITION? =2 =2 RF(NG) AP:265 YES! =2 SUK A7,1 DECREMENT =2 RF(NP) AP:280 MEMORY OVERFLOW! =2 ST A7,SCTEFA+2 UPDATE PARTITION NUMBER =2 AP:265 SUR A9,A11 COMPUTE END OF FREE AREA =2 ST A9,SCTEFA STORE =2 CWK A7,1 FIRST MEMORY PARTITION? =2 RF(G) AP:266 NO! =2 LD A11,SCTSFA GET START OF FREE AREA =2 CALL CMPADR COMPARE ADDRESSSES =2 RF(NL) AP:280 MEMORY OVERFLOW! =2 AP:266 EQU * =2 SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS SUK A2,1 DECREMENT NUMBER OF PAGES RB(P) AP:262 LDR A9,A4 RESTORE A9 LDR A11,A8 RESTORE A11 ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT AP:270 EQU * LD A1,SAVE06,A13 RESTORE A1 =2 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU IN SYSTEM? RF(NZ) AP:292 YES! * * END OF COMMON EXECUTION PATH * EJECT * * EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION * ST A5,SAVE08,A13 AP:275 EQU * LD A10,COMLG,A9 GET LENGTH OF COMMON PART ADKL A10,3 RESERV ONE EXTRA WORD ANKL A10,/FFFE LDR A4,A9 SAVE A9 LDR A8,A11 SAVE A11 LDR A11,A5 AP:285 EQU * SUKL A11,2 SUKL A10,2 RF(Z) AP:290 LD A9,SCTSFA GET START OF FREE AREA CALL CMPADR A11 COMPARED TO A9 RB(G) AP:285 AP:280 LDKL A1,LMP3 CALL ERROR MEMORY OVERFLOW! AP:290 EQU * LDR A12,A11 RELOCATION BASE LDR A9,A4 RESTORE A9 LDR A11,A8 RESTORE A11 LDR A8,A12 A8 - APPLICATION LOAD - ADDRESS ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS LD A10,COMLG,A9 GET LENGTH OF COMMON PART ABL AP:355 EJECT AP:292 EQU * * * EXECUTION PATH FOR SYSTEMS WITH MMU OPTION * LDR A4,A5 SAVE ANKL A5,/FC00 GET 6 LEFTMOST BITS LDR A6,A5 SAVE SUR A4,A5 COMPUTE PHYSICAL DISPLACEMENT EJECT * * STORE ADDRES(ES) TO PHYSICAL PAGE(S) HOLDING * THE FIRST LOGICAL PAGE * LDKL A7,MMEND GET END OF MMU TABLE LDKL A8,16 INIT MMU ENTRY POINTER AP:295 EQU * SUK A7,2 DECREMENT MMU ENTRY ADDRESS SUKL A8,1 DECREMENT MMU ENTRY POINTER SUKL A3,/400 DECREMENT PHYSICAL PAGE ADDRESS RB(P) AP:295 RF(Z) AP:300 EVEN 4K-BYTES PAGES LD A3,SCTPSZ GET PAGE SIZE CWK A3,/400 PAGE SIZE=1K? RF(E) AP:300 YES * * RESERV ONE EXTRA MMU ENTRY WHEN PAGE SIZE * IS NOT AN EVEN MULTIPLE OF 4K * SUK A7,2 SUKL A8,1 AP:300 EQU * LD A3,SCTNOP ANY CORE RESIDENT SEGMENTS? RF(NZ) AP:302 YES! LDR A5,A1 GET ADDRESS TO END OF MEMORY LDK A4,0 RESET PAGE SIZE RF AP:310 AP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE AP:305 EQU * STR A6,A3 STORE ADDRESS TO PHYSICAL PAGE ADK A3,2 INCREMENT MMU ENTRY ADDRESS CWK A3,MMEND END OF MMU TABLE? RF(E) AP:310 YES! ADKL A6,/400 INCREMENT PHYSICAL PAGE ADDRESS RB AP:305 AP:310 EQU * LDR A4,A4 ANY PHYSICAL DISPLACEMENT? RF(NZ) AP:315 YES! SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS * AP:315 EQU * SLL A4,2 PHYSICAL DISPLACEMENT AP:325 EQU * * * SAVE LOGICAL ADDRESS OF SAVE05 SEGMENT * LDR A2,A8 GET MMU ENTRY SLL A2,12 MOVE TO 4 LEFTMOST BITS ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE ST A2,SCTLAP SAVE ADR A2,A4 ADD DISPLACEMENT ST A2,SAVE08,A13 SAVE LDR A2,A8 GET MMU ENTRY FOR FIRST PAGE ADR A2,A2 BYTE DISPLACEMENT ADKL A2,TTB:MT COMPUTE DISPL. TO FIRST PAGE ENTRY ST A2,SCTMMP SAVE IN SYSTAB * * COMPUTE NUMBER OF PAGE ENTRIES * LDKL A2,16 SUR A2,A8 ST A2,SCTNPE RF AP:335 AP:330 EQU * * * THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT * THE APPLICATION LOADED WAS UNSEGMENTED (CORE RESIDENT) * SUKL A5,/400 INIT POINTER TO LAST PAGE LDKL A4,PAGSIZ PHYSICAL PAGE SIZE LDKL A7,MMEND END OF MMU TABLE LDKL A8,16 MMU ENTRY POINTER EJECT AP:335 EQU * LDR A4,A4 ANY DISPLACEMENT? RF(NZ) AP:337 LDKL A4,PAGSIZ AP:337 EQU * * * COMPUTE APPLICATION SAVE09 ADDRESS * * A1 - LAST PHYSICAL PAGE NUMBER * A4 - DISPLACEMENT IN PAGE * A5 - PHYSICAL PAGE ADDRESS * A7 - MMU ENTRY ADDRESS * A8 - CURRENT MMU ENTRY * LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART ADK A2,3 RESERV ONE EXTRA WORD ANKL A2,/FFFE MAKE EVEN LENGTH RF AP:344 AP:340 EQU * * RESERV ENTRIES IN MMU TABLE FOR PHYSICAL PAGE ADDRESSES TO COMMON PA * SUR A2,A4 AREA LEFT IN CURRENT PAGE LDKL A4,PAGSIZ PHYSICAL PAGE SIZE SUKL A8,1 DECREMENT MMU ENTRY POINTER RF(NN) AP:342 AP:341 EQU * LDKL A1,LMP7 INDICATE TABBE OVERFLOW! CALL ERROR AP:342 EQU * =2 SUK A7,2 DECREMENT MMU ENTRY ADDRESS STR A5,A7 STORE PAGE ADDRESS IN MMU SUKL A5,/400 NEXT PAGE AP:344 EQU * TNM A2,A4 PROGRAM LENGTH > 32 KB? RF(NN) AP:345 NO! CWR A4,A2 RF AP:348 AP:345 EQU * CWR A2,A4 AP:348 EQU * RB(G) AP:340 AP:350 EQU * LDR A2,A2 RF(Z) AP:351 SUKL A8,1 RB(N) AP:341 TABBE OVERFLOW! SUK A7,2 NEXT TABBE ENTRY STR A5,A7 STORE PAGE ADDRESS AP:351 EQU * SUR A4,A2 MODIFY DISPLACEMENT LDR A2,A8 GET MMU ENTRY ADR A8,A8 BYTE DISPLACEMENT ADKL A8,TTB:MT COMPUTE DISPL. TO APPL. START ENTRY ST A8,SCTMMC SAVE IN SYSTAB SLL A2,12 MOVE TO 4 LEFTMOST BITS LDR A8,A2 ADR A8,A4 COMPUTE LOGICAL ADDRESS ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA LDR* A1,A7 GET ADDRESS TO PHYSICAL PAGE ANKL A1,/C000 GREATER THAN 64K? RF(Z) AP:353 NO! LDKL A1,0 UPPER LIMIT 64 KB RF AP:354 AP:353 EQU * LDR* A1,A7 GET PHYSICAL ADDRESS SLL A1,2 ADR A1,A4 ADD DISPLACEMENT LD A2,SCTSFA GET START OF FREE AREA TNM A1,A2 ON SAME SIDE OF 32K-LIMIT RF(NN) AP3532 YES! CWR A2,A1 RF AP3534 AP3532 CWR A1,A2 AP3534 RF(G) AP:354 LDKL A1,LMP3 CALL ERROR MEMORY OVERFLOW AP:354 EQU * ST A1,SAVE01,A13 SAVE LD A10,COMLG,A9 LOAD COMLG OF COMMON PART TL TABBE LOAD MMU REGISTERS * * READ AND RELOCATE CORE RESIDENT PART OF APPLICATION * * A8 - APPLICATION LOAD ADDRESS * A10 - LENGTH OF CORE RESIDENT PART * AP:355 EQU * LDKL A1,/FFFF END OF FREE AREA =2 ST A1,SCTEFA STORE =2 =2 ST A8,SCTLAC CF A14,LODCOM LOAD CORE RESIDENT PART LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE * * CHECK IF ASSEMBLER APPLICATION * LD A1,SCTOPT GET OPTION WORD ABL(N) CONLOD ASSEMBLER APPLICATION LD A2,SAVE29,A13 GET NUMBER OF SEGMENTS CM SAVE06,A13 CLEAR SEGMENT COUNTER =2 ABL(Z) CONLOD NO SEGMENTS IN APPLICATION ANK A1,1 MMU IN SYSTEM? RF(Z) AP:360 NO! TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS AP:360 EQU * * * READ AND RELOCATE THE SEGMENTS * * A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT * A10 - SEGMENT LENGTH * LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION ADKL A2,BLKLEN+BLKLEN LD A1,SAVE06,A13 GET SEGMENT COUNTER AP:365 EQU * RF(Z) AP:370 ADK A2,BLKLEN NEXT BLOCK SUK A1,1 DECREMENT BLOCK COUNTER RB AP:365 AP:370 EQU * * * CHECK IF DISC PAGING * LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(Z) AP:376 NO! * * CHECK IF CORE RESIDENT SEGMENT * CALL GETCON GET SEGMENT TYPE * LDR A12,A1 GET MOST SIGNIFICANT PART =REL 11 * ANKL A12,/FF OF DISC ADDRESS =REL 11 SRL A1,8 SEGMENT TYPE TO RIGHT BYTE =1 CCK A1,'RR' CORE RESIDENT SEGMENT? RF(E) AP:376 YES: LOAD THIS SEGMENT! * * BYPASS THIS SEGMENT AND CHECK NEXT * LD A1,SAVE06,A13 GET SEGMENT COUNTER LD A2,SAVE29,A13 GET TOTAL NUMBER OF SEGMENTS ADK A1,1 INCREMENT CWR A1,A2 LAST SEGMENT? ABL(E) CONLOD YES! ST A1,SAVE06,A13 SAVE CURRENT SEGMENT NUMBER RB AP:360 AP:375 LDKL A1,LMP2 DISC I/O ERROR CALL ERROR EJECT AP:376 EQU * ADK A2,2 DISC SECTOR ADDRESS CALL GETCON GET DISC SECTOR ADDRESS LDR A11,A1 SAVE AD A11,SCTADA+2 ADD LEAST SIGN. PART OF A.D.A.? * RF(O) AP:377 OVERFLOW =REL 11 * RF AP:378 NOT OVERFLOW =REL 11 *AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS =REL 11 * ANKL A11,/7FFF RESET OVERFLOW =REL 11 *AP:378 AD A12,SCTADA ADD M. S. P. OF A. D. A. =REL 11 * CWK A12,255 OVERFLOW? =REL 11 * RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! =REL 11 ADK A2,2 SEGMENT LENGTH CALL GETCON GET SEGMENT LENGTH LDR A10,A1 SAVE ADKL A10,1 ANKL A10,/FFFE MAKE EVEN LENGTH ST A8,SAVE07,A13 CF A14,LODSEG LOAD SEGMENT LD A1,SAVE06,A13 GET SEGMENT COUNTER LD A2,SAVE29,A13 GET TOTAL NUMBER OF SEGMENTS ADK A1,1 INCREMENT SEGMENT COUNTER CWR A1,A2 ALL SEGMENTS LOADED? RF(E) CONLOD YES! ST A1,SAVE06,A13 STORE SEGMENT COUNTER LD A4,SCTPSZ GET PAGE LENGTH LD A1,SCTOPT GET OPTION WORD ANK A1,1 MMU IN SYSTEM? RF(NZ) AP:379 YES! ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE RB AP:360 EJECT AP:379 EQU * LDR A1,A4 SAVE ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT RF(Z) AP:380 NO DISCRIMINANT! ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE LDR A4,A1 SAVE ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE SUR A1,A8 COMPUTE PHYSICAL INCREMENT AP:380 EQU * LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE ANKL A8,/F000 SKIP DISPLACEMENT LDR A2,A8 SAVE ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE SRL A2,12 MOVE TO 4 RIGHTMOST BITS ADR A2,A2 2*MMU ENTRY ADR A2,A13 ADKL A2,MMDDIV MMU ENTRY ADDRESS LDR A3,A13 ADKL A3,MMDDIV+32 SRL A1,2 MAP PHYSICAL ADDRESS ON MMU AP:385 EQU * ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE ADK A2,2 NEXT MMU ENTRY CWR A2,A3 RB(NE) AP:385 TL MMDDIV,A13 LOAD MMU REGISTERS RB AP:360 EJECT ********************************************************** * * * LOAD CONFIGURATION PART OF SYSLOD * * ================================= * * * * ENTRY: A9 - BUFFER ADDRESS * * * * EXIT: * * * * SUBROUTINES: CASSIN,RDBLK,MOVBUF * * * ********************************************************** CONLOD EQU * LD A1,SCTIPL GET PROGRAM LOAD DEVICE SUK A1,/F0 CHECK DEVICE TYPE RF(NN) CONRAD NOT CASSETTE IFT CFTEST+CASS=2 * * PROGRAM LOAD DEVICE = CASSETTE * CON:30 EQU * LDKL A1,CON:40-2 SUKL A1,COR:48 ADKL A1,/5700 ST A1,COR:48 MODIFY INSTRUCTION LDKL A1,/0100 ST A1,COR:38 MODIFY LDR A1,A9 START OF BUFFER ADKL A1,BUFLEN END OF BUFFER ST A1,SAVE08,A13 SAVE END OF BUFFER ST A1,SAVE03,A13 SAVE CF A14,RDBLK READ ONE BLOCK CF A14,RDBLK READ NEXT BLOCK LDR A8,A9 LDR A4,A8 GET START OF BUFFER LDR A1,A1 TAPEMARK? RF(Z) TST:10 NO! CF A14,CASSIN INIT CONFIGURATION CASSETTE CALL CON:40 RF TST:10 CONEX EQU * * * UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 APPLICATION DATA? RF(NZ) CON:80 NO! LDK A1,/D CF A14,CHCRIO SEARCH TAPEMARK REVERSE CF A14,RDBLK BYPASS TAPEMARK RF CON:90 CON:80 EQU * LDK A1,/F CF A14,CHCRIO UNLOAD CASSETTE CON:90 EQU * ABL CONMOV XIF IFT CFTEST=1 EJECT CONRAD EQU * * * LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC * CF A14,GETFIL GET CONFIGURATION FILE LDR A1,A9 GET START OF BUFFER ADKL A1,BUFLEN-6 END OF BUFFER ST A1,SAVE08,A13 SAVE END OF BUFFER LDR A1,A9 GET START OF BUFFER AD A1,SAVCON START OF SAVE BUFFER ST A1,SAVE03,A13 SAVE =2 LDKL A10,0 RESET RECORD COUNTER * * READ ONE SECTOR FROM RANDOM ACCESS DEVICE * CALL READC READ SECTOR * * TEST THE SYNTAX OF THE CONFIGURATION FILE * TST:10 CALL T CALL CONRD CALL NN CALL CONRD CALL TID CALL TEST CALL AA CALL CONRD CALL TCL CALL TEST CALL AA CALL CONRD CALL LEV CALL TEST CALL NN1 TST:20 CALL CONRD CALL NN1 CALL CONRD TST:30 LD A5,SAVE13,A13 GET NUMBER OF TERMINAL DEV. CLASSES CWK A5,/3030 ZERO? RF(E) TST:40 YES! CALL SUKASC CALL TDCT CALL TEST CALL NN CALL CONRD CALL LC CALL TEST CALL NNL CALL CONRD RB TST:30 TST:40 EQU * CALL NN1 CALL CONRD TST:50 EQU * LD A5,SAVE13,A13 GET NUMBER OF SPECIAL DEV. CLASSES CWK A5,/3030 ZERO? RF(E) TST:60 YES! CALL SUKASC CALL SDCS CALL TEST CALL NN CALL CONRD RB TST:50 TST:60 EQU * LCR A5,A4 GET CHARACTER TST:70 CCK A5,'TT' BLOCK TYPE T? RB(E) TST:10 YES! LDKL A3,/570C ST A3,TST:70 MODIFY INSTRUCTION TO RF CCK A5,'CC' BLOCK TYPE C ? RF(NE) TST:80 NO! LDKL A3,'CC' ST A3,T:10 MODIFY INSTRUCTION CALL T RB TST:20 TST:80 EQU * ADK A4,1 INCREMENT BUFFER POINTER LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD ABL(NE) CONERR NO! TST:85 EQU * CALL CONRD RB TST:85 COR:50 EQU * LDK A3,'S' SC A3,GET:25+1 MODIFY INSTRUCTION SC A3,GET:60+1 MODIFY INSTRUCTION CF A14,GETFIL * * UNLOCK FLEXIBLE DISC * LD A1,SCTIPL GET LOAD DEVICE SUK A1,/F8 CHECK TYPE RF(N) COR:60 NOT FLEXIBLE DISC XIF IFT CFTEST+FLDISC=2 LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) COR:60 YES; DON'T UNLOCK LDK A1,/C UNLOCK ORDER EX FRD:10 EXECUTE COMMAND RB(NA) *-4 LOOP UNTIL ACCEPTED EX FRD:40 SENSE STATUS RB(NA) *-4 LOOP UNTIL ACCEPTED XIF IFT CFTEST=1 COR:60 EQU * EJECT CONMOV EQU * * * MOVE CONFIGURATION DATA TO END OF SYSTEM AREA * LDR A1,A9 GET START OF BUFFER AD A1,SAVCON COMPUTE END OF BUFFER CMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA LD A2,SAVE01,A13 GET END OF SYSTEM AREA CM -2,A2 MAKE SURE CONFIGURATION FILE SUK A2,1 IS FOLLOWED BY X'00' SUR A3,A1 LENGTH OF CONFIGURATION DATA SUR A2,A3 TO-ADDRESS * ANKL A2,/FFFE MAKE EVEN ADDRESS CALL MOVE ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA LDR A1,A9 GET START OF FREE AREA LDR A12,A2 END OF FREE AREA SUR A12,A1 SUBTRACT MONITOR END ST A12,M:REL,A13 SAVE RELOCATION CONSTANT LD A2,SAVE01,A13 GET START OF CONFF * * MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA * MOPRO SUK A1,2 SUK A2,2 LDR* A4,A1 STR A4,A2 CWR A1,A13 RB(NE) MOPRO LDR A1,A2 SAVE NEW LOCATION OF SYSLDA AD A2,LDALEN,A2 BYPASS SYSLDA ABR A2 CONTINUE EXECUTION IN SYSLDM EJECT *************************************************************** * SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE *************************************************************** EJECT CONRD EQU * * * COMPUTE NUMBER OF CHARACTERS IN THIS RECORD * LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A8 START OF RECORD COR:30 EQU * LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD? RF(E) COR:40 YES! COR:35 EQU * CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? COR:38 EQU *-2 RF(E) COR:40 YES! CW A1,SAVE01,A13 MEMORY OVERFLOW? RF(E) MEMOFL YES! ADK A1,1 INCREMENT BUFFER POINTER ADK A3,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT RECORD POINTER RB COR:30 LOOP COR:40 EQU * LC A5,1,A4 GET NEXT CHARACTER CCK A5,';;' TWO SEMICOLONS? RF(NE) COR:45 NO! CWK A3,NCHTID CHECK IF END OF RECORD RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD COR:45 EQU * ST A1,SAVE03,A13 SAVE CURRENT DESTINATION LDR A1,A8 START OF RECORD CALL MOVE COR:48 EQU * ADKL A10,1 INCREMENT RECORD COUNTER CW A10,SAVE20,A13 LAST RECORD RB(E) COR:50 YES! ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,SAVE08,A13 END OF BUFFER RF(NE) COR:10 NO! CALL READC READ SECTOR COR:10 LDR A4,A8 START OF RECORD RTN A14 XIF IFT CFTEST+CASS=2 CON:40 EQU * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 TAPEMARK? ABL(NZ) CONEX YES! LDR A8,A9 LDR A4,A8 GET START OF BUFFER RTN A14 XIF IFT CFTEST=1 MEMOFL EQU * LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR EJECT READC EQU * CF A14,READS READ SECTOR READS EQU *-2 LDR A8,A9 LDR A4,A8 GET START OF BUFFER RTN A14 T EQU * LCR A5,A4 GET CHARACTER CCK A5,'TT' BLOCK TYPE T? T:10 EQU *-2 RF(NE) CONERR ADK A4,1 INCREMENT BUFFER POINTER LCR A5,A4 GET NEXT CHARACTER CCK A5,';;' END OF RECORD? RF(NE) CONERR NO! RTN A14 EJECT NNL EQU * LDK A2,1 LDK A3,3 RF NN:10 NN EQU * LDK A2,0 LDK A3,3 RF NN:10 NN1 EQU * LDK A3,4 NN:10 EQU * LCR A5,A4 GET CHARACTER ADK A4,1 INCREMENT BUFFER POINTER CCK A5,/3939 NUMERIC CHARACTER > 9? RF(G) CONERR YES! SUK A3,1 RF(Z) NN:20 CCK A5,/3030 NUMERIC CHARACTER < 0? RF(L) CONERR YES! RF(Z) NN:15 LDKL A1,/3030 RF NN:16 NN:15 LDKL A1,/3131 NN:16 ST A1,NN:20+2 MODIFY SUK A3,1 RF(Z) NN:30 SLL A5,8 RB NN:10 NN:20 EQU * CCK A5,/3131 NUMERIC CHARACTER < 1? RF(L) CONERR YES! SUK A2,1 RF(NZ) NN:50 LCR A5,A4 GET NEXT CHARACTER CCK A5,'LL' LINE L? RF(E) NN:40 YES! CCK A5,'RR' LINE R? RF(E) NN:40 YES! CCK A5,'AA' LINE A? RF(E) NN:40 YES! CCK A5,'SS' LINE S? RF(E) NN:40 YES! RF CONERR NN:40 EQU * ADK A4,1 INCREMENT BUFFER POINTER RF NN:50 NN:30 EQU * ST A5,SAVE13,A13 STORE NUMBER OF CLASSES NN:50 LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD? RF(NE) CONERR NO! RTN A14 EJECT AA EQU * LDK A3,2 AA:10 EQU * LCR A5,A4 GET CHARACTER CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30? RF(L) CONERR YES! CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? RF(NG) AA:20 NO! CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? RF(L) CONERR CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? RF(G) CONERR AA:20 EQU * ADK A4,1 INCREMENT BUFFER POINTER SUK A3,1 RB(NZ) AA:10 LCR A5,A4 GET NEXT CHARACTER CCK A5,';;' END OF RECORD? RF(NE) CONERR NO! RTN A14 EJECT TID EQU * LDKL A2,SEQ1 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 TCL EQU * LDKL A2,SEQ2 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 LEV EQU * LDKL A2,SEQ3 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 EJECT TDCT EQU * LDKL A2,SEQ4 SELECT SEQUENCE LDK A3,5 GET NUMBER OF CHARACTERS RTN A14 LC EQU * LDKL A2,SEQ5 SELECT SEQUENCE LDK A3,3 GET NUMBER OF CHARACTERS RTN A14 SDCS EQU * LDKL A2,SEQ6 SELECT SEQUENCE LDK A3,5 GET NUMBER OF CHARACTERS RTN A14 EJECT TEST EQU * LCR A5,A4 GET CHARACTER CCR A5,A2 RF(NE) CONERR ADK A4,1 INCREMENT BUFFER POINTER ADK A2,1 INCREMENT SEQUENCE POINTER SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? RB(NZ) TEST YES! RTN A14 EJECT SUKASC EQU * CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10? RF(NE) SUK:10 YES! SUK A5,/F6 N0! SUK:10 SUK A5,1 ST A5,SAVE13,A13 STORE NUMBER OF CLASSES RTN A14 CONERR EQU * LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR EJECT * * ************************************************** * * * SEQUENCES * * * ************************************************** * * * * SEQ1 EQU * TID= DATA 'TI' DATA 'D=' SEQ2 EQU * TCL= DATA 'TC' DATA 'L=' SEQ3 EQU * LEV= DATA 'LE' DATA 'V=' SEQ4 EQU * TDC=T DATA 'TD' DATA 'C=' DATA 'T0' SEQ5 EQU * LC= DATA 'LC' DATA '=0' SEQ6 EQU * SDC=S DATA 'SD' DATA 'C=' DATA 'S0' XIF IFT CFTCAS+CASS=2 * * PROGRAM LOAD DEVICE = CASSETTE * CON:30 EQU * LDR A1,A9 START OF BUFFER ADKL A1,BUFLEN END OF BUFFER ST A1,SAVE08,A13 SAVE END OF BUFFER ST A1,SAVE03,A13 SAVE CF A14,RDBLK READ ONE BLOCK CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 TAPEMARK? RF(Z) CON:50 NO! CF A14,CASSIN INIT CONFIGURATION CASSETTE CON:40 EQU * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 TAPEMARK? RF(NZ) CONEX YES! CON:50 EQU * * * COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK * LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A9 GET SAVE09 OF BUFFER CON:60 EQU * LCR A5,A4 GET CHARACTER IN BUFFER CCK A5,';;' CHECK IF SPACE RF(E) CON:70 NO MOORE CHARACTERS CON:65 EQU * CWK A3,CBLEN END OF BUFFER? RF(E) CON:75 YES! CW A1,SAVE01,A13 MEMORY OVERFLOW? RF(E) MEMOFL YES! ADK A1,1 INCREMENT DESTINATION POINTER ADK A3,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT BUFFER POINTER RB CON:60 CON:70 EQU * LC A5,1,A4 GET NEXT CHARACTER CCK A5,';;' TWO SEMI-COLONS? RF(NE) CON:75 NO! CWK A3,NCHTID CHECK IF END OF RECORD RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD CON:75 EQU * ST A1,SAVE03,A13 SAVE CURRENT DESTINATION LDR A1,A9 GET SAVE09 OF BUFFER CALL MOVE RB CON:40 CONEX EQU * * * UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 APPLICATION DATA? RF(NZ) CON:80 NO! LDK A1,/D CF A14,CHCRIO SEARCH TAPEMARK REVERSE CF A14,RDBLK BYPASS TAPEMARK RF CON:90 CON:80 EQU * LDK A1,/F CF A14,CHCRIO UNLOAD CASSETTE CON:90 EQU * ABL CONMOV XIF IFF CFTEST=1 MEMOFL EQU * LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR EJECT CONRAD EQU * * * LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC * CF A14,GETFIL GET CONFIGURATION FILE LDR A1,A9 GET START OF BUFFER ADKL A1,BUFLEN-6 END OF BUFFER ST A1,SAVE08,A13 SAVE END OF BUFFER LDR A1,A9 GET START OF BUFFER AD A1,SAVCON START OF SAVE BUFFER ST A1,SAVE03,A13 SAVE =2 LDKL A10,0 RESET RECORD COUNTER COR:10 EQU * * * READ ONE SECTOR FROM RANDOM ACCESS DEVICE * CF A14,READS READ SECTOR READS EQU *-2 LDR A8,A9 GET START OF BUFFER COR:20 EQU * * * COMPUTE NUMBER OF CHARACTERS IN THIS RECORD * LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A8 START OF RECORD COR:30 EQU * LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD? RF(E) COR:40 YES! COR:35 EQU * CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? RF(E) COR:40 YES! CW A1,SAVE01,A13 MEMORY OVERFLOW? RB(E) MEMOFL YES! ADK A1,1 INCREMENT BUFFER POINTER ADK A3,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT RECORD POINTER RB COR:30 LOOP COR:40 EQU * LC A5,1,A4 GET NEXT CHARACTER CCK A5,';;' TWO SEMICOLONS? RF(NE) COR:45 NO! CWK A3,NCHTID CHECK IF END OF RECORD RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD COR:45 EQU * ST A1,SAVE03,A13 SAVE CURRENT DESTINATION LDR A1,A8 START OF RECORD CALL MOVE ADKL A10,1 INCREMENT RECORD COUNTER CW A10,SAVE20,A13 LAST RECORD RF(E) COR:50 YES! ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,SAVE08,A13 END OF BUFFER RB(E) COR:10 NEXT SECTOR RB COR:20 NEXT RECORD COR:50 EQU * LDK A3,'S' SC A3,GET:25+1 MODIFY INSTRUCTION SC A3,GET:60+1 MODIFY INSTRUCTION CF A14,GETFIL * * UNLOCK FLEXIBLE DISC * LD A1,SCTIPL GET LOAD DEVICE SUK A1,/F8 CHECK TYPE RF(N) COR:60 NOT FLEXIBLE DISC XIF IFT CFTFLD+FLDISC=2 LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) COR:60 YES; DON'T UNLOCK LDK A1,/C UNLOCK ORDER EX FRD:10 EXECUTE COMMAND RB(NA) *-4 LOOP UNTIL ACCEPTED EX FRD:40 SENSE STATUS RB(NA) *-4 LOOP UNTIL ACCEPTED XIF IFF CFTEST=1 COR:60 EQU * EJECT CONMOV EQU * * * MOVE CONFIGURATION DATA TO END OF SYSTEM AREA * LDR A1,A9 GET START OF BUFFER AD A1,SAVCON COMPUTE END OF BUFFER CMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA LD A2,SAVE01,A13 GET END OF SYSTEM AREA CM -2,A2 MAKE SURE CONFIGURATION FILE SUK A2,1 IS FOLLOWED BY X'00' SUR A3,A1 LENGTH OF CONFIGURATION DATA SUR A2,A3 TO-ADDRESS * ANKL A2,/FFFE MAKE EVEN ADDRESS CALL MOVE ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA LDR A1,A9 GET START OF FREE AREA LDR A12,A2 END OF FREE AREA SUR A12,A1 SUBTRACT MONITOR END ST A12,M:REL,A13 SAVE RELOCATION CONSTANT LD A2,SAVE01,A13 GET START OF CONFF * * MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA * MOPRO SUK A1,2 SUK A2,2 LDR* A4,A1 STR A4,A2 CWR A1,A13 RB(NE) MOPRO LDR A1,A2 SAVE NEW LOCATION OF SYSLDA AD A2,LDALEN,A2 BYPASS SYSLDA ABR A2 CONTINUE EXECUTION IN SYSLDM XIF EJECT ************************************************************************ * SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O ************************************************************************ ******************************* * SOPIN - READ SOP SWITCHES * * ========================= * * * * ENTRY: * * * * EXIT: A1 - SOP INPUT * * BIT 6 - SWITCH 1 * * BIT 15 - SWITCH 10 * * * * WORK REGISTERS: A1 * * * * SUBROUTINES: * * * ******************************* SOPIN EQU * CIO A1,1,SOP INR A1,0,SOP RB(NA) *-2 RTN A14 IFT CASS=1 EJECT ******************************************************* * CASSIN - CASSETTE INITIATING ROUTINE * * ==================================== * * * * REFERENCED IN: SYSLOD -LOADING PART- * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1,A3 * * * * SUBROUTINES: SOPIN,CHCRIO * * * ******************************************************* CASSIN EQU * LDK A1,/F CF A14,CHCRIO UNLOAD CASSETTE LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES OTR A3,0,SOP CAS:10 EQU * CF A14,SOPIN READ SOP ANKL A1,/0300 ALLOWED SWITCHES? RB(Z) CAS:10 NO! LDKL A3,LMP1 SWITCH ON LOAD LAMP OTR A3,0,SOP SRL A1,8 RIGHT ALIGN ANK A1,1 SELECT UNIT CF A14,CHCRIO SELECT UNIT LDK A1,LOCK CF A14,CHCRIO LOCK CASSETTE ANK A3,1 CASSETTE OPERABLE? RB(NZ) CAS:10 NO! LDK A1,SBOT CF A14,CHCRIO SEARCH BEGINNING OF TAPE LDK A1,STMF CF A14,CHCRIO SEARCH TAPEMARK FORWARD RTN A14 EJECT ********************************************* * CHCRIO - CASSETTE I/O EXECUTING ROUTINE * * ======================================= * * * * REFERENCED IN: CASSIN,SYSLOD * * * * ENTRY: A1 - I/O INSTRUCTION COMMAND * * * * EXIT: * * * * WORK REGISTERS: A1,A3 * * * * SUBROUTINES: * * * ********************************************* CHCRIO EQU * CIO A1,1,CHCR SST A3,CHCR RB(NA) CHCRIO RTN A14 EJECT ************************************************** * * * RDBLK - READ ONE CASSETTE BLOCK * * =============================== * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - CASSETTE BUFFER POINTER * * * * EXIT: A2 - NUMBER OF CHARACTERS IN BLOCK * * * * WORK REGISTERS: A1,A2,A3,A4,A5 * * * * SUBROUTINES: * ************************************************** RDBLK EQU * LDK A5,0 RDB:10 EQU * LDR A3,A9 SAVE09 OF BUFFER LDK A2,0 RESET CHARACTER COUNTER LDR A4,A3 SAVE SAVE09 OF BUFFER ADKL A3,CBLEN END OF BUFFER LDK A1,/A CIO A1,1,CHCR READ BLOCK RF(NA) RDERR3 RDB:20 EQU * INR A1,0,CHCR RF(NA) RDB:30 CWR A4,A3 END OF BUFFER? RF(E) RDERR YES! SCR A1,A4 STORE CHARACTER ADK A2,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT BUFFER POINTER RDB:30 EQU * SST A1,CHCR RB(NA) RDB:20 ANKL A1,/FCFF CHECK STATUS LDR A4,A1 SAVE STATUS RF(Z) RDBEX OK SLC A4,3 CHECK IF TAPEMARK RF(N) RDBEX OK IF TAPEMARK RDERR EQU * * * READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ * THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE * ADK A5,1 NEXT ATTEMPT CWK A5,3 THIRD ATTEMPT? RF(E) RDERR3 YES - GIVE UP! LDK A1,/E REVERSE ONE BLOCK CIO A1,1,CHCR EXECUTE ORDER RB(NA) *-2 LOOP UNTIL ACCEPTED RB RDB:10 RDERR3 EQU * LDKL A1,LMP2 CALL ERROR RDBEX EQU * RTN A14 XIF IFT DISC=1 EJECT *********************************** * * * DUINIT - INITIALIZE DISC UNIT * * ============================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: * * * *********************************** DUINIT EQU * LC A2,SCTSFA+2 GET FORMAT ANK A2,/FF SUK A2,2 SELECT FORMAT RF(Z) DUI:20 FORMAT A2 SUK A2,1 RF(Z) DUI:30 FORMAT A3 ABL FDTERR FORMAT ERROR DUI:20 LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS EJECT * * INIT DISC COMMANDS VERSION A2 * ADS A1,SEEK20 ADS A1,SEEK21 ADS A1,READ21 ADS A1,READ22 RF DUI:40 DUI:30 LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS * * INIT DISC COMMANDS VERSION A3 * LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 ST A3,SAVCON ADS A1,SEEK30 ADS A1,SEEK31 ADS A1,READ30 ADS A1,READ31 * * INIT SUBROUTINE ADDRESSES * DUI:40 EQU * =2 ST A2,READ READ PROGRAM ST A2,READS READ CONFIGURATION DATA ST A2,READVL READ VOLUME LABEL ST A2,READCF READ CONFIGURATION DATA RTN A14 EJECT *********************************************** * * * RDSEC - READ ONE SECTOR FROM DISC * * ================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * * A11 - SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4,A7 * * * SUBROUTINES: ERROR * * * *********************************************** * EJECT * * READ DISC SECTOR VERSION A2 * RDSEC2 EQU * LDK A2,0 LDR A1,A11 GET LOGICAL SECTOR NUMBER DIV200 EQU * ADR A2,A1 SRL A1,5 RB(NZ) DIV200 MORE IN SERIE TO ADD LDR A1,A2 ANKL A1,/FFE0 SRL A2,5 SUR A1,A2 SUR A1,A11 ADK A1,31 RF(P) DIV210 NO CORRECTION OF RESULT ADK A2,1 DIV210 EQU * LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 RF(Z) DIV220 CYLINDER 0 ADK A2,1 DIV220 EQU * ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING * LDR A1,A2 SRL A1,5 CW A1,CYLNBR RF(E) INT200 SAME CYLINDER NUMBER ST A1,CYLNBR SLL A1,3 ORK A1,2 SET BIT 14 EJECT * * SEEK CYLINDER * SEEK20 CIO A1,1,0 RB(NA) SEEK20 * SEEK21 SST A1,0 RB(NA) SEEK21 * * INTERLACING * INT200 EQU * LDR A1,A2 ADR A2,A2 ADR A2,A1 INTERLACING FACTOR 3 ANK A2,/1F LD A1,CYLNBR GET CYLINDER NUMBER ANK A1,1 RF(Z) INT210 EVEN CYLINDER ADK A2,8 INT210 EQU * ANK A2,/1F SLL A2,2 PHYSICAL SECTOR AND ORDER CODE ST A2,SECNBR EJECT * * READ SECTOR * LDR A1,A9 BUFFER ADDRESS READ20 LDKL A4,MUXCC NUMBER OF WORDS WERIO2 WER A4,/10 WRITE NUMBER OF WORDS WER A1,/11 WRITE BUFFER ADDRESS READ21 CIO A2,1,0 READ SECTOR RB(NA) READ21 LOOP UNTIL ACCEPTED READ22 SST A2,0 STATUS RB(NA) READ22 LOOP UNTIL ACCEPTED ANK A2,/1F STATUS RB(NZ) RDSEC2 LOOP UNTIL CORRECT READ ADKL A11,1 INCREMENT SECTOR COUNTER RTN A14 EJECT * * READ DISC SECTOR VERSION A3 * RDSEC3 EQU * LDK A2,0 LDR A1,A11 GET LOGICAL SECTOR NUMBER LDKL A7,/1000 LDKL A4,/3000 DIV300 EQU * SUR A1,A4 RF(N) DIV310 ADR A2,A7 RB DIV300 DIV310 EQU * ADR A1,A4 ADJUST DIVIDEND SRL A4,4 SRL A7,4 RB(NZ) DIV300 ADR A2,A2 * SUK A1,1 ST A1,SAVMEM RF(NP) CASE10 ,XXXX , , OR , XX,XX , ADK A2,1 , , XXXX, CASE10 EQU * LDR A4,A2 SRL A4,5 CW A4,CYLNBR RF(E) INT300 ST A4,CYLNBR STORE NEW CYLINDER NUMBER SLL A4,3 ORK A4,2 SET BIT 14 EJECT * * SEEK CYLINDER * SEEK30 CIO A4,1,0 RB(NA) SEEK30 * SEEK31 SST A4,0 GET STATUS RB(NA) SEEK31 * * INTERLACING * INT300 EQU * LDR A3,A2 ADR A2,A2 ADR A2,A3 INTERLACING FACTOR 3 ANK A2,/1F LD A4,CYLNBR GET CYLINDER NUMBER ANK A4,1 RF(Z) INT310 EVEN CYLINDER NUMBER ADK A2,8 SKEW FACTOR 180 DEG. * INT310 EQU * ANK A2,/1F SLL A2,2 INTERLACED SECTOR NUMBER ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER EJECT * * READ SECTOR * LDR A7,A9 BUFFER ADDRESS READ34 LDKL A4,MXCCD3 NUMBER OF WORDS WERIO3 WER A4,/10 WRITE NUMBER OF WORDS WER A7,/11 WRITE BUFFER ADDRESS * READ30 CIO A2,1,0 READ SECTOR RB(NA) READ30 LOOP UNTIL ACCEPTED * READ31 SST A2,0 GET STATUS RB(NA) READ31 LOOP UNTIL ACCEPTED ANK A2,/1F STATUS RB(NZ) RDSEC3 LOOP UNTIL CORRECT READ LDR A2,A9 BUFFER ADDRESS LDR A1,A1 RF(N) RETURN ,XXXX , , RF(P) READ33 , , XXXX, ADKL A2,256 SOURCE POINTER LDK A4,64 NUMBER OF WORDS TO MOVE READ32 EQU * , XX,XX , LDR* A1,A2 STR A1,A7 ADK A2,2 ADK A7,2 SUK A4,1 RB(NZ) READ32 CONTINUE MOVING LD A1,SAVMEM RF(P) RETURN LD A2,SECNBR PHYSICAL SECTOR NUMBER ADK A2,/C NEW SECTOR TO READ ANK A2,/7C SUK A1,1 RB READ34 EJECT READ33 EQU * ADK A2,128 SOURCE POINTER LDK A4,128 NUMBER OF WORDS TO MOVE RB READ32 RETURN ADKL A11,1 INCREMENT SECTOR NUMBER RTN A14 XIF IFT MFDISC=1 EJECT ******************************************************** * * * MDINIT - INITIALIZE MINI FIXED DISC UNIT * * ======================================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 = DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: ERROR * * * ******************************************************** MDINIT EQU * * * INIT MINI FIXED DISC COMMANDS * MDI:00 ADS A1,SEEKM1 ADS A1,SEEKM2 ADS A1,READM2 ADS A1,READM3 EJECT * LDKL A2,MRDSEC GET SUBROUTINE ADDRESS ST A2,READ ST A2,READS ST A2,READVL ST A2,READCF RTN A14 EJECT ****************************************************** * * * MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC * * ============================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * A11 = SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ***************************************************** MRDSEC EQU * LDK A1,0 PREPARE FOR DIVISION LDR A2,A11 GET LOGICAL SECTOR NUMBER DVK 104 DIVIDE BY 104 SLL A2,2 ORK A2,3 SET BIT 14 AND 15 * * A1=SECTOR NUMBER ON CYLINDER * A2=CYLINDER NUMBER * ST A1,SECNBR STORE SECTOR NUMBER CW A2,CYLNBR RF(E) INTM10 SAME CYLINDER NUMBER ST A2,CYLNBR STORE CYLINDER NUMBER EJECT * * SEEK CYLINDER * SEEKM1 CIO A2,1,0 SEEK COMMAND RB(NA) SEEKM1 LOOP UNTIL ACCEPTED * SEEKM2 SST A2,0 GET STATUS RB(NA) SEEKM2 WAIT UNTIL ACCEPTED * * INTERLACING * INTM10 EQU * CWK A1,52 RF(L) INTM20 SECTOR 0-51 SUK A1,52 SECTOR 52-103 INTM20 EQU * LDR A2,A1 SLL A2,2 A2:=4*SECTOR NUMBER LDK A1,0 PREPARE FOR DIVISION DVK 52 ADR A1,A2 A1:=INTERLACED SECTOR NUMBER * * A1:=INTERLACED SECTOR NUMBER * LD A2,CYLNBR GET CYLINDER NUMBER SRC A2,3 RF(NN) INTM30 EVEN CYLINDER NUMBER SUK A1,26 SKEW FACTOR 26 RF(NN) INTM30 ADK A1,52 INTM30 EQU * SLL A1,2 LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING CWK A2,52 RF(L) INTM40 HEAD NUMBER 0 ORKL A1,/4000 HEAD NUMBER 1 INTM40 EQU * * * READ SECTOR * READM1 EQU * LDKL A4,MUXCC NUMBER OF WORDS LDR A7,A9 BUFFER ADDRESS * WERIOM WER A4,8 WRITE NUMBER OF WORDS WER A7,9 WRITE BUFFER ADDRESS * READM2 CIO A1,1,0 READ SECTOR RB(NA) READM2 LOOP UNTIL ACCEPTED * READM3 SST A1,0 GET STATUS RB(NA) READM3 LOOP UNTIL ACCEPTED ANK A1,/1F STATUS RB(NZ) MRDSEC LOOP UNTIL CORRECT READ ADKL A11,1 INCREMENT SECTOR NUMBER RTN A14 XIF IFT FLDISC=1 EJECT ************************************************ * * * FDINIT - INITIALIZE FLEXIBLE DISC * * ================================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ************************************************ FDINIT EQU * LDKL A2,FRDSEC GET SUBROUTINE ADDRESS ST A2,READ STORE ST A2,READS ST A2,READVL ST A2,READCF * * INIT FLEXIBLE DISC COMMANDS * ORS A1,FRD:10 MODIFY READ SECTOR ORDER ANK A1,8 PROGRAMMED CHANNEL RF(NZ) FDI:10 YES! LDKL A1,FRD:40-2 NOT PROGRAMMED CHANNEL SUKL A1,FRD:20 ADKL A1,/5700 ST A1,FRD:20 MODIFY INR INSTRUCTION FDI:10 EQU * LDK A1,/14 LOCK ORDER EX FRD:10 EXECUTE ORDER RB(NA) *-4 LOOP UNTIL ACCEPTED SST A1,FDCU SENSE STATUS RB(NA) *-2 ANK A1,1 FLEXIBLE DISC OPERABLE? RB(NZ) FDI:10 NO! RTN A14 EJECT *********************************************************** * * * FRDSEC - READ SECTOR FROM FLEXIBLE DISC * * ======================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - BUFFER ADDRESS * * A11 - SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3 * * * * SUBROUTINES: ERROR * * * *********************************************************** FRDSEC EQU * LDR A1,A11 GET SECTOR NUMBER SLL A1,4 ORKL A1,/4000 LDKL A2,MUXCC LOAD 1:ST MUX WORD LD A3,MXBUF LOAD 2:ND MUX WORD WER A2,FDIOP WRITE 1:ST MUX WORD WER A3,FDIOP+1 WRITE 2:ND MUX WORD LDR A2,A3 BUFFER START ADDRESS AD A2,SAVCON BUFFER END ADDRESS FRD:10 CIO A1,1,FDCU START READ RB(NA) FRD:10 LOOP UNTIL ACCEPTED FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX RF(NA) FRD:40 LOOP UNTIL ACCEPTED STR A1,A3 STORE CHARACTER ADK A3,2 INCREMENT BUFFER POINTER CWR A3,A2 RB(NE) FRD:20 * FRD:25 CIO A1,0,FDCU STOP READ RB FRD:20 FRD:40 SST A1,FDCU SENSE STATUS RB(NA) FRD:20 LOOP UNTIL ACCEPTED ANKL A1,/4E15 FATAL ERROR? RF(NZ) FRD:50 YES! ADKL A11,1 INCREMENT SECTOR ADDRESS RF(NN) FRD:45 LDKL A11,0 RESET LEAST SIGN. PART OF D.A. ADKL A12,1 INCREMENT MOST SIGNIFICANT PART OF D.A. RF(O) FRD:50 DISC ADDRESS ERROR! FRD:45 EQU * RTN A14 FRD:50 LDKL A1,LMP2 CALL ERROR XIF EJECT *************************************************** * * * GETFIL - GET CONFIGURATION FILE * * =============================== * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - BUFFER ADDRESS * * * * EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * * * * WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * * * * SUBROUTINES: READVL,READCF * * * *************************************************** GETFIL EQU * LDKL A11,0 VOLUME LABEL CF A14,READVL GET VOLUME LABEL READVL EQU *-2 LD A10,10,A9 GET VTOC BASE LDR A11,A10 SAVE AD A10,6,A9 LAST VTOC SECTOR LD A8,12,A9 GET VTOC RECORD LENGTH ADKL A11,1 FIRST FILE SECTOR IN VTOC GET:10 EQU * CF A14,READCF READ SECTOR READCF EQU *-2 LDK A7,QBLFAC BLOCKING FACTOR LDR A6,A9 GET START OF BUFFER GET:20 EQU * LDK A5,/20 LOAD SPACE CCR A5,A6 UNUSED FILE? RF(E) GET:50 YES! LDR A4,A6 START OF RECORD LDK A5,'S' STANDARD FILE CHARACTER CC A5,27,A6 STANDARD FILE? RF(NE) GET:50 NO! LDK A5,'$' LEADING CHAR IN CONF. FILE CCR A5,A4 CONFIGURATION FILE? RF(NE) GET:50 NO! GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED CCK A3,'CC' LOOKING FOR CONF. FILE? RF(NE) GET:85 NO! ADK A4,5 SIXTH CHARACTER LDK A5,':' CHARACTER TO PRECEED NUMBER GET:30 CCR A5,A4 CONFIGURATION FILE? RF(E) GET:40 YES! SUK A4,1 TRY NEXT CHARACTER CWR A4,A6 FIRST IN NAME? RF(E) GET:50 YES! RB GET:30 GET:40 EQU * * * CHECK APPLICATION NUMBER * LC A5,1,A4 GET LEFT DIGIT SLL A5,8 SHIFT TO LEFT BYTE LC A5,2,A4 GET RIGHT DIGIT CALL CONVRT CONVERT TO BINARY CW A1,SCTANO SAME AS APPLICATION NUMBER RF(NE) GET:50 * * CONFIGURATION FILE FOUND * LD A1,22,A6 LAST RECORD NUMBER ST A1,SAVE20,A13 SAVE LD A11,18,A6 SECTOR ADDRESS RTN A14 GET:50 EQU * ADR A6,A8 NEXT VTOC RECORD ADK A6,1 BYPASS STATUS CHARACTER SUK A7,1 MOORE RECORDS IN THIS SECTOR? RB(P) GET:20 YES! CWR A11,A10 LAST VTOC SECTOR? RB(NE) GET:10 NO! GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED CCK A3,'CC' LOOKING FOR CONF. FILE? RF(NE) GET:99 NO! * * CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT * LOAD MEDIUM FOR CONFIGURATION FILE * LDK A2,/78 OTR A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN ANKL A1,/003C ALLOWED SWITCH RB(Z) GET:70 NO! LDKL A2,LMP1 OTR A2,0,SOP SWITCH ON LOAD LAMP SRN A1,A2 LD A1,DEVTAB,A2 GET DEVICE ADDRESS CWK A2,5 DISC? RF(G) GET:80 YES! IFT FLDISC=1 CF A14,FDINIT INIT FLEXIBLE DISC RB GETFIL XIF IFF FLDISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF GET:80 EQU * IFT DISC=1 CF A14,DUINIT INIT DISC RB GETFIL XIF IFF DISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF GET:85 EQU * CCK A3,'SS' LOOKING FOR $SWAPP? RF(NE) GET:99 NO! LDK A5,0 RESET CHARACTER COUNTER GET:90 LCR A1,A4 GET CHAR IN FILENAME CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. RB(NE) GET:50 NO! ADK A4,1 NEXT CHARACTER ADK A5,1 INCREMENT CHARACTER COUNTER CWK A5,8 ALL CHARACTERS CHECKED? RB(NE) GET:90 NO! * * SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS * TO FILE AND TO NEXT SECTOR AFTER FILE * IM SCTSWB INDICATE SWB-FILE FOUND LD A1,18,A6 GET BIT 16-31 OF D.A. LD A2,16,A6 GET BIT 0-15 OF D.A. ST A1,SAVE25,A13 SAVE ST A2,SAVE26,A13 SAVE LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH ADR A4,A2 ADD MOST SIGNIFICANT PART ADR A3,A1 ADD LEAST SIGNIFICANT PART RF(O) GET:92 OVERFLOW - ADD CARRY RF GET:98 GET:92 ADK A4,1 ADD CARRY ANKL A3,/7FFF RESET OVERFLOW GET:98 ST A3,SAVE27,A13 SAVE BIT 16-31 OF D.A. ST A4,SAVE28,A13 SAVE BIT 0-15 OF D.A. GET:99 RTN A14 EJECT ***************************************************** * * * LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * * =============================================== * * * * LODSEG - LOAD ONE SEGMENT * * ========================= * * * * ENTRY: A8 - RELOCATION BASE * * A10 - EFFECTIVE LENGTH * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4,A7 * * * * SUBROUTINES: MOVE,READ * * * ***************************************************** LODCOM EQU * LDR A3,A9 GET SAVE09 OF BUFFER LDR A2,A3 SAVE LDKL A7,240 NUMBER OF CODE WORDS LOD:10 EQU *-2 LDR A10,A10 APP >32 KB? RF(NN) LOD:20 NO! SUR A10,A7 DEC. LENGTH RF LOD:50 LOD:20 EQU * SUR A10,A7 CHECK IF IN END OF OF SEGMENT RF(NN) LOD:50 NO YET! CWK A7,256 128 WORDS/SECTOR? RF(NE) LOD:30 NO! ADR A7,A10 COMPUTE NUMBER OF CODE WORDS LDKL A10,0 INDICATE END OF SEGMENT RF LOD:52 LOD:30 EQU * ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! LDKL A10,0 INDICATE END OF SEGMENT LOD:50 EQU * CWK A7,256 128 WORDS/SECTOR? RF(E) LOD:52 YES! ADR A2,A7 START OF RELOCATION BITS CF A14,REBUF RELOCATE LOD:52 EQU * LDR A1,A9 START OF CODE PART LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? RF(NZ) LOD:55 NO! IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE LD A3,COMLG,A9 GET LENGTH SUK A3,240 LENGTH=240? RF(Z) LOD:54 YES! ADKL A10,0 SINGLE SECTOR/BLOCK APPLICATION? RF(Z) LOD:55 YES! LOD:54 ADKL A10,8 LOD:55 EQU * LDR A3,A7 NUMBER OF CHARACTERS TO MOVE LD A2,SAVE07,A13 GET TO-ADDRESS ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS LD A4,SCTOPT GET OPTION WORD ANK A4,1 MMU IN SYSTEM? RF(Z) LOD:60 NO! MVSU A3 MOVE TABLE FROM SYSTEM RF LOD:65 LOD:60 EQU * CALL MOVE LOD:65 EQU * LDR A10,A10 END OF SEGMENT? RF(NZ) LOD:70 RTN A14 EXIT LODSEG EQU * LDKL A1,256 NUMBER OF WORDS/SECTOR ST A1,LOD:10 MODIFY INSTRUCTION LOD:70 EQU * CF A14,READ READ EQU *-2 RB LODCOM EJECT ************************************************* * * * REBUF - RELOCATE BUFFER ROUTINE * * =============================== * * * * REFERENCED IN: LODCOM/LODSEG * * * * ENTRY: A3 - SAVE09 OF BUFFER * * A2 - SAVE09 OF RELOCATION TABLE * * * * EXIT: * * * * WORK REGISTERS: A1,A4,A5,A6 * * * * SUBROUTINES: * * * ************************************************* REBUF EQU * LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE SUK A4,2 REB:10 EQU * ADK A4,2 NEXT RELOCATION WORD LDK A6,16 NUMBER OF RELOCATION BITS LDR* A1,A4 GET RELOCATION WORD REB:20 EQU * RF(NN) REB:30 DON'T RELOCATE THIS WORD! LDR* A5,A3 GET CODE WORD ADR A5,A8 RELOCATE STR A5,A3 STORE IT BACK REB:30 EQU * ADK A3,2 NEXT CODE WORD CWR A3,A2 END OF CODE WORD PART? RF(E) EXREL YES! SUK A6,1 MOORE RELOCATION BITS? RB(Z) REB:10 NO! SLL A1,1 NEXT RELOCATION BIT RB REB:20 EXREL EQU * RTN A14 EJECT ***************************************** * GETCON - GET CONTENT IN MEMORY WORD * ***************************************** * * REFERENCED IN: SEGGEN * * ENTRY: A2 - MEMORY ADDRESS * MMUOPT - MMU OPTION SWITCH (X) * * EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK REGISTER: * * SUBROUTINES: * GETCON EQU * LD A1,SCTOPT GET OPTION WORD ANK A1,1 MMU OPTION RF(Z) GCON10 NO MMU ELR A1,A2 RF GCON20 GCON10 EQU * LDR* A1,A2 GCON20 EQU * RTN A14 RETURN END SYSLOD
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLOD REL 10.0 80-03-15 870105041000 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005a Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 80-03-14«, t00=0x0000, t01=0x0042}
0x0005a…0008c Head {h00=0x002e, h01=0x0050, text=» =3,CONDITIONAL ASSEMBLY FOR SYSLOD TEST«, t00=0x0000, t01=0x005e}
0x0008c…000a8 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 80-01-18«, t00=0x0000, t01=0x0090}
0x000a8…000d2 Head {h00=0x0026, h01=0x0050, text=» =2,S:GTAB LIMITED TO ONE SECTOR«, t00=0x0000, t01=0x00ac}
0x000d2…000ee Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-20«, t00=0x0000, t01=0x00d6}
0x000ee…00126 Head {h00=0x0034, h01=0x0050, text=» =1,SEGBLK/PAGBLK NOT GEN. FOR CORE RES. SEGM.«, t00=0x0000, t01=0x00f2}
0x00126…0013c Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0000, t01=0x012a}
0x0013c…00152 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0000, t01=0x0140}
0x00152…00168 Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0000, t01=0x0156}
0x00168…0017e Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0000, t01=0x016c}
0x0017e…001a2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0182}
0x001a2…001c6 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0016}
0x001c6…001ea Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0001, t01=0x003a}
0x001ea…0020e Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0001, t01=0x005e}
0x0020e…00232 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0001, t01=0x0082}
0x00232…00248 Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0001, t01=0x00a6}
0x00248…0025e Head {h00=0x0012, h01=0x0050, text=» EXTRN LDALEN «, t00=0x0001, t01=0x00bc}
0x0025e…00274 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTADA «, t00=0x0001, t01=0x00d2}
0x00274…0028a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0001, t01=0x00e8}
0x0028a…002a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0001, t01=0x00fe}
0x002a0…002b6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0001, t01=0x0114}
0x002b6…002cc Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAC «, t00=0x0001, t01=0x012a}
0x002cc…002e2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAP «, t00=0x0001, t01=0x0140}
0x002e2…002f8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMMC «, t00=0x0001, t01=0x0156}
0x002f8…0030e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMMP «, t00=0x0001, t01=0x016c}
0x0030e…00324 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0001, t01=0x0182}
0x00324…0033a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0002, t01=0x0008}
0x0033a…00350 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNPE «, t00=0x0002, t01=0x001e}
0x00350…00366 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0002, t01=0x0034}
0x00366…0037c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0002, t01=0x004a}
0x0037c…00392 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0002, t01=0x0060}
0x00392…003a8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0002, t01=0x0076}
0x003a8…003be Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSWB «, t00=0x0002, t01=0x008c}
0x003be…003cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00a2}
0x003cc…003e2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE01 «, t00=0x0002, t01=0x00b0}
0x003e2…003f8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE02 «, t00=0x0002, t01=0x00c6}
0x003f8…0040e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE03 «, t00=0x0002, t01=0x00dc}
0x0040e…00424 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE04 «, t00=0x0002, t01=0x00f2}
0x00424…0043a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE05 «, t00=0x0002, t01=0x0108}
0x0043a…00450 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE06 «, t00=0x0002, t01=0x011e}
0x00450…00466 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE07 «, t00=0x0002, t01=0x0134}
0x00466…0047c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE08 «, t00=0x0002, t01=0x014a}
0x0047c…00492 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE09 «, t00=0x0002, t01=0x0160}
0x00492…004a8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE10 «, t00=0x0002, t01=0x0176}
0x004a8…004be Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE11 «, t00=0x0002, t01=0x018c}
0x004be…004d4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE12 «, t00=0x0003, t01=0x0012}
0x004d4…004ea Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE13 «, t00=0x0003, t01=0x0028}
0x004ea…00500 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE18 «, t00=0x0003, t01=0x003e}
0x00500…00516 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE20 «, t00=0x0003, t01=0x0054}
0x00516…0052c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE22 «, t00=0x0003, t01=0x006a}
0x0052c…00542 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE25 «, t00=0x0003, t01=0x0080}
0x00542…00558 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE26 «, t00=0x0003, t01=0x0096}
0x00558…0056e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE27 «, t00=0x0003, t01=0x00ac}
0x0056e…00584 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE28 «, t00=0x0003, t01=0x00c2}
0x00584…0059a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE29 «, t00=0x0003, t01=0x00d8}
0x0059a…005b0 Head {h00=0x0012, h01=0x0050, text=» EXTRN APPTYP «, t00=0x0003, t01=0x00ee}
0x005b0…005c2 Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0003, t01=0x0104}
0x005c2…005d6 Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0003, t01=0x0116}
0x005d6…005ec Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0003, t01=0x012a}
0x005ec…00600 Head {h00=0x0010, h01=0x0050, text=» EXTRN M:REL«, t00=0x0003, t01=0x0140}
0x00600…00614 Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0003, t01=0x0154}
0x00614…00628 Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0003, t01=0x0168}
0x00628…0063e Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0003, t01=0x017c}
0x0063e…00652 (4, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0004, t01=0x0004}
0x00652…0068a Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB «, t00=0x0004, t01=0x0018}
0x0068a…006a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:CB «, t00=0x0004, t01=0x0050}
0x006a0…006ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0066}
0x006ae…006ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x0074}
0x006ba…006c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x0080}
0x006c6…006ee Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0004, t01=0x008c}
0x006ee…00716 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0004, t01=0x00b4}
0x00716…0073e Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0004, t01=0x00dc}
0x0073e…0074a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x0104}
0x0074a…0076a Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0004, t01=0x0110}
0x0076a…0078c Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0004, t01=0x0130}
0x0078c…007b8 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0004, t01=0x0152}
0x007b8…007ea Head {h00=0x002e, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID SAVE09 VALUE «, t00=0x0004, t01=0x017e}
0x007ea…0081a Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0005, t01=0x0020}
0x0081a…00842 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0005, t01=0x0050}
0x00842…00880 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0005, t01=0x0078}
0x00880…0088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x0088a…008b4 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0005, t01=0x00c0}
0x008b4…008dc Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0005, t01=0x00ea}
0x008dc…008fe Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x0005, t01=0x0112}
0x008fe…0092a Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0005, t01=0x0134}
0x0092a…00934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x00934…00962 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0005, t01=0x016a}
0x00962…0096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x0096c…00990 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0006, t01=0x0012}
0x00990…009b2 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x0036}
0x009b2…009ec Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0006, t01=0x0058}
0x009ec…00a18 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0006, t01=0x0092}
0x00a18…00a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00be}
0x00a22…00a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x00a2c…00a56 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0006, t01=0x00d2}
0x00a56…00a78 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x00fc}
0x00a78…00aa8 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0006, t01=0x011e}
0x00aa8…00ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x00ab2…00ade Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0006, t01=0x0158}
0x00ade…00afe Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0006, t01=0x0184}
0x00afe…00b24 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0007, t01=0x0014}
0x00b24…00b56 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0007, t01=0x003a}
0x00b56…00b6e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x006c}
0x00b6e…00b86 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0007, t01=0x0084}
0x00b86…00b9e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x009c}
0x00b9e…00bc0 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0007, t01=0x00b4}
0x00bc0…00bc8 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00d6}
0x00bc8…00bea Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0007, t01=0x00de}
0x00bea…00c00 Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0007, t01=0x0100}
0x00c00…00c16 Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0007, t01=0x0116}
0x00c16…00c2a Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0007, t01=0x012c}
0x00c2a…00c3e Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0007, t01=0x0140}
0x00c3e…00c52 Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0007, t01=0x0154}
0x00c52…00c66 Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0007, t01=0x0168}
0x00c66…00c78 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0007, t01=0x017c}
0x00c78…00c8a Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0007, t01=0x018e}
0x00c8a…00c9e Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0008, t01=0x0010}
0x00c9e…00cb2 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0008, t01=0x0024}
0x00cb2…00cc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0038}
0x00cc0…00cde Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0046}
0x00cde…00cfc Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0008, t01=0x0064}
0x00cfc…00d1a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0082}
0x00d1a…00d26 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0008, t01=0x00a0}
0x00d26…00d62 Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0008, t01=0x00ac}
0x00d62…00d8c Head {h00=0x0026, h01=0x0050, text=»COMLG EQU 4 LENGTH OF COMMON PART «, t00=0x0008, t01=0x00e8}
0x00d8c…00db8 Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE«, t00=0x0008, t01=0x0112}
0x00db8…00de4 Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0008, t01=0x013e}
0x00de4…00e0e Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0008, t01=0x016a}
0x00e0e…00e38 (9, 0, 400) Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0009, t01=0x0004}
0x00e38…00e4c Head {h00=0x0010, h01=0x0050, text=»PRGLG1 EQU 2«, t00=0x0009, t01=0x002e}
0x00e4c…00e7c Head {h00=0x002c, h01=0x0050, text=»NCHTID EQU 5 NBR OF CHAR. IN TID RECORD «, t00=0x0009, t01=0x0042}
0x00e7c…00ea4 Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0009, t01=0x0072}
0x00ea4…00eb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x009a}
0x00eb2…00ed2 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x00a8}
0x00ed2…00ef2 Head {h00=0x001c, h01=0x0050, text=»* CASSETTE HANDLING * «, t00=0x0009, t01=0x00c8}
0x00ef2…00f12 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x00e8}
0x00f12…00f42 Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0009, t01=0x0108}
0x00f42…00f64 Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x0009, t01=0x0138}
0x00f64…00f90 Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x0009, t01=0x015a}
0x00f90…00fbc Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x0009, t01=0x0186}
0x00fbc…00fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x00fc6…00fec Head {h00=0x0022, h01=0x0050, text=»* DISC/FLEXIBLE DISC HANDLING«, t00=0x000a, t01=0x002c}
0x00fec…00ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0052}
0x00ff6…01022 Head {h00=0x0028, h01=0x0050, text=»BUFLEN EQU 256 LENGTH OF READ BUFFER«, t00=0x000a, t01=0x005c}
0x01022…01050 Head {h00=0x002a, h01=0x0050, text=»DKBA3 EQU 514 BUFFER LENGTH VERSION A3«, t00=0x000a, t01=0x0088}
0x01050…01086 Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x000a, t01=0x00b6}
0x01086…010b4 Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x000a, t01=0x00ec}
0x010b4…010dc Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x000a, t01=0x011a}
0x010dc…01102 Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /8080 1:ST MUX WORD «, t00=0x000a, t01=0x0142}
0x01102…01130 Head {h00=0x002a, h01=0x0050, text=»MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS«, t00=0x000a, t01=0x0168}
0x01130…01154 Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 6 BLOCKING FACTOR«, t00=0x000b, t01=0x0008}
0x01154…0115e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x0115e…0117e Head {h00=0x001c, h01=0x0050, text=»* DATA AREA DEFINITION «, t00=0x000b, t01=0x0036}
0x0117e…01188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0056}
0x01188…0119c Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x000b, t01=0x0060}
0x0119c…011b6 Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x000b, t01=0x0074}
0x011b6…011ec Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x000b, t01=0x008e}
0x011ec…0120c Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x000b, t01=0x00c4}
0x0120c…01236 Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x000b, t01=0x00e4}
0x01236…01262 Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x000b, t01=0x010e}
0x01262…01288 Head {h00=0x0022, h01=0x0050, text=»DEVTAB DATA /1909,/1101,/0828 «, t00=0x000b, t01=0x013a}
0x01288…012b0 Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ',' ' «, t00=0x000b, t01=0x0160}
0x012b0…012be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0188}
0x012be…012ca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x0008}
0x012ca…01314 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x0014}
0x01314…0135e Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000c, t01=0x005e}
0x0135e…013a8 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000c, t01=0x00a8}
0x013a8…013f2 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000c, t01=0x00f2}
0x013f2…0143c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x013c}
0x0143c…01448 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x0186}
0x01448…01454 (13, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000d, t01=0x0004}
0x01454…01460 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000d, t01=0x0010}
0x01460…0147e Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000d, t01=0x001c}
0x0147e…0148c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x003a}
0x0148c…014ae Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000d, t01=0x0048}
0x014ae…014d0 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000d, t01=0x006a}
0x014d0…014f2 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000d, t01=0x008c}
0x014f2…01526 Head {h00=0x0030, h01=0x0050, text=»CASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x000d, t01=0x00ae}
0x01526…01556 Head {h00=0x002c, h01=0x0050, text=»DISC EQU 1 1-PROGRAM LOAD DEVICE = DISC «, t00=0x000d, t01=0x00e2}
0x01556…01592 Head {h00=0x0038, h01=0x0050, text=»FLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC «, t00=0x000d, t01=0x0112}
0x01592…015ce Head {h00=0x0038, h01=0x0050, text=»MFDISC EQU 1 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x000d, t01=0x014e}
0x015ce…01600 Head {h00=0x002e, h01=0x0050, text=»CFTEST EQU 1 1-TEST THE CONFIGURATION FILE«, t00=0x000d, t01=0x018a}
0x01600…0161e Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x000e, t01=0x002c}
0x0161e…0163e Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x000e, t01=0x004a}
0x0163e…0167a Head {h00=0x0038, h01=0x0050, text=»LODTST EQU 0 1-BUGGER START AFTER MONITOR LOADING =3«, t00=0x000e, t01=0x006a}
0x0167a…01688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a6}
0x01688…016c6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x00b4}
0x016c6…01704 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x00f2}
0x01704…01742 Head {h00=0x003a, h01=0x0050, text=»* APPLICATION LOAD PART OF SYSLOD *«, t00=0x000e, t01=0x0130}
0x01742…01780 Head {h00=0x003a, h01=0x0050, text=»* =============================== *«, t00=0x000e, t01=0x016e}
0x01780…017be Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000f, t01=0x001c}
0x017be…017fa Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - FORMAT AND DEVICE TYPE *«, t00=0x000f, t01=0x005a}
0x017fa…01838 Head {h00=0x003a, h01=0x0050, text=»* A2 - PROGRAM LOAD DEVICE *«, t00=0x000f, t01=0x0096}
0x01838…01876 Head {h00=0x003a, h01=0x0050, text=»* A3 - APPLICATION NUMBER *«, t00=0x000f, t01=0x00d4}
0x01876…018b4 Head {h00=0x003a, h01=0x0050, text=»* A7 - APPLICATION DISC ADDRESS BIT 16-31 * «, t00=0x000f, t01=0x0112}
0x018b4…018f2 Head {h00=0x003a, h01=0x0050, text=»* A8 - APPLICATION DISC ADDRESS BIT 0-15 * «, t00=0x000f, t01=0x0150}
0x018f2…01932 Head {h00=0x003c, h01=0x0050, text=»* A9 - SAVE09 OF FREE AREA * «, t00=0x000f, t01=0x018e}
0x01932…01972 Head {h00=0x003c, h01=0x0050, text=»* A13 - MONITOR SAVE09 ADDRESS * «, t00=0x0010, t01=0x003e}
0x01972…019b0 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x007e}
0x019b0…019ee Head {h00=0x003a, h01=0x0050, text=»* EXIT: *«, t00=0x0010, t01=0x00bc}
0x019ee…01a2c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00fa}
0x01a2c…01a6a Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM *«, t00=0x0010, t01=0x0138}
0x01a6a…01aa8 Head {h00=0x003a, h01=0x0050, text=»* LODSEG,REBUF,MOVBUF,RDBLK, *«, t00=0x0010, t01=0x0176}
0x01aa8…01ae6 Head {h00=0x003a, h01=0x0050, text=»* CONLOD,CONEX,MOVREV *«, t00=0x0011, t01=0x0024}
0x01ae6…01b24 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0062}
0x01b24…01b62 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0011, t01=0x00a0}
0x01b62…01b76 Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x0011, t01=0x00de}
0x01b76…01b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f2}
0x01b80…01b9a Head {h00=0x0016, h01=0x0050, text=»* SAVE REGISTERS «, t00=0x0011, t01=0x00fc}
0x01b9a…01ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x01ba4…01bd8 Head {h00=0x0030, h01=0x0050, text=» ST A1,SCTSFA+2 SAVE FORMAT AND DEVICE TYPE «, t00=0x0011, t01=0x0120}
0x01bd8…01c06 Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x0011, t01=0x0154}
0x01c06…01c2e Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x0011, t01=0x0182}
0x01c2e…01c6a Head {h00=0x0038, h01=0x0050, text=» ST A8,SCTADA SAVE APPLICATION DISC ADDRESS BIT 0-15«, t00=0x0012, t01=0x001a}
0x01c6a…01caa Head {h00=0x003c, h01=0x0050, text=» ST A7,SCTADA+2 SAVE APPLICATION DISC ADDRESS BIT 16-31 «, t00=0x0012, t01=0x0056}
0x01caa…01cd8 Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE SAVE09 OF FREE AREA«, t00=0x0012, t01=0x0096}
0x01cd8…01cf2 Head {h00=0x0016, h01=0x0050, text=» IFT LODTST=1 =3 «, t00=0x0012, t01=0x00c4}
0x01cf2…01d0e Head {h00=0x0018, h01=0x0050, text=» LDKL A14,SYSBAS =3«, t00=0x0012, t01=0x00de}
0x01d0e…01d24 Head {h00=0x0012, h01=0x0050, text=» LDR A13,P =3«, t00=0x0012, t01=0x00fa}
0x01d24…01d3c Head {h00=0x0014, h01=0x0050, text=» ADKL A13,10 =3«, t00=0x0012, t01=0x0110}
0x01d3c…01d56 Head {h00=0x0016, h01=0x0050, text=» LD A1,SCTBUG =3 «, t00=0x0012, t01=0x0128}
0x01d56…01d6e Head {h00=0x0014, h01=0x0050, text=» ABR(NZ) A1 =3 «, t00=0x0012, t01=0x0142}
0x01d6e…01d80 Head {h00=0x000e, h01=0x0050, text=» XIF =3 «, t00=0x0012, t01=0x015a}
0x01d80…01d8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x016c}
0x01d8e…01d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017a}
0x01d98…01db8 Head {h00=0x001c, h01=0x0050, text=»* INDICATE SYSLOD RUNS «, t00=0x0012, t01=0x0184}
0x01db8…01dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0014}
0x01dc2…01dd8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0013, t01=0x001e}
0x01dd8…01dee Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0013, t01=0x0034}
0x01dee…01df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x01df8…01e3e Head {h00=0x0042, h01=0x0050, text=»* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0013, t01=0x0054}
0x01e3e…01e66 Head {h00=0x0024, h01=0x0050, text=»* AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0013, t01=0x009a}
0x01e66…01e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c2}
0x01e70…01e90 Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0013, t01=0x00cc}
0x01e90…01eba Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0013, t01=0x00ec}
0x01eba…01ecc Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0013, t01=0x0116}
0x01ecc…01ef4 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0013, t01=0x0128}
0x01ef4…01f18 Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0013, t01=0x0150}
0x01f18…01f3e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0013, t01=0x0174}
0x01f3e…01f5e Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x0014, t01=0x000a}
0x01f5e…01f78 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:100 NO! «, t00=0x0014, t01=0x002a}
0x01f78…01f86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0044}
0x01f86…01f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0052}
0x01f90…01fd2 Head {h00=0x003e, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0014, t01=0x005c}
0x01fd2…01fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x01fdc…02002 Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0014, t01=0x00a8}
0x02002…02026 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0014, t01=0x00ce}
0x02026…0203a Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0014, t01=0x00f2}
0x0203a…02060 Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0014, t01=0x0106}
0x02060…02096 Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0014, t01=0x012c}
0x02096…020b8 Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0014, t01=0x0162}
0x020b8…020dc Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0014, t01=0x0184}
0x020dc…0210a Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0015, t01=0x0018}
0x0210a…02138 Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0015, t01=0x0046}
0x02138…02164 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0015, t01=0x0074}
0x02164…0217a Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:200 «, t00=0x0015, t01=0x00a0}
0x0217a…021a6 Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0015, t01=0x00b6}
0x021a6…021b8 Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0015, t01=0x00e2}
0x021b8…021c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x021c2…0220a Head {h00=0x0044, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0015, t01=0x00fe}
0x0220a…02214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x02214…02222 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0150}
0x02222…02236 Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0015, t01=0x015e}
0x02236…02240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x02240…02284 Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0015, t01=0x017c}
0x02284…0228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x0228e…022b8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PAGSIZ-2 SAVE09 AT /FFFE «, t00=0x0016, t01=0x003a}
0x022b8…022cc Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0016, t01=0x0064}
0x022cc…022f6 Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0016, t01=0x0078}
0x022f6…02322 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0016, t01=0x00a2}
0x02322…02348 Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0016, t01=0x00ce}
0x02348…0236c Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0016, t01=0x00f4}
0x0236c…02392 Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0016, t01=0x0118}
0x02392…023c6 Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0016, t01=0x013e}
0x023c6…023d8 Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0016, t01=0x0172}
0x023d8…023ec Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0016, t01=0x0184}
0x023ec…0241a Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0017, t01=0x0008}
0x0241a…02424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0036}
0x02424…02470 Head {h00=0x0048, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0017, t01=0x0040}
0x02470…0247a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x0247a…02488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0096}
0x02488…02492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a4}
0x02492…024b2 Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x0017, t01=0x00ae}
0x024b2…024bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x024bc…024d0 Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0017, t01=0x00d8}
0x024d0…02504 Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0017, t01=0x00ec}
0x02504…02532 Head {h00=0x002a, h01=0x0050, text=» SRL A6,6 NUMBER OF 64KB-PARTITIONS =2«, t00=0x0017, t01=0x0120}
0x02532…02552 Head {h00=0x001c, h01=0x0050, text=» ST A6,SCTEFA+2 STORE =2«, t00=0x0017, t01=0x014e}
0x02552…02588 Head {h00=0x0032, h01=0x0050, text=» LDKL A6,/FFFE HIGHEST ADDRESS IN PARTITION =2«, t00=0x0017, t01=0x016e}
0x02588…025a6 Head {h00=0x001a, h01=0x0050, text=» ST A6,SCTEFA STORE =2«, t00=0x0018, t01=0x0014}
0x025a6…025b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0032}
0x025b0…025e6 Head {h00=0x0032, h01=0x0050, text=»* GET DISC ADDRESS OF APPLICATION VTOC RECORD«, t00=0x0018, t01=0x003c}
0x025e6…025f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x025f0…02608 Head {h00=0x0014, h01=0x0050, text=» LD A11,SCTADA+2«, t00=0x0018, t01=0x007c}
0x02608…02620 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,SCTADA«, t00=0x0018, t01=0x0094}
0x02620…0262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ac}
0x0262a…02676 Head {h00=0x0048, h01=0x0050, text=»* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0018, t01=0x00b6}
0x02676…026a2 Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0018, t01=0x0102}
0x026a2…026ba Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0018, t01=0x012e}
0x026ba…026ec Head {h00=0x002e, h01=0x0050, text=» ADKL A3,BUFLEN COMPUTE START OF FREE AREA«, t00=0x0018, t01=0x0146}
0x026ec…02712 Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0018, t01=0x0178}
0x02712…02740 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0019, t01=0x000e}
0x02740…02758 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A2 SAVE «, t00=0x0019, t01=0x003c}
0x02758…02762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x02762…02786 Head {h00=0x0020, h01=0x0050, text=»* CHECK PROGRAM LOAD MEDIUM«, t00=0x0019, t01=0x005e}
0x02786…02790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0082}
0x02790…027b6 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/C0 CHECK IF CASSETTE «, t00=0x0019, t01=0x008c}
0x027b6…027d0 Head {h00=0x0016, h01=0x0050, text=» RF(P) AP:210 YES!«, t00=0x0019, t01=0x00b2}
0x027d0…02806 Head {h00=0x0032, h01=0x0050, text=» ST A9,MXBUF FLEXIBLE DISC/DISC BUFFER ADDRESS«, t00=0x0019, t01=0x00cc}
0x02806…02830 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x0019, t01=0x0102}
0x02830…0285c Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x0019, t01=0x012c}
0x0285c…02884 Head {h00=0x0024, h01=0x0050, text=» LC A3,SCTSFA+3 GET DEVICE TYPE «, t00=0x0019, t01=0x0158}
0x02884…02898 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0019, t01=0x0180}
0x02898…028ae (26, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(NP) FDTERR«, t00=0x001a, t01=0x0004}
0x028ae…028c0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x001a, t01=0x001a}
0x028c0…028da Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:230 DISC«, t00=0x001a, t01=0x002c}
0x028da…02900 Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:225 MINI FIXED DISC «, t00=0x001a, t01=0x0046}
0x02900…02912 Head {h00=0x000e, h01=0x0050, text=» SUK A3,5 «, t00=0x001a, t01=0x006c}
0x02912…02936 Head {h00=0x0020, h01=0x0050, text=» RF(Z) AP:220 FLEXIBLE DISC «, t00=0x001a, t01=0x007e}
0x02936…02974 Head {h00=0x003a, h01=0x0050, text=»FDTERR LDKL A1,LMP10 INDICATE FORMAT/DEVICE TYPE ERROR«, t00=0x001a, t01=0x00a2}
0x02974…02988 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x001a, t01=0x00e0}
0x02988…0299c Head {h00=0x0010, h01=0x0050, text=»AP:210 EQU *«, t00=0x001a, t01=0x00f4}
0x0299c…029b0 Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x001a, t01=0x0108}
0x029b0…029ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011c}
0x029ba…029e4 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x001a, t01=0x0126}
0x029e4…029ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x029ee…02a1c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x001a, t01=0x015a}
0x02a1c…02a38 Head {h00=0x0018, h01=0x0050, text=» LDR A10,A1 SAVE =2 «, t00=0x001a, t01=0x0188}
0x02a38…02a6c Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x001b, t01=0x0014}
0x02a6c…02a80 Head {h00=0x0010, h01=0x0050, text=»AP:215 EQU *«, t00=0x001b, t01=0x0048}
0x02a80…02aae Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x001b, t01=0x005c}
0x02aae…02acc Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x001b, t01=0x008a}
0x02acc…02ae6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:235 NO! «, t00=0x001b, t01=0x00a8}
0x02ae6…02b16 Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x001b, t01=0x00c2}
0x02b16…02b28 Head {h00=0x000e, h01=0x0050, text=» RB AP:215«, t00=0x001b, t01=0x00f2}
0x02b28…02b34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0104}
0x02b34…02b48 Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x001b, t01=0x0110}
0x02b48…02b5e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x001b, t01=0x0124}
0x02b5e…02b88 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x001b, t01=0x013a}
0x02b88…02b94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0164}
0x02b94…02ba2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0170}
0x02ba2…02bb6 Head {h00=0x0010, h01=0x0050, text=»AP:220 EQU *«, t00=0x001b, t01=0x017e}
0x02bb6…02bcc (28, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x001c, t01=0x0004}
0x02bcc…02bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x02bd6…02c04 Head {h00=0x002a, h01=0x0050, text=»* PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x001c, t01=0x0024}
0x02c04…02c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0052}
0x02c0e…02c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005c}
0x02c18…02c4e Head {h00=0x0032, h01=0x0050, text=»* MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x001c, t01=0x0066}
0x02c4e…02c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009c}
0x02c58…02c6c Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F8«, t00=0x001c, t01=0x00a6}
0x02c6c…02c82 Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTIPL «, t00=0x001c, t01=0x00ba}
0x02c82…02c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d0}
0x02c8c…02caa Head {h00=0x001a, h01=0x0050, text=»* INIT FLEXIBLE DISC «, t00=0x001c, t01=0x00da}
0x02caa…02cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f8}
0x02cb4…02cca Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x001c, t01=0x0102}
0x02cca…02cd8 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001c, t01=0x0118}
0x02cd8…02ce6 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001c, t01=0x0126}
0x02ce6…02cf4 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001c, t01=0x0134}
0x02cf4…02d02 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001c, t01=0x0142}
0x02d02…02d18 Head {h00=0x0012, h01=0x0050, text=» RF AP:232 =2«, t00=0x001c, t01=0x0150}
0x02d18…02d24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0166}
0x02d24…02d3a Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x001c, t01=0x0172}
0x02d3a…02d50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x001c, t01=0x0188}
0x02d50…02d7a Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x001d, t01=0x000e}
0x02d7a…02d86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0038}
0x02d86…02d94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0044}
0x02d94…02da8 Head {h00=0x0010, h01=0x0050, text=»AP:225 EQU *«, t00=0x001d, t01=0x0052}
0x02da8…02dbe Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x001d, t01=0x0066}
0x02dbe…02dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x02dc8…02df8 Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x001d, t01=0x0086}
0x02df8…02e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b6}
0x02e02…02e32 Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x001d, t01=0x00c0}
0x02e32…02e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f0}
0x02e3c…02e50 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x001d, t01=0x00fa}
0x02e50…02e66 Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTIPL «, t00=0x001d, t01=0x010e}
0x02e66…02e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x02e70…02e8e Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x001d, t01=0x012e}
0x02e8e…02e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x02e98…02eae Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x001d, t01=0x0156}
0x02eae…02ebc Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001d, t01=0x016c}
0x02ebc…02eca Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001d, t01=0x017a}
0x02eca…02ed8 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001d, t01=0x0188}
0x02ed8…02ee6 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x001e, t01=0x0008}
0x02ee6…02efc Head {h00=0x0012, h01=0x0050, text=» RF AP:232 =2«, t00=0x001e, t01=0x0016}
0x02efc…02f08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x002c}
0x02f08…02f1e Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x001e, t01=0x0038}
0x02f1e…02f34 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x001e, t01=0x004e}
0x02f34…02f5e Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x001e, t01=0x0064}
0x02f5e…02f6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x008e}
0x02f6a…02f78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x009a}
0x02f78…02f8c Head {h00=0x0010, h01=0x0050, text=»AP:230 EQU *«, t00=0x001e, t01=0x00a8}
0x02f8c…02fa0 Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x001e, t01=0x00bc}
0x02fa0…02faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d0}
0x02faa…02fd0 Head {h00=0x0022, h01=0x0050, text=»* PROGRAM LOAD DEVICE = DISC «, t00=0x001e, t01=0x00da}
0x02fd0…02fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0100}
0x02fda…02fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010a}
0x02fe4…03022 Head {h00=0x003a, h01=0x0050, text=»* MODIFY SCTIPL: /F0 - CARTRIDGE DISC, /F1 - FIX DISC«, t00=0x001e, t01=0x0114}
0x03022…0302c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0152}
0x0302c…0303e Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001e, t01=0x015c}
0x0303e…03050 Head {h00=0x000e, h01=0x0050, text=» XRK A2,1 «, t00=0x001e, t01=0x016e}
0x03050…03064 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F0 «, t00=0x001e, t01=0x0180}
0x03064…0307a (31, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTIPL «, t00=0x001f, t01=0x0004}
0x0307a…03084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001a}
0x03084…030a8 Head {h00=0x0020, h01=0x0050, text=»* INITIALIZE DISC COMMANDS «, t00=0x001f, t01=0x0024}
0x030a8…030b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0048}
0x030b2…030c8 Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x001f, t01=0x0052}
0x030c8…030e0 Head {h00=0x0014, h01=0x0050, text=»AP:232 EQU * =2«, t00=0x001f, t01=0x0068}
0x030e0…0310e Head {h00=0x002a, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS =2«, t00=0x001f, t01=0x0080}
0x0310e…03138 Head {h00=0x0026, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR =2 «, t00=0x001f, t01=0x00ae}
0x03138…03144 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00d8}
0x03144…03158 Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x001f, t01=0x00e4}
0x03158…0316e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x001f, t01=0x00f8}
0x0316e…03182 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x001f, t01=0x010e}
0x03182…0318e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0122}
0x0318e…0319c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x012e}
0x0319c…031b0 Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x001f, t01=0x013c}
0x031b0…031ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0150}
0x031ba…031da Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x001f, t01=0x015a}
0x031da…031e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017a}
0x031e4…031ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x031ee…03220 Head {h00=0x002e, h01=0x0050, text=»* SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x001f, t01=0x018e}
0x03220…0322a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x0322a…03264 Head {h00=0x0036, h01=0x0050, text=» LDR* A6,A9 GET SAVE09 ADDRESS (UNSEGMENTED APPL.)«, t00=0x0020, t01=0x003a}
0x03264…03282 Head {h00=0x001a, h01=0x0050, text=» ST A6,SAVE09,A13 SAVE«, t00=0x0020, t01=0x0074}
0x03282…032b4 Head {h00=0x002e, h01=0x0050, text=» LD A6,COMLG,A9 GET LENGTH OF COMMON PART «, t00=0x0020, t01=0x0092}
0x032b4…032d2 Head {h00=0x001a, h01=0x0050, text=» ST A6,SAVE04,A13 SAVE«, t00=0x0020, t01=0x00c4}
0x032d2…032f8 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0020, t01=0x00e2}
0x032f8…03324 Head {h00=0x0028, h01=0x0050, text=» LD A3,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x0020, t01=0x0108}
0x03324…03354 Head {h00=0x002c, h01=0x0050, text=» ST A3,APPTYP,A13 SAVE APPLICATION TYPE «, t00=0x0020, t01=0x0134}
0x03354…0337c Head {h00=0x0024, h01=0x0050, text=» CWK A3,'CR' CREDIT APPLICATION?«, t00=0x0020, t01=0x0164}
0x0337c…03396 Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2340 YES «, t00=0x0020, t01=0x018c}
0x03396…033bc Head {h00=0x0022, h01=0x0050, text=» CWK A3,'BA' BASIC APPLICATION«, t00=0x0021, t01=0x0016}
0x033bc…033d6 Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2340 YES «, t00=0x0021, t01=0x003c}
0x033d6…033fe Head {h00=0x0024, h01=0x0050, text=» CWK A3,'CO' COBOL APPLICATION? «, t00=0x0021, t01=0x0056}
0x033fe…03418 Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2340 YES «, t00=0x0021, t01=0x007e}
0x03418…03422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x03422…03442 Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION«, t00=0x0021, t01=0x00a2}
0x03442…0344c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c2}
0x0344c…03482 Head {h00=0x0032, h01=0x0050, text=» ORKL A2,/8000 INDICATE ASSEMBLER APPLICATION «, t00=0x0021, t01=0x00cc}
0x03482…034a6 Head {h00=0x0020, h01=0x0050, text=» ST A2,SCTOPT IN OPTION WORD«, t00=0x0021, t01=0x0102}
0x034a6…034b8 Head {h00=0x000e, h01=0x0050, text=» RF AP2350«, t00=0x0021, t01=0x0126}
0x034b8…034ea Head {h00=0x002e, h01=0x0050, text=»AP2340 LD A3,PAGLG+8,A9 PHYSICAL PAGE SIZE«, t00=0x0021, t01=0x0138}
0x034ea…03504 Head {h00=0x0016, h01=0x0050, text=» ST A3,SCTPSZ SAVE«, t00=0x0021, t01=0x016a}
0x03504…0353c Head {h00=0x0034, h01=0x0050, text=»AP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES«, t00=0x0021, t01=0x0184}
0x0353c…0355c Head {h00=0x001c, h01=0x0050, text=» SRC A2,1 MMU IN SYSTEM?«, t00=0x0022, t01=0x002c}
0x0355c…03576 Head {h00=0x0016, h01=0x0050, text=» RF(NN) AP:240 NO!«, t00=0x0022, t01=0x004c}
0x03576…03584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0066}
0x03584…0358e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x0358e…035c4 Head {h00=0x0032, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0022, t01=0x007e}
0x035c4…035ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b4}
0x035ce…035f2 Head {h00=0x0020, h01=0x0050, text=» LD A3,SCTPSZ GET PAGE SIZE «, t00=0x0022, t01=0x00be}
0x035f2…0360a Head {h00=0x0014, h01=0x0050, text=» LDR A1,A3 SAVE «, t00=0x0022, t01=0x00e2}
0x0360a…03632 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/03FF EVEN 1K-MULTIPLE?«, t00=0x0022, t01=0x00fa}
0x03632…0364c Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:236 YES!«, t00=0x0022, t01=0x0122}
0x0364c…03660 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0022, t01=0x013c}
0x03660…0368c Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0022, t01=0x0150}
0x0368c…036a0 Head {h00=0x0010, h01=0x0050, text=»AP:236 EQU *«, t00=0x0022, t01=0x017c}
0x036a0…036c4 Head {h00=0x0020, h01=0x0050, text=» SRL A3,2 LOGICAL PAGE SIZE «, t00=0x0022, t01=0x0190}
0x036c4…036e4 Head {h00=0x001c, h01=0x0050, text=» SLL A5,8 MAP IT ON MMU «, t00=0x0023, t01=0x0024}
0x036e4…0371a Head {h00=0x0032, h01=0x0050, text=» ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS«, t00=0x0023, t01=0x0044}
0x0371a…03732 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x0023, t01=0x007a}
0x03732…0373c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0092}
0x0373c…03766 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF ASSEMBLER APPLICATION «, t00=0x0023, t01=0x009c}
0x03766…03770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c6}
0x03770…03798 Head {h00=0x0024, h01=0x0050, text=» SLC A2,1 ASSEMBLER APPLICATION «, t00=0x0023, t01=0x00d0}
0x03798…037b2 Head {h00=0x0016, h01=0x0050, text=» ABL(N) AP:330 YES«, t00=0x0023, t01=0x00f8}
0x037b2…037e6 Head {h00=0x0030, h01=0x0050, text=»AP:237 LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0023, t01=0x0112}
0x037e6…03810 Head {h00=0x0026, h01=0x0050, text=»AP:238 ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0023, t01=0x0146}
0x03810…03822 Head {h00=0x000e, h01=0x0050, text=» RF AP:245«, t00=0x0023, t01=0x0170}
0x03822…0382c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0182}
0x0382c…03874 Head {h00=0x0044, h01=0x0050, text=»* END OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION«, t00=0x0023, t01=0x018c}
0x03874…0387e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0044}
0x0387e…0388c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x004e}
0x0388c…038a0 Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0024, t01=0x005c}
0x038a0…038aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0070}
0x038aa…038ee Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0024, t01=0x007a}
0x038ee…038f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00be}
0x038f8…03936 Head {h00=0x003a, h01=0x0050, text=» SLL A5,10 HIGHEST PHYSICAL AND LOGICAL MEMORY ADDRESS«, t00=0x0024, t01=0x00c8}
0x03936…0394e Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x0024, t01=0x0106}
0x0394e…03958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x03958…03982 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF ASSEMBLER APPLICATION «, t00=0x0024, t01=0x0128}
0x03982…0398c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0152}
0x0398c…039b4 Head {h00=0x0024, h01=0x0050, text=» SLC A2,1 ASSEMBLER APPLICATION?«, t00=0x0024, t01=0x015c}
0x039b4…039ce Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:275 YES «, t00=0x0024, t01=0x0184}
0x039ce…039fc Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0025, t01=0x000e}
0x039fc…03a1e Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0025, t01=0x003c}
0x03a1e…03a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x005e}
0x03a2c…03a40 Head {h00=0x0010, h01=0x0050, text=»AP:245 EQU *«, t00=0x0025, t01=0x006c}
0x03a40…03a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0080}
0x03a4a…03a6a Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x0025, t01=0x008a}
0x03a6a…03a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00aa}
0x03a74…03a98 Head {h00=0x0020, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE A1 =2«, t00=0x0025, t01=0x00b4}
0x03a98…03aca Head {h00=0x002e, h01=0x0050, text=» ST A2,SAVE29,A13 SAVE NUMBER OF SEGMENTS «, t00=0x0025, t01=0x00d8}
0x03aca…03af0 Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x0025, t01=0x010a}
0x03af0…03b0e Head {h00=0x001a, h01=0x0050, text=» ANK A4,2 DISC PAGING?«, t00=0x0025, t01=0x0130}
0x03b0e…03b28 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:260 NO! «, t00=0x0025, t01=0x014e}
0x03b28…03b56 Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0025, t01=0x0168}
0x03b56…03b7c Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0026, t01=0x0008}
0x03b7c…03bb0 Head {h00=0x0030, h01=0x0050, text=» RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0026, t01=0x002e}
0x03bb0…03bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x03bba…03bea Head {h00=0x002c, h01=0x0050, text=»* COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0026, t01=0x006c}
0x03bea…03bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x009c}
0x03bf4…03c18 Head {h00=0x0020, h01=0x0050, text=» CM SAVE05,A13 RESET COUNTER«, t00=0x0026, t01=0x00a6}
0x03c18…03c40 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0026, t01=0x00ca}
0x03c40…03c6a Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0026, t01=0x00f2}
0x03c6a…03c7e Head {h00=0x0010, h01=0x0050, text=»AP:250 EQU *«, t00=0x0026, t01=0x011c}
0x03c7e…03cb6 Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE REMAINING NBR OF SEGM. =2«, t00=0x0026, t01=0x0130}
0x03cb6…03cda Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0026, t01=0x0168}
0x03cda…03cfe Head {h00=0x0020, h01=0x0050, text=» ST A9,SAVE03,A13 SAVE A9 =2«, t00=0x0026, t01=0x018c}
0x03cfe…03d24 Head {h00=0x0022, h01=0x0050, text=» ST A11,SAVE13,A13 SAVE A11 =2«, t00=0x0027, t01=0x0020}
0x03d24…03d50 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A6 GET POINTER IN S:GTAB =2«, t00=0x0027, t01=0x0046}
0x03d50…03d80 Head {h00=0x002c, h01=0x0050, text=» ADKL A9,BUFLEN-16 END OF READ BUFFER =2«, t00=0x0027, t01=0x0072}
0x03d80…03db0 Head {h00=0x002c, h01=0x0050, text=» CALL CMPADR POINTER OUTSIDE BUFFER? =2 «, t00=0x0027, t01=0x00a2}
0x03db0…03dcc Head {h00=0x0018, h01=0x0050, text=» RF(L) AP:252 NO! =2«, t00=0x0027, t01=0x00d2}
0x03dcc…03dfe Head {h00=0x002e, h01=0x0050, text=» SUR A6,A9 DISPLACEMENT IN NEXT SECTOR =2 «, t00=0x0027, t01=0x00ee}
0x03dfe…03e2c Head {h00=0x002a, h01=0x0050, text=» SUKL A9,BUFLEN-16 START OF BUFFER =2 «, t00=0x0027, t01=0x0120}
0x03e2c…03e54 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A9 NEXT SEGMENT BLOCK =2«, t00=0x0027, t01=0x014e}
0x03e54…03e88 Head {h00=0x0030, h01=0x0050, text=» LD A11,SAVE13,A13 GET LAST SECTOR NUMBER =2«, t00=0x0027, t01=0x0176}
0x03e88…03eac Head {h00=0x0020, h01=0x0050, text=» ST A3,SAVE07,A13 SAVE A3 =2«, t00=0x0028, t01=0x001a}
0x03eac…03ed0 Head {h00=0x0020, h01=0x0050, text=» ST A5,SAVE08,A13 SAVE A5 =2«, t00=0x0028, t01=0x003e}
0x03ed0…03efe Head {h00=0x002a, h01=0x0050, text=» CFR A14,A10 READ NEXT SECTOR/BLOCK =2«, t00=0x0028, t01=0x0062}
0x03efe…03f26 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVE07,A13 RESTORE A3 =2 «, t00=0x0028, t01=0x0090}
0x03f26…03f4e Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE08,A13 RESTORE A5 =2 «, t00=0x0028, t01=0x00b8}
0x03f4e…03f86 Head {h00=0x0034, h01=0x0050, text=» ST A11,SAVE13,A13 SAVE CURRENT SECTOR NUMBER =2«, t00=0x0028, t01=0x00e0}
0x03f86…03fc0 Head {h00=0x0036, h01=0x0050, text=»AP:252 LD A11,SAVE13,A13 GET NEXT SECTOR NUMBER =2«, t00=0x0028, t01=0x0118}
0x03fc0…03fec Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE03,A13 START OF BUFFER =2«, t00=0x0028, t01=0x0152}
0x03fec…04010 Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x0028, t01=0x017e}
0x04010…0403c Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x0029, t01=0x0012}
0x0403c…04056 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:255 NO!«, t00=0x0029, t01=0x003e}
0x04056…04090 Head {h00=0x0036, h01=0x0050, text=» IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER «, t00=0x0029, t01=0x0058}
0x04090…040a4 Head {h00=0x0010, h01=0x0050, text=»AP:255 EQU *«, t00=0x0029, t01=0x0092}
0x040a4…040dc Head {h00=0x0034, h01=0x0050, text=» LD A2,SAVE01,A13 GET REMAINING NBR OF SEGM. =2 «, t00=0x0029, t01=0x00a6}
0x040dc…040fe Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x0029, t01=0x00de}
0x040fe…0411a Head {h00=0x0018, h01=0x0050, text=» RB(NZ) AP:250 YES! «, t00=0x0029, t01=0x0100}
0x0411a…04154 Head {h00=0x0036, h01=0x0050, text=» LD A11,SCTADA+2 GET APPLICATION START ADDRESS =2 «, t00=0x0029, t01=0x011c}
0x04154…04178 Head {h00=0x0020, h01=0x0050, text=» ST A3,SAVE03,A13 SAVE A3 =2«, t00=0x0029, t01=0x0156}
0x04178…0419c Head {h00=0x0020, h01=0x0050, text=» ST A5,SAVE08,A13 SAVE A5 =2«, t00=0x0029, t01=0x017a}
0x0419c…041c6 Head {h00=0x0026, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR =2 «, t00=0x002a, t01=0x000e}
0x041c6…041ee Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVE03,A13 RESTORE A3 =2 «, t00=0x002a, t01=0x0038}
0x041ee…04216 Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE08,A13 RESTORE A5 =2 «, t00=0x002a, t01=0x0060}
0x04216…0424c Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE05,A13 NUMBER OF RESIDENT SEGMENTS «, t00=0x002a, t01=0x0088}
0x0424c…04278 Head {h00=0x0028, h01=0x0050, text=» RF(Z) AP:270 NO RESIDENT SEGMENTS! «, t00=0x002a, t01=0x00be}
0x04278…0428c Head {h00=0x0010, h01=0x0050, text=»AP:260 EQU *«, t00=0x002a, t01=0x00ea}
0x0428c…042b6 Head {h00=0x0026, h01=0x0050, text=» ST A2,SCTNOP SAVE NUMBER OF PAGES«, t00=0x002a, t01=0x00fe}
0x042b6…042d0 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x002a, t01=0x0128}
0x042d0…042ec Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x002a, t01=0x0142}
0x042ec…042fa Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x002a, t01=0x015e}
0x042fa…0431e Head {h00=0x0020, h01=0x0050, text=»* CHECK MEMORY OVERFLOW =2 «, t00=0x002a, t01=0x016c}
0x0431e…04328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0190}
0x04328…04358 Head {h00=0x002c, h01=0x0050, text=» LD A7,SCTEFA+2 GET PARTITION NUMBER =2 «, t00=0x002b, t01=0x000a}
0x04358…04386 Head {h00=0x002a, h01=0x0050, text=»AP:262 LD A11,SCTPSZ GET PAGE SIZE =2 «, t00=0x002b, t01=0x003a}
0x04386…043b4 Head {h00=0x002a, h01=0x0050, text=» LD A9,SCTEFA GET END OF FREE AREA =2 «, t00=0x002b, t01=0x0068}
0x043b4…043f0 Head {h00=0x0038, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN THIS PARTITION? =2 =2 «, t00=0x002b, t01=0x0096}
0x043f0…0440e Head {h00=0x001a, h01=0x0050, text=» RF(NG) AP:265 YES! =2«, t00=0x002b, t01=0x00d2}
0x0440e…0442c Head {h00=0x001a, h01=0x0050, text=» SUK A7,1 DECREMENT =2«, t00=0x002b, t01=0x00f0}
0x0442c…04456 Head {h00=0x0026, h01=0x0050, text=» RF(NP) AP:280 MEMORY OVERFLOW! =2«, t00=0x002b, t01=0x010e}
0x04456…04488 Head {h00=0x002e, h01=0x0050, text=» ST A7,SCTEFA+2 UPDATE PARTITION NUMBER =2«, t00=0x002b, t01=0x0138}
0x04488…044be Head {h00=0x0032, h01=0x0050, text=»AP:265 SUR A9,A11 COMPUTE END OF FREE AREA =2 «, t00=0x002b, t01=0x016a}
0x044be…044dc Head {h00=0x001a, h01=0x0050, text=» ST A9,SCTEFA STORE =2«, t00=0x002c, t01=0x0010}
0x044dc…04508 Head {h00=0x0028, h01=0x0050, text=» CWK A7,1 FIRST MEMORY PARTITION? =2«, t00=0x002c, t01=0x002e}
0x04508…04524 Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:266 NO! =2«, t00=0x002c, t01=0x005a}
0x04524…04554 Head {h00=0x002c, h01=0x0050, text=» LD A11,SCTSFA GET START OF FREE AREA =2«, t00=0x002c, t01=0x0076}
0x04554…0457e Head {h00=0x0026, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSSES =2«, t00=0x002c, t01=0x00a6}
0x0457e…045a8 Head {h00=0x0026, h01=0x0050, text=» RF(NL) AP:280 MEMORY OVERFLOW! =2«, t00=0x002c, t01=0x00d0}
0x045a8…045c0 Head {h00=0x0014, h01=0x0050, text=»AP:266 EQU * =2«, t00=0x002c, t01=0x00fa}
0x045c0…045f4 Head {h00=0x0030, h01=0x0050, text=» SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS«, t00=0x002c, t01=0x0112}
0x045f4…04620 Head {h00=0x0028, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF PAGES «, t00=0x002c, t01=0x0146}
0x04620…04636 Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:262 «, t00=0x002c, t01=0x0172}
0x04636…04654 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x002c, t01=0x0188}
0x04654…04674 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x002d, t01=0x0016}
0x04674…046b0 Head {h00=0x0038, h01=0x0050, text=» ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT«, t00=0x002d, t01=0x0036}
0x046b0…046c4 Head {h00=0x0010, h01=0x0050, text=»AP:270 EQU *«, t00=0x002d, t01=0x0072}
0x046c4…046ec Head {h00=0x0024, h01=0x0050, text=» LD A1,SAVE06,A13 RESTORE A1 =2 «, t00=0x002d, t01=0x0086}
0x046ec…04712 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002d, t01=0x00ae}
0x04712…04732 Head {h00=0x001c, h01=0x0050, text=» ANK A2,1 MMU IN SYSTEM?«, t00=0x002d, t01=0x00d4}
0x04732…0474e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:292 YES! «, t00=0x002d, t01=0x00f4}
0x0474e…04758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0110}
0x04758…04780 Head {h00=0x0024, h01=0x0050, text=»* END OF COMMON EXECUTION PATH «, t00=0x002d, t01=0x011a}
0x04780…0478a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0142}
0x0478a…04798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x014c}
0x04798…047a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015a}
0x047a2…047e6 Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x002d, t01=0x0164}
0x047e6…047f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x047f0…0480a Head {h00=0x0016, h01=0x0050, text=» ST A5,SAVE08,A13 «, t00=0x002e, t01=0x0022}
0x0480a…0481e Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x002e, t01=0x003c}
0x0481e…04850 Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x002e, t01=0x0050}
0x04850…0487a Head {h00=0x0026, h01=0x0050, text=» ADKL A10,3 RESERV ONE EXTRA WORD «, t00=0x002e, t01=0x0082}
0x0487a…04892 Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FFFE «, t00=0x002e, t01=0x00ac}
0x04892…0489a Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00c4}
0x0489a…048b4 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x002e, t01=0x00cc}
0x048b4…048d0 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x002e, t01=0x00e6}
0x048d0…048e4 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A5 «, t00=0x002e, t01=0x0102}
0x048e4…048f8 Head {h00=0x0010, h01=0x0050, text=»AP:285 EQU *«, t00=0x002e, t01=0x0116}
0x048f8…0490c Head {h00=0x0010, h01=0x0050, text=» SUKL A11,2 «, t00=0x002e, t01=0x012a}
0x0490c…04920 Head {h00=0x0010, h01=0x0050, text=» SUKL A10,2 «, t00=0x002e, t01=0x013e}
0x04920…04936 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:290 «, t00=0x002e, t01=0x0152}
0x04936…04962 Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x002e, t01=0x0168}
0x04962…0498a (47, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x002f, t01=0x0004}
0x0498a…049a0 Head {h00=0x0012, h01=0x0050, text=» RB(G) AP:285 «, t00=0x002f, t01=0x002c}
0x049a0…049bc Head {h00=0x0018, h01=0x0050, text=»AP:280 LDKL A1,LMP3 «, t00=0x002f, t01=0x0042}
0x049bc…049e0 Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x002f, t01=0x005e}
0x049e0…049f4 Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x002f, t01=0x0082}
0x049f4…04a18 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A11 RELOCATION BASE«, t00=0x002f, t01=0x0096}
0x04a18…04a36 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x002f, t01=0x00ba}
0x04a36…04a56 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x002f, t01=0x00d8}
0x04a56…04a8a Head {h00=0x0030, h01=0x0050, text=» LDR A8,A12 A8 - APPLICATION LOAD - ADDRESS «, t00=0x002f, t01=0x00f8}
0x04a8a…04ac2 Head {h00=0x0034, h01=0x0050, text=» ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS«, t00=0x002f, t01=0x012c}
0x04ac2…04afa Head {h00=0x0034, h01=0x0050, text=» ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS «, t00=0x002f, t01=0x0164}
0x04afa…04b2c Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0030, t01=0x000c}
0x04b2c…04b40 Head {h00=0x0010, h01=0x0050, text=» ABL AP:355 «, t00=0x0030, t01=0x003e}
0x04b40…04b4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0052}
0x04b4e…04b62 Head {h00=0x0010, h01=0x0050, text=»AP:292 EQU *«, t00=0x0030, t01=0x0060}
0x04b62…04b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0074}
0x04b6c…04ba2 Head {h00=0x0032, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0030, t01=0x007e}
0x04ba2…04bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b4}
0x04bac…04bc4 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A5 SAVE «, t00=0x0030, t01=0x00be}
0x04bc4…04bee Head {h00=0x0026, h01=0x0050, text=» ANKL A5,/FC00 GET 6 LEFTMOST BITS«, t00=0x0030, t01=0x00d6}
0x04bee…04c06 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A5 SAVE «, t00=0x0030, t01=0x0100}
0x04c06…04c36 Head {h00=0x002c, h01=0x0050, text=» SUR A4,A5 COMPUTE PHYSICAL DISPLACEMENT«, t00=0x0030, t01=0x0118}
0x04c36…04c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0148}
0x04c44…04c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0156}
0x04c4e…04c86 Head {h00=0x0034, h01=0x0050, text=»* STORE ADDRES(ES) TO PHYSICAL PAGE(S) HOLDING «, t00=0x0030, t01=0x0160}
0x04c86…04ca8 Head {h00=0x001e, h01=0x0050, text=»* THE FIRST LOGICAL PAGE «, t00=0x0031, t01=0x0008}
0x04ca8…04cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x002a}
0x04cb2…04cde Head {h00=0x0028, h01=0x0050, text=» LDKL A7,MMEND GET END OF MMU TABLE«, t00=0x0031, t01=0x0034}
0x04cde…04d08 Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 INIT MMU ENTRY POINTER«, t00=0x0031, t01=0x0060}
0x04d08…04d1c Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0031, t01=0x008a}
0x04d1c…04d4a Head {h00=0x002a, h01=0x0050, text=» SUK A7,2 DECREMENT MMU ENTRY ADDRESS «, t00=0x0031, t01=0x009e}
0x04d4a…04d78 Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0031, t01=0x00cc}
0x04d78…04dae Head {h00=0x0032, h01=0x0050, text=» SUKL A3,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0031, t01=0x00fa}
0x04dae…04dc4 Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0031, t01=0x0130}
0x04dc4…04dee Head {h00=0x0026, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K-BYTES PAGES «, t00=0x0031, t01=0x0146}
0x04dee…04e12 Head {h00=0x0020, h01=0x0050, text=» LD A3,SCTPSZ GET PAGE SIZE «, t00=0x0031, t01=0x0170}
0x04e12…04e34 (50, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CWK A3,/400 PAGE SIZE=1K?«, t00=0x0032, t01=0x0004}
0x04e34…04e4e Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:300 YES «, t00=0x0032, t01=0x0026}
0x04e4e…04e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0040}
0x04e58…04e8c Head {h00=0x0030, h01=0x0050, text=»* RESERV ONE EXTRA MMU ENTRY WHEN PAGE SIZE«, t00=0x0032, t01=0x004a}
0x04e8c…04eb4 Head {h00=0x0024, h01=0x0050, text=»* IS NOT AN EVEN MULTIPLE OF 4K«, t00=0x0032, t01=0x007e}
0x04eb4…04ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a6}
0x04ebe…04ed0 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0032, t01=0x00b0}
0x04ed0…04ee2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0032, t01=0x00c2}
0x04ee2…04ef6 Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0032, t01=0x00d4}
0x04ef6…04f28 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOP ANY CORE RESIDENT SEGMENTS? «, t00=0x0032, t01=0x00e8}
0x04f28…04f44 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:302 YES! «, t00=0x0032, t01=0x011a}
0x04f44…04f74 Head {h00=0x002c, h01=0x0050, text=» LDR A5,A1 GET ADDRESS TO END OF MEMORY «, t00=0x0032, t01=0x0136}
0x04f74…04f96 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET PAGE SIZE «, t00=0x0032, t01=0x0166}
0x04f96…04fa8 Head {h00=0x000e, h01=0x0050, text=» RF AP:310«, t00=0x0032, t01=0x0188}
0x04fa8…04fe8 Head {h00=0x003c, h01=0x0050, text=»AP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE «, t00=0x0033, t01=0x000a}
0x04fe8…04ffc Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0033, t01=0x004a}
0x04ffc…0502e Head {h00=0x002e, h01=0x0050, text=» STR A6,A3 STORE ADDRESS TO PHYSICAL PAGE «, t00=0x0033, t01=0x005e}
0x0502e…0505c Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0033, t01=0x0090}
0x0505c…05084 Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0033, t01=0x00be}
0x05084…0509e Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0033, t01=0x00e6}
0x0509e…050d4 Head {h00=0x0032, h01=0x0050, text=» ADKL A6,/400 INCREMENT PHYSICAL PAGE ADDRESS «, t00=0x0033, t01=0x0100}
0x050d4…050e6 Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0033, t01=0x0136}
0x050e6…050fa Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0033, t01=0x0148}
0x050fa…05128 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A4 ANY PHYSICAL DISPLACEMENT? «, t00=0x0033, t01=0x015c}
0x05128…05144 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:315 YES! «, t00=0x0033, t01=0x018a}
0x05144…05174 Head {h00=0x002c, h01=0x0050, text=» SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS«, t00=0x0034, t01=0x0016}
0x05174…0517e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0046}
0x0517e…05192 Head {h00=0x0010, h01=0x0050, text=»AP:315 EQU *«, t00=0x0034, t01=0x0050}
0x05192…051ba Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 PHYSICAL DISPLACEMENT «, t00=0x0034, t01=0x0064}
0x051ba…051ce Head {h00=0x0010, h01=0x0050, text=»AP:325 EQU *«, t00=0x0034, t01=0x008c}
0x051ce…051d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a0}
0x051d8…0520a Head {h00=0x002e, h01=0x0050, text=»* SAVE LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x0034, t01=0x00aa}
0x0520a…05214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00dc}
0x05214…05234 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0034, t01=0x00e6}
0x05234…0525e Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0034, t01=0x0106}
0x0525e…0528e Head {h00=0x002c, h01=0x0050, text=» ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE«, t00=0x0034, t01=0x0130}
0x0528e…052a8 Head {h00=0x0016, h01=0x0050, text=» ST A2,SCTLAP SAVE«, t00=0x0034, t01=0x0160}
0x052a8…052cc Head {h00=0x0020, h01=0x0050, text=» ADR A2,A4 ADD DISPLACEMENT «, t00=0x0034, t01=0x017a}
0x052cc…052ea Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE«, t00=0x0035, t01=0x000e}
0x052ea…0531a Head {h00=0x002c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY FOR FIRST PAGE «, t00=0x0035, t01=0x002c}
0x0531a…0533e Head {h00=0x0020, h01=0x0050, text=» ADR A2,A2 BYTE DISPLACEMENT«, t00=0x0035, t01=0x005c}
0x0533e…05378 Head {h00=0x0036, h01=0x0050, text=» ADKL A2,TTB:MT COMPUTE DISPL. TO FIRST PAGE ENTRY«, t00=0x0035, t01=0x0080}
0x05378…0539c Head {h00=0x0020, h01=0x0050, text=» ST A2,SCTMMP SAVE IN SYSTAB«, t00=0x0035, t01=0x00ba}
0x0539c…053a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00de}
0x053a6…053d0 Head {h00=0x0026, h01=0x0050, text=»* COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x0035, t01=0x00e8}
0x053d0…053da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0112}
0x053da…053ee Head {h00=0x0010, h01=0x0050, text=» LDKL A2,16 «, t00=0x0035, t01=0x011c}
0x053ee…05400 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A8«, t00=0x0035, t01=0x0130}
0x05400…05416 Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTNPE «, t00=0x0035, t01=0x0142}
0x05416…05428 Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0035, t01=0x0158}
0x05428…0543c Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0035, t01=0x016a}
0x0543c…05446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x017e}
0x05446…05482 Head {h00=0x0038, h01=0x0050, text=»* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT«, t00=0x0035, t01=0x0188}
0x05482…054c4 Head {h00=0x003e, h01=0x0050, text=»* THE APPLICATION LOADED WAS UNSEGMENTED (CORE RESIDENT) «, t00=0x0036, t01=0x0034}
0x054c4…054ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0076}
0x054ce…054fe Head {h00=0x002c, h01=0x0050, text=» SUKL A5,/400 INIT POINTER TO LAST PAGE «, t00=0x0036, t01=0x0080}
0x054fe…05528 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGSIZ PHYSICAL PAGE SIZE«, t00=0x0036, t01=0x00b0}
0x05528…05550 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,MMEND END OF MMU TABLE «, t00=0x0036, t01=0x00da}
0x05550…05576 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 MMU ENTRY POINTER «, t00=0x0036, t01=0x0102}
0x05576…05584 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0128}
0x05584…05598 Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0036, t01=0x0136}
0x05598…055bc Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 ANY DISPLACEMENT?«, t00=0x0036, t01=0x014a}
0x055bc…055d2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) AP:337«, t00=0x0036, t01=0x016e}
0x055d2…055ea Head {h00=0x0014, h01=0x0050, text=» LDKL A4,PAGSIZ «, t00=0x0036, t01=0x0184}
0x055ea…055fe Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x0037, t01=0x000c}
0x055fe…05608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0020}
0x05608…05634 Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION SAVE09 ADDRESS«, t00=0x0037, t01=0x002a}
0x05634…0563e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0056}
0x0563e…05668 Head {h00=0x0026, h01=0x0050, text=»* A1 - LAST PHYSICAL PAGE NUMBER «, t00=0x0037, t01=0x0060}
0x05668…0568c Head {h00=0x0020, h01=0x0050, text=»* A4 - DISPLACEMENT IN PAGE«, t00=0x0037, t01=0x008a}
0x0568c…056b2 Head {h00=0x0022, h01=0x0050, text=»* A5 - PHYSICAL PAGE ADDRESS «, t00=0x0037, t01=0x00ae}
0x056b2…056d4 Head {h00=0x001e, h01=0x0050, text=»* A7 - MMU ENTRY ADDRESS «, t00=0x0037, t01=0x00d4}
0x056d4…056f6 Head {h00=0x001e, h01=0x0050, text=»* A8 - CURRENT MMU ENTRY «, t00=0x0037, t01=0x00f6}
0x056f6…05700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0118}
0x05700…05734 Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0037, t01=0x0122}
0x05734…0575c Head {h00=0x0024, h01=0x0050, text=» ADK A2,3 RESERV ONE EXTRA WORD «, t00=0x0037, t01=0x0156}
0x0575c…05784 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0037, t01=0x017e}
0x05784…05796 Head {h00=0x000e, h01=0x0050, text=» RF AP:344«, t00=0x0038, t01=0x0016}
0x05796…057aa Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x0038, t01=0x0028}
0x057aa…057fa Head {h00=0x004c, h01=0x0050, text=»* RESERV ENTRIES IN MMU TABLE FOR PHYSICAL PAGE ADDRESSES TO COMMON PA«, t00=0x0038, t01=0x003c}
0x057fa…05804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x008c}
0x05804…05830 Head {h00=0x0028, h01=0x0050, text=» SUR A2,A4 AREA LEFT IN CURRENT PAGE«, t00=0x0038, t01=0x0096}
0x05830…0585a Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGSIZ PHYSICAL PAGE SIZE«, t00=0x0038, t01=0x00c2}
0x0585a…05888 Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0038, t01=0x00ec}
0x05888…0589e Head {h00=0x0012, h01=0x0050, text=» RF(NN) AP:342«, t00=0x0038, t01=0x011a}
0x0589e…058b2 Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x0038, t01=0x0130}
0x058b2…058e0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP7 INDICATE TABBE OVERFLOW!«, t00=0x0038, t01=0x0144}
0x058e0…058f4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0038, t01=0x0172}
0x058f4…05908 Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x0038, t01=0x0186}
0x05908…05916 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0039, t01=0x000a}
0x05916…05944 Head {h00=0x002a, h01=0x0050, text=» SUK A7,2 DECREMENT MMU ENTRY ADDRESS «, t00=0x0039, t01=0x0018}
0x05944…05970 Head {h00=0x0028, h01=0x0050, text=» STR A5,A7 STORE PAGE ADDRESS IN MMU«, t00=0x0039, t01=0x0046}
0x05970…05990 Head {h00=0x001c, h01=0x0050, text=» SUKL A5,/400 NEXT PAGE «, t00=0x0039, t01=0x0072}
0x05990…059a4 Head {h00=0x0010, h01=0x0050, text=»AP:344 EQU *«, t00=0x0039, t01=0x0092}
0x059a4…059ce Head {h00=0x0026, h01=0x0050, text=» TNM A2,A4 PROGRAM LENGTH > 32 KB?«, t00=0x0039, t01=0x00a6}
0x059ce…059e8 Head {h00=0x0016, h01=0x0050, text=» RF(NN) AP:345 NO!«, t00=0x0039, t01=0x00d0}
0x059e8…059fa Head {h00=0x000e, h01=0x0050, text=» CWR A4,A2«, t00=0x0039, t01=0x00ea}
0x059fa…05a0c Head {h00=0x000e, h01=0x0050, text=» RF AP:348«, t00=0x0039, t01=0x00fc}
0x05a0c…05a20 Head {h00=0x0010, h01=0x0050, text=»AP:345 EQU *«, t00=0x0039, t01=0x010e}
0x05a20…05a32 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0039, t01=0x0122}
0x05a32…05a46 Head {h00=0x0010, h01=0x0050, text=»AP:348 EQU *«, t00=0x0039, t01=0x0134}
0x05a46…05a5c Head {h00=0x0012, h01=0x0050, text=» RB(G) AP:340 «, t00=0x0039, t01=0x0148}
0x05a5c…05a70 Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x0039, t01=0x015e}
0x05a70…05a82 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0039, t01=0x0172}
0x05a82…05a98 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x0039, t01=0x0184}
0x05a98…05aaa Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003a, t01=0x000a}
0x05aaa…05ad0 Head {h00=0x0022, h01=0x0050, text=» RB(N) AP:341 TABBE OVERFLOW! «, t00=0x003a, t01=0x001c}
0x05ad0…05af2 Head {h00=0x001e, h01=0x0050, text=» SUK A7,2 NEXT TABBE ENTRY«, t00=0x003a, t01=0x0042}
0x05af2…05b18 Head {h00=0x0022, h01=0x0050, text=» STR A5,A7 STORE PAGE ADDRESS «, t00=0x003a, t01=0x0064}
0x05b18…05b2c Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003a, t01=0x008a}
0x05b2c…05b52 Head {h00=0x0022, h01=0x0050, text=» SUR A4,A2 MODIFY DISPLACEMENT«, t00=0x003a, t01=0x009e}
0x05b52…05b72 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x003a, t01=0x00c4}
0x05b72…05b96 Head {h00=0x0020, h01=0x0050, text=» ADR A8,A8 BYTE DISPLACEMENT«, t00=0x003a, t01=0x00e4}
0x05b96…05bd2 Head {h00=0x0038, h01=0x0050, text=» ADKL A8,TTB:MT COMPUTE DISPL. TO APPL. START ENTRY «, t00=0x003a, t01=0x0108}
0x05bd2…05bf6 Head {h00=0x0020, h01=0x0050, text=» ST A8,SCTMMC SAVE IN SYSTAB«, t00=0x003a, t01=0x0144}
0x05bf6…05c20 Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x003a, t01=0x0168}
0x05c20…05c34 (59, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR A8,A2 «, t00=0x003b, t01=0x0004}
0x05c34…05c5e Head {h00=0x0026, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS«, t00=0x003b, t01=0x0018}
0x05c5e…05c8e Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA«, t00=0x003b, t01=0x0042}
0x05c8e…05cbe Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A7 GET ADDRESS TO PHYSICAL PAGE«, t00=0x003b, t01=0x0072}
0x05cbe…05ce6 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x003b, t01=0x00a2}
0x05ce6…05d00 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x003b, t01=0x00ca}
0x05d00…05d24 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,0 UPPER LIMIT 64 KB«, t00=0x003b, t01=0x00e4}
0x05d24…05d36 Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x003b, t01=0x0108}
0x05d36…05d4a Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x003b, t01=0x011a}
0x05d4a…05d72 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A7 GET PHYSICAL ADDRESS«, t00=0x003b, t01=0x012e}
0x05d72…05d84 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x003b, t01=0x0156}
0x05d84…05da8 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x003b, t01=0x0168}
0x05da8…05dd4 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x003b, t01=0x018c}
0x05dd4…05e00 Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x003c, t01=0x0028}
0x05e00…05e1c Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x003c, t01=0x0054}
0x05e1c…05e2e Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x003c, t01=0x0070}
0x05e2e…05e40 Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x003c, t01=0x0082}
0x05e40…05e58 Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x003c, t01=0x0094}
0x05e58…05e74 Head {h00=0x0018, h01=0x0050, text=»AP3534 RF(G) AP:354 «, t00=0x003c, t01=0x00ac}
0x05e74…05e8a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003c, t01=0x00c8}
0x05e8a…05eae Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW «, t00=0x003c, t01=0x00de}
0x05eae…05ec2 Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x003c, t01=0x0102}
0x05ec2…05ee0 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE01,A13 SAVE«, t00=0x003c, t01=0x0116}
0x05ee0…05f12 Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x003c, t01=0x0134}
0x05f12…05f36 Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x003c, t01=0x0166}
0x05f36…05f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x018a}
0x05f40…05f7e (61, 0, 398) Head {h00=0x003a, h01=0x0050, text=»* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x003d, t01=0x0004}
0x05f7e…05f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0042}
0x05f88…05fb0 Head {h00=0x0024, h01=0x0050, text=»* A8 - APPLICATION LOAD ADDRESS«, t00=0x003d, t01=0x004c}
0x05fb0…05fde Head {h00=0x002a, h01=0x0050, text=»* A10 - LENGTH OF CORE RESIDENT PART «, t00=0x003d, t01=0x0074}
0x05fde…05fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a2}
0x05fe8…05ffc Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x003d, t01=0x00ac}
0x05ffc…06026 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/FFFF END OF FREE AREA =2«, t00=0x003d, t01=0x00c0}
0x06026…06044 Head {h00=0x001a, h01=0x0050, text=» ST A1,SCTEFA STORE =2«, t00=0x003d, t01=0x00ea}
0x06044…06052 Head {h00=0x000a, h01=0x0050, text=» =2 «, t00=0x003d, t01=0x0108}
0x06052…06068 Head {h00=0x0012, h01=0x0050, text=» ST A8,SCTLAC «, t00=0x003d, t01=0x0116}
0x06068…06096 Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x003d, t01=0x012c}
0x06096…060d2 Head {h00=0x0038, h01=0x0050, text=» LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE «, t00=0x003d, t01=0x015a}
0x060d2…060dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x060dc…06106 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF ASSEMBLER APPLICATION «, t00=0x003e, t01=0x0012}
0x06106…06110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x003c}
0x06110…06136 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x003e, t01=0x0046}
0x06136…06162 Head {h00=0x0028, h01=0x0050, text=» ABL(N) CONLOD ASSEMBLER APPLICATION«, t00=0x003e, t01=0x006c}
0x06162…06192 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE29,A13 GET NUMBER OF SEGMENTS«, t00=0x003e, t01=0x0098}
0x06192…061c2 Head {h00=0x002c, h01=0x0050, text=» CM SAVE06,A13 CLEAR SEGMENT COUNTER =2 «, t00=0x003e, t01=0x00c8}
0x061c2…061f4 Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONLOD NO SEGMENTS IN APPLICATION «, t00=0x003e, t01=0x00f8}
0x061f4…06214 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x003e, t01=0x012a}
0x06214…0622e Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:360 NO! «, t00=0x003e, t01=0x014a}
0x0622e…06260 Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x003e, t01=0x0164}
0x06260…06274 Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x003f, t01=0x0008}
0x06274…0627e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x001c}
0x0627e…062a8 Head {h00=0x0026, h01=0x0050, text=»* READ AND RELOCATE THE SEGMENTS «, t00=0x003f, t01=0x0026}
0x062a8…062b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0050}
0x062b2…062e4 Head {h00=0x002e, h01=0x0050, text=»* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x003f, t01=0x005a}
0x062e4…06304 Head {h00=0x001c, h01=0x0050, text=»* A10 - SEGMENT LENGTH «, t00=0x003f, t01=0x008c}
0x06304…0630e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ac}
0x0630e…06346 Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION«, t00=0x003f, t01=0x00b6}
0x06346…06364 Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x003f, t01=0x00ee}
0x06364…06392 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x003f, t01=0x010c}
0x06392…063a6 Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x003f, t01=0x013a}
0x063a6…063bc Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x003f, t01=0x014e}
0x063bc…063de Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x003f, t01=0x0164}
0x063de…06408 Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x003f, t01=0x0186}
0x06408…0641a Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x0040, t01=0x0020}
0x0641a…0642e Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x0040, t01=0x0032}
0x0642e…06438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0046}
0x06438…06458 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF DISC PAGING «, t00=0x0040, t01=0x0050}
0x06458…06462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0070}
0x06462…06488 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0040, t01=0x007a}
0x06488…064a6 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0040, t01=0x00a0}
0x064a6…064c0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x0040, t01=0x00be}
0x064c0…064ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d8}
0x064ca…064f4 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF CORE RESIDENT SEGMENT «, t00=0x0040, t01=0x00e2}
0x064f4…064fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x010c}
0x064fe…06524 Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x0040, t01=0x0116}
0x06524…0655a Head {h00=0x0032, h01=0x0050, text=»* LDR A12,A1 GET MOST SIGNIFICANT PART =REL 11«, t00=0x0040, t01=0x013c}
0x0655a…06588 Head {h00=0x002a, h01=0x0050, text=»* ANKL A12,/FF OF DISC ADDRESS =REL 11«, t00=0x0040, t01=0x0172}
0x06588…065b8 Head {h00=0x002c, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE =1 «, t00=0x0041, t01=0x0010}
0x065b8…065e4 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x0041, t01=0x0040}
0x065e4…06612 Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x0041, t01=0x006c}
0x06612…0661c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009a}
0x0661c…0664a Head {h00=0x002a, h01=0x0050, text=»* BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x0041, t01=0x00a4}
0x0664a…06654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d2}
0x06654…06682 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x0041, t01=0x00dc}
0x06682…066b8 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE29,A13 GET TOTAL NUMBER OF SEGMENTS«, t00=0x0041, t01=0x010a}
0x066b8…066d4 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x0041, t01=0x0140}
0x066d4…066f4 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x0041, t01=0x015c}
0x066f4…06710 Head {h00=0x0018, h01=0x0050, text=» ABL(E) CONLOD YES! «, t00=0x0041, t01=0x017c}
0x06710…06746 Head {h00=0x0032, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE CURRENT SEGMENT NUMBER «, t00=0x0042, t01=0x0008}
0x06746…06758 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0042, t01=0x003e}
0x06758…06782 Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x0042, t01=0x0050}
0x06782…06796 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0042, t01=0x007a}
0x06796…067a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x008e}
0x067a4…067b8 Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x0042, t01=0x009c}
0x067b8…067de Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x0042, t01=0x00b0}
0x067de…0680a Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x0042, t01=0x00d6}
0x0680a…06822 Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x0042, t01=0x0102}
0x06822…0685a Head {h00=0x0034, h01=0x0050, text=» AD A11,SCTADA+2 ADD LEAST SIGN. PART OF A.D.A.?«, t00=0x0042, t01=0x011a}
0x0685a…06882 Head {h00=0x0024, h01=0x0050, text=»* RF(O) AP:377 OVERFLOW =REL 11 «, t00=0x0042, t01=0x0152}
0x06882…068aa Head {h00=0x0024, h01=0x0050, text=»* RF AP:378 NOT OVERFLOW =REL 11«, t00=0x0042, t01=0x017a}
0x068aa…068ec Head {h00=0x003e, h01=0x0050, text=»*AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS =REL 11 «, t00=0x0043, t01=0x0012}
0x068ec…0691c Head {h00=0x002c, h01=0x0050, text=»* ANKL A11,/7FFF RESET OVERFLOW =REL 11 «, t00=0x0043, t01=0x0054}
0x0691c…0695a Head {h00=0x003a, h01=0x0050, text=»*AP:378 AD A12,SCTADA ADD M. S. P. OF A. D. A. =REL 11«, t00=0x0043, t01=0x0084}
0x0695a…06982 Head {h00=0x0024, h01=0x0050, text=»* CWK A12,255 OVERFLOW? =REL 11 «, t00=0x0043, t01=0x00c2}
0x06982…069bc Head {h00=0x0036, h01=0x0050, text=»* RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! =REL 11 «, t00=0x0043, t01=0x00ea}
0x069bc…069dc Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0043, t01=0x0124}
0x069dc…06a04 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0043, t01=0x0144}
0x06a04…06a1c Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0043, t01=0x016c}
0x06a1c…06a30 Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0043, t01=0x0184}
0x06a30…06a58 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0044, t01=0x0008}
0x06a58…06a72 Head {h00=0x0016, h01=0x0050, text=» ST A8,SAVE07,A13 «, t00=0x0044, t01=0x0030}
0x06a72…06a96 Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0044, t01=0x004a}
0x06a96…06ac4 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x0044, t01=0x006e}
0x06ac4…06afa Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE29,A13 GET TOTAL NUMBER OF SEGMENTS«, t00=0x0044, t01=0x009c}
0x06afa…06b26 Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0044, t01=0x00d2}
0x06b26…06b4e Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0044, t01=0x00fe}
0x06b4e…06b68 Head {h00=0x0016, h01=0x0050, text=» RF(E) CONLOD YES!«, t00=0x0044, t01=0x0126}
0x06b68…06b98 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE06,A13 STORE SEGMENT COUNTER «, t00=0x0044, t01=0x0140}
0x06b98…06bbe Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTPSZ GET PAGE LENGTH «, t00=0x0044, t01=0x0170}
0x06bbe…06be4 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0045, t01=0x0008}
0x06be4…06c04 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x0045, t01=0x002e}
0x06c04…06c20 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:379 YES! «, t00=0x0045, t01=0x004e}
0x06c20…06c50 Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0045, t01=0x006a}
0x06c50…06c62 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0045, t01=0x009a}
0x06c62…06c70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00ac}
0x06c70…06c84 Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0045, t01=0x00ba}
0x06c84…06c9c Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0045, t01=0x00ce}
0x06c9c…06cce Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0045, t01=0x00e6}
0x06cce…06cf4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0045, t01=0x0118}
0x06cf4…06d2c Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0045, t01=0x013e}
0x06d2c…06d44 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0045, t01=0x0176}
0x06d44…06d76 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0045, t01=0x018e}
0x06d76…06daa Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0046, t01=0x0030}
0x06daa…06de0 Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0046, t01=0x0064}
0x06de0…06e0e Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0046, t01=0x009a}
0x06e0e…06e22 Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0046, t01=0x00c8}
0x06e22…06e52 Head {h00=0x002c, h01=0x0050, text=» LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE «, t00=0x0046, t01=0x00dc}
0x06e52…06e7a Head {h00=0x0024, h01=0x0050, text=» ANKL A8,/F000 SKIP DISPLACEMENT«, t00=0x0046, t01=0x010c}
0x06e7a…06e92 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0046, t01=0x0134}
0x06e92…06eca Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0046, t01=0x014c}
0x06eca…06ef6 Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0046, t01=0x0184}
0x06ef6…06f14 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0047, t01=0x0020}
0x06f14…06f28 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0047, t01=0x003e}
0x06f28…06f52 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0047, t01=0x0052}
0x06f52…06f66 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0047, t01=0x007c}
0x06f66…06f80 Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0047, t01=0x0090}
0x06f80…06fae Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0047, t01=0x00aa}
0x06fae…06fc2 Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0047, t01=0x00d8}
0x06fc2…06ff2 Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0047, t01=0x00ec}
0x06ff2…07012 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0047, t01=0x011c}
0x07012…07024 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0047, t01=0x013c}
0x07024…0703a Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0047, t01=0x014e}
0x0703a…07064 Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0047, t01=0x0164}
0x07064…07076 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0047, t01=0x018e}
0x07076…07084 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0010}
0x07084…070c6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0048, t01=0x001e}
0x070c6…07108 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0060}
0x07108…0714a Head {h00=0x003e, h01=0x0050, text=»* LOAD CONFIGURATION PART OF SYSLOD *«, t00=0x0048, t01=0x00a2}
0x0714a…0718c Head {h00=0x003e, h01=0x0050, text=»* ================================= *«, t00=0x0048, t01=0x00e4}
0x0718c…071ce Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0126}
0x071ce…07210 Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS *«, t00=0x0048, t01=0x0168}
0x07210…07252 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0049, t01=0x001a}
0x07252…07294 Head {h00=0x003e, h01=0x0050, text=»* EXIT: *«, t00=0x0049, t01=0x005c}
0x07294…072d6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0049, t01=0x009e}
0x072d6…07318 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CASSIN,RDBLK,MOVBUF *«, t00=0x0049, t01=0x00e0}
0x07318…0735a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0122}
0x0735a…0739c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0049, t01=0x0164}
0x0739c…073b0 Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x004a, t01=0x0016}
0x073b0…073de Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x004a, t01=0x002a}
0x073de…07404 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x004a, t01=0x0058}
0x07404…07428 Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x004a, t01=0x007e}
0x07428…07442 Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x004a, t01=0x00a2}
0x07442…0744c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00bc}
0x0744c…07476 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x004a, t01=0x00c6}
0x07476…07480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00f0}
0x07480…07494 Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x004a, t01=0x00fa}
0x07494…074ae Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x004a, t01=0x010e}
0x074ae…074c6 Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x004a, t01=0x0128}
0x074c6…074dc Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x004a, t01=0x0140}
0x074dc…07504 Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x004a, t01=0x0156}
0x07504…0751a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x004a, t01=0x017e}
0x0751a…07536 (75, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x004b, t01=0x0004}
0x07536…07558 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x004b, t01=0x0020}
0x07558…0757e Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x004b, t01=0x0042}
0x0757e…075aa Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE08,A13 SAVE END OF BUFFER«, t00=0x004b, t01=0x0068}
0x075aa…075c8 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE«, t00=0x004b, t01=0x0094}
0x075c8…075ec Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x004b, t01=0x00b2}
0x075ec…07612 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x004b, t01=0x00d6}
0x07612…07624 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x004b, t01=0x00fc}
0x07624…0764a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x004b, t01=0x010e}
0x0764a…07666 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x004b, t01=0x0134}
0x07666…07680 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x004b, t01=0x0150}
0x07680…076b2 Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x004b, t01=0x016a}
0x076b2…076c6 Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x004c, t01=0x000c}
0x076c6…076d8 Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x004c, t01=0x0020}
0x076d8…076ec Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x004c, t01=0x0032}
0x076ec…076f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0046}
0x076f6…07738 Head {h00=0x003e, h01=0x0050, text=»* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x004c, t01=0x0050}
0x07738…07742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0092}
0x07742…07768 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x004c, t01=0x009c}
0x07768…0778c Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x004c, t01=0x00c2}
0x0778c…077a6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x004c, t01=0x00e6}
0x077a6…077b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x004c, t01=0x0100}
0x077b8…077e6 Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x004c, t01=0x0112}
0x077e6…0780c Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x004c, t01=0x0140}
0x0780c…0781e Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x004c, t01=0x0166}
0x0781e…07832 Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x004c, t01=0x0178}
0x07832…07844 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x004c, t01=0x018c}
0x07844…0786a Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x004d, t01=0x000e}
0x0786a…0787e Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x004d, t01=0x0034}
0x0787e…07892 Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x004d, t01=0x0048}
0x07892…0789e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x005c}
0x0789e…078b4 Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x004d, t01=0x0068}
0x078b4…078c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x007e}
0x078c2…078d6 Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x004d, t01=0x008c}
0x078d6…078e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00a0}
0x078e0…0791a Head {h00=0x0036, h01=0x0050, text=»* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x004d, t01=0x00aa}
0x0791a…07924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00e4}
0x07924…07952 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x004d, t01=0x00ee}
0x07952…07978 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x004d, t01=0x011c}
0x07978…079a0 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x004d, t01=0x0142}
0x079a0…079cc Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE08,A13 SAVE END OF BUFFER«, t00=0x004d, t01=0x016a}
0x079cc…079f2 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x004e, t01=0x0008}
0x079f2…07a1c Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x004e, t01=0x002e}
0x07a1c…07a3e Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE =2 «, t00=0x004e, t01=0x0058}
0x07a3e…07a66 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x004e, t01=0x007a}
0x07a66…07a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a2}
0x07a70…07aa4 Head {h00=0x0030, h01=0x0050, text=»* READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x004e, t01=0x00ac}
0x07aa4…07aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e0}
0x07aae…07ace Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x004e, t01=0x00ea}
0x07ace…07ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010a}
0x07ad8…07b0c Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x004e, t01=0x0114}
0x07b0c…07b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0148}
0x07b16…07b2c Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x004e, t01=0x0152}
0x07b2c…07b40 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x004e, t01=0x0168}
0x07b40…07b50 Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x004e, t01=0x017c}
0x07b50…07b64 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x004e, t01=0x018c}
0x07b64…07b76 Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x004f, t01=0x0010}
0x07b76…07b88 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x004f, t01=0x0022}
0x07b88…07b98 Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x004f, t01=0x0034}
0x07b98…07bac Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x004f, t01=0x0044}
0x07bac…07bbe Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x004f, t01=0x0058}
0x07bbe…07bd0 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x004f, t01=0x006a}
0x07bd0…07be0 Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x004f, t01=0x007c}
0x07be0…07bf4 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x004f, t01=0x008c}
0x07bf4…07c06 Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x004f, t01=0x00a0}
0x07c06…07c18 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x004f, t01=0x00b2}
0x07c18…07c2a Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x004f, t01=0x00c4}
0x07c2a…07c44 Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x004f, t01=0x00d6}
0x07c44…07c56 Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x004f, t01=0x00f0}
0x07c56…07c6a Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x004f, t01=0x0102}
0x07c6a…07cae Head {h00=0x0040, h01=0x0050, text=»TST:30 LD A5,SAVE13,A13 GET NUMBER OF TERMINAL DEV. CLASSES «, t00=0x004f, t01=0x0116}
0x07cae…07cca Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x004f, t01=0x015a}
0x07cca…07ce4 Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x004f, t01=0x0176}
0x07ce4…07cf8 Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x004f, t01=0x0190}
0x07cf8…07d0a Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x0050, t01=0x0014}
0x07d0a…07d1c Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0050, t01=0x0026}
0x07d1c…07d2c Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x0050, t01=0x0038}
0x07d2c…07d40 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0050, t01=0x0048}
0x07d40…07d50 Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x0050, t01=0x005c}
0x07d50…07d62 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0050, t01=0x006c}
0x07d62…07d74 Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x0050, t01=0x007e}
0x07d74…07d88 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0050, t01=0x0090}
0x07d88…07d9a Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x0050, t01=0x00a4}
0x07d9a…07dae Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x0050, t01=0x00b6}
0x07dae…07dc0 Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x0050, t01=0x00ca}
0x07dc0…07dd4 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0050, t01=0x00dc}
0x07dd4…07de8 Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x0050, t01=0x00f0}
0x07de8…07e24 Head {h00=0x0038, h01=0x0050, text=» LD A5,SAVE13,A13 GET NUMBER OF SPECIAL DEV. CLASSES«, t00=0x0050, t01=0x0104}
0x07e24…07e40 Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x0050, t01=0x0140}
0x07e40…07e5a Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x0050, t01=0x015c}
0x07e5a…07e6e Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x0050, t01=0x0176}
0x07e6e…07e80 Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x0050, t01=0x018a}
0x07e80…07e92 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0051, t01=0x000c}
0x07e92…07ea2 Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x0051, t01=0x001e}
0x07ea2…07eb6 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0051, t01=0x002e}
0x07eb6…07ec8 Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x0051, t01=0x0042}
0x07ec8…07edc Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x0051, t01=0x0054}
0x07edc…07efc Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0051, t01=0x0068}
0x07efc…07f24 Head {h00=0x0024, h01=0x0050, text=»TST:70 CCK A5,'TT' BLOCK TYPE T?«, t00=0x0051, t01=0x0088}
0x07f24…07f3e Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x0051, t01=0x00b0}
0x07f3e…07f54 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/570C«, t00=0x0051, t01=0x00ca}
0x07f54…07f82 Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x0051, t01=0x00e0}
0x07f82…07fa6 Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x0051, t01=0x010e}
0x07fa6…07fc0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x0051, t01=0x0132}
0x07fc0…07fd6 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x0051, t01=0x014c}
0x07fd6…07ffc Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x0051, t01=0x0162}
0x07ffc…0800c Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x0051, t01=0x0188}
0x0800c…0801e Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x0052, t01=0x0008}
0x0801e…08032 Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x0052, t01=0x001a}
0x08032…0805c Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0052, t01=0x002e}
0x0805c…0807c Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0052, t01=0x0058}
0x0807c…0809e Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x0052, t01=0x0078}
0x0809e…080ba Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0052, t01=0x009a}
0x080ba…080ce Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x0052, t01=0x00b6}
0x080ce…080e2 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0052, t01=0x00ca}
0x080e2…080f4 Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0052, t01=0x00de}
0x080f4…08108 Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0052, t01=0x00f0}
0x08108…0811c Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0052, t01=0x0104}
0x0811c…08146 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0052, t01=0x0118}
0x08146…08170 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0052, t01=0x0142}
0x08170…08186 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0052, t01=0x016c}
0x08186…08190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0182}
0x08190…081b0 Head {h00=0x001c, h01=0x0050, text=»* UNLOCK FLEXIBLE DISC «, t00=0x0052, t01=0x018c}
0x081b0…081ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x001c}
0x081ba…081e0 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTIPL GET LOAD DEVICE «, t00=0x0053, t01=0x0026}
0x081e0…081fe Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0053, t01=0x004c}
0x081fe…08226 Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0053, t01=0x006a}
0x08226…08232 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0092}
0x08232…0824e Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0053, t01=0x009e}
0x0824e…08274 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0053, t01=0x00ba}
0x08274…08292 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0053, t01=0x00e0}
0x08292…082ba Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES; DON'T UNLOCK«, t00=0x0053, t01=0x00fe}
0x082ba…082da Head {h00=0x001c, h01=0x0050, text=» LDK A1,/C UNLOCK ORDER «, t00=0x0053, t01=0x0126}
0x082da…082fc Head {h00=0x001e, h01=0x0050, text=» EX FRD:10 EXECUTE COMMAND«, t00=0x0053, t01=0x0146}
0x082fc…08324 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0053, t01=0x0168}
0x08324…08344 Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x0053, t01=0x0190}
0x08344…0836c Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0054, t01=0x0020}
0x0836c…08378 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0048}
0x08378…0838e Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0054, t01=0x0054}
0x0838e…083a2 Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0054, t01=0x006a}
0x083a2…083b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x007e}
0x083b0…083c4 Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0054, t01=0x008c}
0x083c4…083ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00a0}
0x083ce…08406 Head {h00=0x0034, h01=0x0050, text=»* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0054, t01=0x00aa}
0x08406…08410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00e2}
0x08410…08436 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x0054, t01=0x00ec}
0x08436…08462 Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x0054, t01=0x0112}
0x08462…084a0 Head {h00=0x003a, h01=0x0050, text=»CMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA «, t00=0x0054, t01=0x013e}
0x084a0…084d0 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE01,A13 GET END OF SYSTEM AREA«, t00=0x0054, t01=0x017c}
0x084d0…084fe Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0055, t01=0x001c}
0x084fe…08524 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0055, t01=0x004a}
0x08524…08554 Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0055, t01=0x0070}
0x08554…0855c Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00a0}
0x0855c…0857a Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0055, t01=0x00a8}
0x0857a…08584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c6}
0x08584…085ac Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0055, t01=0x00d0}
0x085ac…085be Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0055, t01=0x00f8}
0x085be…085f8 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA«, t00=0x0055, t01=0x010a}
0x085f8…08622 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0055, t01=0x0144}
0x08622…08646 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0055, t01=0x016e}
0x08646…0866e (86, 0, 400) Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0056, t01=0x0004}
0x0866e…086a0 Head {h00=0x002e, h01=0x0050, text=» ST A12,M:REL,A13 SAVE RELOCATION CONSTANT«, t00=0x0056, t01=0x002c}
0x086a0…086cc Head {h00=0x0028, h01=0x0050, text=» LD A2,SAVE01,A13 GET START OF CONFF«, t00=0x0056, t01=0x005e}
0x086cc…086d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x008a}
0x086d6…08716 Head {h00=0x003c, h01=0x0050, text=»* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0056, t01=0x0094}
0x08716…08720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00d4}
0x08720…08736 Head {h00=0x0012, h01=0x0050, text=»MOPRO SUK A1,2«, t00=0x0056, t01=0x00de}
0x08736…08748 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0056, t01=0x00f4}
0x08748…0875c Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0056, t01=0x0106}
0x0875c…0876e Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0056, t01=0x011a}
0x0876e…08782 Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x0056, t01=0x012c}
0x08782…08798 Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x0056, t01=0x0140}
0x08798…087c6 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 SAVE NEW LOCATION OF SYSLDA«, t00=0x0056, t01=0x0156}
0x087c6…087ec Head {h00=0x0022, h01=0x0050, text=» AD A2,LDALEN,A2 BYPASS SYSLDA«, t00=0x0056, t01=0x0184}
0x087ec…08818 Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x0057, t01=0x001a}
0x08818…08826 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0046}
0x08826…0886e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0057, t01=0x0054}
0x0886e…088b6 Head {h00=0x0044, h01=0x0050, text=»* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x0057, t01=0x009c}
0x088b6…088fe Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0057, t01=0x00e4}
0x088fe…0890c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x012c}
0x0890c…08920 Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x0057, t01=0x013a}
0x08920…0892a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x014e}
0x0892a…08960 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x0057, t01=0x0158}
0x08960…0896a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x018e}
0x0896a…089a2 Head {h00=0x0034, h01=0x0050, text=» LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER «, t00=0x0058, t01=0x0008}
0x089a2…089ba Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0058, t01=0x0040}
0x089ba…089e4 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x0058, t01=0x0058}
0x089e4…08a06 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x0058, t01=0x0082}
0x08a06…08a1a Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x0058, t01=0x00a4}
0x08a1a…08a3a Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0058, t01=0x00b8}
0x08a3a…08a5e Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0058, t01=0x00d8}
0x08a5e…08a78 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x0058, t01=0x00fc}
0x08a78…08a8c Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x0058, t01=0x0116}
0x08a8c…08aba Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x0058, t01=0x012a}
0x08aba…08ad0 Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x0058, t01=0x0158}
0x08ad0…08aea Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x0058, t01=0x016e}
0x08aea…08b14 Head {h00=0x0026, h01=0x0050, text=» CW A1,SAVE01,A13 MEMORY OVERFLOW?«, t00=0x0058, t01=0x0188}
0x08b14…08b2e Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x0059, t01=0x0022}
0x08b2e…08b58 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x0059, t01=0x003c}
0x08b58…08b86 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x0059, t01=0x0066}
0x08b86…08bb0 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x0059, t01=0x0094}
0x08bb0…08bc8 Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x0059, t01=0x00be}
0x08bc8…08bdc Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x0059, t01=0x00d6}
0x08bdc…08c02 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x0059, t01=0x00ea}
0x08c02…08c26 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x0059, t01=0x0110}
0x08c26…08c40 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x0059, t01=0x0134}
0x08c40…08c6e Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x0059, t01=0x014e}
0x08c6e…08ca6 Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x0059, t01=0x017c}
0x08ca6…08cba Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x005a, t01=0x0024}
0x08cba…08cec Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CURRENT DESTINATION«, t00=0x005a, t01=0x0038}
0x08cec…08d0e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x005a, t01=0x006a}
0x08d0e…08d20 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x005a, t01=0x008c}
0x08d20…08d34 Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x005a, t01=0x009e}
0x08d34…08d60 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x005a, t01=0x00b2}
0x08d60…08d86 Head {h00=0x0022, h01=0x0050, text=» CW A10,SAVE20,A13 LAST RECORD«, t00=0x005a, t01=0x00de}
0x08d86…08da0 Head {h00=0x0016, h01=0x0050, text=» RB(E) COR:50 YES!«, t00=0x005a, t01=0x0104}
0x08da0…08dd2 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x005a, t01=0x011e}
0x08dd2…08dfa Head {h00=0x0024, h01=0x0050, text=» CW A8,SAVE08,A13 END OF BUFFER «, t00=0x005a, t01=0x0150}
0x08dfa…08e14 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x005a, t01=0x0178}
0x08e14…08e34 (91, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x005b, t01=0x0004}
0x08e34…08e5c Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x005b, t01=0x0024}
0x08e5c…08e6c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x004c}
0x08e6c…08e78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x005c}
0x08e78…08e92 Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x005b, t01=0x0068}
0x08e92…08ea6 Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x005b, t01=0x0082}
0x08ea6…08ecc Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x005b, t01=0x0096}
0x08ecc…08ee8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x005b, t01=0x00bc}
0x08ee8…08f04 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x005b, t01=0x00d8}
0x08f04…08f16 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x005b, t01=0x00f4}
0x08f16…08f3c Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x005b, t01=0x0106}
0x08f3c…08f4c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x012c}
0x08f4c…08f58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x013c}
0x08f58…08f6e Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x005b, t01=0x0148}
0x08f6e…08f82 Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x005b, t01=0x015e}
0x08f82…08fb0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x005b, t01=0x0172}
0x08fb0…08fc4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005c, t01=0x0010}
0x08fc4…08fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0024}
0x08fd2…08fe6 Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x005c, t01=0x0032}
0x08fe6…09008 Head {h00=0x001e, h01=0x0050, text=» CF A14,READS READ SECTOR «, t00=0x005c, t01=0x0046}
0x09008…0901e Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x005c, t01=0x0068}
0x0901e…09030 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x005c, t01=0x007e}
0x09030…09056 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x005c, t01=0x0090}
0x09056…09066 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x00b6}
0x09066…09076 Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x005c, t01=0x00c6}
0x09076…09096 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x005c, t01=0x00d6}
0x09096…090b8 Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x005c, t01=0x00f6}
0x090b8…090cc Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x005c, t01=0x0118}
0x090cc…090e2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x005c, t01=0x012c}
0x090e2…0910c Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x005c, t01=0x0142}
0x0910c…09132 Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x005c, t01=0x016c}
0x09132…09156 (93, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x005d, t01=0x0004}
0x09156…09170 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x005d, t01=0x0028}
0x09170…09180 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0042}
0x09180…0918e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0052}
0x0918e…091a0 Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x005d, t01=0x0060}
0x091a0…091b2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x005d, t01=0x0072}
0x091b2…091c4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x005d, t01=0x0084}
0x091c4…091d6 Head {h00=0x000e, h01=0x0050, text=» RF NN:10 «, t00=0x005d, t01=0x0096}
0x091d6…091e6 Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x005d, t01=0x00a8}
0x091e6…091f8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x005d, t01=0x00b8}
0x091f8…0920a Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x005d, t01=0x00ca}
0x0920a…0921c Head {h00=0x000e, h01=0x0050, text=» RF NN:10 «, t00=0x005d, t01=0x00dc}
0x0921c…0922e Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x005d, t01=0x00ee}
0x0922e…09240 Head {h00=0x000e, h01=0x0050, text=» LDK A3,4 «, t00=0x005d, t01=0x0100}
0x09240…09254 Head {h00=0x0010, h01=0x0050, text=»NN:10 EQU * «, t00=0x005d, t01=0x0112}
0x09254…09274 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x005d, t01=0x0126}
0x09274…0929e Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x005d, t01=0x0146}
0x0929e…092ca Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER > 9?«, t00=0x005d, t01=0x0170}
0x092ca…092e4 Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x005e, t01=0x000c}
0x092e4…092f6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005e, t01=0x0026}
0x092f6…0930a Head {h00=0x0010, h01=0x0050, text=» RF(Z) NN:20«, t00=0x005e, t01=0x0038}
0x0930a…09336 Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER < 0?«, t00=0x005e, t01=0x004c}
0x09336…09350 Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x005e, t01=0x0078}
0x09350…09364 Head {h00=0x0010, h01=0x0050, text=» RF(Z) NN:15«, t00=0x005e, t01=0x0092}
0x09364…0937a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3030«, t00=0x005e, t01=0x00a6}
0x0937a…0938c Head {h00=0x000e, h01=0x0050, text=» RF NN:16 «, t00=0x005e, t01=0x00bc}
0x0938c…093a8 Head {h00=0x0018, h01=0x0050, text=»NN:15 LDKL A1,/3131 «, t00=0x005e, t01=0x00ce}
0x093a8…093ca Head {h00=0x001e, h01=0x0050, text=»NN:16 ST A1,NN:20+2 MODIFY«, t00=0x005e, t01=0x00ea}
0x093ca…093dc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005e, t01=0x010c}
0x093dc…093f0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) NN:30«, t00=0x005e, t01=0x011e}
0x093f0…09402 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x005e, t01=0x0132}
0x09402…09414 Head {h00=0x000e, h01=0x0050, text=» RB NN:10 «, t00=0x005e, t01=0x0144}
0x09414…09428 Head {h00=0x0010, h01=0x0050, text=»NN:20 EQU * «, t00=0x005e, t01=0x0156}
0x09428…09454 Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3131 NUMERIC CHARACTER < 1?«, t00=0x005e, t01=0x016a}
0x09454…0946e Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x005f, t01=0x0008}
0x0946e…09480 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005f, t01=0x0022}
0x09480…09496 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) NN:50 «, t00=0x005f, t01=0x0034}
0x09496…094bc Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x005f, t01=0x004a}
0x094bc…094d8 Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x005f, t01=0x0070}
0x094d8…094f2 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x005f, t01=0x008c}
0x094f2…0950e Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x005f, t01=0x00a6}
0x0950e…09528 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x005f, t01=0x00c2}
0x09528…09544 Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x005f, t01=0x00dc}
0x09544…0955e Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x005f, t01=0x00f8}
0x0955e…0957a Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x005f, t01=0x0112}
0x0957a…09594 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x005f, t01=0x012e}
0x09594…095a6 Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x005f, t01=0x0148}
0x095a6…095ba Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x005f, t01=0x015a}
0x095ba…095e4 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x005f, t01=0x016e}
0x095e4…095f6 Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0060, t01=0x0008}
0x095f6…0960a Head {h00=0x0010, h01=0x0050, text=»NN:30 EQU * «, t00=0x0060, t01=0x001a}
0x0960a…0963c Head {h00=0x002e, h01=0x0050, text=» ST A5,SAVE13,A13 STORE NUMBER OF CLASSES «, t00=0x0060, t01=0x002e}
0x0963c…09662 Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0060, t01=0x0060}
0x09662…09686 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0060, t01=0x0086}
0x09686…096a0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0060, t01=0x00aa}
0x096a0…096b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00c4}
0x096b0…096be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x00d4}
0x096be…096ce Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0060, t01=0x00e2}
0x096ce…096e0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0060, t01=0x00f2}
0x096e0…096f4 Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0060, t01=0x0104}
0x096f4…09714 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0060, t01=0x0118}
0x09714…09746 Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0060, t01=0x0138}
0x09746…09760 Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0060, t01=0x016a}
0x09760…09794 Head {h00=0x0030, h01=0x0050, text=» CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0060, t01=0x0184}
0x09794…097ae Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0061, t01=0x0028}
0x097ae…097e2 Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0061, t01=0x0042}
0x097e2…097f8 Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0061, t01=0x0076}
0x097f8…0982c Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0061, t01=0x008c}
0x0982c…09842 Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0061, t01=0x00c0}
0x09842…09856 Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0061, t01=0x00d6}
0x09856…09880 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0061, t01=0x00ea}
0x09880…09892 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0061, t01=0x0114}
0x09892…098a8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0061, t01=0x0126}
0x098a8…098ce Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0061, t01=0x013c}
0x098ce…098f2 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0061, t01=0x0162}
0x098f2…0990c Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0061, t01=0x0186}
0x0990c…0991c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0010}
0x0991c…0992a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0020}
0x0992a…0993c Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0062, t01=0x002e}
0x0993c…09962 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0062, t01=0x0040}
0x09962…0998c Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0062, t01=0x0066}
0x0998c…0999c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0090}
0x0999c…099ae Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0062, t01=0x00a0}
0x099ae…099d4 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0062, t01=0x00b2}
0x099d4…099fe Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0062, t01=0x00d8}
0x099fe…09a0e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0102}
0x09a0e…09a20 Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0062, t01=0x0112}
0x09a20…09a46 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0062, t01=0x0124}
0x09a46…09a70 Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0062, t01=0x014a}
0x09a70…09a80 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0174}
0x09a80…09a8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0184}
0x09a8e…09aa0 (99, 0, 400) Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x0063, t01=0x0004}
0x09aa0…09ac6 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x0063, t01=0x0016}
0x09ac6…09af0 Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0063, t01=0x003c}
0x09af0…09b00 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x0066}
0x09b00…09b10 Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x0063, t01=0x0076}
0x09b10…09b36 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x0063, t01=0x0086}
0x09b36…09b60 Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x0063, t01=0x00ac}
0x09b60…09b70 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x00d6}
0x09b70…09b82 Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x0063, t01=0x00e6}
0x09b82…09ba8 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x0063, t01=0x00f8}
0x09ba8…09bd2 Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0063, t01=0x011e}
0x09bd2…09be2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x0148}
0x09be2…09bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0158}
0x09bf0…09c02 Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0063, t01=0x0166}
0x09c02…09c22 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0063, t01=0x0178}
0x09c22…09c34 Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0064, t01=0x0008}
0x09c34…09c4a Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x0064, t01=0x001a}
0x09c4a…09c74 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0064, t01=0x0030}
0x09c74…09ca0 Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x0064, t01=0x005a}
0x09ca0…09cd2 Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x0064, t01=0x0086}
0x09cd2…09cec Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x0064, t01=0x00b8}
0x09cec…09cfc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x00d2}
0x09cfc…09d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x00e2}
0x09d0a…09d1e Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x0064, t01=0x00f0}
0x09d1e…09d54 Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x0064, t01=0x0104}
0x09d54…09d70 Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x0064, t01=0x013a}
0x09d70…09d88 Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x0064, t01=0x0156}
0x09d88…09da0 Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x0064, t01=0x016e}
0x09da0…09dd2 Head {h00=0x002e, h01=0x0050, text=» ST A5,SAVE13,A13 STORE NUMBER OF CLASSES «, t00=0x0064, t01=0x0186}
0x09dd2…09de2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0028}
0x09de2…09df6 Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x0065, t01=0x0038}
0x09df6…09e22 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0065, t01=0x004c}
0x09e22…09e36 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0065, t01=0x0078}
0x09e36…09e44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x008c}
0x09e44…09e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009a}
0x09e4e…09e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a4}
0x09e58…09e92 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0065, t01=0x00ae}
0x09e92…09ecc Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0065, t01=0x00e8}
0x09ecc…09f06 Head {h00=0x0036, h01=0x0050, text=»* SEQUENCES *«, t00=0x0065, t01=0x0122}
0x09f06…09f40 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0065, t01=0x015c}
0x09f40…09f7a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0066, t01=0x0008}
0x09f7a…09f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0042}
0x09f84…09f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x004c}
0x09f8e…09f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0056}
0x09f98…09fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0060}
0x09fa2…09fba Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x0066, t01=0x006a}
0x09fba…09fcc Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x0066, t01=0x0082}
0x09fcc…09fde Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x0066, t01=0x0094}
0x09fde…09ff6 Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x0066, t01=0x00a6}
0x09ff6…0a008 Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x0066, t01=0x00be}
0x0a008…0a01a Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x0066, t01=0x00d0}
0x0a01a…0a032 Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x0066, t01=0x00e2}
0x0a032…0a044 Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x0066, t01=0x00fa}
0x0a044…0a056 Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x0066, t01=0x010c}
0x0a056…0a06e Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x0066, t01=0x011e}
0x0a06e…0a080 Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x0066, t01=0x0136}
0x0a080…0a092 Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x0066, t01=0x0148}
0x0a092…0a0a4 Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x0066, t01=0x015a}
0x0a0a4…0a0ba Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x0066, t01=0x016c}
0x0a0ba…0a0cc Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x0066, t01=0x0182}
0x0a0cc…0a0de (103, 0, 398) Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x0067, t01=0x0004}
0x0a0de…0a0f6 Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x0067, t01=0x0016}
0x0a0f6…0a108 Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x0067, t01=0x002e}
0x0a108…0a11a Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x0067, t01=0x0040}
0x0a11a…0a12c Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x0067, t01=0x0052}
0x0a12c…0a138 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0064}
0x0a138…0a152 Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x0067, t01=0x0070}
0x0a152…0a15c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x008a}
0x0a15c…0a186 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0067, t01=0x0094}
0x0a186…0a190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00be}
0x0a190…0a1a4 Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x0067, t01=0x00c8}
0x0a1a4…0a1c6 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x0067, t01=0x00dc}
0x0a1c6…0a1ec Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x0067, t01=0x00fe}
0x0a1ec…0a218 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE08,A13 SAVE END OF BUFFER«, t00=0x0067, t01=0x0124}
0x0a218…0a236 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE«, t00=0x0067, t01=0x0150}
0x0a236…0a25a Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x0067, t01=0x016e}
0x0a25a…0a280 (104, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0068, t01=0x0004}
0x0a280…0a29c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0068, t01=0x002a}
0x0a29c…0a2b6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x0068, t01=0x0046}
0x0a2b6…0a2e8 Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x0068, t01=0x0060}
0x0a2e8…0a2fc Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x0068, t01=0x0092}
0x0a2fc…0a322 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0068, t01=0x00a6}
0x0a322…0a33e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0068, t01=0x00cc}
0x0a33e…0a358 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x0068, t01=0x00e8}
0x0a358…0a36c Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x0068, t01=0x0102}
0x0a36c…0a376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0116}
0x0a376…0a3ac Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x0068, t01=0x0120}
0x0a3ac…0a3b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0156}
0x0a3b6…0a3ee Head {h00=0x0034, h01=0x0050, text=» LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER «, t00=0x0068, t01=0x0160}
0x0a3ee…0a406 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0069, t01=0x0008}
0x0a406…0a430 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x0069, t01=0x0020}
0x0a430…0a458 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A9 GET SAVE09 OF BUFFER «, t00=0x0069, t01=0x004a}
0x0a458…0a46c Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x0069, t01=0x0072}
0x0a46c…0a496 Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x0069, t01=0x0086}
0x0a496…0a4ba Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x0069, t01=0x00b0}
0x0a4ba…0a4e4 Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x0069, t01=0x00d4}
0x0a4e4…0a4f8 Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x0069, t01=0x00fe}
0x0a4f8…0a51c Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x0069, t01=0x0112}
0x0a51c…0a536 Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x0069, t01=0x0136}
0x0a536…0a560 Head {h00=0x0026, h01=0x0050, text=» CW A1,SAVE01,A13 MEMORY OVERFLOW?«, t00=0x0069, t01=0x0150}
0x0a560…0a57a Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x0069, t01=0x017a}
0x0a57a…0a5aa (106, 0, 398) Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x006a, t01=0x0004}
0x0a5aa…0a5d8 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x006a, t01=0x0034}
0x0a5d8…0a602 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x006a, t01=0x0062}
0x0a602…0a614 Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x006a, t01=0x008c}
0x0a614…0a628 Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x006a, t01=0x009e}
0x0a628…0a64e Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x006a, t01=0x00b2}
0x0a64e…0a674 Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x006a, t01=0x00d8}
0x0a674…0a68e Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x006a, t01=0x00fe}
0x0a68e…0a6bc Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x006a, t01=0x0118}
0x0a6bc…0a6f4 Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x006a, t01=0x0146}
0x0a6f4…0a708 Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x006a, t01=0x017e}
0x0a708…0a73a (107, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CURRENT DESTINATION«, t00=0x006b, t01=0x0004}
0x0a73a…0a762 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A9 GET SAVE09 OF BUFFER «, t00=0x006b, t01=0x0036}
0x0a762…0a774 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x006b, t01=0x005e}
0x0a774…0a786 Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x006b, t01=0x0070}
0x0a786…0a79a Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x006b, t01=0x0082}
0x0a79a…0a7a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0096}
0x0a7a4…0a7e6 Head {h00=0x003e, h01=0x0050, text=»* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x006b, t01=0x00a0}
0x0a7e6…0a7f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00e2}
0x0a7f0…0a816 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x006b, t01=0x00ec}
0x0a816…0a83a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x006b, t01=0x0112}
0x0a83a…0a854 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x006b, t01=0x0136}
0x0a854…0a866 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x006b, t01=0x0150}
0x0a866…0a894 Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x006b, t01=0x0162}
0x0a894…0a8ba Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x006b, t01=0x0190}
0x0a8ba…0a8cc Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x006c, t01=0x0026}
0x0a8cc…0a8e0 Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x006c, t01=0x0038}
0x0a8e0…0a8f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x006c, t01=0x004c}
0x0a8f2…0a918 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x006c, t01=0x005e}
0x0a918…0a92c Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x006c, t01=0x0084}
0x0a92c…0a940 Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x006c, t01=0x0098}
0x0a940…0a94c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x00ac}
0x0a94c…0a962 Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x006c, t01=0x00b8}
0x0a962…0a976 Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x006c, t01=0x00ce}
0x0a976…0a9a4 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x006c, t01=0x00e2}
0x0a9a4…0a9b8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x0110}
0x0a9b8…0a9c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0124}
0x0a9c6…0a9da Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x006c, t01=0x0132}
0x0a9da…0a9e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0146}
0x0a9e4…0aa1e Head {h00=0x0036, h01=0x0050, text=»* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x006c, t01=0x0150}
0x0aa1e…0aa28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x018a}
0x0aa28…0aa56 (109, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x006d, t01=0x0004}
0x0aa56…0aa7c Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x006d, t01=0x0032}
0x0aa7c…0aaa4 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x006d, t01=0x0058}
0x0aaa4…0aad0 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE08,A13 SAVE END OF BUFFER«, t00=0x006d, t01=0x0080}
0x0aad0…0aaf6 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x006d, t01=0x00ac}
0x0aaf6…0ab20 Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x006d, t01=0x00d2}
0x0ab20…0ab42 Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE =2 «, t00=0x006d, t01=0x00fc}
0x0ab42…0ab6a Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x006d, t01=0x011e}
0x0ab6a…0ab7e Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x006d, t01=0x0146}
0x0ab7e…0ab88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x015a}
0x0ab88…0abbc Head {h00=0x0030, h01=0x0050, text=»* READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x006d, t01=0x0164}
0x0abbc…0abc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0008}
0x0abc6…0abe8 Head {h00=0x001e, h01=0x0050, text=» CF A14,READS READ SECTOR «, t00=0x006e, t01=0x0012}
0x0abe8…0abfe Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x006e, t01=0x0034}
0x0abfe…0ac24 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x006e, t01=0x004a}
0x0ac24…0ac38 Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x006e, t01=0x0070}
0x0ac38…0ac42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0084}
0x0ac42…0ac78 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x006e, t01=0x008e}
0x0ac78…0ac82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00c4}
0x0ac82…0acba Head {h00=0x0034, h01=0x0050, text=» LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER «, t00=0x006e, t01=0x00ce}
0x0acba…0acd2 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x006e, t01=0x0106}
0x0acd2…0acfc Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x006e, t01=0x011e}
0x0acfc…0ad1e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x006e, t01=0x0148}
0x0ad1e…0ad32 Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x006e, t01=0x016a}
0x0ad32…0ad52 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x006e, t01=0x017e}
0x0ad52…0ad76 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x006f, t01=0x000e}
0x0ad76…0ad90 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x006f, t01=0x0032}
0x0ad90…0ada4 Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x006f, t01=0x004c}
0x0ada4…0add2 Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x006f, t01=0x0060}
0x0add2…0adec Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x006f, t01=0x008e}
0x0adec…0ae16 Head {h00=0x0026, h01=0x0050, text=» CW A1,SAVE01,A13 MEMORY OVERFLOW?«, t00=0x006f, t01=0x00a8}
0x0ae16…0ae30 Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x006f, t01=0x00d2}
0x0ae30…0ae5a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x006f, t01=0x00ec}
0x0ae5a…0ae88 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x006f, t01=0x0116}
0x0ae88…0aeb2 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x006f, t01=0x0144}
0x0aeb2…0aeca Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x006f, t01=0x016e}
0x0aeca…0aede Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x006f, t01=0x0186}
0x0aede…0af04 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x0070, t01=0x000a}
0x0af04…0af28 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x0070, t01=0x0030}
0x0af28…0af42 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x0070, t01=0x0054}
0x0af42…0af70 Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x0070, t01=0x006e}
0x0af70…0afa8 Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x0070, t01=0x009c}
0x0afa8…0afbc Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x0070, t01=0x00d4}
0x0afbc…0afee Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CURRENT DESTINATION«, t00=0x0070, t01=0x00e8}
0x0afee…0b010 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x0070, t01=0x011a}
0x0b010…0b022 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0070, t01=0x013c}
0x0b022…0b04e Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0070, t01=0x014e}
0x0b04e…0b074 Head {h00=0x0022, h01=0x0050, text=» CW A10,SAVE20,A13 LAST RECORD«, t00=0x0070, t01=0x017a}
0x0b074…0b08e Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0071, t01=0x0010}
0x0b08e…0b0c0 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0071, t01=0x002a}
0x0b0c0…0b0e8 Head {h00=0x0024, h01=0x0050, text=» CW A8,SAVE08,A13 END OF BUFFER «, t00=0x0071, t01=0x005c}
0x0b0e8…0b10a Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x0071, t01=0x0084}
0x0b10a…0b128 Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x0071, t01=0x00a6}
0x0b128…0b13c Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0071, t01=0x00c4}
0x0b13c…0b150 Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0071, t01=0x00d8}
0x0b150…0b17a Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0071, t01=0x00ec}
0x0b17a…0b1a4 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0071, t01=0x0116}
0x0b1a4…0b1ba Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0071, t01=0x0140}
0x0b1ba…0b1c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0156}
0x0b1c4…0b1e4 Head {h00=0x001c, h01=0x0050, text=»* UNLOCK FLEXIBLE DISC «, t00=0x0071, t01=0x0160}
0x0b1e4…0b1ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0180}
0x0b1ee…0b214 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTIPL GET LOAD DEVICE «, t00=0x0071, t01=0x018a}
0x0b214…0b232 Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0072, t01=0x0020}
0x0b232…0b25a Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0072, t01=0x003e}
0x0b25a…0b266 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0066}
0x0b266…0b282 Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x0072, t01=0x0072}
0x0b282…0b2a8 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0072, t01=0x008e}
0x0b2a8…0b2c6 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0072, t01=0x00b4}
0x0b2c6…0b2ee Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES; DON'T UNLOCK«, t00=0x0072, t01=0x00d2}
0x0b2ee…0b30e Head {h00=0x001c, h01=0x0050, text=» LDK A1,/C UNLOCK ORDER «, t00=0x0072, t01=0x00fa}
0x0b30e…0b330 Head {h00=0x001e, h01=0x0050, text=» EX FRD:10 EXECUTE COMMAND«, t00=0x0072, t01=0x011a}
0x0b330…0b358 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0072, t01=0x013c}
0x0b358…0b378 Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x0072, t01=0x0164}
0x0b378…0b3a0 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0072, t01=0x0184}
0x0b3a0…0b3ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x001c}
0x0b3ac…0b3c2 Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x0073, t01=0x0028}
0x0b3c2…0b3d6 Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0073, t01=0x003e}
0x0b3d6…0b3e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0052}
0x0b3e4…0b3f8 Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0073, t01=0x0060}
0x0b3f8…0b402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0074}
0x0b402…0b43a Head {h00=0x0034, h01=0x0050, text=»* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0073, t01=0x007e}
0x0b43a…0b444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00b6}
0x0b444…0b46a Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x0073, t01=0x00c0}
0x0b46a…0b496 Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x0073, t01=0x00e6}
0x0b496…0b4d4 Head {h00=0x003a, h01=0x0050, text=»CMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA «, t00=0x0073, t01=0x0112}
0x0b4d4…0b504 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE01,A13 GET END OF SYSTEM AREA«, t00=0x0073, t01=0x0150}
0x0b504…0b532 Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0073, t01=0x0180}
0x0b532…0b558 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0074, t01=0x001e}
0x0b558…0b588 Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0074, t01=0x0044}
0x0b588…0b590 Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x0074}
0x0b590…0b5ae Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0074, t01=0x007c}
0x0b5ae…0b5b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x009a}
0x0b5b8…0b5e0 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0074, t01=0x00a4}
0x0b5e0…0b5f2 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0074, t01=0x00cc}
0x0b5f2…0b62c Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA«, t00=0x0074, t01=0x00de}
0x0b62c…0b656 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0074, t01=0x0118}
0x0b656…0b67a Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0074, t01=0x0142}
0x0b67a…0b6a2 Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0074, t01=0x0166}
0x0b6a2…0b6d4 Head {h00=0x002e, h01=0x0050, text=» ST A12,M:REL,A13 SAVE RELOCATION CONSTANT«, t00=0x0074, t01=0x018e}
0x0b6d4…0b700 Head {h00=0x0028, h01=0x0050, text=» LD A2,SAVE01,A13 GET START OF CONFF«, t00=0x0075, t01=0x0030}
0x0b700…0b70a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x005c}
0x0b70a…0b74a Head {h00=0x003c, h01=0x0050, text=»* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0075, t01=0x0066}
0x0b74a…0b754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a6}
0x0b754…0b76a Head {h00=0x0012, h01=0x0050, text=»MOPRO SUK A1,2«, t00=0x0075, t01=0x00b0}
0x0b76a…0b77c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0075, t01=0x00c6}
0x0b77c…0b790 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0075, t01=0x00d8}
0x0b790…0b7a2 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0075, t01=0x00ec}
0x0b7a2…0b7b6 Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x0075, t01=0x00fe}
0x0b7b6…0b7cc Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x0075, t01=0x0112}
0x0b7cc…0b7fa Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 SAVE NEW LOCATION OF SYSLDA«, t00=0x0075, t01=0x0128}
0x0b7fa…0b820 Head {h00=0x0022, h01=0x0050, text=» AD A2,LDALEN,A2 BYPASS SYSLDA«, t00=0x0075, t01=0x0156}
0x0b820…0b84c Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x0075, t01=0x017c}
0x0b84c…0b858 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0018}
0x0b858…0b866 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0024}
0x0b866…0b8b6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0076, t01=0x0032}
0x0b8b6…0b906 Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x0076, t01=0x0082}
0x0b906…0b956 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0076, t01=0x00d2}
0x0b956…0b97e Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0076, t01=0x0122}
0x0b97e…0b9a6 Head {h00=0x0024, h01=0x0050, text=»* SOPIN - READ SOP SWITCHES * «, t00=0x0076, t01=0x014a}
0x0b9a6…0b9ce Head {h00=0x0024, h01=0x0050, text=»* ========================= * «, t00=0x0076, t01=0x0172}
0x0b9ce…0b9f6 Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x0077, t01=0x000a}
0x0b9f6…0ba1e Head {h00=0x0024, h01=0x0050, text=»* ENTRY: * «, t00=0x0077, t01=0x0032}
0x0ba1e…0ba46 Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x0077, t01=0x005a}
0x0ba46…0ba6e Head {h00=0x0024, h01=0x0050, text=»* EXIT: A1 - SOP INPUT * «, t00=0x0077, t01=0x0082}
0x0ba6e…0ba96 Head {h00=0x0024, h01=0x0050, text=»* BIT 6 - SWITCH 1 * «, t00=0x0077, t01=0x00aa}
0x0ba96…0babe Head {h00=0x0024, h01=0x0050, text=»* BIT 15 - SWITCH 10 * «, t00=0x0077, t01=0x00d2}
0x0babe…0bae6 Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x0077, t01=0x00fa}
0x0bae6…0bb0e Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1 * «, t00=0x0077, t01=0x0122}
0x0bb0e…0bb36 Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x0077, t01=0x014a}
0x0bb36…0bb5e Head {h00=0x0024, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0077, t01=0x0172}
0x0bb5e…0bb86 Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x0078, t01=0x000a}
0x0bb86…0bbae Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0078, t01=0x0032}
0x0bbae…0bbc2 Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x0078, t01=0x005a}
0x0bbc2…0bbd8 Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x0078, t01=0x006e}
0x0bbd8…0bbee Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x0078, t01=0x0084}
0x0bbee…0bc02 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0078, t01=0x009a}
0x0bc02…0bc12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x00ae}
0x0bc12…0bc26 Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x0078, t01=0x00be}
0x0bc26…0bc34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x00d2}
0x0bc34…0bc74 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0078, t01=0x00e0}
0x0bc74…0bcb4 Head {h00=0x003c, h01=0x0050, text=»* CASSIN - CASSETTE INITIATING ROUTINE * «, t00=0x0078, t01=0x0120}
0x0bcb4…0bcf4 Head {h00=0x003c, h01=0x0050, text=»* ==================================== * «, t00=0x0078, t01=0x0160}
0x0bcf4…0bd34 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0010}
0x0bd34…0bd74 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLOD -LOADING PART- * «, t00=0x0079, t01=0x0050}
0x0bd74…0bdb4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0090}
0x0bdb4…0bdf4 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: * «, t00=0x0079, t01=0x00d0}
0x0bdf4…0be34 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0110}
0x0be34…0be74 Head {h00=0x003c, h01=0x0050, text=»* EXIT: * «, t00=0x0079, t01=0x0150}
0x0be74…0beb4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0190}
0x0beb4…0bef4 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x007a, t01=0x0040}
0x0bef4…0bf34 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0080}
0x0bf34…0bf74 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: SOPIN,CHCRIO * «, t00=0x007a, t01=0x00c0}
0x0bf74…0bfb4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0100}
0x0bfb4…0bff4 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007a, t01=0x0140}
0x0bff4…0c008 Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x007a, t01=0x0180}
0x0c008…0c01a (123, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x007b, t01=0x0004}
0x0c01a…0c040 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x007b, t01=0x0016}
0x0c040…0c076 Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x007b, t01=0x003c}
0x0c076…0c08c Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x007b, t01=0x0072}
0x0c08c…0c0a0 Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x007b, t01=0x0088}
0x0c0a0…0c0be Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x007b, t01=0x009c}
0x0c0be…0c0e6 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x007b, t01=0x00ba}
0x0c0e6…0c100 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x007b, t01=0x00e2}
0x0c100…0c12a Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x007b, t01=0x00fc}
0x0c12a…0c140 Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x007b, t01=0x0126}
0x0c140…0c15e Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x007b, t01=0x013c}
0x0c15e…0c17c Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x007b, t01=0x015a}
0x0c17c…0c19e Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x007b, t01=0x0178}
0x0c19e…0c1b2 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x007c, t01=0x000a}
0x0c1b2…0c1d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x007c, t01=0x001e}
0x0c1d6…0c1fa Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x007c, t01=0x0042}
0x0c1fa…0c214 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x007c, t01=0x0066}
0x0c214…0c22a Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT «, t00=0x007c, t01=0x0080}
0x0c22a…0c25a Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x007c, t01=0x0096}
0x0c25a…0c26e Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x007c, t01=0x00c6}
0x0c26e…0c29c Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x007c, t01=0x00da}
0x0c29c…0c2ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0108}
0x0c2ac…0c2ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0118}
0x0c2ba…0c2f0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007c, t01=0x0126}
0x0c2f0…0c326 Head {h00=0x0032, h01=0x0050, text=»* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * «, t00=0x007c, t01=0x015c}
0x0c326…0c35c (125, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x007d, t01=0x0004}
0x0c35c…0c392 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007d, t01=0x003a}
0x0c392…0c3c8 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: CASSIN,SYSLOD * «, t00=0x007d, t01=0x0070}
0x0c3c8…0c3fe Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007d, t01=0x00a6}
0x0c3fe…0c434 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A1 - I/O INSTRUCTION COMMAND * «, t00=0x007d, t01=0x00dc}
0x0c434…0c46a Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007d, t01=0x0112}
0x0c46a…0c4a0 Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x007d, t01=0x0148}
0x0c4a0…0c4d6 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007d, t01=0x017e}
0x0c4d6…0c50c Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x007e, t01=0x0024}
0x0c50c…0c542 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007e, t01=0x005a}
0x0c542…0c578 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x007e, t01=0x0090}
0x0c578…0c5ae Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x007e, t01=0x00c6}
0x0c5ae…0c5e4 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x007e, t01=0x00fc}
0x0c5e4…0c5f8 Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x007e, t01=0x0132}
0x0c5f8…0c60e Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x007e, t01=0x0146}
0x0c60e…0c622 Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x007e, t01=0x015c}
0x0c622…0c638 Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x007e, t01=0x0170}
0x0c638…0c648 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0186}
0x0c648…0c656 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0008}
0x0c656…0c690 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007f, t01=0x0016}
0x0c690…0c6ca Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x007f, t01=0x0050}
0x0c6ca…0c704 Head {h00=0x0036, h01=0x0050, text=»* RDBLK - READ ONE CASSETTE BLOCK *«, t00=0x007f, t01=0x008a}
0x0c704…0c73e Head {h00=0x0036, h01=0x0050, text=»* =============================== *«, t00=0x007f, t01=0x00c4}
0x0c73e…0c778 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x007f, t01=0x00fe}
0x0c778…0c7b2 Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: SYSLOD *«, t00=0x007f, t01=0x0138}
0x0c7b2…0c7ec Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x007f, t01=0x0172}
0x0c7ec…0c826 Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A9 - CASSETTE BUFFER POINTER *«, t00=0x0080, t01=0x001c}
0x0c826…0c860 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0056}
0x0c860…0c89a Head {h00=0x0036, h01=0x0050, text=»* EXIT: A2 - NUMBER OF CHARACTERS IN BLOCK *«, t00=0x0080, t01=0x0090}
0x0c89a…0c8d4 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00ca}
0x0c8d4…0c912 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A5 * «, t00=0x0080, t01=0x0104}
0x0c912…0c94c Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0142}
0x0c94c…0c986 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0080, t01=0x017c}
0x0c986…0c9c0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0081, t01=0x0026}
0x0c9c0…0c9d4 Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x0081, t01=0x0060}
0x0c9d4…0c9e6 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0081, t01=0x0074}
0x0c9e6…0c9fa Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x0081, t01=0x0086}
0x0c9fa…0ca1e Head {h00=0x0020, h01=0x0050, text=» LDR A3,A9 SAVE09 OF BUFFER «, t00=0x0081, t01=0x009a}
0x0ca1e…0ca48 Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x0081, t01=0x00be}
0x0ca48…0ca70 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE SAVE09 OF BUFFER«, t00=0x0081, t01=0x00e8}
0x0ca70…0ca94 Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x0081, t01=0x0110}
0x0ca94…0caa6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x0081, t01=0x0134}
0x0caa6…0cac8 Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x0081, t01=0x0146}
0x0cac8…0cade Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x0081, t01=0x0168}
0x0cade…0caf2 Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x0081, t01=0x017e}
0x0caf2…0cb08 (130, 0, 400) Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x0082, t01=0x0004}
0x0cb08…0cb1e Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x0082, t01=0x001a}
0x0cb1e…0cb40 Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x0082, t01=0x0030}
0x0cb40…0cb5a Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x0082, t01=0x0052}
0x0cb5a…0cb7c Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x0082, t01=0x006c}
0x0cb7c…0cbaa Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x0082, t01=0x008e}
0x0cbaa…0cbd4 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0082, t01=0x00bc}
0x0cbd4…0cbe8 Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x0082, t01=0x00e6}
0x0cbe8…0cbfe Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR «, t00=0x0082, t01=0x00fa}
0x0cbfe…0cc14 Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x0082, t01=0x0110}
0x0cc14…0cc38 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x0082, t01=0x0126}
0x0cc38…0cc56 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x0082, t01=0x014a}
0x0cc56…0cc6e Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x0082, t01=0x0168}
0x0cc6e…0cc92 Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x0082, t01=0x0180}
0x0cc92…0ccb6 Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x0083, t01=0x0014}
0x0ccb6…0ccca Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x0083, t01=0x0038}
0x0ccca…0ccd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x004c}
0x0ccd4…0cd14 Head {h00=0x003c, h01=0x0050, text=»* READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x0083, t01=0x0056}
0x0cd14…0cd56 Head {h00=0x003e, h01=0x0050, text=»* THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x0083, t01=0x0096}
0x0cd56…0cd60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00d8}
0x0cd60…0cd7e Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x0083, t01=0x00e2}
0x0cd7e…0cd9e Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x0083, t01=0x0100}
0x0cd9e…0cdc2 Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x0083, t01=0x0120}
0x0cdc2…0cde6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x0083, t01=0x0144}
0x0cde6…0ce0a Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x0083, t01=0x0168}
0x0ce0a…0ce32 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x0083, t01=0x018c}
0x0ce32…0ce44 Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x0084, t01=0x0024}
0x0ce44…0ce58 Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x0084, t01=0x0036}
0x0ce58…0ce6e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x0084, t01=0x004a}
0x0ce6e…0ce82 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0084, t01=0x0060}
0x0ce82…0ce96 Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x0084, t01=0x0074}
0x0ce96…0cea6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x0088}
0x0cea6…0ceb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0098}
0x0ceb2…0cec6 Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x0084, t01=0x00a4}
0x0cec6…0ced4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x00b8}
0x0ced4…0cf00 Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x0084, t01=0x00c6}
0x0cf00…0cf2c Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0084, t01=0x00f2}
0x0cf2c…0cf58 Head {h00=0x0028, h01=0x0023, text=»* DUINIT - INITIALIZE DISC UNIT * «, t00=0x0084, t01=0x011e}
0x0cf58…0cf84 Head {h00=0x0028, h01=0x0023, text=»* ============================= * «, t00=0x0084, t01=0x014a}
0x0cf84…0cfb0 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0084, t01=0x0176}
0x0cfb0…0cfdc Head {h00=0x0028, h01=0x0023, text=»* REFERENCED IN: SYSLOD,GETFIL * «, t00=0x0085, t01=0x0012}
0x0cfdc…0d008 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0085, t01=0x003e}
0x0d008…0d034 Head {h00=0x0028, h01=0x0023, text=»* ENTRY: A1 - DEVICE ADDRESS * «, t00=0x0085, t01=0x006a}
0x0d034…0d060 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0085, t01=0x0096}
0x0d060…0d08c Head {h00=0x0028, h01=0x0023, text=»* EXIT: * «, t00=0x0085, t01=0x00c2}
0x0d08c…0d0b8 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0085, t01=0x00ee}
0x0d0b8…0d0e6 Head {h00=0x002a, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x0085, t01=0x011a}
0x0d0e6…0d112 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0085, t01=0x0148}
0x0d112…0d13e Head {h00=0x0028, h01=0x0023, text=»* SUBROUTINES: * «, t00=0x0085, t01=0x0174}
0x0d13e…0d16a Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x0086, t01=0x0010}
0x0d16a…0d196 Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x0086, t01=0x003c}
0x0d196…0d19e Head {h00=0x0004, h01=0x0050, t00=0x0086, t01=0x0068}
0x0d19e…0d1b2 Head {h00=0x0010, h01=0x000c, text=»DUINIT EQU *«, t00=0x0086, t01=0x0070}
0x0d1b2…0d1d4 Head {h00=0x001e, h01=0x0050, text=» LC A2,SCTSFA+2 GET FORMAT«, t00=0x0086, t01=0x0084}
0x0d1d4…0d1e8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0086, t01=0x00a6}
0x0d1e8…0d208 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 SELECT FORMAT «, t00=0x0086, t01=0x00ba}
0x0d208…0d228 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:20 FORMAT A2 «, t00=0x0086, t01=0x00da}
0x0d228…0d23a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0086, t01=0x00fa}
0x0d23a…0d25a Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:30 FORMAT A3 «, t00=0x0086, t01=0x010c}
0x0d25a…0d27a Head {h00=0x001c, h01=0x0050, text=» ABL FDTERR FORMAT ERROR«, t00=0x0086, t01=0x012c}
0x0d27a…0d2ae Head {h00=0x0030, h01=0x0050, text=»DUI:20 LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x0086, t01=0x014c}
0x0d2ae…0d2bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0180}
0x0d2bc…0d2c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x018e}
0x0d2c6…0d2ee Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x0087, t01=0x0008}
0x0d2ee…0d2f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0030}
0x0d2f8…0d30e Head {h00=0x0012, h01=0x0050, text=» ADS A1,SEEK20«, t00=0x0087, t01=0x003a}
0x0d30e…0d324 Head {h00=0x0012, h01=0x0050, text=» ADS A1,SEEK21«, t00=0x0087, t01=0x0050}
0x0d324…0d33a Head {h00=0x0012, h01=0x0050, text=» ADS A1,READ21«, t00=0x0087, t01=0x0066}
0x0d33a…0d350 Head {h00=0x0012, h01=0x0050, text=» ADS A1,READ22«, t00=0x0087, t01=0x007c}
0x0d350…0d358 Head {h00=0x0004, h01=0x0050, t00=0x0087, t01=0x0092}
0x0d358…0d36a Head {h00=0x000e, h01=0x0050, text=» RF DUI:40«, t00=0x0087, t01=0x009a}
0x0d36a…0d39e Head {h00=0x0030, h01=0x0050, text=»DUI:30 LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x0087, t01=0x00ac}
0x0d39e…0d3a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00e0}
0x0d3a8…0d3d0 Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x0087, t01=0x00ea}
0x0d3d0…0d3da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0112}
0x0d3da…0d40a Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x0087, t01=0x011c}
0x0d40a…0d420 Head {h00=0x0012, h01=0x0050, text=» ST A3,SAVCON «, t00=0x0087, t01=0x014c}
0x0d420…0d436 Head {h00=0x0012, h01=0x0050, text=» ADS A1,SEEK30«, t00=0x0087, t01=0x0162}
0x0d436…0d44c Head {h00=0x0012, h01=0x0050, text=» ADS A1,SEEK31«, t00=0x0087, t01=0x0178}
0x0d44c…0d462 Head {h00=0x0012, h01=0x0050, text=» ADS A1,READ30«, t00=0x0087, t01=0x018e}
0x0d462…0d478 Head {h00=0x0012, h01=0x0050, text=» ADS A1,READ31«, t00=0x0088, t01=0x0014}
0x0d478…0d482 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x002a}
0x0d482…0d4a6 Head {h00=0x0020, h01=0x001c, text=»* INIT SUBROUTINE ADDRESSES«, t00=0x0088, t01=0x0034}
0x0d4a6…0d4b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x0058}
0x0d4b0…0d4c8 Head {h00=0x0014, h01=0x0050, text=»DUI:40 EQU * =2«, t00=0x0088, t01=0x0062}
0x0d4c8…0d4e8 Head {h00=0x001c, h01=0x0018, text=» ST A2,READ READ PROGRAM«, t00=0x0088, t01=0x007a}
0x0d4e8…0d514 Head {h00=0x0028, h01=0x0024, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x0088, t01=0x009a}
0x0d514…0d53c Head {h00=0x0024, h01=0x001f, text=» ST A2,READVL READ VOLUME LABEL «, t00=0x0088, t01=0x00c6}
0x0d53c…0d56a Head {h00=0x002a, h01=0x0025, text=» ST A2,READCF READ CONFIGURATION DATA «, t00=0x0088, t01=0x00ee}
0x0d56a…0d57a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0088, t01=0x011c}
0x0d57a…0d588 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0088, t01=0x012c}
0x0d588…0d5c0 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0088, t01=0x013a}
0x0d5c0…0d5f8 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x0088, t01=0x0172}
0x0d5f8…0d630 Head {h00=0x0034, h01=0x002f, text=»* RDSEC - READ ONE SECTOR FROM DISC * «, t00=0x0089, t01=0x001a}
0x0d630…0d668 Head {h00=0x0034, h01=0x002f, text=»* ================================= * «, t00=0x0089, t01=0x0052}
0x0d668…0d6a0 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x0089, t01=0x008a}
0x0d6a0…0d6d8 Head {h00=0x0034, h01=0x002f, text=»* REFERENCED IN: SYSLOD * «, t00=0x0089, t01=0x00c2}
0x0d6d8…0d710 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x0089, t01=0x00fa}
0x0d710…0d736 Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS«, t00=0x0089, t01=0x0132}
0x0d736…0d76e Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x0089, t01=0x0158}
0x0d76e…0d7a6 Head {h00=0x0034, h01=0x002f, text=»* A11 - SECTOR NUMBER * «, t00=0x0089, t01=0x0190}
0x0d7a6…0d7de Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x008a, t01=0x0038}
0x0d7de…0d816 Head {h00=0x0034, h01=0x002f, text=»* EXIT: * «, t00=0x008a, t01=0x0070}
0x0d816…0d84e Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x008a, t01=0x00a8}
0x0d84e…0d87a Head {h00=0x0028, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A7 «, t00=0x008a, t01=0x00e0}
0x0d87a…0d8b2 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x008a, t01=0x010c}
0x0d8b2…0d8ea Head {h00=0x0034, h01=0x002f, text=»* SUBROUTINES: ERROR * «, t00=0x008a, t01=0x0144}
0x0d8ea…0d922 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x008a, t01=0x017c}
0x0d922…0d95a Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x008b, t01=0x0024}
0x0d95a…0d964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x005c}
0x0d964…0d972 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0066}
0x0d972…0d97c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0074}
0x0d97c…0d9a2 Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x008b, t01=0x007e}
0x0d9a2…0d9ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00a4}
0x0d9ac…0d9c0 Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x008b, t01=0x00ae}
0x0d9c0…0d9d2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x008b, t01=0x00c2}
0x0d9d2…0da00 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x008b, t01=0x00d4}
0x0da00…0da14 Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x008b, t01=0x0102}
0x0da14…0da26 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x008b, t01=0x0116}
0x0da26…0da38 Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x008b, t01=0x0128}
0x0da38…0da64 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x008b, t01=0x013a}
0x0da64…0da76 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x008b, t01=0x0166}
0x0da76…0da8c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x008b, t01=0x0178}
0x0da8c…0da9e Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x008b, t01=0x018e}
0x0da9e…0dab0 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x008c, t01=0x0010}
0x0dab0…0dac4 Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x008c, t01=0x0022}
0x0dac4…0dad6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x008c, t01=0x0036}
0x0dad6…0db04 Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x008c, t01=0x0048}
0x0db04…0db16 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x008c, t01=0x0076}
0x0db16…0db2a Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x008c, t01=0x0088}
0x0db2a…0db5c Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x008c, t01=0x009c}
0x0db5c…0db7c Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x008c, t01=0x00ce}
0x0db7c…0db8e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x008c, t01=0x00ee}
0x0db8e…0dba2 Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x008c, t01=0x0100}
0x0dba2…0dbda Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x008c, t01=0x0114}
0x0dbda…0dbe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x014c}
0x0dbe4…0dbf6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x008c, t01=0x0156}
0x0dbf6…0dc08 Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x008c, t01=0x0168}
0x0dc08…0dc1e Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x008c, t01=0x017a}
0x0dc1e…0dc48 Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x008c, t01=0x0190}
0x0dc48…0dc5e Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x008d, t01=0x002a}
0x0dc5e…0dc70 Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x008d, t01=0x0040}
0x0dc70…0dc8c Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x008d, t01=0x0052}
0x0dc8c…0dc9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x006e}
0x0dc9a…0dca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x007c}
0x0dca4…0dcbc Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x008d, t01=0x0086}
0x0dcbc…0dcc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x009e}
0x0dcc6…0dce0 Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x008d, t01=0x00a8}
0x0dce0…0dcf6 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x008d, t01=0x00c2}
0x0dcf6…0dd00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00d8}
0x0dd00…0dd18 Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x008d, t01=0x00e2}
0x0dd18…0dd2e Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x008d, t01=0x00fa}
0x0dd2e…0dd38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0110}
0x0dd38…0dd4e Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x008d, t01=0x011a}
0x0dd4e…0dd58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0130}
0x0dd58…0dd6c Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x008d, t01=0x013a}
0x0dd6c…0dd7e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x008d, t01=0x014e}
0x0dd7e…0dd90 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x008d, t01=0x0160}
0x0dd90…0ddb8 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x008d, t01=0x0172}
0x0ddb8…0ddcc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x008e, t01=0x000a}
0x0ddcc…0ddf6 Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x008e, t01=0x001e}
0x0ddf6…0de08 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x008e, t01=0x0048}
0x0de08…0de2c Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x008e, t01=0x005a}
0x0de2c…0de3e Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x008e, t01=0x007e}
0x0de3e…0de52 Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x008e, t01=0x0090}
0x0de52…0de66 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x008e, t01=0x00a4}
0x0de66…0de96 Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x008e, t01=0x00b8}
0x0de96…0deac Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x008e, t01=0x00e8}
0x0deac…0deba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x00fe}
0x0deba…0dec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x010c}
0x0dec4…0deda Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x008e, t01=0x0116}
0x0deda…0dee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x012c}
0x0dee4…0df06 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x008e, t01=0x0136}
0x0df06…0df32 Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x008e, t01=0x0158}
0x0df32…0df62 Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x008e, t01=0x0184}
0x0df62…0df8a Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x008f, t01=0x0024}
0x0df8a…0dfb0 Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x008f, t01=0x004c}
0x0dfb0…0dfda Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x008f, t01=0x0072}
0x0dfda…0dff8 Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x008f, t01=0x009c}
0x0dff8…0e022 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x008f, t01=0x00ba}
0x0e022…0e03c Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x008f, t01=0x00e4}
0x0e03c…0e06a Head {h00=0x002a, h01=0x0050, text=» RB(NZ) RDSEC2 LOOP UNTIL CORRECT READ«, t00=0x008f, t01=0x00fe}
0x0e06a…0e096 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x008f, t01=0x012c}
0x0e096…0e0a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0158}
0x0e0a6…0e0b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0168}
0x0e0b4…0e0be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0176}
0x0e0be…0e0e4 Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x008f, t01=0x0180}
0x0e0e4…0e0ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0016}
0x0e0ee…0e102 Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x0090, t01=0x0020}
0x0e102…0e114 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0090, t01=0x0034}
0x0e114…0e142 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x0090, t01=0x0046}
0x0e142…0e158 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x0090, t01=0x0074}
0x0e158…0e16e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x0090, t01=0x008a}
0x0e16e…0e182 Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x0090, t01=0x00a0}
0x0e182…0e194 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x0090, t01=0x00b4}
0x0e194…0e1aa Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x0090, t01=0x00c6}
0x0e1aa…0e1bc Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0090, t01=0x00dc}
0x0e1bc…0e1ce Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x0090, t01=0x00ee}
0x0e1ce…0e1e2 Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x0090, t01=0x0100}
0x0e1e2…0e204 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x0090, t01=0x0114}
0x0e204…0e216 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0090, t01=0x0136}
0x0e216…0e228 Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x0090, t01=0x0148}
0x0e228…0e23e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x0090, t01=0x015a}
0x0e23e…0e250 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0090, t01=0x0170}
0x0e250…0e25a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0182}
0x0e25a…0e26c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0090, t01=0x018c}
0x0e26c…0e282 Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x0091, t01=0x000e}
0x0e282…0e2bc Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX , , OR , XX,XX , «, t00=0x0091, t01=0x0024}
0x0e2bc…0e2de Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 , , XXXX, «, t00=0x0091, t01=0x005e}
0x0e2de…0e2f2 Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x0091, t01=0x0080}
0x0e2f2…0e304 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0091, t01=0x0094}
0x0e304…0e316 Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x0091, t01=0x00a6}
0x0e316…0e32c Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x0091, t01=0x00b8}
0x0e32c…0e342 Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x0091, t01=0x00ce}
0x0e342…0e372 Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x0091, t01=0x00e4}
0x0e372…0e384 Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x0091, t01=0x0114}
0x0e384…0e3a0 Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x0091, t01=0x0126}
0x0e3a0…0e3ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0091, t01=0x0142}
0x0e3ae…0e3b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0150}
0x0e3b8…0e3d0 Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x0091, t01=0x015a}
0x0e3d0…0e3da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0172}
0x0e3da…0e3f4 Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x0091, t01=0x017c}
0x0e3f4…0e40a Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x0092, t01=0x0008}
0x0e40a…0e414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x001e}
0x0e414…0e436 Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x0092, t01=0x0028}
0x0e436…0e44c Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x0092, t01=0x004a}
0x0e44c…0e456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0060}
0x0e456…0e46c Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0092, t01=0x006a}
0x0e46c…0e476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0080}
0x0e476…0e48a Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x0092, t01=0x008a}
0x0e48a…0e49c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0092, t01=0x009e}
0x0e49c…0e4ae Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0092, t01=0x00b0}
0x0e4ae…0e4d6 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x0092, t01=0x00c2}
0x0e4d6…0e4ea Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0092, t01=0x00ea}
0x0e4ea…0e514 Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x0092, t01=0x00fe}
0x0e514…0e526 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0092, t01=0x0128}
0x0e526…0e550 Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x0092, t01=0x013a}
0x0e550…0e576 Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x0092, t01=0x0164}
0x0e576…0e580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x018a}
0x0e580…0e594 (147, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x0093, t01=0x0004}
0x0e594…0e5a8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0093, t01=0x0018}
0x0e5a8…0e5d2 Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x0093, t01=0x002c}
0x0e5d2…0e604 Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x0093, t01=0x0056}
0x0e604…0e612 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x0088}
0x0e612…0e61c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0096}
0x0e61c…0e632 Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x0093, t01=0x00a0}
0x0e632…0e63c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x00b6}
0x0e63c…0e65e Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x0093, t01=0x00c0}
0x0e65e…0e68c Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x0093, t01=0x00e2}
0x0e68c…0e6bc Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x0093, t01=0x0110}
0x0e6bc…0e6e4 Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x0093, t01=0x0140}
0x0e6e4…0e6ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0168}
0x0e6ee…0e714 Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x0093, t01=0x0172}
0x0e714…0e73e Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x0094, t01=0x0008}
0x0e73e…0e748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0032}
0x0e748…0e76a Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x0094, t01=0x003c}
0x0e76a…0e794 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x0094, t01=0x005e}
0x0e794…0e7ae Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x0094, t01=0x0088}
0x0e7ae…0e7dc Head {h00=0x002a, h01=0x0050, text=» RB(NZ) RDSEC3 LOOP UNTIL CORRECT READ«, t00=0x0094, t01=0x00a2}
0x0e7dc…0e7fe Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x0094, t01=0x00d0}
0x0e7fe…0e810 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0094, t01=0x00f2}
0x0e810…0e836 Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX , , «, t00=0x0094, t01=0x0104}
0x0e836…0e85c Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 , , XXXX, «, t00=0x0094, t01=0x012a}
0x0e85c…0e880 Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x0094, t01=0x0150}
0x0e880…0e8aa Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x0094, t01=0x0174}
0x0e8aa…0e8ce Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * , XX,XX ,«, t00=0x0095, t01=0x000e}
0x0e8ce…0e8e2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x0095, t01=0x0032}
0x0e8e2…0e8f4 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0095, t01=0x0046}
0x0e8f4…0e906 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0095, t01=0x0058}
0x0e906…0e918 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0095, t01=0x006a}
0x0e918…0e92a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0095, t01=0x007c}
0x0e92a…0e950 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x0095, t01=0x008e}
0x0e950…0e966 Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x0095, t01=0x00b4}
0x0e966…0e97c Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x0095, t01=0x00ca}
0x0e97c…0e9a8 Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x0095, t01=0x00e0}
0x0e9a8…0e9ce Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x0095, t01=0x010c}
0x0e9ce…0e9e2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x0095, t01=0x0132}
0x0e9e2…0e9f4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0095, t01=0x0146}
0x0e9f4…0ea06 Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x0095, t01=0x0158}
0x0ea06…0ea14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x016a}
0x0ea14…0ea28 Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x0095, t01=0x0178}
0x0ea28…0ea4a Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x0095, t01=0x018c}
0x0ea4a…0ea76 Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x0096, t01=0x001e}
0x0ea76…0ea88 Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x0096, t01=0x004a}
0x0ea88…0eaba Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x0096, t01=0x005c}
0x0eaba…0eaca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x008e}
0x0eaca…0ead6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x009e}
0x0ead6…0eaec Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x0096, t01=0x00aa}
0x0eaec…0eafa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x00c0}
0x0eafa…0eb3a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0096, t01=0x00ce}
0x0eb3a…0eb7a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0096, t01=0x010e}
0x0eb7a…0ebba Head {h00=0x003c, h01=0x0050, text=»* MDINIT - INITIALIZE MINI FIXED DISC UNIT *«, t00=0x0096, t01=0x014e}
0x0ebba…0ebfa Head {h00=0x003c, h01=0x0050, text=»* ======================================= *«, t00=0x0096, t01=0x018e}
0x0ebfa…0ec3a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0097, t01=0x003e}
0x0ec3a…0ec7a Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL *«, t00=0x0097, t01=0x007e}
0x0ec7a…0ecba Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0097, t01=0x00be}
0x0ecba…0ecfa Head {h00=0x003c, h01=0x0050, text=»* ENTRY: A1 = DEVICE ADDRESS *«, t00=0x0097, t01=0x00fe}
0x0ecfa…0ed3a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0097, t01=0x013e}
0x0ed3a…0ed7a Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x0097, t01=0x017e}
0x0ed7a…0edba Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0098, t01=0x002e}
0x0edba…0edfa Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: *«, t00=0x0098, t01=0x006e}
0x0edfa…0ee3a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0098, t01=0x00ae}
0x0ee3a…0ee7a Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: ERROR *«, t00=0x0098, t01=0x00ee}
0x0ee7a…0eeba Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0098, t01=0x012e}
0x0eeba…0eefa Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0098, t01=0x016e}
0x0eefa…0ef0e Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x0099, t01=0x001e}
0x0ef0e…0ef18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0032}
0x0ef18…0ef40 Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x0099, t01=0x003c}
0x0ef40…0ef4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0064}
0x0ef4a…0ef66 Head {h00=0x0018, h01=0x0050, text=»MDI:00 ADS A1,SEEKM1«, t00=0x0099, t01=0x006e}
0x0ef66…0ef7c Head {h00=0x0012, h01=0x0050, text=» ADS A1,SEEKM2«, t00=0x0099, t01=0x008a}
0x0ef7c…0ef92 Head {h00=0x0012, h01=0x0050, text=» ADS A1,READM2«, t00=0x0099, t01=0x00a0}
0x0ef92…0efa8 Head {h00=0x0012, h01=0x0050, text=» ADS A1,READM3«, t00=0x0099, t01=0x00b6}
0x0efa8…0efb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x00cc}
0x0efb6…0efc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00da}
0x0efc0…0efee Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x0099, t01=0x00e4}
0x0efee…0f002 Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0099, t01=0x0112}
0x0f002…0f016 Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0099, t01=0x0126}
0x0f016…0f02c Head {h00=0x0012, h01=0x0050, text=» ST A2,READVL «, t00=0x0099, t01=0x013a}
0x0f02c…0f042 Head {h00=0x0012, h01=0x0050, text=» ST A2,READCF «, t00=0x0099, t01=0x0150}
0x0f042…0f052 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0166}
0x0f052…0f060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0176}
0x0f060…0f09e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0099, t01=0x0184}
0x0f09e…0f0dc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0032}
0x0f0dc…0f11a Head {h00=0x003a, h01=0x0050, text=»* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *«, t00=0x009a, t01=0x0070}
0x0f11a…0f158 Head {h00=0x003a, h01=0x0050, text=»* ============================================= *«, t00=0x009a, t01=0x00ae}
0x0f158…0f196 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009a, t01=0x00ec}
0x0f196…0f1d4 Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: SYSLOD *«, t00=0x009a, t01=0x012a}
0x0f1d4…0f212 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0168}
0x0f212…0f250 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS *«, t00=0x009b, t01=0x0016}
0x0f250…0f28e Head {h00=0x003a, h01=0x0050, text=»* A11 = SECTOR NUMBER *«, t00=0x009b, t01=0x0054}
0x0f28e…0f2cc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009b, t01=0x0092}
0x0f2cc…0f30a Head {h00=0x003a, h01=0x0050, text=»* EXIT: *«, t00=0x009b, t01=0x00d0}
0x0f30a…0f348 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009b, t01=0x010e}
0x0f348…0f386 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: *«, t00=0x009b, t01=0x014c}
0x0f386…0f3c4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009b, t01=0x018a}
0x0f3c4…0f402 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x009c, t01=0x0038}
0x0f402…0f440 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x009c, t01=0x0076}
0x0f440…0f47e Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x009c, t01=0x00b4}
0x0f47e…0f492 Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x009c, t01=0x00f2}
0x0f492…0f4b8 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x009c, t01=0x0106}
0x0f4b8…0f4e6 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x009c, t01=0x012c}
0x0f4e6…0f504 Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x009c, t01=0x015a}
0x0f504…0f516 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x009c, t01=0x0178}
0x0f516…0f53a Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x009c, t01=0x018a}
0x0f53a…0f544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x001e}
0x0f544…0f56a Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x009d, t01=0x0028}
0x0f56a…0f586 Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x009d, t01=0x004e}
0x0f586…0f590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x006a}
0x0f590…0f5ba Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x009d, t01=0x0074}
0x0f5ba…0f5d0 Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x009d, t01=0x009e}
0x0f5d0…0f5fa Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x009d, t01=0x00b4}
0x0f5fa…0f626 Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x009d, t01=0x00de}
0x0f626…0f634 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x010a}
0x0f634…0f63e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0118}
0x0f63e…0f656 Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x009d, t01=0x0122}
0x0f656…0f660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x013a}
0x0f660…0f686 Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x009d, t01=0x0144}
0x0f686…0f6b0 Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x009d, t01=0x016a}
0x0f6b0…0f6ba (158, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0004}
0x0f6ba…0f6dc Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x009e, t01=0x000e}
0x0f6dc…0f706 Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x009e, t01=0x0030}
0x0f706…0f710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x005a}
0x0f710…0f726 Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x009e, t01=0x0064}
0x0f726…0f730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x007a}
0x0f730…0f744 Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x009e, t01=0x0084}
0x0f744…0f756 Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x009e, t01=0x0098}
0x0f756…0f778 Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x009e, t01=0x00aa}
0x0f778…0f798 Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x009e, t01=0x00cc}
0x0f798…0f7ac Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x009e, t01=0x00ec}
0x0f7ac…0f7be Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x009e, t01=0x0100}
0x0f7be…0f7e4 Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x009e, t01=0x0112}
0x0f7e4…0f80a Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x009e, t01=0x0138}
0x0f80a…0f81a Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x009e, t01=0x015e}
0x0f81a…0f84a Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x009e, t01=0x016e}
0x0f84a…0f854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x000e}
0x0f854…0f87a Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x009f, t01=0x0018}
0x0f87a…0f884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x003e}
0x0f884…0f8ae Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x009f, t01=0x0048}
0x0f8ae…0f8c0 Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x009f, t01=0x0072}
0x0f8c0…0f8ec Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x009f, t01=0x0084}
0x0f8ec…0f90e Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x009f, t01=0x00b0}
0x0f90e…0f924 Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x009f, t01=0x00d2}
0x0f924…0f936 Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x009f, t01=0x00e8}
0x0f936…0f94a Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x009f, t01=0x00fa}
0x0f94a…0f95c Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x009f, t01=0x010e}
0x0f95c…0f996 Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x009f, t01=0x0120}
0x0f996…0f9a8 Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x009f, t01=0x015a}
0x0f9a8…0f9cc Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x009f, t01=0x016c}
0x0f9cc…0f9f0 Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x009f, t01=0x0190}
0x0f9f0…0fa04 Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00a0, t01=0x0024}
0x0fa04…0fa0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0038}
0x0fa0e…0fa24 Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00a0, t01=0x0042}
0x0fa24…0fa2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0058}
0x0fa2e…0fa42 Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00a0, t01=0x0062}
0x0fa42…0fa68 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00a0, t01=0x0076}
0x0fa68…0fa8a Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00a0, t01=0x009c}
0x0fa8a…0fa94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x00be}
0x0fa94…0fac2 Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00a0, t01=0x00c8}
0x0fac2…0fae8 Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00a0, t01=0x00f6}
0x0fae8…0faf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x011c}
0x0faf2…0fb18 Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00a0, t01=0x0126}
0x0fb18…0fb42 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00a0, t01=0x014c}
0x0fb42…0fb4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0176}
0x0fb4c…0fb6e Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00a0, t01=0x0180}
0x0fb6e…0fb98 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00a1, t01=0x0012}
0x0fb98…0fbb2 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00a1, t01=0x003c}
0x0fbb2…0fbe0 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) MRDSEC LOOP UNTIL CORRECT READ«, t00=0x00a1, t01=0x0056}
0x0fbe0…0fc0c Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00a1, t01=0x0084}
0x0fc0c…0fc1c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a1, t01=0x00b0}
0x0fc1c…0fc28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x00c0}
0x0fc28…0fc3e Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00a1, t01=0x00cc}
0x0fc3e…0fc4c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a1, t01=0x00e2}
0x0fc4c…0fc84 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x00a1, t01=0x00f0}
0x0fc84…0fcbc Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a1, t01=0x0128}
0x0fcbc…0fcf4 Head {h00=0x0034, h01=0x0030, text=»* FDINIT - INITIALIZE FLEXIBLE DISC *«, t00=0x00a1, t01=0x0160}
0x0fcf4…0fd2c Head {h00=0x0034, h01=0x0030, text=»* ================================= *«, t00=0x00a2, t01=0x0008}
0x0fd2c…0fd64 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a2, t01=0x0040}
0x0fd64…0fd9c Head {h00=0x0034, h01=0x0030, text=»* REFERENCED IN: SYSLOD,GETFIL *«, t00=0x00a2, t01=0x0078}
0x0fd9c…0fdd4 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a2, t01=0x00b0}
0x0fdd4…0fe0c Head {h00=0x0034, h01=0x0030, text=»* ENTRY: A1 - DEVICE ADDRESS *«, t00=0x00a2, t01=0x00e8}
0x0fe0c…0fe44 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a2, t01=0x0120}
0x0fe44…0fe7c Head {h00=0x0034, h01=0x0030, text=»* EXIT: *«, t00=0x00a2, t01=0x0158}
0x0fe7c…0feb4 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a2, t01=0x0190}
0x0feb4…0feec Head {h00=0x0034, h01=0x0030, text=»* WORK REGISTERS: *«, t00=0x00a3, t01=0x0038}
0x0feec…0ff24 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a3, t01=0x0070}
0x0ff24…0ff5c Head {h00=0x0034, h01=0x0030, text=»* SUBROUTINES: *«, t00=0x00a3, t01=0x00a8}
0x0ff5c…0ff94 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x00a3, t01=0x00e0}
0x0ff94…0ffcc Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x00a3, t01=0x0118}
0x0ffcc…0ffe0 Head {h00=0x0010, h01=0x000c, text=»FDINIT EQU *«, t00=0x00a3, t01=0x0150}
0x0ffe0…1000e Head {h00=0x002a, h01=0x0026, text=» LDKL A2,FRDSEC GET SUBROUTINE ADDRESS«, t00=0x00a3, t01=0x0164}
0x1000e…10028 (164, 0, 398) Head {h00=0x0016, h01=0x0011, text=» ST A2,READ STORE «, t00=0x00a4, t01=0x0004}
0x10028…1003c Head {h00=0x0010, h01=0x000c, text=» ST A2,READS«, t00=0x00a4, t01=0x001e}
0x1003c…10052 Head {h00=0x0012, h01=0x000d, text=» ST A2,READVL «, t00=0x00a4, t01=0x0032}
0x10052…10068 Head {h00=0x0012, h01=0x000d, text=» ST A2,READCF «, t00=0x00a4, t01=0x0048}
0x10068…10072 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x005e}
0x10072…10098 Head {h00=0x0022, h01=0x001e, text=»* INIT FLEXIBLE DISC COMMANDS«, t00=0x00a4, t01=0x0068}
0x10098…100a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a4, t01=0x008e}
0x100a2…100d2 Head {h00=0x002c, h01=0x0027, text=» ORS A1,FRD:10 MODIFY READ SECTOR ORDER «, t00=0x00a4, t01=0x0098}
0x100d2…100f6 Head {h00=0x0020, h01=0x001c, text=» ANK A1,8 PROGRAMMED CHANNEL«, t00=0x00a4, t01=0x00c8}
0x100f6…10112 Head {h00=0x0018, h01=0x0013, text=» RF(NZ) FDI:10 YES! «, t00=0x00a4, t01=0x00ec}
0x10112…10142 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,FRD:40-2 NOT PROGRAMMED CHANNEL«, t00=0x00a4, t01=0x0108}
0x10142…1015a Head {h00=0x0014, h01=0x0050, text=» SUKL A1,FRD:20 «, t00=0x00a4, t01=0x0138}
0x1015a…10170 Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x00a4, t01=0x0150}
0x10170…1019c Head {h00=0x0028, h01=0x0024, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00a4, t01=0x0166}
0x1019c…101b0 (165, 0, 400) Head {h00=0x0010, h01=0x000c, text=»FDI:10 EQU *«, t00=0x00a5, t01=0x0004}
0x101b0…101ce Head {h00=0x001a, h01=0x0016, text=» LDK A1,/14 LOCK ORDER«, t00=0x00a5, t01=0x0018}
0x101ce…101ee Head {h00=0x001c, h01=0x0018, text=» EX FRD:10 EXECUTE ORDER«, t00=0x00a5, t01=0x0036}
0x101ee…10216 Head {h00=0x0024, h01=0x001f, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00a5, t01=0x0056}
0x10216…10238 Head {h00=0x001e, h01=0x0019, text=» SST A1,FDCU SENSE STATUS «, t00=0x00a5, t01=0x007e}
0x10238…1024c Head {h00=0x0010, h01=0x000b, text=» RB(NA) *-2 «, t00=0x00a5, t01=0x00a0}
0x1024c…10276 Head {h00=0x0026, h01=0x0021, text=» ANK A1,1 FLEXIBLE DISC OPERABLE? «, t00=0x00a5, t01=0x00b4}
0x10276…10290 Head {h00=0x0016, h01=0x0012, text=» RB(NZ) FDI:10 NO!«, t00=0x00a5, t01=0x00de}
0x10290…102a0 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x00a5, t01=0x00f8}
0x102a0…102ae Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00a5, t01=0x0108}
0x102ae…102f2 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x00a5, t01=0x0116}
0x102f2…10336 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a5, t01=0x015a}
0x10336…1037a Head {h00=0x0040, h01=0x003b, text=»* FRDSEC - READ SECTOR FROM FLEXIBLE DISC * «, t00=0x00a6, t01=0x000e}
0x1037a…103be Head {h00=0x0040, h01=0x003b, text=»* ======================================= * «, t00=0x00a6, t01=0x0052}
0x103be…10402 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a6, t01=0x0096}
0x10402…10446 Head {h00=0x0040, h01=0x003b, text=»* REFERENCED IN: SYSLOD * «, t00=0x00a6, t01=0x00da}
0x10446…1048a Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a6, t01=0x011e}
0x1048a…104ce Head {h00=0x0040, h01=0x003b, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x00a6, t01=0x0162}
0x104ce…10512 Head {h00=0x0040, h01=0x003b, text=»* A11 - SECTOR NUMBER * «, t00=0x00a7, t01=0x0016}
0x10512…10556 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a7, t01=0x005a}
0x10556…1059a Head {h00=0x0040, h01=0x003b, text=»* EXIT: * «, t00=0x00a7, t01=0x009e}
0x1059a…105de Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a7, t01=0x00e2}
0x105de…10622 Head {h00=0x0040, h01=0x003b, text=»* WORK REGISTERS: A1,A2,A3 * «, t00=0x00a7, t01=0x0126}
0x10622…10666 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a7, t01=0x016a}
0x10666…106aa Head {h00=0x0040, h01=0x003b, text=»* SUBROUTINES: ERROR * «, t00=0x00a8, t01=0x001e}
0x106aa…106ee Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x00a8, t01=0x0062}
0x106ee…10732 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x00a8, t01=0x00a6}
0x10732…10746 Head {h00=0x0010, h01=0x000c, text=»FRDSEC EQU *«, t00=0x00a8, t01=0x00ea}
0x10746…1076c Head {h00=0x0022, h01=0x001d, text=» LDR A1,A11 GET SECTOR NUMBER «, t00=0x00a8, t01=0x00fe}
0x1076c…1077e Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00a8, t01=0x0124}
0x1077e…10794 Head {h00=0x0012, h01=0x0050, text=» ORKL A1,/4000«, t00=0x00a8, t01=0x0136}
0x10794…107be Head {h00=0x0026, h01=0x0021, text=» LDKL A2,MUXCC LOAD 1:ST MUX WORD «, t00=0x00a8, t01=0x014c}
0x107be…107e6 Head {h00=0x0024, h01=0x001f, text=» LD A3,MXBUF LOAD 2:ND MUX WORD «, t00=0x00a8, t01=0x0176}
0x107e6…10810 Head {h00=0x0026, h01=0x0021, text=» WER A2,FDIOP WRITE 1:ST MUX WORD «, t00=0x00a9, t01=0x000e}
0x10810…1083c Head {h00=0x0028, h01=0x0023, text=» WER A3,FDIOP+1 WRITE 2:ND MUX WORD «, t00=0x00a9, t01=0x0038}
0x1083c…10864 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00a9, t01=0x0064}
0x10864…1088c Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00a9, t01=0x008c}
0x1088c…108b4 Head {h00=0x0024, h01=0x001f, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00a9, t01=0x00b4}
0x108b4…108de Head {h00=0x0026, h01=0x0022, text=» RB(NA) FRD:10 LOOP UNTIL ACCEPTED«, t00=0x00a9, t01=0x00dc}
0x108de…10916 Head {h00=0x0034, h01=0x002f, text=»FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX «, t00=0x00a9, t01=0x0106}
0x10916…10940 Head {h00=0x0026, h01=0x0022, text=» RF(NA) FRD:40 LOOP UNTIL ACCEPTED«, t00=0x00a9, t01=0x013e}
0x10940…10962 Head {h00=0x001e, h01=0x0050, text=» STR A1,A3 STORE CHARACTER«, t00=0x00a9, t01=0x0168}
0x10962…1098c Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 INCREMENT BUFFER POINTER«, t00=0x00a9, t01=0x018a}
0x1098c…1099e Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00aa, t01=0x0024}
0x1099e…109b4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00aa, t01=0x0036}
0x109b4…109be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x004c}
0x109be…109e4 Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00aa, t01=0x0056}
0x109e4…109f6 Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00aa, t01=0x007c}
0x109f6…10a1e Head {h00=0x0024, h01=0x001f, text=»FRD:40 SST A1,FDCU SENSE STATUS «, t00=0x00aa, t01=0x008e}
0x10a1e…10a48 Head {h00=0x0026, h01=0x0022, text=» RB(NA) FRD:20 LOOP UNTIL ACCEPTED«, t00=0x00aa, t01=0x00b6}
0x10a48…10a6c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR? «, t00=0x00aa, t01=0x00e0}
0x10a6c…10a88 Head {h00=0x0018, h01=0x0013, text=» RF(NZ) FRD:50 YES! «, t00=0x00aa, t01=0x0104}
0x10a88…10ab4 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR ADDRESS«, t00=0x00aa, t01=0x0120}
0x10ab4…10aca Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:45«, t00=0x00aa, t01=0x014c}
0x10aca…10afc Head {h00=0x002e, h01=0x0050, text=» LDKL A11,0 RESET LEAST SIGN. PART OF D.A.«, t00=0x00aa, t01=0x0162}
0x10afc…10b38 (171, 0, 400) Head {h00=0x0038, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGNIFICANT PART OF D.A. «, t00=0x00ab, t01=0x0004}
0x10b38…10b62 Head {h00=0x0026, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR! «, t00=0x00ab, t01=0x0040}
0x10b62…10b76 Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00ab, t01=0x006a}
0x10b76…10b86 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x00ab, t01=0x007e}
0x10b86…10ba2 Head {h00=0x0018, h01=0x0013, text=»FRD:50 LDKL A1,LMP2 «, t00=0x00ab, t01=0x008e}
0x10ba2…10bb6 Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x00ab, t01=0x00aa}
0x10bb6…10bc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00be}
0x10bc2…10bd0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00ab, t01=0x00ca}
0x10bd0…10c0c Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x00ab, t01=0x00d8}
0x10c0c…10c48 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ab, t01=0x0114}
0x10c48…10c84 Head {h00=0x0038, h01=0x0033, text=»* GETFIL - GET CONFIGURATION FILE * «, t00=0x00ab, t01=0x0150}
0x10c84…10cc0 Head {h00=0x0038, h01=0x0033, text=»* =============================== * «, t00=0x00ab, t01=0x018c}
0x10cc0…10cfc Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ac, t01=0x0038}
0x10cfc…10d38 Head {h00=0x0038, h01=0x0033, text=»* REFERENCED IN: SYSLOD * «, t00=0x00ac, t01=0x0074}
0x10d38…10d74 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ac, t01=0x00b0}
0x10d74…10db0 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x00ac, t01=0x00ec}
0x10db0…10dec Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ac, t01=0x0128}
0x10dec…10e28 Head {h00=0x0038, h01=0x0033, text=»* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * «, t00=0x00ac, t01=0x0164}
0x10e28…10e64 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ad, t01=0x0010}
0x10e64…10e9e Head {h00=0x0036, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 *«, t00=0x00ad, t01=0x004c}
0x10e9e…10eda Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ad, t01=0x0086}
0x10eda…10f16 Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: READVL,READCF * «, t00=0x00ad, t01=0x00c2}
0x10f16…10f52 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x00ad, t01=0x00fe}
0x10f52…10f8e Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x00ad, t01=0x013a}
0x10f8e…10fa2 Head {h00=0x0010, h01=0x000c, text=»GETFIL EQU *«, t00=0x00ad, t01=0x0176}
0x10fa2…10fc2 Head {h00=0x001c, h01=0x0018, text=» LDKL A11,0 VOLUME LABEL«, t00=0x00ad, t01=0x018a}
0x10fc2…10fea Head {h00=0x0024, h01=0x001f, text=» CF A14,READVL GET VOLUME LABEL «, t00=0x00ae, t01=0x001a}
0x10fea…11000 Head {h00=0x0012, h01=0x000e, text=»READVL EQU *-2«, t00=0x00ae, t01=0x0042}
0x11000…11024 Head {h00=0x0020, h01=0x001b, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x00ae, t01=0x0058}
0x11024…1103e Head {h00=0x0016, h01=0x0011, text=» LDR A11,A10 SAVE «, t00=0x00ae, t01=0x007c}
0x1103e…11064 Head {h00=0x0022, h01=0x001d, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x00ae, t01=0x0096}
0x11064…11090 Head {h00=0x0028, h01=0x0023, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x00ae, t01=0x00bc}
0x11090…110be Head {h00=0x002a, h01=0x0025, text=» ADKL A11,1 FIRST FILE SECTOR IN VTOC «, t00=0x00ae, t01=0x00e8}
0x110be…110d2 Head {h00=0x0010, h01=0x000c, text=»GET:10 EQU *«, t00=0x00ae, t01=0x0116}
0x110d2…110f4 Head {h00=0x001e, h01=0x001a, text=» CF A14,READCF READ SECTOR«, t00=0x00ae, t01=0x012a}
0x110f4…1110a Head {h00=0x0012, h01=0x000e, text=»READCF EQU *-2«, t00=0x00ae, t01=0x014c}
0x1110a…11130 Head {h00=0x0022, h01=0x001e, text=» LDK A7,QBLFAC BLOCKING FACTOR«, t00=0x00ae, t01=0x0162}
0x11130…11156 Head {h00=0x0022, h01=0x001e, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x00ae, t01=0x0188}
0x11156…1116a Head {h00=0x0010, h01=0x000c, text=»GET:20 EQU *«, t00=0x00af, t01=0x001e}
0x1116a…11188 Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x00af, t01=0x0032}
0x11188…111a8 Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x00af, t01=0x0050}
0x111a8…111c2 Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x00af, t01=0x0070}
0x111c2…111e4 Head {h00=0x001e, h01=0x001a, text=» LDR A4,A6 START OF RECORD«, t00=0x00af, t01=0x008a}
0x111e4…11210 Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x00af, t01=0x00ac}
0x11210…11234 Head {h00=0x0020, h01=0x001b, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x00af, t01=0x00d8}
0x11234…1124e Head {h00=0x0016, h01=0x0012, text=» RF(NE) GET:50 NO!«, t00=0x00af, t01=0x00fc}
0x1124e…1127c Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x00af, t01=0x0116}
0x1127c…112a2 Head {h00=0x0022, h01=0x001e, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x00af, t01=0x0144}
0x112a2…112bc Head {h00=0x0016, h01=0x0012, text=» RF(NE) GET:50 NO!«, t00=0x00af, t01=0x016a}
0x112bc…112f2 Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x00af, t01=0x0184}
0x112f2…1131e Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x00b0, t01=0x002a}
0x1131e…11338 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x00b0, t01=0x0056}
0x11338…1135a Head {h00=0x001e, h01=0x0019, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x00b0, t01=0x0070}
0x1135a…1138a Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x00b0, t01=0x0092}
0x1138a…113b6 Head {h00=0x0028, h01=0x0024, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x00b0, t01=0x00c2}
0x113b6…113d0 Head {h00=0x0016, h01=0x0012, text=» RF(E) GET:40 YES!«, t00=0x00b0, t01=0x00ee}
0x113d0…113f4 Head {h00=0x0020, h01=0x001c, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x00b0, t01=0x0108}
0x113f4…11416 Head {h00=0x001e, h01=0x0019, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x00b0, t01=0x012c}
0x11416…11430 Head {h00=0x0016, h01=0x0012, text=» RF(E) GET:50 YES!«, t00=0x00b0, t01=0x014e}
0x11430…11442 Head {h00=0x000e, h01=0x000a, text=» RB GET:30«, t00=0x00b0, t01=0x0168}
0x11442…11456 Head {h00=0x0010, h01=0x000c, text=»GET:40 EQU *«, t00=0x00b0, t01=0x017a}
0x11456…11460 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x018e}
0x11460…11484 Head {h00=0x0020, h01=0x001b, text=»* CHECK APPLICATION NUMBER «, t00=0x00b1, t01=0x0008}
0x11484…1148e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x002c}
0x1148e…114b0 Head {h00=0x001e, h01=0x001a, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x00b1, t01=0x0036}
0x114b0…114d4 Head {h00=0x0020, h01=0x001c, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x00b1, t01=0x0058}
0x114d4…114f8 Head {h00=0x0020, h01=0x001b, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x00b1, t01=0x007c}
0x114f8…1151e Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x00b1, t01=0x00a0}
0x1151e…1154e Head {h00=0x002c, h01=0x0028, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x00b1, t01=0x00c6}
0x1154e…11564 Head {h00=0x0012, h01=0x000e, text=» RF(NE) GET:50«, t00=0x00b1, t01=0x00f6}
0x11564…1156e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x010c}
0x1156e…11592 Head {h00=0x0020, h01=0x001b, text=»* CONFIGURATION FILE FOUND «, t00=0x00b1, t01=0x0116}
0x11592…1159c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x013a}
0x1159c…115c4 Head {h00=0x0024, h01=0x001f, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x00b1, t01=0x0144}
0x115c4…115e2 Head {h00=0x001a, h01=0x0016, text=» ST A1,SAVE20,A13 SAVE«, t00=0x00b1, t01=0x016c}
0x115e2…11606 Head {h00=0x0020, h01=0x001c, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x00b1, t01=0x018a}
0x11606…11616 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x00b2, t01=0x001e}
0x11616…1162a Head {h00=0x0010, h01=0x000c, text=»GET:50 EQU *«, t00=0x00b2, t01=0x002e}
0x1162a…1164e Head {h00=0x0020, h01=0x001b, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x00b2, t01=0x0042}
0x1164e…11678 Head {h00=0x0026, h01=0x0021, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x00b2, t01=0x0066}
0x11678…116a8 Head {h00=0x002c, h01=0x0027, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x00b2, t01=0x0090}
0x116a8…116c2 Head {h00=0x0016, h01=0x0012, text=» RB(P) GET:20 YES!«, t00=0x00b2, t01=0x00c0}
0x116c2…116e8 Head {h00=0x0022, h01=0x001e, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x00b2, t01=0x00da}
0x116e8…11702 Head {h00=0x0016, h01=0x0012, text=» RB(NE) GET:10 NO!«, t00=0x00b2, t01=0x0100}
0x11702…11738 Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x00b2, t01=0x011a}
0x11738…11764 Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x00b2, t01=0x0150}
0x11764…1177e Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x00b2, t01=0x017c}
0x1177e…11788 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x0008}
0x11788…117c6 Head {h00=0x003a, h01=0x0036, text=»* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x00b3, t01=0x0012}
0x117c6…117f4 Head {h00=0x002a, h01=0x0025, text=»* LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x00b3, t01=0x0050}
0x117f4…117fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x007e}
0x117fe…11812 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/78 «, t00=0x00b3, t01=0x0088}
0x11812…1183c Head {h00=0x0026, h01=0x0021, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x00b3, t01=0x009c}
0x1183c…11850 Head {h00=0x0010, h01=0x000c, text=»GET:70 EQU *«, t00=0x00b3, t01=0x00c6}
0x11850…11866 Head {h00=0x0012, h01=0x000d, text=» CF A14,SOPIN «, t00=0x00b3, t01=0x00da}
0x11866…1188c Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/003C ALLOWED SWITCH «, t00=0x00b3, t01=0x00f0}
0x1188c…118a6 Head {h00=0x0016, h01=0x0011, text=» RB(Z) GET:70 NO! «, t00=0x00b3, t01=0x0116}
0x118a6…118bc Head {h00=0x0012, h01=0x000d, text=» LDKL A2,LMP1 «, t00=0x00b3, t01=0x0130}
0x118bc…118e6 Head {h00=0x0026, h01=0x0021, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x00b3, t01=0x0146}
0x118e6…118f8 Head {h00=0x000e, h01=0x000a, text=» SRN A1,A2«, t00=0x00b3, t01=0x0170}
0x118f8…11924 Head {h00=0x0028, h01=0x0023, text=» LD A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x00b3, t01=0x0182}
0x11924…1193c Head {h00=0x0014, h01=0x000f, text=» CWK A2,5 DISC? «, t00=0x00b4, t01=0x001e}
0x1193c…11956 Head {h00=0x0016, h01=0x0012, text=» RF(G) GET:80 YES!«, t00=0x00b4, t01=0x0036}
0x11956…1196c Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00b4, t01=0x0050}
0x1196c…11996 Head {h00=0x0026, h01=0x0021, text=» CF A14,FDINIT INIT FLEXIBLE DISC «, t00=0x00b4, t01=0x0066}
0x11996…119a8 Head {h00=0x000e, h01=0x000a, text=» RB GETFIL«, t00=0x00b4, t01=0x0090}
0x119a8…119b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x00a2}
0x119b4…119ca Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00b4, t01=0x00ae}
0x119ca…119e0 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b4, t01=0x00c4}
0x119e0…11a0a Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b4, t01=0x00da}
0x11a0a…11a16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x0104}
0x11a16…11a2a Head {h00=0x0010, h01=0x000c, text=»GET:80 EQU *«, t00=0x00b4, t01=0x0110}
0x11a2a…11a3e Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00b4, t01=0x0124}
0x11a3e…11a5e Head {h00=0x001c, h01=0x0018, text=» CF A14,DUINIT INIT DISC«, t00=0x00b4, t01=0x0138}
0x11a5e…11a70 Head {h00=0x000e, h01=0x000a, text=» RB GETFIL«, t00=0x00b4, t01=0x0158}
0x11a70…11a7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x016a}
0x11a7c…11a90 Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00b4, t01=0x0176}
0x11a90…11aa6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b4, t01=0x018a}
0x11aa6…11ad0 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b5, t01=0x0010}
0x11ad0…11adc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x003a}
0x11adc…11af0 Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x00b5, t01=0x0046}
0x11af0…11b18 Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x00b5, t01=0x005a}
0x11b18…11b32 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x00b5, t01=0x0082}
0x11b32…11b5c Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x00b5, t01=0x009c}
0x11b5c…11b8a Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x00b5, t01=0x00c6}
0x11b8a…11bbc Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x00b5, t01=0x00f4}
0x11bbc…11bd6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x00b5, t01=0x0126}
0x11bd6…11bf6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x00b5, t01=0x0140}
0x11bf6…11c24 Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x00b5, t01=0x0160}
0x11c24…11c4e Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x00b5, t01=0x018e}
0x11c4e…11c68 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x00b6, t01=0x0028}
0x11c68…11c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0042}
0x11c72…11cb0 Head {h00=0x003a, h01=0x0050, text=»* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x00b6, t01=0x004c}
0x11cb0…11ce0 Head {h00=0x002c, h01=0x0050, text=»* TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x00b6, t01=0x008a}
0x11ce0…11cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00ba}
0x11cea…11d14 Head {h00=0x0026, h01=0x0050, text=» IM SCTSWB INDICATE SWB-FILE FOUND«, t00=0x00b6, t01=0x00c4}
0x11d14…11d3e Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x00b6, t01=0x00ee}
0x11d3e…11d68 Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x00b6, t01=0x0118}
0x11d68…11d86 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE25,A13 SAVE«, t00=0x00b6, t01=0x0142}
0x11d86…11da4 Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE26,A13 SAVE«, t00=0x00b6, t01=0x0160}
0x11da4…11dd4 Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x00b6, t01=0x017e}
0x11dd4…11e06 Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x00b7, t01=0x001e}
0x11e06…11e32 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x00b7, t01=0x0050}
0x11e32…11e60 Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x00b7, t01=0x007c}
0x11e60…11e8a Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x00b7, t01=0x00aa}
0x11e8a…11e9c Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x00b7, t01=0x00d4}
0x11e9c…11ebe Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x00b7, t01=0x00e6}
0x11ebe…11ee4 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x00b7, t01=0x0108}
0x11ee4…11f1a Head {h00=0x0032, h01=0x0050, text=»GET:98 ST A3,SAVE27,A13 SAVE BIT 16-31 OF D.A.«, t00=0x00b7, t01=0x012e}
0x11f1a…11f4a Head {h00=0x002c, h01=0x0050, text=» ST A4,SAVE28,A13 SAVE BIT 0-15 OF D.A. «, t00=0x00b7, t01=0x0164}
0x11f4a…11f60 (184, 0, 400) Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x00b8, t01=0x0004}
0x11f60…11f6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x001a}
0x11f6e…11fac Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00b8, t01=0x0028}
0x11fac…11fea Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00b8, t01=0x0066}
0x11fea…12028 Head {h00=0x003a, h01=0x0050, text=»* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * «, t00=0x00b8, t01=0x00a4}
0x12028…12066 Head {h00=0x003a, h01=0x0050, text=»* =============================================== * «, t00=0x00b8, t01=0x00e2}
0x12066…120a4 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00b8, t01=0x0120}
0x120a4…120e2 Head {h00=0x003a, h01=0x0050, text=»* LODSEG - LOAD ONE SEGMENT * «, t00=0x00b8, t01=0x015e}
0x120e2…12120 Head {h00=0x003a, h01=0x0050, text=»* ========================= * «, t00=0x00b9, t01=0x000c}
0x12120…1215e Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00b9, t01=0x004a}
0x1215e…1219c Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A8 - RELOCATION BASE * «, t00=0x00b9, t01=0x0088}
0x1219c…121da Head {h00=0x003a, h01=0x0050, text=»* A10 - EFFECTIVE LENGTH * «, t00=0x00b9, t01=0x00c6}
0x121da…12218 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00b9, t01=0x0104}
0x12218…12256 Head {h00=0x003a, h01=0x0050, text=»* EXIT: * «, t00=0x00b9, t01=0x0142}
0x12256…12294 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00b9, t01=0x0180}
0x12294…122d2 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A7 * «, t00=0x00ba, t01=0x002e}
0x122d2…12310 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00ba, t01=0x006c}
0x12310…1234e Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: MOVE,READ * «, t00=0x00ba, t01=0x00aa}
0x1234e…1238c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x00ba, t01=0x00e8}
0x1238c…123ca Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00ba, t01=0x0126}
0x123ca…123de Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x00ba, t01=0x0164}
0x123de…12406 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A9 GET SAVE09 OF BUFFER «, t00=0x00ba, t01=0x0178}
0x12406…1241e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x00bb, t01=0x0010}
0x1241e…12448 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x00bb, t01=0x0028}
0x12448…1245e Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x00bb, t01=0x0052}
0x1245e…1247e Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x00bb, t01=0x0068}
0x1247e…12498 Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x00bb, t01=0x0088}
0x12498…124b8 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x00bb, t01=0x00a2}
0x124b8…124ca Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x00bb, t01=0x00c2}
0x124ca…124de Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x00bb, t01=0x00d4}
0x124de…12510 Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x00bb, t01=0x00e8}
0x12510…1252e Head {h00=0x001a, h01=0x0050, text=» RF(NN) LOD:50 NO YET!«, t00=0x00bb, t01=0x011a}
0x1252e…12554 Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x00bb, t01=0x0138}
0x12554…1256e Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x00bb, t01=0x015e}
0x1256e…1259e Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x00bb, t01=0x0178}
0x1259e…125ca Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x00bc, t01=0x0018}
0x125ca…125dc Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x00bc, t01=0x0044}
0x125dc…125f0 Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x00bc, t01=0x0056}
0x125f0…12626 Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x00bc, t01=0x006a}
0x12626…12652 Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x00bc, t01=0x00a0}
0x12652…12666 Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x00bc, t01=0x00cc}
0x12666…1268c Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x00bc, t01=0x00e0}
0x1268c…126a6 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x00bc, t01=0x0106}
0x126a6…126d2 Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x00bc, t01=0x0120}
0x126d2…126f0 Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x00bc, t01=0x014c}
0x126f0…12704 Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x00bc, t01=0x016a}
0x12704…1272a Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x00bc, t01=0x017e}
0x1272a…12758 Head {h00=0x002a, h01=0x0050, text=» LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? «, t00=0x00bd, t01=0x0014}
0x12758…12772 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x00bd, t01=0x0042}
0x12772…127a8 Head {h00=0x0032, h01=0x0050, text=» IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK«, t00=0x00bd, t01=0x005c}
0x127a8…127dc Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x00bd, t01=0x0092}
0x127dc…12810 Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x00bd, t01=0x00c6}
0x12810…12832 Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x00bd, t01=0x00fa}
0x12832…12852 Head {h00=0x001c, h01=0x0050, text=» SUK A3,240 LENGTH=240? «, t00=0x00bd, t01=0x011c}
0x12852…1286c Head {h00=0x0016, h01=0x0050, text=» RF(Z) LOD:54 YES!«, t00=0x00bd, t01=0x013c}
0x1286c…128a0 Head {h00=0x0030, h01=0x0050, text=» ADKL A10,0 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x00bd, t01=0x0156}
0x128a0…128ba Head {h00=0x0016, h01=0x0050, text=» RF(Z) LOD:55 YES!«, t00=0x00bd, t01=0x018a}
0x128ba…128d4 Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x00be, t01=0x0014}
0x128d4…128e8 Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x00be, t01=0x002e}
0x128e8…12918 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x00be, t01=0x0042}
0x12918…12940 Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE07,A13 GET TO-ADDRESS«, t00=0x00be, t01=0x0072}
0x12940…12970 Head {h00=0x002c, h01=0x0050, text=» ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS«, t00=0x00be, t01=0x009a}
0x12970…12996 Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x00be, t01=0x00ca}
0x12996…129b6 Head {h00=0x001c, h01=0x0050, text=» ANK A4,1 MMU IN SYSTEM?«, t00=0x00be, t01=0x00f0}
0x129b6…129d0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) LOD:60 NO! «, t00=0x00be, t01=0x0110}
0x129d0…129f8 Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x00be, t01=0x012a}
0x129f8…12a0a Head {h00=0x000e, h01=0x0050, text=» RF LOD:65«, t00=0x00be, t01=0x0152}
0x12a0a…12a1e Head {h00=0x0010, h01=0x0050, text=»LOD:60 EQU *«, t00=0x00be, t01=0x0164}
0x12a1e…12a30 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00be, t01=0x0178}
0x12a30…12a44 Head {h00=0x0010, h01=0x0050, text=»LOD:65 EQU *«, t00=0x00be, t01=0x018a}
0x12a44…12a68 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x00bf, t01=0x000e}
0x12a68…12a7e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x00bf, t01=0x0032}
0x12a7e…12a94 Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x00bf, t01=0x0048}
0x12a94…12aa8 Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x00bf, t01=0x005e}
0x12aa8…12ad4 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x00bf, t01=0x0072}
0x12ad4…12afc Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x00bf, t01=0x009e}
0x12afc…12b10 Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x00bf, t01=0x00c6}
0x12b10…12b24 Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x00bf, t01=0x00da}
0x12b24…12b38 Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x00bf, t01=0x00ee}
0x12b38…12b4a Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x00bf, t01=0x0102}
0x12b4a…12b58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x0114}
0x12b58…12b92 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00bf, t01=0x0122}
0x12b92…12bcc Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00bf, t01=0x015c}
0x12bcc…12c06 Head {h00=0x0036, h01=0x0050, text=»* REBUF - RELOCATE BUFFER ROUTINE * «, t00=0x00c0, t01=0x0008}
0x12c06…12c40 Head {h00=0x0036, h01=0x0050, text=»* =============================== * «, t00=0x00c0, t01=0x0042}
0x12c40…12c7a Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x007c}
0x12c7a…12cb4 Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: LODCOM/LODSEG * «, t00=0x00c0, t01=0x00b6}
0x12cb4…12cee Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x00f0}
0x12cee…12d28 Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A3 - SAVE09 OF BUFFER *«, t00=0x00c0, t01=0x012a}
0x12d28…12d62 Head {h00=0x0036, h01=0x0050, text=»* A2 - SAVE09 OF RELOCATION TABLE *«, t00=0x00c0, t01=0x0164}
0x12d62…12d9c Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x000e}
0x12d9c…12dd6 Head {h00=0x0036, h01=0x0050, text=»* EXIT: * «, t00=0x00c1, t01=0x0048}
0x12dd6…12e10 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x0082}
0x12e10…12e4a Head {h00=0x0036, h01=0x0050, text=»* WORK REGISTERS: A1,A4,A5,A6 * «, t00=0x00c1, t01=0x00bc}
0x12e4a…12e84 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x00f6}
0x12e84…12ebe Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x00c1, t01=0x0130}
0x12ebe…12ef8 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x016a}
0x12ef8…12f32 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c2, t01=0x0014}
0x12f32…12f46 Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x00c2, t01=0x004e}
0x12f46…12f78 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE«, t00=0x00c2, t01=0x0062}
0x12f78…12f8a Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x00c2, t01=0x0094}
0x12f8a…12f9e Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x00c2, t01=0x00a6}
0x12f9e…12fc4 Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x00c2, t01=0x00ba}
0x12fc4…12ff0 Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x00c2, t01=0x00e0}
0x12ff0…13018 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x00c2, t01=0x010c}
0x13018…1302c Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x00c2, t01=0x0134}
0x1302c…1305c Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x00c2, t01=0x0148}
0x1305c…1307e Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x00c2, t01=0x0178}
0x1307e…1309a Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x00c3, t01=0x000a}
0x1309a…130ba Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x00c3, t01=0x0026}
0x130ba…130ce Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x00c3, t01=0x0046}
0x130ce…130ee Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x00c3, t01=0x005a}
0x130ee…13118 Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x00c3, t01=0x007a}
0x13118…13132 Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x00c3, t01=0x00a4}
0x13132…1315a Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x00c3, t01=0x00be}
0x1315a…13174 Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x00c3, t01=0x00e6}
0x13174…1319a Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x00c3, t01=0x0100}
0x1319a…131ac Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x00c3, t01=0x0126}
0x131ac…131c0 Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x00c3, t01=0x0138}
0x131c0…131d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c3, t01=0x014c}
0x131d0…131de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x015c}
0x131de…13210 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x00c3, t01=0x016a}
0x13210…13242 Head {h00=0x002e, h01=0x0029, text=»* GETCON - GET CONTENT IN MEMORY WORD * «, t00=0x00c4, t01=0x000c}
0x13242…13274 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x00c4, t01=0x003e}
0x13274…1327e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x0070}
0x1327e…132a0 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: SEGGEN «, t00=0x00c4, t01=0x007a}
0x132a0…132aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x009c}
0x132aa…132d0 Head {h00=0x0022, h01=0x001e, text=»* ENTRY: A2 - MEMORY ADDRESS«, t00=0x00c4, t01=0x00a6}
0x132d0…13302 Head {h00=0x002e, h01=0x0029, text=»* MMUOPT - MMU OPTION SWITCH (X) «, t00=0x00c4, t01=0x00cc}
0x13302…1330c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x00fe}
0x1330c…1333c Head {h00=0x002c, h01=0x0028, text=»* EXIT: A1 - CONTENT OF MEMORY ADDRESS«, t00=0x00c4, t01=0x0108}
0x1333c…13346 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x0138}
0x13346…13360 Head {h00=0x0016, h01=0x0013, text=»* WORK REGISTER: «, t00=0x00c4, t01=0x0142}
0x13360…1336a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x015c}
0x1336a…13382 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x00c4, t01=0x0166}
0x13382…1338c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00c4, t01=0x017e}
0x1338c…133a0 Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x00c4, t01=0x0188}
0x133a0…133c6 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00c5, t01=0x000c}
0x133c6…133e2 Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x00c5, t01=0x0032}
0x133e2…133fe Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x00c5, t01=0x004e}
0x133fe…13410 Head {h00=0x000e, h01=0x000a, text=» ELR A1,A2«, t00=0x00c5, t01=0x006a}
0x13410…13422 Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x00c5, t01=0x007c}
0x13422…13436 Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x00c5, t01=0x008e}
0x13436…1344a Head {h00=0x0010, h01=0x000b, text=» LDR* A1,A2 «, t00=0x00c5, t01=0x00a2}
0x1344a…1345e Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x00c5, t01=0x00b6}
0x1345e…13476 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00c5, t01=0x00ca}
0x13476…1348a Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x00c5, t01=0x00e2}
0x1348a…1348e Head {h00=0x4004, h01=0x0000}
0x1348e…13492 00 c5 00 f6 ┆ ┆
0x13492…134e2 (198, 2, 96) 00 54 00 50 00 53 20 08 20 04 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P S ┆
0x134e2…134f2 00 00 00 00 00 c6 00 04 40 04 00 00 00 c6 00 5c ┆ @ ┆
0x134f2…134fa (199, 1, 8) 20 04 00 00 00 c7 00 04 ┆ ┆
0x134fa…1354a (200, 0, 400) 84 56 00 00 00 58 54 00 90 57 00 00 00 58 11 08 1f 08 83 46 00 04 1b f0 50 00 92 a0 00 0f 01 84 00 2c 00 28 03 13 00 00 0c ed 02 48 00 00 50 00 92 a0 00 08 83 1c 82 56 00 00 00 2c 93 57 00 00 00 2c 84 40 00 00 00 0c 24 01 50 00 00 10 00 24 ┆ V XT W X F P , ( H P V , W , @ $ P $┆
0x1354a…1359a 00 2c 00 28 03 13 00 10 0d 07 10 00 70 8c 57 00 f6 97 00 00 00 44 82 8a 54 00 f0 3a 81 20 01 00 81 41 0c a4 f6 a1 00 00 5f 84 84 08 00 10 00 54 00 2c 00 28 03 13 00 00 0d 25 00 00 1c 02 14 02 06 10 81 30 56 00 85 2c 95 02 85 2d 13 02 eb 08 ┆ , ( p W D T : A _ T , ( % 0V , - ┆
0x1359a…135ea 50 00 1e 01 58 18 39 41 5f 16 f0 3a 00 10 00 84 00 1e 00 1a 03 0c 00 00 0d 45 40 00 81 40 00 00 00 0c 21 01 50 00 d1 28 57 00 81 28 f0 3a 00 10 00 b4 00 48 00 44 04 21 00 ed 00 4b 50 24 00 6b 50 1a 00 7f 50 04 00 b7 51 22 00 c7 55 0a 00 cb ┆P X 9A_ : E@ @ ! P (W ( : H D ! KP$ kP P Q" U ┆
0x135ea…1363a 52 3e 00 cd 50 30 00 d1 50 20 00 dd 08 ba 00 e3 0d 1e 00 e7 08 ba 00 eb 50 32 00 ef 08 76 00 fb 0b 0e 00 fd 57 1a 01 07 0a 78 00 10 00 d6 00 48 00 44 04 21 60 60 01 09 57 0e 01 17 09 04 01 1b 0d 1e 01 3d 50 16 01 43 50 10 01 49 50 0a 01 53 ┆R> P0 P P2 v W x H D !`` W =P CP IP S┆
0x1363a…1368a 57 08 01 63 56 2c 01 6f 50 06 01 85 03 50 01 8d 03 50 01 8f 57 0e 01 97 52 f0 01 9d 50 ea 01 ad 50 84 01 b5 52 7c 00 10 01 22 00 48 00 44 04 21 00 40 01 d7 52 22 02 09 54 04 02 31 50 46 02 4b 55 08 02 4f 55 5e 02 5f 51 0a 02 69 56 44 02 83 ┆W cV, oP P P W R P P R| " H D ! @ R" T 1PF KU OU^ _Q iVD ┆
0x1368a…136da (201, 0, 400) 54 4a 02 a3 50 12 02 cd 03 fa 02 ed 50 10 02 f7 50 06 03 03 54 06 03 09 57 12 03 15 50 06 03 1f 54 04 00 10 01 6e 00 48 00 44 04 21 00 0e 03 4f 57 10 03 63 54 04 03 73 57 1c 03 7f 56 08 03 93 56 04 03 97 57 02 03 9f 50 0a 03 c9 50 06 03 cf ┆TJ P P P T W P T n H D ! OW cT sW V V W P P ┆
0x136da…1372a 57 1e 03 dd 56 04 03 e1 57 02 03 e5 51 08 04 09 0c 9e 04 15 04 fc 04 21 04 fc 04 25 50 04 00 11 00 2a 00 48 00 44 04 21 2f 0f 04 37 50 06 04 45 50 2a 04 49 0d 44 04 51 50 1e 04 61 04 fc 04 75 0d 44 04 81 0d 44 04 93 0d 14 04 a1 50 5a 04 b1 ┆W V W Q ! %P * H D !/ 7P EP* I D QP a u D D PZ ┆
0x1372a…1377a 54 04 04 bd 50 12 05 03 56 5e 05 07 07 24 05 0b 07 0a 05 13 07 0a 05 1b 06 de 00 11 00 76 00 48 00 44 04 21 da df 05 2d 08 ba 05 31 08 ba 05 39 50 48 05 3d 08 76 05 41 07 26 05 43 57 3e 05 47 08 ba 05 4b 54 0c 05 51 08 b2 05 55 08 ba 05 57 ┆T P V^ $ v H D ! - 1 9PH = v A & CW> G KT Q U W┆
0x1377a…137ca 57 06 05 5d 08 b2 05 61 06 84 05 65 0b 9e 05 81 07 3e 05 85 07 48 00 11 00 c2 00 48 00 44 04 21 ff ff 05 89 06 ca 05 8d 07 62 05 91 06 ca 05 95 07 fa 05 99 08 2a 05 9d 07 ce 05 a1 06 ca 05 a5 08 02 05 a9 08 2a 05 ad 07 ce 05 b1 06 ca 05 b5 ┆W ] a e > H H D ! b * * ┆
0x137ca…1381a 08 0a 05 b9 08 2a 05 bd 07 68 05 c1 06 ca 05 c5 07 68 00 11 01 0e 00 48 00 44 04 21 bf fb 05 c9 06 ca 05 d3 50 26 05 d7 08 3a 05 db 08 12 05 df 08 2a 05 e3 07 62 05 e7 06 ca 05 eb 08 1a 05 ef 08 2a 05 f3 07 5c 05 f7 06 ca 05 fd 07 68 06 01 ┆ * h h H D ! P& : * b * h ┆
0x1381a…1386a (202, 0, 398) 06 ca 06 0b 50 16 06 0f 08 3a 06 13 08 22 00 11 01 5a 00 48 00 44 04 21 ef e6 06 17 08 2a 06 1b 07 62 06 1f 06 ca 06 37 54 0e 06 3f 07 4c 06 43 07 48 06 51 08 4a 06 55 06 ca 06 5d 0b d7 06 61 0c 1d 06 65 0b 9e 06 6d 52 16 06 75 54 0e 06 7b ┆ P : " Z H D ! * b 7T ? L C H Q J U ] a e mR uT {┆
0x1386a…138ba 0b 66 06 81 0b 7a 06 db 50 14 00 12 00 16 00 48 00 44 04 21 0e 00 06 e1 50 0e 06 e7 50 4e 06 f9 54 06 07 1d 54 04 07 21 07 3e 07 29 08 ba 07 41 07 40 07 4f 54 fa 07 59 54 f0 07 61 57 08 07 67 57 02 07 73 51 d6 07 77 50 1e 07 7d 52 cc 07 7f ┆ f z P H D ! P PN T T ! > ) A @ OT YT aW gW sQ wP }R ┆
0x138ba…1390a 50 06 07 85 57 04 00 12 00 62 00 48 00 44 04 21 80 00 07 8d 07 98 07 91 50 2e 07 9b 52 ae 07 9f 54 24 07 a7 50 14 07 ad 50 0e 07 b3 50 08 07 b9 50 02 07 bb 57 8e 07 bf 57 04 07 cb 54 7e 07 d7 52 72 07 dd 55 0c 07 e3 52 66 07 e9 51 60 07 f7 ┆P W b H D ! P. R T$ P P P P W W T~ Rr U Rf Q` ┆
0x1390a…1395a 54 52 00 12 00 ae 00 48 00 44 04 21 fc f8 07 fd 08 52 08 05 08 56 08 0d 08 5a 08 15 08 5e 08 1d 08 64 08 25 08 68 08 2f 54 1a 08 3f 54 02 08 7b 08 b2 08 99 08 b2 08 9f 08 b2 08 a9 08 b2 08 af 08 b2 08 cb 54 2e 08 cf 54 0a 08 d3 50 16 00 12 ┆TR H D ! R V Z ^ d % h /T ?T { T. T P ┆
0x1395a…139a8 00 fa 00 48 00 44 04 21 07 df 08 e5 50 1c 08 e9 52 18 08 f1 50 08 09 0d 50 08 09 11 50 1a 09 19 09 5a 09 1d 09 90 09 21 09 94 09 25 09 bc 09 29 09 c0 09 2b 57 1c 09 2f 09 ce 09 3b 0a 08 09 3f 0a 0c 09 43 0a 34 09 47 0a 38 00 12 01 46 ┆ H D ! P R P P P Z ! % ) +W / ; ? C 4 G 8 F┆
0x139a8…139f8 (203, 2, 378) 00 48 00 44 04 21 e0 03 09 4b 0d 1e 09 53 0b a4 09 57 0b ba 09 73 51 02 09 79 50 02 09 87 50 10 09 a7 50 02 09 dd 52 04 09 f3 55 02 09 ff 50 10 0a 1f 50 02 0a 45 52 2c 0a 47 51 24 0a 5f 51 12 0a 7b 0a b8 0a 7f 0a bc 00 13 00 04 00 48 00 44 ┆ H D ! K S W sQ yP P P R U P P ER, GQ$ _Q { H D┆
0x139f8…13a48 04 21 fc 1f 0a 83 0a fc 0a 87 0b 00 0a 8b 0a 9e 0a 8f 0d 1e 0a 97 0b a4 0a 9b 0b ba 0a b3 50 0c 0a c5 52 02 0a db 56 06 0a df 56 02 0a ed 52 04 0b 11 0b 4c 0b 15 0d 1e 0b 1d 0b a4 0b 21 0b ba 0b 25 0b 66 00 13 00 50 00 48 00 44 04 21 78 60 ┆ ! P R V V R L ! % f P H D !x`┆
0x13a48…13a98 0b 29 54 10 0b 2d 0b 78 0b 31 0b 6a 0b 39 0b 6a 0b 3f 0b 66 0b 6d 54 0c 0b 83 54 12 0b 89 56 0a 0b 93 53 02 0b a5 0b a4 0b bb 0b ba 0b c5 50 4a 0b cf 54 40 0b d5 54 3a 0b dd 54 72 0b e5 50 08 00 13 00 9c 00 48 00 44 04 21 00 04 0b eb 50 24 ┆ )T - x 1 j 9 j ? f mT T V S PJ T@ T: Tr P H D ! P$┆
0x13a98…13ae8 0c 01 54 0e 0c 23 54 78 0c 43 51 06 0c 55 54 46 0c 8b 53 02 0c 8d 57 06 0c a9 56 04 0c ad 57 18 0c b1 56 14 0c b7 54 08 0c bf 57 12 0c cb 50 06 0c d1 0d 22 0c d9 54 1a 0c e9 50 06 00 13 00 e8 00 2c 00 28 04 13 08 00 0c ef 50 04 0d 05 50 04 ┆ T #Tx CQ UTF S W V W V T W P " T P , ( P P ┆
0x13ae8…13b22 0d 09 57 04 0d 11 54 0a 0d 1f 0d 1e 0d 2d 56 06 0d 39 50 08 0d 4b 50 04 0d 4f 57 02 00 13 01 34 00 0e 00 0a 07 04 00 19 00 00 0d 54 00 00 00 13 01 64 40 04 00 00 00 13 01 76 ┆ W T -V 9P KP OW 4 T d@ v┆
0x13b22…13b72 (204, 0, 400) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 53 59 53 4c 4f 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 20 31 30 2e 30 20 38 30 2d 30 33 2d 31 35 20 38 37 30 31 30 35 30 34 31 30 30 30 00 14 00 04 00 26 ┆ J F IDENT SYSLOD REL 10.0 80-03-15 870105041000 &┆
0x13b72…13bc2 00 22 01 10 c4 53 59 53 4c 4f 44 4b c4 53 59 53 42 41 53 00 c4 4e 55 4d 53 45 47 c4 c4 50 52 47 4c 47 31 00 00 14 00 52 00 10 00 0c 05 05 d4 4e 55 4d 53 45 47 c4 00 0a 00 14 00 7c 00 10 00 0c 05 05 d4 50 52 47 4c 47 31 00 00 02 00 14 00 90 ┆ " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 ┆
0x13bc2…13c12 00 10 00 0c 05 05 dc 53 59 53 42 41 53 00 00 00 00 14 00 a4 00 10 00 0c 05 05 dc 53 59 53 4c 4f 44 4b 00 18 00 14 00 b8 00 0e 00 0a 02 04 c2 53 43 54 53 46 41 d3 00 14 00 cc 00 0e 00 0a 02 04 c2 53 43 54 49 50 4c 20 00 14 00 de 00 2c 00 28 ┆ SYSBAS SYSLODK SCTSFA SCTIPL , (┆
0x13c12…13c62 03 13 00 00 00 01 00 04 01 00 00 00 00 00 ff ff 00 00 19 09 11 01 08 28 24 53 57 41 50 20 20 20 81 41 00 02 00 02 82 41 00 14 00 f0 00 0e 00 0a 02 04 c2 53 43 54 41 4e 4f de 00 14 01 20 00 0e 00 0a 02 04 c2 53 43 54 41 44 41 4c 00 14 01 32 ┆ ($SWAP A A SCTANO SCTADAL 2┆
0x13c62…13cb2 00 2c 00 28 03 13 00 00 00 1f 92 48 00 00 00 04 83 41 00 00 00 06 80 c1 00 00 00 08 87 41 00 02 00 08 81 c1 00 00 00 02 81 20 04 00 00 14 01 44 00 0a 00 06 02 02 62 52 45 4c 00 14 01 74 00 0e 00 0a 02 04 c2 53 43 54 4f 50 54 d3 00 14 01 82 ┆ , ( H A A D bREL t SCTOPT ┆