|
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: 55458 (0xd8a2)
Notes: pts_type(SC)
Names: »SYSLOD.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/SYSLOD.SC«
└─⟦1fa4b7c7b⟧ Bits:30009694 Philips computer tape "600410A"
└─⟦this⟧ »MODMON/SYSLOD.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »M:92OD/SYSLOD.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/SYSLOD.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:PTB/SYSLOD.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/SYSLOD.SC«
IDENT SYSLOD REL 9.2 79-12-19 870105040920 =1,LRN ONE SECTOR TOO GREAT REL 9.2 79-12-19 ST ENTRY SYSLOD ENTRY SYSBAS ENTRY NUMSEG ENTRY PRGLG1 *************************** * * * ENTRIES AND EXTERNALS * * * *************************** EXTRN CONVRT EXTRN LDALEN EXTRN FREQUE EXTRN INTLT1 EXTRN PAGQUE EXTRN REL EXTRN SCLASS EXTRN SCTADA EXTRN SCTANO EXTRN SCTBLK EXTRN SCTBUG EXTRN SCTCDT EXTRN SCTDCT EXTRN SCTDMC EXTRN SCTDMI EXTRN SCTDML EXTRN SCTDMT EXTRN SCTEFA EXTRN SCTLAC EXTRN SCTLAP EXTRN SCTMMC EXTRN SCTMMP EXTRN SCTMSZ EXTRN SCTNOS EXTRN SCTNOP EXTRN SCTNPE EXTRN SCTOPT EXTRN SCTPAG EXTRN SCTPLD EXTRN SCTPSZ EXTRN SCTSEG EXTRN SCTSFA EXTRN SCTSWB EXTRN SCTTTT EXTRN TCLASS EXTRN TTMJOB EJECT EXTRN M:REL RELOCATION CONSTANT 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 SAVE20 EXTRN SAVE22 EXTRN SAVE25 EXTRN ERROR EXTRN MMDDIV EXTRN TABBE EXTRN MMEND EXTRN MOVE * * CONDITIONAL ASSEMBLY * TEST=1 GIVES TEST VERSION * TEST EQU 0 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 402 DISC/FLEXIBLE DISC BUFFER LENGTH RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH FDCU EQU /09 FLEXIBLE DISC CU ADDRESS FDIOP EQU FDCU+FDCU MUX ADDRESS MUXCC EQU /80CD 1:ST MUX WORD QBLFAC EQU 9 BLOCKING FACTOR * * DATA AREA DEFINITION * SYSBAS EQU * MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS 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 ****************************************************** * * * APPLICATION LOAD PART OF SYSLOD * * =============================== * * * * ENTRY: A1 - APPLICATION DISC ADDRESS * * A2 - PROGRAM LOAD DEVICE * * A3 - APPLICATION NUMBER * * 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,SCTADA SAVE APPLICATION DISC ADDRESS ST A2,SCTPLD SAVE PROGRAM LOAD DEVICE ST A3,SCTANO APPLICATION NUMBER ST A9,SCTSFA SAVE SAVE09 OF FREE AREA IFT TEST=1 LDKL A14,SYSBAS LDR A13,P ADKL A13,10 LD A1,SCTBUG ABR(NZ) A1 XIF 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 * * GET APPLICATION DISC ADDRESS * LD A11,SCTADA * * INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE LD A9,SCTSFA POINTER TO READ BUFFER LDR A3,A9 SAVE LD A2,SCTPLD GET PROGRAM LOAD DEVICE LDR A1,A2 SAVE * * CHECK PROGRAM LOAD MEDIUM * ANK A2,/C0 CHECK IF CASSETTE RF(P) AP:210 YES! ADKL A3,BUFLEN+8 NEW START OF FREE AREA ST A3,SCTSFA ST A9,MXBUF FLEXIBLE DISC/DISC BUFFER ADDRESS ADKL A9,2 SKIP CYLINDER ID LDR A2,A1 GET PROGRAM LOAD DEVICE SRC A2,1 CHECK BIT 15 RF(N) AP:220 FLEXIBLE DISC RF AP:230 DISC AP:210 EQU * * * PROGRAM LOAD DEVICE = CASSETTE * ADKL A3,CBLEN NEW START OF FREE AREA ST A3,SCTSFA SAVE LDKL A1,RDBLK GET SUBROUTINE ADDRESS 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 EJECT AP:220 EQU * * * PROGRAM LOAD DEVICE = FLEXIBLE DISC * * * MODIFY SCTPLD: /F8 - DRIVE 1, /F9 - DRIVE 2 * ANK A2,8 SRL A2,3 ORK A2,/F8 ST A2,SCTPLD * * INIT FLEXIBLE DISC * CF A14,FDINIT * * READ FIRST SECTOR FROM FLEXIBLE DISC * CF A14,FRDSEC RF AP:235 EJECT AP:230 EQU * * * PROGRAM LOAD DEVICE = DISC * * * MODIFY SCTPLD: /F0 - CARTRIDGE DISC, /F1 - FIX DISC * ANK A2,/10 SRL A2,4 XRK A2,1 ORK A2,/F0 ST A2,SCTPLD * * INITIALIZE DISC COMMANDS * CF A14,DUINIT * * READ FIRST SECTOR FROM DISC * CF A14,RDSEC 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,2,A9 GET TOTAL NUMBER OF SECTORS AD* A6,SCTADA ST A6,SAVE11,A13 SAVE LAST SECTOR NUMBER LD A6,COMLG,A9 GET LENGTH OF COMMON PART ST A6,SAVE04,A13 SAVE LD A3,PRGLG1+8,A9 GET PROGRAM TYPE CWK A3,'CR' CREDIT APPLICATION? RF(NE) AP2350 NO! LD A3,PAGLG+8,A9 PHYSICAL PAGE SIZE ST A3,SCTPSZ SAVE AP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES LD A1,SCTOPT GET OPTION WORD ANK A1,1 MMU IN SYSTEM? RF(Z) 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 4K-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 CREDIT APPLICATION * LD A2,PRGLG1+8,A9 CWK A2,'CR' ABL(NE) AP:330 NOT CREDIT! LD A2,NUMSEG+8,A9 NUMBER OF RESIDENT SEGMENTS 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 CREDIT APPLICATION * LD A2,PRGLG1+8,A9 CWK A2,'CR' RF(NE) AP:275 NOT CREDIT LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS RF(Z) AP:275 NO SEGMENTS! EJECT AP:245 EQU * * * COMMON EXECUTION PATH * ST A2,SCTNOS SAVE NUMBER OF SEGMENTS LD A4,SCTOPT GET OPTION WORD ANK A4,2 DISC PAGING? RF(Z) AP:260 NO! LD A4,SCTPLD 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 * ADK A6,6 NEXT SEGMENT BLOCK LDR* 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 * SUK A2,1 MOORE SEGMENTS? RB(NZ) AP:250 YES! 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 AP:265 EQU * SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS SUK A2,1 DECREMENT NUMBER OF PAGES RB(P) AP:265 ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT AP:270 EQU * 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 * LDR A8,A5 LD A10,COMLG,A9 GET LENGTH OF COMMON PART ADKL A10,3 RESERV ONE EXTRA WORD ANKL A10,/FFFE SUR A8,A10 COMPUTE LOAD-ADDRESS LD A1,SCTSFA GET START OF FREE AREA TNM A1,A8 RF(NN) AP:280 CWR A1,A8 RF AP:285 AP:280 CWR A8,A1 AP:285 RF(G) AP:290 LDKL A1,LMP3 CALL ERROR MEMORY OVERFLOW! AP:290 EQU * ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS LDR A12,A8 RELOCATION BASE 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 * * 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 SUK A2,17 INDEX RELATIVE TTAB ENTRY ADR A2,A2 BYTE DISPLACEMENT 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 * SUK A1,1 DECREMENT PAGE POINTER 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 SUKL A8,17 ADR A8,A8 BYTE DISPLACEMENT 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 A12,A8 LOAD RELOCATION BASE 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 * A12 - RELOCATION BASE * AP:355 EQU * LD A1,SCTEFA GET END OF FREE AREA SUK A1,1 MODIFY ST A1,SCTEFA STORE ST A8,SCTLAC CF A14,LODCOM LOAD CORE RESIDENT PART LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE * * CHECK IF CREDIT APPLICATION * LD A2,SCTLAC START OF APPLICATION ADKL A2,PRGLG1 SECOND WORD IN SEGMENTT TABLE CALL GETCON GET CONTENT CWK A1,'CR' CREDIT? RF(NE) CONLOD NOT CREDIT! LD A1,SCTNOS NUMBER OF SEGMENTS RF(Z) CONLOD NO SEGMENTS! SUR A12,A12 RELOCATION BASE = ZERO FOR SEGMENTS LD A1,SCTOPT GET OPTION WORD 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 * A12 - RELOCATION BASE * 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 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,SCTNOS GET TOTAL NUMBER OF SEGMENTS ADK A1,1 INCREMENT CWR A1,A2 LAST SEGMENT? RF(E) CONLOD YES! ST A1,SAVE06,A13 SAVE CURRENT SEGMENT NUMBER RB AP:360 EJECT AP:376 EQU * ADK A2,2 DISC SECTOR ADDRESS CALL GETCON GET DISC SECTOR ADDRESS LDR A11,A1 SAVE AD A11,SCTADA ADD START ADDRESS #79-01-03 AP:378 EQU * 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,SCTNOS 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,SCTPLD GET PROGRAM LOAD DEVICE SUK A1,/F0 CHECK DEVICE TYPE RF(NN) CONRAD NOT CASSETTE * * PROGRAM LOAD DEVICE = CASSETTE * CON:30 EQU * LDR A1,A9 START OF BUFFER ADKL A1,CBLEN ST A1,SAVE03,A13 SAVE POINTER TO END OF BUFFER ST A1,SAVE08,A13 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 MEMOFL EQU * LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR 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 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-2 END OF BUFFER ST A1,SAVE08,A13 SAVE END OF BUFFER ADK A1,8 START OF SAVE BUFFER =2 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 RECORD RB COR:20 NEXT SECTOR 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,SCTPLD GET LOAD DEVICE SUK A1,/F8 CHECK TYPE RF(N) COR:60 NOT FLEXIBLE DISC 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 COR:60 EQU * EJECT CONMOV EQU * * * MOVE CONFIGURATION DATA TO END OF SYSTEM AREA * LD A1,SAVE08,A13 GET SAVE09 OF CONFIGURATION DATA LD A3,SCTPLD GET PROGRAM LOAD DEVICE SUK A3,/F0 CASSETTE? RF(N) CMOV10 YES! ADK A1,8 START OF SAVE 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 ************************************************************************ * 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 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 EJECT *********************************** * * * DUINIT - INITIALIZE DISC UNIT * * ============================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A2 * * * * SUBROUTINES: * * * *********************************** DUINIT EQU * * * INIT SUBROUTINE ADDRESSES * LDKL A2,RDSEC GET SUBROUTINE ADDRESS ST A2,READ READ PROGRAM ST A2,READS READ CONFIGURATION DATA ST A2,READVL READ VOLUME LABEL ST A2,READCF READ CONFIGURATION DATA * * INIT DISC COMMANDS * ADS A1,RDS:10 ADS A1,RDS:20 ADS A1,RDS:60 ADS A1,RDS:70 RTN A14 EJECT *********************************************** * * * RDSEC - READ ONE SECTOR FROM DISC * * ================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - BUFFER ADDRESS + 2 * * * * A11 - SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: A1,A2 * * * * SUBROUTINES: ERROR * * * *********************************************** RDSEC EQU * * * DERIVE CYLINDER NUMBER FROM SECTOR NUMBER * LDR A1,A11 GET SECTOR NUMBER SRL A1,5 CYLINDER NUMBER IN BITS 4-12 SLL A1,3 ORK A1,2 SET BIT 14 * * SEEK CYLINDER * RDS:10 CIO A1,1,0 SEEK COMMAND RB(NA) *-2 LOOP UNTIL ACCEPTED * * CHECK STATUS * RDS:20 SST A1,0 SENSE STATUS RB(NA) RDS:20 LOOP UNTIL ACCEPTED * * COMPUTE PHYSICAL SECTOR NUMBER * RDS:30 LDR A2,A11 GET SECTOR NUMBER ANK A2,/10 GET BIT 11 LDR A1,A11 GET SECTOR NUMBER SLL A1,1 ADR A1,A11 ANK A1,/F ADR A1,A2 SLL A1,2 * * INIT MUX WORDS * LDKL A2,MUXCC LOAD FIRST MUX WORD RDS:40 WER A2,/10 WRITE LD A2,MXBUF LOAD SECOND MUX WORD RDS:50 WER A2,/10+1 WRITE RDS:60 CIO A1,1,0 READ SECTOR RB(NA) RDS:60 LOOP UNTIL ACCEPTED RDS:70 SST A1,0 GET STATUS RB(NA) RDS:70 LOOP UNTIL ACCEPTED ANK A1,/1F GET 5 RIGHTMOST BITS RB(NZ) RDS:30 LOOP UNTIL CORRECT READ ADKL A11,1 INCREMENT SECTOR COUNTER RTN A14 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,/0511 NOT PROGRAMMED CHANNEL 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,5 ORKL A1,/C000 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 ADKL A3,BUFLEN BUFFER END 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,A2 STORE CHARACTER ADK A2,2 INCREMENT BUFFER POINTER CWR A2,A3 END OF BUFFER? RB(NE) FRD:20 NO! FRD:30 CIO A1,0,FDCU STOP READING 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 RTN A14 FRD:50 LDKL A1,LMP2 CALL ERROR EJECT *************************************************** * * * GETFIL - GET CONFIGURATION FILE * * =============================== * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - BUFFER ADDRESS + 2 * * * * EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * * * * WORK REGISTERS: A1,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 * LDKL A2,/01F8 OTR A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN ANKL A1,/00FC 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! CF A14,FDINIT INIT FLEXIBLE DISC RB GETFIL GET:80 EQU * CF A14,DUINIT INIT DISC RB GETFIL 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 SECTOR ADDRESS ON DISC * LD A1,18,A6 GET FILE EXTENT BASE ST A1,SCTSWB SAVE IN SYSTAB LD A3,SWPFEL,A6 GET LENGTH IN SECTORS ADR A3,A1 LAST SECTOR IN SWAPP-FILE ST A3,SAVE25,A13 SAVE GET:99 RTN A14 EJECT ***************************************************** * * * LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * * =============================================== * * * * LODSEG - LOAD ONE SEGMENT * * ========================= * * * * ENTRY: A8 - SEGMENT ADDRESS * * A10 - EFFECTIVE LENGTH * * A12 - RELOCATION BASE * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4,A7 * * * * SUBROUTINES: MOVE,READ * * * ***************************************************** LODCOM EQU * LDR A3,A9 GET SAVE09 OF BUFFER LDR A2,A3 SAVE LD A7,SCTPLD GET PROGRAM LOAD DEVICE ANK A7,/FE SKIP UNIT SELECTOR BIT SUK A7,/F0 CASSTTE? RF(N) LOD:20 YES! LDKL A7,376 NUMBER OF CODE WORDS LOD:10 EQU *-2 RF LOD:30 LOD:20 EQU * LDKL A7,240 NUMBER OF CODE WORDS LOD:30 EQU * LDR A10,A10 APP >32 KB? RF(NN) LOD:40 NO! SUR A10,A7 DEC. LENGTH RF LOD:50 LOD:40 EQU * SUR A10,A7 CHECK IF IN END OF OF SEGMENT RF(NN) LOD:50 NO YET! CWK A7,240 CASSETTE? RF(E) LOD:45 YES! CWK A7,400 200 WORDS/SECTOR? RF(E) LOD:42 YES! ADR A2,A7 START OF RELOCATION TABLE CF A14,REBUF RELOCATE CODE LOD:42 EQU * ADR A7,A10 COMPUTE NUMBER OF CODE WORDS LDKL A10,0 INDICATE END OF SEGMENT RF LOD:52 LOD:45 EQU * ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! LDKL A10,0 INDICATE END OF SEGMENT LOD:50 EQU * CWK A7,400 200 WORDS/SECTOR? RF(E) LOD:52 YES! ADR A2,A7 START OF RELOCATION BITS CWK A7,240 APPLICATION<ONE CASSETTE BLOCK? RF(NL) LOD:51 NO LD A4,SAVE12,A13 FIRST CASSETTE BLOCK RF(NZ) LOD:51 NO ADK A2,8 START OF RELOCATION BITS LOD:51 EQU * 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 CWK A10,0 COMMON PART <= ONE SECTOR/BLOCK? RF(E) LOD:55 YES SUK A7,8 DECR. NUMBER OF CHAR. TO MOVE 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,400 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,A12 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
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLOD REL 9.2 79-12-19 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» =1,LRN ONE SECTOR TOO GREAT«, t00=0x0000, t01=0x0042}
0x0064…0082 Head {h00=0x001a, h01=0x0050, text=» REL 9.2 79-12-19 ST«, t00=0x0000, t01=0x0068}
0x0082…008a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0086}
0x008a…00a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0000, t01=0x008e}
0x00a0…00b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0000, t01=0x00a4}
0x00b6…00cc Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0000, t01=0x00ba}
0x00cc…00e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0000, t01=0x00d0}
0x00e2…0106 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x00e6}
0x0106…012a Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x010a}
0x012a…014e Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0000, t01=0x012e}
0x014e…0172 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0152}
0x0172…0196 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0176}
0x0196…01ac Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0001, t01=0x000a}
0x01ac…01c2 Head {h00=0x0012, h01=0x0050, text=» EXTRN LDALEN «, t00=0x0001, t01=0x0020}
0x01c2…01d8 Head {h00=0x0012, h01=0x0050, text=» EXTRN FREQUE «, t00=0x0001, t01=0x0036}
0x01d8…01ee Head {h00=0x0012, h01=0x0050, text=» EXTRN INTLT1 «, t00=0x0001, t01=0x004c}
0x01ee…0204 Head {h00=0x0012, h01=0x0050, text=» EXTRN PAGQUE «, t00=0x0001, t01=0x0062}
0x0204…0216 Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0001, t01=0x0078}
0x0216…022c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCLASS «, t00=0x0001, t01=0x008a}
0x022c…0242 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTADA «, t00=0x0001, t01=0x00a0}
0x0242…0258 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0001, t01=0x00b6}
0x0258…026e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBLK «, t00=0x0001, t01=0x00cc}
0x026e…0284 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0001, t01=0x00e2}
0x0284…029a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTCDT «, t00=0x0001, t01=0x00f8}
0x029a…02b0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDCT «, t00=0x0001, t01=0x010e}
0x02b0…02c6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMC «, t00=0x0001, t01=0x0124}
0x02c6…02dc Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMI «, t00=0x0001, t01=0x013a}
0x02dc…02f2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDML «, t00=0x0001, t01=0x0150}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTDMT «, t00=0x0001, t01=0x0166}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0001, t01=0x017c}
0x031e…0334 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAC «, t00=0x0002, t01=0x0004}
0x0334…034a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTLAP «, t00=0x0002, t01=0x001a}
0x034a…0360 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMMC «, t00=0x0002, t01=0x0030}
0x0360…0376 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMMP «, t00=0x0002, t01=0x0046}
0x0376…038c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0002, t01=0x005c}
0x038c…03a2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOS «, t00=0x0002, t01=0x0072}
0x03a2…03b8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0002, t01=0x0088}
0x03b8…03ce Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNPE «, t00=0x0002, t01=0x009e}
0x03ce…03e4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0002, t01=0x00b4}
0x03e4…03fa Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPAG «, t00=0x0002, t01=0x00ca}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPLD «, t00=0x0002, t01=0x00e0}
0x0410…0426 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0002, t01=0x00f6}
0x0426…043c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSEG «, t00=0x0002, t01=0x010c}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0002, t01=0x0122}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSWB «, t00=0x0002, t01=0x0138}
0x0468…047e Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTTT «, t00=0x0002, t01=0x014e}
0x047e…0494 Head {h00=0x0012, h01=0x0050, text=» EXTRN TCLASS «, t00=0x0002, t01=0x0164}
0x0494…04aa Head {h00=0x0012, h01=0x0050, text=» EXTRN TTMJOB «, t00=0x0002, t01=0x017a}
0x04aa…04b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0190}
0x04b8…04e0 Head {h00=0x0024, h01=0x0050, text=» EXTRN M:REL RELOCATION CONSTANT«, t00=0x0003, t01=0x000e}
0x04e0…04f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE01 «, t00=0x0003, t01=0x0036}
0x04f6…050c Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE02 «, t00=0x0003, t01=0x004c}
0x050c…0522 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE03 «, t00=0x0003, t01=0x0062}
0x0522…0538 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE04 «, t00=0x0003, t01=0x0078}
0x0538…054e Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE05 «, t00=0x0003, t01=0x008e}
0x054e…0564 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE06 «, t00=0x0003, t01=0x00a4}
0x0564…057a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE07 «, t00=0x0003, t01=0x00ba}
0x057a…0590 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE08 «, t00=0x0003, t01=0x00d0}
0x0590…05a6 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE09 «, t00=0x0003, t01=0x00e6}
0x05a6…05bc Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE10 «, t00=0x0003, t01=0x00fc}
0x05bc…05d2 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE11 «, t00=0x0003, t01=0x0112}
0x05d2…05e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE12 «, t00=0x0003, t01=0x0128}
0x05e8…05fe Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE20 «, t00=0x0003, t01=0x013e}
0x05fe…0614 Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE22 «, t00=0x0003, t01=0x0154}
0x0614…062a Head {h00=0x0012, h01=0x0050, text=» EXTRN SAVE25 «, t00=0x0003, t01=0x016a}
0x062a…063e Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0003, t01=0x0180}
0x063e…0654 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0004, t01=0x0004}
0x0654…0668 Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0004, t01=0x001a}
0x0668…067c Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0004, t01=0x002e}
0x067c…0690 Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0004, t01=0x0042}
0x0690…0698 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0056}
0x0698…06a0 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x005e}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06c8 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0070}
0x06c8…06ec Head {h00=0x0020, h01=0x0050, text=»* TEST=1 GIVES TEST VERSION «, t00=0x0004, t01=0x008e}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f6…0708 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x0004, t01=0x00bc}
0x0708…0716 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00ce}
0x0716…0722 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x00dc}
0x0722…072e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x00e8}
0x072e…0756 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0004, t01=0x00f4}
0x0756…077e Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0004, t01=0x011c}
0x077e…07a6 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0004, t01=0x0144}
0x07a6…07b2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x016c}
0x07b2…07d2 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0004, t01=0x0178}
0x07d2…07f4 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0005, t01=0x0008}
0x07f4…0820 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0005, t01=0x002a}
0x0820…0852 Head {h00=0x002e, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID SAVE09 VALUE «, t00=0x0005, t01=0x0056}
0x0852…0882 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0005, t01=0x0088}
0x0882…08aa Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0005, t01=0x00b8}
0x08aa…08e8 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0005, t01=0x00e0}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f2…091c Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0005, t01=0x0128}
0x091c…0944 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0005, t01=0x0152}
0x0944…0966 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x0005, t01=0x017a}
0x0966…0992 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0006, t01=0x000c}
0x0992…099c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0038}
0x099c…09ca Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0006, t01=0x0042}
0x09ca…09d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0070}
0x09d4…09f8 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0006, t01=0x007a}
0x09f8…0a1a Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x009e}
0x0a1a…0a54 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0006, t01=0x00c0}
0x0a54…0a80 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0006, t01=0x00fa}
0x0a80…0a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0126}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0130}
0x0a94…0abe Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0006, t01=0x013a}
0x0abe…0ae0 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x0164}
0x0ae0…0b10 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0006, t01=0x0186}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1a…0b46 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0007, t01=0x0030}
0x0b46…0b66 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0007, t01=0x005c}
0x0b66…0b8c Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0007, t01=0x007c}
0x0b8c…0bbe Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0007, t01=0x00a2}
0x0bbe…0bd6 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x00d4}
0x0bd6…0bee Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0007, t01=0x00ec}
0x0bee…0c06 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0007, t01=0x0104}
0x0c06…0c28 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0007, t01=0x011c}
0x0c28…0c30 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x013e}
0x0c30…0c52 Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0007, t01=0x0146}
0x0c52…0c68 Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0007, t01=0x0168}
0x0c68…0c7e Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0007, t01=0x017e}
0x0c7e…0c92 (8, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0008, t01=0x0004}
0x0c92…0ca6 Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0008, t01=0x0018}
0x0ca6…0cba Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0008, t01=0x002c}
0x0cba…0cce Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0008, t01=0x0040}
0x0cce…0ce0 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0008, t01=0x0054}
0x0ce0…0cf2 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0008, t01=0x0066}
0x0cf2…0d06 Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0008, t01=0x0078}
0x0d06…0d1a Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0008, t01=0x008c}
0x0d1a…0d28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00a0}
0x0d28…0d46 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x00ae}
0x0d46…0d64 Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0008, t01=0x00cc}
0x0d64…0d82 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x00ea}
0x0d82…0d8e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0008, t01=0x0108}
0x0d8e…0dca Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0008, t01=0x0114}
0x0dca…0df4 Head {h00=0x0026, h01=0x0050, text=»COMLG EQU 4 LENGTH OF COMMON PART «, t00=0x0008, t01=0x0150}
0x0df4…0e20 Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE«, t00=0x0008, t01=0x017a}
0x0e20…0e4c Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0009, t01=0x0016}
0x0e4c…0e76 Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0009, t01=0x0042}
0x0e76…0ea0 Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0009, t01=0x006c}
0x0ea0…0eb4 Head {h00=0x0010, h01=0x0050, text=»PRGLG1 EQU 2«, t00=0x0009, t01=0x0096}
0x0eb4…0ee4 Head {h00=0x002c, h01=0x0050, text=»NCHTID EQU 5 NBR OF CHAR. IN TID RECORD «, t00=0x0009, t01=0x00aa}
0x0ee4…0f0c Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0009, t01=0x00da}
0x0f0c…0f1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0102}
0x0f1a…0f3a Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x0110}
0x0f3a…0f5a Head {h00=0x001c, h01=0x0050, text=»* CASSETTE HANDLING * «, t00=0x0009, t01=0x0130}
0x0f5a…0f7a Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x0150}
0x0f7a…0faa Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0009, t01=0x0170}
0x0faa…0fcc Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x000a, t01=0x0010}
0x0fcc…0ff8 Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x000a, t01=0x0032}
0x0ff8…1024 Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x000a, t01=0x005e}
0x1024…102e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102e…1054 Head {h00=0x0022, h01=0x0050, text=»* DISC/FLEXIBLE DISC HANDLING«, t00=0x000a, t01=0x0094}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ba}
0x105e…1096 Head {h00=0x0034, h01=0x0050, text=»BUFLEN EQU 402 DISC/FLEXIBLE DISC BUFFER LENGTH «, t00=0x000a, t01=0x00c4}
0x1096…10cc Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x000a, t01=0x00fc}
0x10cc…10fa Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x000a, t01=0x0132}
0x10fa…1122 Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x000a, t01=0x0160}
0x1122…1148 Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /80CD 1:ST MUX WORD «, t00=0x000a, t01=0x0188}
0x1148…116c Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 9 BLOCKING FACTOR«, t00=0x000b, t01=0x001e}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0042}
0x1176…1196 Head {h00=0x001c, h01=0x0050, text=»* DATA AREA DEFINITION «, t00=0x000b, t01=0x004c}
0x1196…11a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006c}
0x11a0…11b4 Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x000b, t01=0x0076}
0x11b4…11ea Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x000b, t01=0x008a}
0x11ea…1210 Head {h00=0x0022, h01=0x0050, text=»DEVTAB DATA /1909,/1101,/0828 «, t00=0x000b, t01=0x00c0}
0x1210…1238 Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ',' ' «, t00=0x000b, t01=0x00e6}
0x1238…1246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x010e}
0x1246…1252 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000b, t01=0x011c}
0x1252…129c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x0128}
0x129c…12e6 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000b, t01=0x0172}
0x12e6…1330 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000c, t01=0x002c}
0x1330…137a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0076}
0x137a…13c4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x00c0}
0x13c4…13d0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x010a}
0x13d0…13dc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x0116}
0x13dc…13e8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000c, t01=0x0122}
0x13e8…1406 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000c, t01=0x012e}
0x1406…1414 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x014c}
0x1414…1452 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000c, t01=0x015a}
0x1452…1490 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0008}
0x1490…14ce Head {h00=0x003a, h01=0x0050, text=»* APPLICATION LOAD PART OF SYSLOD *«, t00=0x000d, t01=0x0046}
0x14ce…150c Head {h00=0x003a, h01=0x0050, text=»* =============================== *«, t00=0x000d, t01=0x0084}
0x150c…154a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00c2}
0x154a…1588 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A1 - APPLICATION DISC ADDRESS *«, t00=0x000d, t01=0x0100}
0x1588…15c6 Head {h00=0x003a, h01=0x0050, text=»* A2 - PROGRAM LOAD DEVICE *«, t00=0x000d, t01=0x013e}
0x15c6…1604 Head {h00=0x003a, h01=0x0050, text=»* A3 - APPLICATION NUMBER *«, t00=0x000d, t01=0x017c}
0x1604…1644 Head {h00=0x003c, h01=0x0050, text=»* A9 - SAVE09 OF FREE AREA * «, t00=0x000e, t01=0x002a}
0x1644…1684 Head {h00=0x003c, h01=0x0050, text=»* A13 - MONITOR SAVE09 ADDRESS * «, t00=0x000e, t01=0x006a}
0x1684…16c2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x00aa}
0x16c2…1700 Head {h00=0x003a, h01=0x0050, text=»* EXIT: *«, t00=0x000e, t01=0x00e8}
0x1700…173e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0126}
0x173e…177c Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM *«, t00=0x000e, t01=0x0164}
0x177c…17ba Head {h00=0x003a, h01=0x0050, text=»* LODSEG,REBUF,MOVBUF,RDBLK, *«, t00=0x000f, t01=0x0012}
0x17ba…17f8 Head {h00=0x003a, h01=0x0050, text=»* CONLOD,CONEX,MOVREV *«, t00=0x000f, t01=0x0050}
0x17f8…1836 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x000f, t01=0x008e}
0x1836…1874 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000f, t01=0x00cc}
0x1874…1888 Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x000f, t01=0x010a}
0x1888…1892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x1892…18ac Head {h00=0x0016, h01=0x0050, text=»* SAVE REGISTERS «, t00=0x000f, t01=0x0128}
0x18ac…18b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0142}
0x18b6…18ea Head {h00=0x0030, h01=0x0050, text=» ST A1,SCTADA SAVE APPLICATION DISC ADDRESS «, t00=0x000f, t01=0x014c}
0x18ea…1918 Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTPLD SAVE PROGRAM LOAD DEVICE«, t00=0x000f, t01=0x0180}
0x1918…1940 Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x0010, t01=0x001e}
0x1940…196e Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE SAVE09 OF FREE AREA«, t00=0x0010, t01=0x0046}
0x196e…1982 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0010, t01=0x0074}
0x1982…199a Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSBAS«, t00=0x0010, t01=0x0088}
0x199a…19ac Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x0010, t01=0x00a0}
0x19ac…19c0 Head {h00=0x0010, h01=0x0050, text=» ADKL A13,10«, t00=0x0010, t01=0x00b2}
0x19c0…19d6 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0010, t01=0x00c6}
0x19d6…19ea Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0010, t01=0x00dc}
0x19ea…19f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00f0}
0x19f6…1a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00fc}
0x1a04…1a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010a}
0x1a0e…1a2e Head {h00=0x001c, h01=0x0050, text=»* INDICATE SYSLOD RUNS «, t00=0x0010, t01=0x0114}
0x1a2e…1a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a38…1a4e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0010, t01=0x013e}
0x1a4e…1a64 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0010, t01=0x0154}
0x1a64…1a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6e…1ab4 Head {h00=0x0042, h01=0x0050, text=»* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0010, t01=0x0174}
0x1ab4…1adc Head {h00=0x0024, h01=0x0050, text=»* AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0011, t01=0x002a}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0052}
0x1ae6…1b06 Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0011, t01=0x005c}
0x1b06…1b30 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0011, t01=0x007c}
0x1b30…1b42 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0011, t01=0x00a6}
0x1b42…1b6a Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0011, t01=0x00b8}
0x1b6a…1b8e Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0011, t01=0x00e0}
0x1b8e…1bb4 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0011, t01=0x0104}
0x1bb4…1bd4 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x0011, t01=0x012a}
0x1bd4…1bee Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:100 NO! «, t00=0x0011, t01=0x014a}
0x1bee…1bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0164}
0x1bfc…1c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0172}
0x1c06…1c48 Head {h00=0x003e, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0011, t01=0x017c}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c52…1c78 Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0012, t01=0x0038}
0x1c78…1c9c Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0012, t01=0x005e}
0x1c9c…1cb0 Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0012, t01=0x0082}
0x1cb0…1cd6 Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0012, t01=0x0096}
0x1cd6…1d0c Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0012, t01=0x00bc}
0x1d0c…1d2e Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0012, t01=0x00f2}
0x1d2e…1d52 Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0012, t01=0x0114}
0x1d52…1d80 Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0012, t01=0x0138}
0x1d80…1dae Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0012, t01=0x0166}
0x1dae…1dda (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0013, t01=0x0004}
0x1dda…1df0 Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:200 «, t00=0x0013, t01=0x0030}
0x1df0…1e1c Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0013, t01=0x0046}
0x1e1c…1e2e Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0013, t01=0x0072}
0x1e2e…1e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e38…1e80 Head {h00=0x0044, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0013, t01=0x008e}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d6}
0x1e8a…1e98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00e0}
0x1e98…1eac Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0013, t01=0x00ee}
0x1eac…1eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eb6…1efa Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0013, t01=0x010c}
0x1efa…1f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0150}
0x1f04…1f2e Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PAGSIZ-2 SAVE09 AT /FFFE «, t00=0x0013, t01=0x015a}
0x1f2e…1f42 Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0013, t01=0x0184}
0x1f42…1f6c Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0014, t01=0x0008}
0x1f6c…1f98 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0014, t01=0x0032}
0x1f98…1fbe Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0014, t01=0x005e}
0x1fbe…1fe2 Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0014, t01=0x0084}
0x1fe2…2008 Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0014, t01=0x00a8}
0x2008…203c Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0014, t01=0x00ce}
0x203c…204e Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0014, t01=0x0102}
0x204e…2062 Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0014, t01=0x0114}
0x2062…2090 Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0014, t01=0x0128}
0x2090…209a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0156}
0x209a…20e6 Head {h00=0x0048, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0014, t01=0x0160}
0x20e6…20f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001c}
0x20f0…20fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0026}
0x20fe…2108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2108…2128 Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x0015, t01=0x003e}
0x2128…2132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005e}
0x2132…2146 Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0015, t01=0x0068}
0x2146…217a Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0015, t01=0x007c}
0x217a…2184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b0}
0x2184…21ac Head {h00=0x0024, h01=0x0050, text=»* GET APPLICATION DISC ADDRESS «, t00=0x0015, t01=0x00ba}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b6…21cc Head {h00=0x0012, h01=0x0050, text=» LD A11,SCTADA«, t00=0x0015, t01=0x00ec}
0x21cc…21d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0102}
0x21d6…2222 Head {h00=0x0048, h01=0x0050, text=»* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0015, t01=0x010c}
0x2222…224e Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0015, t01=0x0158}
0x224e…2266 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0015, t01=0x0184}
0x2266…2294 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTPLD GET PROGRAM LOAD DEVICE «, t00=0x0016, t01=0x000c}
0x2294…22ac Head {h00=0x0014, h01=0x0050, text=» LDR A1,A2 SAVE «, t00=0x0016, t01=0x003a}
0x22ac…22b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22b6…22da Head {h00=0x0020, h01=0x0050, text=»* CHECK PROGRAM LOAD MEDIUM«, t00=0x0016, t01=0x005c}
0x22da…22e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0080}
0x22e4…230a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/C0 CHECK IF CASSETTE «, t00=0x0016, t01=0x008a}
0x230a…2324 Head {h00=0x0016, h01=0x0050, text=» RF(P) AP:210 YES!«, t00=0x0016, t01=0x00b0}
0x2324…2354 Head {h00=0x002c, h01=0x0050, text=» ADKL A3,BUFLEN+8 NEW START OF FREE AREA«, t00=0x0016, t01=0x00ca}
0x2354…236a Head {h00=0x0012, h01=0x0050, text=» ST A3,SCTSFA «, t00=0x0016, t01=0x00fa}
0x236a…23a0 Head {h00=0x0032, h01=0x0050, text=» ST A9,MXBUF FLEXIBLE DISC/DISC BUFFER ADDRESS«, t00=0x0016, t01=0x0110}
0x23a0…23c4 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 SKIP CYLINDER ID «, t00=0x0016, t01=0x0146}
0x23c4…23ee Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x0016, t01=0x016a}
0x23ee…240c (23, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SRC A2,1 CHECK BIT 15«, t00=0x0017, t01=0x0004}
0x240c…2430 Head {h00=0x0020, h01=0x0050, text=» RF(N) AP:220 FLEXIBLE DISC «, t00=0x0017, t01=0x0022}
0x2430…2448 Head {h00=0x0014, h01=0x0050, text=» RF AP:230 DISC «, t00=0x0017, t01=0x0046}
0x2448…245c Head {h00=0x0010, h01=0x0050, text=»AP:210 EQU *«, t00=0x0017, t01=0x005e}
0x245c…2466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0072}
0x2466…2490 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0017, t01=0x007c}
0x2490…249a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a6}
0x249a…24c8 Head {h00=0x002a, h01=0x0050, text=» ADKL A3,CBLEN NEW START OF FREE AREA «, t00=0x0017, t01=0x00b0}
0x24c8…24e2 Head {h00=0x0016, h01=0x0050, text=» ST A3,SCTSFA SAVE«, t00=0x0017, t01=0x00de}
0x24e2…2510 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x0017, t01=0x00f8}
0x2510…2544 Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x0017, t01=0x0126}
0x2544…2558 Head {h00=0x0010, h01=0x0050, text=»AP:215 EQU *«, t00=0x0017, t01=0x015a}
0x2558…2586 Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x0017, t01=0x016e}
0x2586…25a4 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x0018, t01=0x000c}
0x25a4…25be Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:235 NO! «, t00=0x0018, t01=0x002a}
0x25be…25ee Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x0018, t01=0x0044}
0x25ee…2600 Head {h00=0x000e, h01=0x0050, text=» RB AP:215«, t00=0x0018, t01=0x0074}
0x2600…260e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0086}
0x260e…2622 Head {h00=0x0010, h01=0x0050, text=»AP:220 EQU *«, t00=0x0018, t01=0x0094}
0x2622…262c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x262c…265a Head {h00=0x002a, h01=0x0050, text=»* PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x0018, t01=0x00b2}
0x265a…2664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e0}
0x2664…266e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ea}
0x266e…26a4 Head {h00=0x0032, h01=0x0050, text=»* MODIFY SCTPLD: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x0018, t01=0x00f4}
0x26a4…26ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012a}
0x26ae…26c0 Head {h00=0x000e, h01=0x0050, text=» ANK A2,8 «, t00=0x0018, t01=0x0134}
0x26c0…26d2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,3 «, t00=0x0018, t01=0x0146}
0x26d2…26e6 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F8«, t00=0x0018, t01=0x0158}
0x26e6…26fc Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTPLD «, t00=0x0018, t01=0x016c}
0x26fc…2706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0182}
0x2706…2724 Head {h00=0x001a, h01=0x0050, text=»* INIT FLEXIBLE DISC «, t00=0x0018, t01=0x018c}
0x2724…272e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x272e…2744 Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x0019, t01=0x0024}
0x2744…274e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003a}
0x274e…277e Head {h00=0x002c, h01=0x0050, text=»* READ FIRST SECTOR FROM FLEXIBLE DISC «, t00=0x0019, t01=0x0044}
0x277e…2788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0074}
0x2788…279e Head {h00=0x0012, h01=0x0050, text=» CF A14,FRDSEC«, t00=0x0019, t01=0x007e}
0x279e…27b0 Head {h00=0x000e, h01=0x0050, text=» RF AP:235«, t00=0x0019, t01=0x0094}
0x27b0…27be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00a6}
0x27be…27d2 Head {h00=0x0010, h01=0x0050, text=»AP:230 EQU *«, t00=0x0019, t01=0x00b4}
0x27d2…27dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c8}
0x27dc…2802 Head {h00=0x0022, h01=0x0050, text=»* PROGRAM LOAD DEVICE = DISC «, t00=0x0019, t01=0x00d2}
0x2802…280c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x280c…2816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0102}
0x2816…2854 Head {h00=0x003a, h01=0x0050, text=»* MODIFY SCTPLD: /F0 - CARTRIDGE DISC, /F1 - FIX DISC«, t00=0x0019, t01=0x010c}
0x2854…285e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x285e…2872 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0019, t01=0x0154}
0x2872…2884 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0019, t01=0x0168}
0x2884…2896 Head {h00=0x000e, h01=0x0050, text=» XRK A2,1 «, t00=0x0019, t01=0x017a}
0x2896…28aa Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F0 «, t00=0x0019, t01=0x018c}
0x28aa…28c0 Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTPLD «, t00=0x001a, t01=0x0010}
0x28c0…28ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0026}
0x28ca…28ee Head {h00=0x0020, h01=0x0050, text=»* INITIALIZE DISC COMMANDS «, t00=0x001a, t01=0x0030}
0x28ee…28f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0054}
0x28f8…290e Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x001a, t01=0x005e}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0074}
0x2918…293e Head {h00=0x0022, h01=0x0050, text=»* READ FIRST SECTOR FROM DISC«, t00=0x001a, t01=0x007e}
0x293e…2948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a4}
0x2948…295e Head {h00=0x0012, h01=0x0050, text=» CF A14,RDSEC «, t00=0x001a, t01=0x00ae}
0x295e…296c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00c4}
0x296c…2980 Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x001a, t01=0x00d2}
0x2980…298a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e6}
0x298a…29aa Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x001a, t01=0x00f0}
0x29aa…29b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0110}
0x29b4…29be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011a}
0x29be…29f0 Head {h00=0x002e, h01=0x0050, text=»* SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x001a, t01=0x0124}
0x29f0…29fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0156}
0x29fa…2a34 Head {h00=0x0036, h01=0x0050, text=» LDR* A6,A9 GET SAVE09 ADDRESS (UNSEGMENTED APPL.)«, t00=0x001a, t01=0x0160}
0x2a34…2a52 Head {h00=0x001a, h01=0x0050, text=» ST A6,SAVE09,A13 SAVE«, t00=0x001b, t01=0x000a}
0x2a52…2a82 Head {h00=0x002c, h01=0x0050, text=» LD A6,2,A9 GET TOTAL NUMBER OF SECTORS «, t00=0x001b, t01=0x0028}
0x2a82…2a98 Head {h00=0x0012, h01=0x0050, text=» AD* A6,SCTADA«, t00=0x001b, t01=0x0058}
0x2a98…2aca Head {h00=0x002e, h01=0x0050, text=» ST A6,SAVE11,A13 SAVE LAST SECTOR NUMBER «, t00=0x001b, t01=0x006e}
0x2aca…2afc Head {h00=0x002e, h01=0x0050, text=» LD A6,COMLG,A9 GET LENGTH OF COMMON PART «, t00=0x001b, t01=0x00a0}
0x2afc…2b1a Head {h00=0x001a, h01=0x0050, text=» ST A6,SAVE04,A13 SAVE«, t00=0x001b, t01=0x00d2}
0x2b1a…2b46 Head {h00=0x0028, h01=0x0050, text=» LD A3,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x001b, t01=0x00f0}
0x2b46…2b6e Head {h00=0x0024, h01=0x0050, text=» CWK A3,'CR' CREDIT APPLICATION?«, t00=0x001b, t01=0x011c}
0x2b6e…2b88 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP2350 NO!«, t00=0x001b, t01=0x0144}
0x2b88…2bb4 Head {h00=0x0028, h01=0x0050, text=» LD A3,PAGLG+8,A9 PHYSICAL PAGE SIZE«, t00=0x001b, t01=0x015e}
0x2bb4…2bce Head {h00=0x0016, h01=0x0050, text=» ST A3,SCTPSZ SAVE«, t00=0x001b, t01=0x018a}
0x2bce…2c06 Head {h00=0x0034, h01=0x0050, text=»AP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES«, t00=0x001c, t01=0x0014}
0x2c06…2c2c Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x001c, t01=0x004c}
0x2c2c…2c4c Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x001c, t01=0x0072}
0x2c4c…2c66 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:240 NO! «, t00=0x001c, t01=0x0092}
0x2c66…2c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00ac}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c7e…2cb4 Head {h00=0x0032, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x001c, t01=0x00c4}
0x2cb4…2cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fa}
0x2cbe…2ce2 Head {h00=0x0020, h01=0x0050, text=» LD A3,SCTPSZ GET PAGE SIZE «, t00=0x001c, t01=0x0104}
0x2ce2…2cfa Head {h00=0x0014, h01=0x0050, text=» LDR A1,A3 SAVE «, t00=0x001c, t01=0x0128}
0x2cfa…2d22 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/03FF EVEN 4K-MULTIPLE?«, t00=0x001c, t01=0x0140}
0x2d22…2d3c Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:236 YES!«, t00=0x001c, t01=0x0168}
0x2d3c…2d50 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x001c, t01=0x0182}
0x2d50…2d7c Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x001d, t01=0x0008}
0x2d7c…2d90 Head {h00=0x0010, h01=0x0050, text=»AP:236 EQU *«, t00=0x001d, t01=0x0034}
0x2d90…2db4 Head {h00=0x0020, h01=0x0050, text=» SRL A3,2 LOGICAL PAGE SIZE «, t00=0x001d, t01=0x0048}
0x2db4…2dd4 Head {h00=0x001c, h01=0x0050, text=» SLL A5,8 MAP IT ON MMU «, t00=0x001d, t01=0x006c}
0x2dd4…2e0a Head {h00=0x0032, h01=0x0050, text=» ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS«, t00=0x001d, t01=0x008c}
0x2e0a…2e22 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x001d, t01=0x00c2}
0x2e22…2e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00da}
0x2e2c…2e52 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x001d, t01=0x00e4}
0x2e52…2e5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010a}
0x2e5c…2e76 Head {h00=0x0016, h01=0x0050, text=» LD A2,PRGLG1+8,A9«, t00=0x001d, t01=0x0114}
0x2e76…2e8a Head {h00=0x0010, h01=0x0050, text=» CWK A2,'CR'«, t00=0x001d, t01=0x012e}
0x2e8a…2eae Head {h00=0x0020, h01=0x0050, text=» ABL(NE) AP:330 NOT CREDIT! «, t00=0x001d, t01=0x0142}
0x2eae…2ee4 Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF RESIDENT SEGMENTS«, t00=0x001d, t01=0x0166}
0x2ee4…2f08 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x001e, t01=0x000c}
0x2f08…2f1a Head {h00=0x000e, h01=0x0050, text=» RF AP:245«, t00=0x001e, t01=0x0030}
0x2f1a…2f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f24…2f6c Head {h00=0x0044, h01=0x0050, text=»* END OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION«, t00=0x001e, t01=0x004c}
0x2f6c…2f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0094}
0x2f76…2f84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x009e}
0x2f84…2f98 Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x001e, t01=0x00ac}
0x2f98…2fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c0}
0x2fa2…2fe6 Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x001e, t01=0x00ca}
0x2fe6…2ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010e}
0x2ff0…302e Head {h00=0x003a, h01=0x0050, text=» SLL A5,10 HIGHEST PHYSICAL AND LOGICAL MEMORY ADDRESS«, t00=0x001e, t01=0x0118}
0x302e…3046 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x001e, t01=0x0156}
0x3046…3050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016e}
0x3050…3076 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x001e, t01=0x0178}
0x3076…3080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000e}
0x3080…309a Head {h00=0x0016, h01=0x0050, text=» LD A2,PRGLG1+8,A9«, t00=0x001f, t01=0x0018}
0x309a…30ae Head {h00=0x0010, h01=0x0050, text=» CWK A2,'CR'«, t00=0x001f, t01=0x0032}
0x30ae…30d0 Head {h00=0x001e, h01=0x0050, text=» RF(NE) AP:275 NOT CREDIT «, t00=0x001f, t01=0x0046}
0x30d0…30fe Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x001f, t01=0x0068}
0x30fe…3120 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x001f, t01=0x0096}
0x3120…312e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00b8}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=»AP:245 EQU *«, t00=0x001f, t01=0x00c6}
0x3142…314c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00da}
0x314c…316c Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x001f, t01=0x00e4}
0x316c…3176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0104}
0x3176…31a4 Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTNOS SAVE NUMBER OF SEGMENTS «, t00=0x001f, t01=0x010e}
0x31a4…31ca Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x001f, t01=0x013c}
0x31ca…31e8 Head {h00=0x001a, h01=0x0050, text=» ANK A4,2 DISC PAGING?«, t00=0x001f, t01=0x0162}
0x31e8…3202 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:260 NO! «, t00=0x001f, t01=0x0180}
0x3202…3230 Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTPLD GET PROGRAM LOAD DEVICE «, t00=0x0020, t01=0x000a}
0x3230…3256 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0020, t01=0x0038}
0x3256…328a Head {h00=0x0030, h01=0x0050, text=» RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0020, t01=0x005e}
0x328a…3294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0092}
0x3294…32c4 Head {h00=0x002c, h01=0x0050, text=»* COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0020, t01=0x009c}
0x32c4…32ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00cc}
0x32ce…32f2 Head {h00=0x0020, h01=0x0050, text=» CM SAVE05,A13 RESET COUNTER«, t00=0x0020, t01=0x00d6}
0x32f2…331a Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0020, t01=0x00fa}
0x331a…3344 Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0020, t01=0x0122}
0x3344…3358 Head {h00=0x0010, h01=0x0050, text=»AP:250 EQU *«, t00=0x0020, t01=0x014c}
0x3358…337c Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0020, t01=0x0160}
0x337c…33a0 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A6 GET SEGMENT TYPE«, t00=0x0020, t01=0x0184}
0x33a0…33cc Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x0021, t01=0x0018}
0x33cc…33e6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:255 NO!«, t00=0x0021, t01=0x0044}
0x33e6…3420 Head {h00=0x0036, h01=0x0050, text=» IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER «, t00=0x0021, t01=0x005e}
0x3420…3434 Head {h00=0x0010, h01=0x0050, text=»AP:255 EQU *«, t00=0x0021, t01=0x0098}
0x3434…3456 Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x0021, t01=0x00ac}
0x3456…3472 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) AP:250 YES! «, t00=0x0021, t01=0x00ce}
0x3472…34a8 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE05,A13 NUMBER OF RESIDENT SEGMENTS «, t00=0x0021, t01=0x00ea}
0x34a8…34d4 Head {h00=0x0028, h01=0x0050, text=» RF(Z) AP:270 NO RESIDENT SEGMENTS! «, t00=0x0021, t01=0x0120}
0x34d4…34e8 Head {h00=0x0010, h01=0x0050, text=»AP:260 EQU *«, t00=0x0021, t01=0x014c}
0x34e8…3512 Head {h00=0x0026, h01=0x0050, text=» ST A2,SCTNOP SAVE NUMBER OF PAGES«, t00=0x0021, t01=0x0160}
0x3512…3526 Head {h00=0x0010, h01=0x0050, text=»AP:265 EQU *«, t00=0x0021, t01=0x018a}
0x3526…355a Head {h00=0x0030, h01=0x0050, text=» SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS«, t00=0x0022, t01=0x000e}
0x355a…3586 Head {h00=0x0028, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF PAGES «, t00=0x0022, t01=0x0042}
0x3586…359c Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:265 «, t00=0x0022, t01=0x006e}
0x359c…35d8 Head {h00=0x0038, h01=0x0050, text=» ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT«, t00=0x0022, t01=0x0084}
0x35d8…35ec Head {h00=0x0010, h01=0x0050, text=»AP:270 EQU *«, t00=0x0022, t01=0x00c0}
0x35ec…3612 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0022, t01=0x00d4}
0x3612…3632 Head {h00=0x001c, h01=0x0050, text=» ANK A2,1 MMU IN SYSTEM?«, t00=0x0022, t01=0x00fa}
0x3632…364e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:292 YES! «, t00=0x0022, t01=0x011a}
0x364e…3658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0136}
0x3658…3680 Head {h00=0x0024, h01=0x0050, text=»* END OF COMMON EXECUTION PATH «, t00=0x0022, t01=0x0140}
0x3680…368a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0168}
0x368a…3698 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0172}
0x3698…36a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0180}
0x36a2…36e6 Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0022, t01=0x018a}
0x36e6…36f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003e}
0x36f0…370a Head {h00=0x0016, h01=0x0050, text=» ST A5,SAVE08,A13 «, t00=0x0023, t01=0x0048}
0x370a…371e Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0023, t01=0x0062}
0x371e…3730 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A5«, t00=0x0023, t01=0x0076}
0x3730…3762 Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0023, t01=0x0088}
0x3762…378c Head {h00=0x0026, h01=0x0050, text=» ADKL A10,3 RESERV ONE EXTRA WORD «, t00=0x0023, t01=0x00ba}
0x378c…37a4 Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FFFE «, t00=0x0023, t01=0x00e4}
0x37a4…37cc Head {h00=0x0024, h01=0x0050, text=» SUR A8,A10 COMPUTE LOAD-ADDRESS«, t00=0x0023, t01=0x00fc}
0x37cc…37f8 Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTSFA GET START OF FREE AREA«, t00=0x0023, t01=0x0124}
0x37f8…380a Head {h00=0x000e, h01=0x0050, text=» TNM A1,A8«, t00=0x0023, t01=0x0150}
0x380a…3820 Head {h00=0x0012, h01=0x0050, text=» RF(NN) AP:280«, t00=0x0023, t01=0x0162}
0x3820…3832 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A8«, t00=0x0023, t01=0x0178}
0x3832…3844 Head {h00=0x000e, h01=0x0050, text=» RF AP:285«, t00=0x0023, t01=0x018a}
0x3844…385c Head {h00=0x0014, h01=0x0050, text=»AP:280 CWR A8,A1«, t00=0x0024, t01=0x000c}
0x385c…3878 Head {h00=0x0018, h01=0x0050, text=»AP:285 RF(G) AP:290 «, t00=0x0024, t01=0x0024}
0x3878…388e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0024, t01=0x0040}
0x388e…38b2 Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x0024, t01=0x0056}
0x38b2…38c6 Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0024, t01=0x007a}
0x38c6…38fe Head {h00=0x0034, h01=0x0050, text=» ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS«, t00=0x0024, t01=0x008e}
0x38fe…3936 Head {h00=0x0034, h01=0x0050, text=» ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS «, t00=0x0024, t01=0x00c6}
0x3936…395a Head {h00=0x0020, h01=0x0050, text=» LDR A12,A8 RELOCATION BASE «, t00=0x0024, t01=0x00fe}
0x395a…398c Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0024, t01=0x0122}
0x398c…39a0 Head {h00=0x0010, h01=0x0050, text=» ABL AP:355 «, t00=0x0024, t01=0x0154}
0x39a0…39ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0168}
0x39ae…39c2 Head {h00=0x0010, h01=0x0050, text=»AP:292 EQU *«, t00=0x0024, t01=0x0176}
0x39c2…39cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018a}
0x39cc…3a02 (37, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0025, t01=0x0004}
0x3a02…3a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003a}
0x3a0c…3a24 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A5 SAVE «, t00=0x0025, t01=0x0044}
0x3a24…3a4e Head {h00=0x0026, h01=0x0050, text=» ANKL A5,/FC00 GET 6 LEFTMOST BITS«, t00=0x0025, t01=0x005c}
0x3a4e…3a66 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A5 SAVE «, t00=0x0025, t01=0x0086}
0x3a66…3a96 Head {h00=0x002c, h01=0x0050, text=» SUR A4,A5 COMPUTE PHYSICAL DISPLACEMENT«, t00=0x0025, t01=0x009e}
0x3a96…3aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00ce}
0x3aa4…3aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aae…3ae6 Head {h00=0x0034, h01=0x0050, text=»* STORE ADDRES(ES) TO PHYSICAL PAGE(S) HOLDING «, t00=0x0025, t01=0x00e6}
0x3ae6…3b08 Head {h00=0x001e, h01=0x0050, text=»* THE FIRST LOGICAL PAGE «, t00=0x0025, t01=0x011e}
0x3b08…3b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0140}
0x3b12…3b3e Head {h00=0x0028, h01=0x0050, text=» LDKL A7,MMEND GET END OF MMU TABLE«, t00=0x0025, t01=0x014a}
0x3b3e…3b68 Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 INIT MMU ENTRY POINTER«, t00=0x0025, t01=0x0176}
0x3b68…3b7c Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0026, t01=0x0010}
0x3b7c…3baa Head {h00=0x002a, h01=0x0050, text=» SUK A7,2 DECREMENT MMU ENTRY ADDRESS «, t00=0x0026, t01=0x0024}
0x3baa…3bd8 Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0026, t01=0x0052}
0x3bd8…3c0e Head {h00=0x0032, h01=0x0050, text=» SUKL A3,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0026, t01=0x0080}
0x3c0e…3c24 Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0026, t01=0x00b6}
0x3c24…3c4e Head {h00=0x0026, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K-BYTES PAGES «, t00=0x0026, t01=0x00cc}
0x3c4e…3c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f6}
0x3c58…3c8c Head {h00=0x0030, h01=0x0050, text=»* RESERV ONE EXTRA MMU ENTRY WHEN PAGE SIZE«, t00=0x0026, t01=0x0100}
0x3c8c…3cb4 Head {h00=0x0024, h01=0x0050, text=»* IS NOT AN EVEN MULTIPLE OF 4K«, t00=0x0026, t01=0x0134}
0x3cb4…3cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015c}
0x3cbe…3cd0 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0026, t01=0x0166}
0x3cd0…3ce2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0026, t01=0x0178}
0x3ce2…3cf6 Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0026, t01=0x018a}
0x3cf6…3d28 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOP ANY CORE RESIDENT SEGMENTS? «, t00=0x0027, t01=0x000e}
0x3d28…3d44 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:302 YES! «, t00=0x0027, t01=0x0040}
0x3d44…3d74 Head {h00=0x002c, h01=0x0050, text=» LDR A5,A1 GET ADDRESS TO END OF MEMORY «, t00=0x0027, t01=0x005c}
0x3d74…3d96 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET PAGE SIZE «, t00=0x0027, t01=0x008c}
0x3d96…3da8 Head {h00=0x000e, h01=0x0050, text=» RF AP:310«, t00=0x0027, t01=0x00ae}
0x3da8…3de8 Head {h00=0x003c, h01=0x0050, text=»AP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE «, t00=0x0027, t01=0x00c0}
0x3de8…3dfc Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0027, t01=0x0100}
0x3dfc…3e2e Head {h00=0x002e, h01=0x0050, text=» STR A6,A3 STORE ADDRESS TO PHYSICAL PAGE «, t00=0x0027, t01=0x0114}
0x3e2e…3e5c Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0027, t01=0x0146}
0x3e5c…3e84 Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0027, t01=0x0174}
0x3e84…3e9e Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0028, t01=0x000c}
0x3e9e…3ed4 Head {h00=0x0032, h01=0x0050, text=» ADKL A6,/400 INCREMENT PHYSICAL PAGE ADDRESS «, t00=0x0028, t01=0x0026}
0x3ed4…3ee6 Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0028, t01=0x005c}
0x3ee6…3efa Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0028, t01=0x006e}
0x3efa…3f28 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A4 ANY PHYSICAL DISPLACEMENT? «, t00=0x0028, t01=0x0082}
0x3f28…3f44 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:315 YES! «, t00=0x0028, t01=0x00b0}
0x3f44…3f74 Head {h00=0x002c, h01=0x0050, text=» SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS«, t00=0x0028, t01=0x00cc}
0x3f74…3f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00fc}
0x3f7e…3f92 Head {h00=0x0010, h01=0x0050, text=»AP:315 EQU *«, t00=0x0028, t01=0x0106}
0x3f92…3fba Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 PHYSICAL DISPLACEMENT «, t00=0x0028, t01=0x011a}
0x3fba…3fce Head {h00=0x0010, h01=0x0050, text=»AP:325 EQU *«, t00=0x0028, t01=0x0142}
0x3fce…3fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0156}
0x3fd8…400a Head {h00=0x002e, h01=0x0050, text=»* SAVE LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x0028, t01=0x0160}
0x400a…4014 (41, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4014…4034 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0029, t01=0x000e}
0x4034…405e Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0029, t01=0x002e}
0x405e…408e Head {h00=0x002c, h01=0x0050, text=» ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE«, t00=0x0029, t01=0x0058}
0x408e…40a8 Head {h00=0x0016, h01=0x0050, text=» ST A2,SCTLAP SAVE«, t00=0x0029, t01=0x0088}
0x40a8…40cc Head {h00=0x0020, h01=0x0050, text=» ADR A2,A4 ADD DISPLACEMENT «, t00=0x0029, t01=0x00a2}
0x40cc…40ea Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE«, t00=0x0029, t01=0x00c6}
0x40ea…411a Head {h00=0x002c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY FOR FIRST PAGE «, t00=0x0029, t01=0x00e4}
0x411a…4146 Head {h00=0x0028, h01=0x0050, text=» SUK A2,17 INDEX RELATIVE TTAB ENTRY«, t00=0x0029, t01=0x0114}
0x4146…416a Head {h00=0x0020, h01=0x0050, text=» ADR A2,A2 BYTE DISPLACEMENT«, t00=0x0029, t01=0x0140}
0x416a…418e Head {h00=0x0020, h01=0x0050, text=» ST A2,SCTMMP SAVE IN SYSTAB«, t00=0x0029, t01=0x0164}
0x418e…4198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0188}
0x4198…41c2 (42, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x002a, t01=0x0004}
0x41c2…41cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002e}
0x41cc…41e0 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,16 «, t00=0x002a, t01=0x0038}
0x41e0…41f2 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A8«, t00=0x002a, t01=0x004c}
0x41f2…4208 Head {h00=0x0012, h01=0x0050, text=» ST A2,SCTNPE «, t00=0x002a, t01=0x005e}
0x4208…421a Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x002a, t01=0x0074}
0x421a…422e Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x002a, t01=0x0086}
0x422e…4238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009a}
0x4238…4274 Head {h00=0x0038, h01=0x0050, text=»* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT«, t00=0x002a, t01=0x00a4}
0x4274…42b6 Head {h00=0x003e, h01=0x0050, text=»* THE APPLICATION LOADED WAS UNSEGMENTED (CORE RESIDENT) «, t00=0x002a, t01=0x00e0}
0x42b6…42c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0122}
0x42c0…42f0 Head {h00=0x002c, h01=0x0050, text=» SUKL A5,/400 INIT POINTER TO LAST PAGE «, t00=0x002a, t01=0x012c}
0x42f0…431a Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGSIZ PHYSICAL PAGE SIZE«, t00=0x002a, t01=0x015c}
0x431a…4342 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,MMEND END OF MMU TABLE «, t00=0x002a, t01=0x0186}
0x4342…4368 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 MMU ENTRY POINTER «, t00=0x002b, t01=0x001e}
0x4368…4376 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0044}
0x4376…438a Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x002b, t01=0x0052}
0x438a…43ae Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 ANY DISPLACEMENT?«, t00=0x002b, t01=0x0066}
0x43ae…43c4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) AP:337«, t00=0x002b, t01=0x008a}
0x43c4…43dc Head {h00=0x0014, h01=0x0050, text=» LDKL A4,PAGSIZ «, t00=0x002b, t01=0x00a0}
0x43dc…43f0 Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x002b, t01=0x00b8}
0x43f0…43fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00cc}
0x43fa…4426 Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION SAVE09 ADDRESS«, t00=0x002b, t01=0x00d6}
0x4426…4430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x4430…445a Head {h00=0x0026, h01=0x0050, text=»* A1 - LAST PHYSICAL PAGE NUMBER «, t00=0x002b, t01=0x010c}
0x445a…447e Head {h00=0x0020, h01=0x0050, text=»* A4 - DISPLACEMENT IN PAGE«, t00=0x002b, t01=0x0136}
0x447e…44a4 Head {h00=0x0022, h01=0x0050, text=»* A5 - PHYSICAL PAGE ADDRESS «, t00=0x002b, t01=0x015a}
0x44a4…44c6 Head {h00=0x001e, h01=0x0050, text=»* A7 - MMU ENTRY ADDRESS «, t00=0x002b, t01=0x0180}
0x44c6…44e8 Head {h00=0x001e, h01=0x0050, text=»* A8 - CURRENT MMU ENTRY «, t00=0x002c, t01=0x0012}
0x44e8…44f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0034}
0x44f2…4526 Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x002c, t01=0x003e}
0x4526…454e Head {h00=0x0024, h01=0x0050, text=» ADK A2,3 RESERV ONE EXTRA WORD «, t00=0x002c, t01=0x0072}
0x454e…4576 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x002c, t01=0x009a}
0x4576…4588 Head {h00=0x000e, h01=0x0050, text=» RF AP:344«, t00=0x002c, t01=0x00c2}
0x4588…459c Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x002c, t01=0x00d4}
0x459c…45ec Head {h00=0x004c, h01=0x0050, text=»* RESERV ENTRIES IN MMU TABLE FOR PHYSICAL PAGE ADDRESSES TO COMMON PA«, t00=0x002c, t01=0x00e8}
0x45ec…45f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45f6…4622 Head {h00=0x0028, h01=0x0050, text=» SUR A2,A4 AREA LEFT IN CURRENT PAGE«, t00=0x002c, t01=0x0142}
0x4622…464c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGSIZ PHYSICAL PAGE SIZE«, t00=0x002c, t01=0x016e}
0x464c…467a Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x002d, t01=0x0008}
0x467a…4690 Head {h00=0x0012, h01=0x0050, text=» RF(NN) AP:342«, t00=0x002d, t01=0x0036}
0x4690…46a4 Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x002d, t01=0x004c}
0x46a4…46d2 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP7 INDICATE TABBE OVERFLOW!«, t00=0x002d, t01=0x0060}
0x46d2…46e6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x002d, t01=0x008e}
0x46e6…46fa Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x002d, t01=0x00a2}
0x46fa…4722 Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECREMENT PAGE POINTER«, t00=0x002d, t01=0x00b6}
0x4722…4750 Head {h00=0x002a, h01=0x0050, text=» SUK A7,2 DECREMENT MMU ENTRY ADDRESS «, t00=0x002d, t01=0x00de}
0x4750…477c Head {h00=0x0028, h01=0x0050, text=» STR A5,A7 STORE PAGE ADDRESS IN MMU«, t00=0x002d, t01=0x010c}
0x477c…479c Head {h00=0x001c, h01=0x0050, text=» SUKL A5,/400 NEXT PAGE «, t00=0x002d, t01=0x0138}
0x479c…47b0 Head {h00=0x0010, h01=0x0050, text=»AP:344 EQU *«, t00=0x002d, t01=0x0158}
0x47b0…47da Head {h00=0x0026, h01=0x0050, text=» TNM A2,A4 PROGRAM LENGTH > 32 KB?«, t00=0x002d, t01=0x016c}
0x47da…47f4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) AP:345 NO!«, t00=0x002e, t01=0x0008}
0x47f4…4806 Head {h00=0x000e, h01=0x0050, text=» CWR A4,A2«, t00=0x002e, t01=0x0022}
0x4806…4818 Head {h00=0x000e, h01=0x0050, text=» RF AP:348«, t00=0x002e, t01=0x0034}
0x4818…482c Head {h00=0x0010, h01=0x0050, text=»AP:345 EQU *«, t00=0x002e, t01=0x0046}
0x482c…483e Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x002e, t01=0x005a}
0x483e…4852 Head {h00=0x0010, h01=0x0050, text=»AP:348 EQU *«, t00=0x002e, t01=0x006c}
0x4852…4868 Head {h00=0x0012, h01=0x0050, text=» RB(G) AP:340 «, t00=0x002e, t01=0x0080}
0x4868…487c Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x002e, t01=0x0096}
0x487c…488e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x002e, t01=0x00aa}
0x488e…48a4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x002e, t01=0x00bc}
0x48a4…48b6 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x002e, t01=0x00d2}
0x48b6…48dc Head {h00=0x0022, h01=0x0050, text=» RB(N) AP:341 TABBE OVERFLOW! «, t00=0x002e, t01=0x00e4}
0x48dc…48fe Head {h00=0x001e, h01=0x0050, text=» SUK A7,2 NEXT TABBE ENTRY«, t00=0x002e, t01=0x010a}
0x48fe…4924 Head {h00=0x0022, h01=0x0050, text=» STR A5,A7 STORE PAGE ADDRESS «, t00=0x002e, t01=0x012c}
0x4924…4938 Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x002e, t01=0x0152}
0x4938…495e Head {h00=0x0022, h01=0x0050, text=» SUR A4,A2 MODIFY DISPLACEMENT«, t00=0x002e, t01=0x0166}
0x495e…497e Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x002e, t01=0x018c}
0x497e…4992 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,17 «, t00=0x002f, t01=0x001c}
0x4992…49b6 Head {h00=0x0020, h01=0x0050, text=» ADR A8,A8 BYTE DISPLACEMENT«, t00=0x002f, t01=0x0030}
0x49b6…49da Head {h00=0x0020, h01=0x0050, text=» ST A8,SCTMMC SAVE IN SYSTAB«, t00=0x002f, t01=0x0054}
0x49da…4a04 Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x002f, t01=0x0078}
0x4a04…4a18 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A2 «, t00=0x002f, t01=0x00a2}
0x4a18…4a42 Head {h00=0x0026, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS«, t00=0x002f, t01=0x00b6}
0x4a42…4a72 Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA«, t00=0x002f, t01=0x00e0}
0x4a72…4a9a Head {h00=0x0024, h01=0x0050, text=» LDR A12,A8 LOAD RELOCATION BASE«, t00=0x002f, t01=0x0110}
0x4a9a…4aca Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A7 GET ADDRESS TO PHYSICAL PAGE«, t00=0x002f, t01=0x0138}
0x4aca…4af2 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x002f, t01=0x0168}
0x4af2…4b0c Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x002f, t01=0x0190}
0x4b0c…4b30 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,0 UPPER LIMIT 64 KB«, t00=0x0030, t01=0x001a}
0x4b30…4b42 Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0030, t01=0x003e}
0x4b42…4b56 Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0030, t01=0x0050}
0x4b56…4b7e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A7 GET PHYSICAL ADDRESS«, t00=0x0030, t01=0x0064}
0x4b7e…4b90 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0030, t01=0x008c}
0x4b90…4bb4 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0030, t01=0x009e}
0x4bb4…4be0 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0030, t01=0x00c2}
0x4be0…4c0c Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0030, t01=0x00ee}
0x4c0c…4c28 Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0030, t01=0x011a}
0x4c28…4c3a Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0030, t01=0x0136}
0x4c3a…4c4c Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0030, t01=0x0148}
0x4c4c…4c64 Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0030, t01=0x015a}
0x4c64…4c80 Head {h00=0x0018, h01=0x0050, text=»AP3534 RF(G) AP:354 «, t00=0x0030, t01=0x0172}
0x4c80…4c96 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0030, t01=0x018e}
0x4c96…4cba Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW «, t00=0x0031, t01=0x0014}
0x4cba…4cce Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0031, t01=0x0038}
0x4cce…4cec Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE01,A13 SAVE«, t00=0x0031, t01=0x004c}
0x4cec…4d1e Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0031, t01=0x006a}
0x4d1e…4d42 Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0031, t01=0x009c}
0x4d42…4d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c0}
0x4d4c…4d8a Head {h00=0x003a, h01=0x0050, text=»* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x0031, t01=0x00ca}
0x4d8a…4d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0108}
0x4d94…4dbc Head {h00=0x0024, h01=0x0050, text=»* A8 - APPLICATION LOAD ADDRESS«, t00=0x0031, t01=0x0112}
0x4dbc…4dea Head {h00=0x002a, h01=0x0050, text=»* A10 - LENGTH OF CORE RESIDENT PART «, t00=0x0031, t01=0x013a}
0x4dea…4e0a Head {h00=0x001c, h01=0x0050, text=»* A12 - RELOCATION BASE«, t00=0x0031, t01=0x0168}
0x4e0a…4e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0188}
0x4e14…4e28 (50, 0, 400) Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x0032, t01=0x0004}
0x4e28…4e52 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0032, t01=0x0018}
0x4e52…4e6a Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 MODIFY«, t00=0x0032, t01=0x0042}
0x4e6a…4e86 Head {h00=0x0018, h01=0x0050, text=» ST A1,SCTEFA STORE «, t00=0x0032, t01=0x005a}
0x4e86…4e9c Head {h00=0x0012, h01=0x0050, text=» ST A8,SCTLAC «, t00=0x0032, t01=0x0076}
0x4e9c…4eca Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x0032, t01=0x008c}
0x4eca…4f06 Head {h00=0x0038, h01=0x0050, text=» LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE «, t00=0x0032, t01=0x00ba}
0x4f06…4f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f6}
0x4f10…4f36 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x0032, t01=0x0100}
0x4f36…4f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0126}
0x4f40…4f6a Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC START OF APPLICATION«, t00=0x0032, t01=0x0130}
0x4f6a…4fa0 Head {h00=0x0032, h01=0x0050, text=» ADKL A2,PRGLG1 SECOND WORD IN SEGMENTT TABLE «, t00=0x0032, t01=0x015a}
0x4fa0…4fc0 Head {h00=0x001c, h01=0x0050, text=» CALL GETCON GET CONTENT«, t00=0x0032, t01=0x0190}
0x4fc0…4fdc Head {h00=0x0018, h01=0x0050, text=» CWK A1,'CR' CREDIT?«, t00=0x0033, t01=0x0020}
0x4fdc…4ffe Head {h00=0x001e, h01=0x0050, text=» RF(NE) CONLOD NOT CREDIT!«, t00=0x0033, t01=0x003c}
0x4ffe…5026 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTNOS NUMBER OF SEGMENTS«, t00=0x0033, t01=0x005e}
0x5026…5048 Head {h00=0x001e, h01=0x0050, text=» RF(Z) CONLOD NO SEGMENTS!«, t00=0x0033, t01=0x0086}
0x5048…5082 Head {h00=0x0036, h01=0x0050, text=» SUR A12,A12 RELOCATION BASE = ZERO FOR SEGMENTS «, t00=0x0033, t01=0x00a8}
0x5082…50a8 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0033, t01=0x00e2}
0x50a8…50c8 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x0033, t01=0x0108}
0x50c8…50e2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:360 NO! «, t00=0x0033, t01=0x0128}
0x50e2…5114 Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x0033, t01=0x0142}
0x5114…5128 Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x0033, t01=0x0174}
0x5128…5132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0188}
0x5132…515c (52, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* READ AND RELOCATE THE SEGMENTS «, t00=0x0034, t01=0x0004}
0x515c…5166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002e}
0x5166…5198 Head {h00=0x002e, h01=0x0050, text=»* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x0034, t01=0x0038}
0x5198…51b8 Head {h00=0x001c, h01=0x0050, text=»* A10 - SEGMENT LENGTH «, t00=0x0034, t01=0x006a}
0x51b8…51d8 Head {h00=0x001c, h01=0x0050, text=»* A12 - RELOCATION BASE«, t00=0x0034, t01=0x008a}
0x51d8…51e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00aa}
0x51e2…521a Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION«, t00=0x0034, t01=0x00b4}
0x521a…5238 Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x0034, t01=0x00ec}
0x5238…5266 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x0034, t01=0x010a}
0x5266…527a Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x0034, t01=0x0138}
0x527a…5290 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x0034, t01=0x014c}
0x5290…52b2 Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x0034, t01=0x0162}
0x52b2…52dc Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x0034, t01=0x0184}
0x52dc…52ee Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x0035, t01=0x001e}
0x52ee…5302 Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x0035, t01=0x0030}
0x5302…530c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0044}
0x530c…532c Head {h00=0x001c, h01=0x0050, text=»* CHECK IF DISC PAGING «, t00=0x0035, t01=0x004e}
0x532c…5336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006e}
0x5336…535c Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0035, t01=0x0078}
0x535c…537a Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0035, t01=0x009e}
0x537a…5394 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x0035, t01=0x00bc}
0x5394…539e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d6}
0x539e…53c8 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF CORE RESIDENT SEGMENT «, t00=0x0035, t01=0x00e0}
0x53c8…53d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010a}
0x53d2…53f8 Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x0035, t01=0x0114}
0x53f8…5424 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x0035, t01=0x013a}
0x5424…5452 Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x0035, t01=0x0166}
0x5452…545c (54, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0004}
0x545c…548a Head {h00=0x002a, h01=0x0050, text=»* BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x0036, t01=0x000e}
0x548a…5494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003c}
0x5494…54c2 Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x0036, t01=0x0046}
0x54c2…54f4 Head {h00=0x002e, h01=0x0050, text=» LD A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS«, t00=0x0036, t01=0x0074}
0x54f4…5510 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x0036, t01=0x00a6}
0x5510…5530 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x0036, t01=0x00c2}
0x5530…554a Head {h00=0x0016, h01=0x0050, text=» RF(E) CONLOD YES!«, t00=0x0036, t01=0x00e2}
0x554a…5580 Head {h00=0x0032, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE CURRENT SEGMENT NUMBER «, t00=0x0036, t01=0x00fc}
0x5580…5592 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0036, t01=0x0132}
0x5592…55a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0144}
0x55a0…55b4 Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x0036, t01=0x0152}
0x55b4…55da Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x0036, t01=0x0166}
0x55da…5606 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x0036, t01=0x018c}
0x5606…561e Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x0037, t01=0x0028}
0x561e…5650 Head {h00=0x002e, h01=0x0050, text=» AD A11,SCTADA ADD START ADDRESS #79-01-03«, t00=0x0037, t01=0x0040}
0x5650…5664 Head {h00=0x0010, h01=0x0050, text=»AP:378 EQU *«, t00=0x0037, t01=0x0072}
0x5664…5684 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0037, t01=0x0086}
0x5684…56ac Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0037, t01=0x00a6}
0x56ac…56c4 Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0037, t01=0x00ce}
0x56c4…56d8 Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0037, t01=0x00e6}
0x56d8…5700 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0037, t01=0x00fa}
0x5700…571a Head {h00=0x0016, h01=0x0050, text=» ST A8,SAVE07,A13 «, t00=0x0037, t01=0x0122}
0x571a…573e Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0037, t01=0x013c}
0x573e…576c Head {h00=0x002a, h01=0x0050, text=» LD A1,SAVE06,A13 GET SEGMENT COUNTER «, t00=0x0037, t01=0x0160}
0x576c…579e Head {h00=0x002e, h01=0x0050, text=» LD A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS«, t00=0x0037, t01=0x018e}
0x579e…57ca Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0038, t01=0x0030}
0x57ca…57f2 Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0038, t01=0x005c}
0x57f2…580c Head {h00=0x0016, h01=0x0050, text=» RF(E) CONLOD YES!«, t00=0x0038, t01=0x0084}
0x580c…583c Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE06,A13 STORE SEGMENT COUNTER «, t00=0x0038, t01=0x009e}
0x583c…5862 Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTPSZ GET PAGE LENGTH «, t00=0x0038, t01=0x00ce}
0x5862…5888 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0038, t01=0x00f4}
0x5888…58a8 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MMU IN SYSTEM?«, t00=0x0038, t01=0x011a}
0x58a8…58c4 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) AP:379 YES! «, t00=0x0038, t01=0x013a}
0x58c4…58f4 Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0038, t01=0x0156}
0x58f4…5906 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0038, t01=0x0186}
0x5906…5914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0008}
0x5914…5928 Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0039, t01=0x0016}
0x5928…5940 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0039, t01=0x002a}
0x5940…5972 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0039, t01=0x0042}
0x5972…5998 Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0039, t01=0x0074}
0x5998…59d0 Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0039, t01=0x009a}
0x59d0…59e8 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0039, t01=0x00d2}
0x59e8…5a1a Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0039, t01=0x00ea}
0x5a1a…5a4e Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0039, t01=0x011c}
0x5a4e…5a84 Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0039, t01=0x0150}
0x5a84…5ab2 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0039, t01=0x0186}
0x5ab2…5ac6 Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x003a, t01=0x0024}
0x5ac6…5af6 Head {h00=0x002c, h01=0x0050, text=» LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE «, t00=0x003a, t01=0x0038}
0x5af6…5b1e Head {h00=0x0024, h01=0x0050, text=» ANKL A8,/F000 SKIP DISPLACEMENT«, t00=0x003a, t01=0x0068}
0x5b1e…5b36 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x003a, t01=0x0090}
0x5b36…5b6e Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x003a, t01=0x00a8}
0x5b6e…5b9a Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x003a, t01=0x00e0}
0x5b9a…5bb8 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x003a, t01=0x010c}
0x5bb8…5bcc Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x003a, t01=0x012a}
0x5bcc…5bf6 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x003a, t01=0x013e}
0x5bf6…5c0a Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x003a, t01=0x0168}
0x5c0a…5c24 Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x003a, t01=0x017c}
0x5c24…5c52 Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x003b, t01=0x0008}
0x5c52…5c66 Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x003b, t01=0x0036}
0x5c66…5c96 Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x003b, t01=0x004a}
0x5c96…5cb6 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x003b, t01=0x007a}
0x5cb6…5cc8 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x003b, t01=0x009a}
0x5cc8…5cde Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x003b, t01=0x00ac}
0x5cde…5d08 Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x003b, t01=0x00c2}
0x5d08…5d1a Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x003b, t01=0x00ec}
0x5d1a…5d28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00fe}
0x5d28…5d6a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003b, t01=0x010c}
0x5d6a…5dac Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003b, t01=0x014e}
0x5dac…5dee Head {h00=0x003e, h01=0x0050, text=»* LOAD CONFIGURATION PART OF SYSLOD *«, t00=0x003b, t01=0x0190}
0x5dee…5e30 Head {h00=0x003e, h01=0x0050, text=»* ================================= *«, t00=0x003c, t01=0x0042}
0x5e30…5e72 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0084}
0x5e72…5eb4 Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS *«, t00=0x003c, t01=0x00c6}
0x5eb4…5ef6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0108}
0x5ef6…5f38 Head {h00=0x003e, h01=0x0050, text=»* EXIT: *«, t00=0x003c, t01=0x014a}
0x5f38…5f7a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003c, t01=0x018c}
0x5f7a…5fbc Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CASSIN,RDBLK,MOVBUF *«, t00=0x003d, t01=0x003e}
0x5fbc…5ffe Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0080}
0x5ffe…6040 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003d, t01=0x00c2}
0x6040…6054 Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x003d, t01=0x0104}
0x6054…6082 Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTPLD GET PROGRAM LOAD DEVICE «, t00=0x003d, t01=0x0118}
0x6082…60a8 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x003d, t01=0x0146}
0x60a8…60cc Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x003d, t01=0x016c}
0x60cc…60d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0190}
0x60d6…6100 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x003e, t01=0x000a}
0x6100…610a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0034}
0x610a…611e Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x003e, t01=0x003e}
0x611e…6140 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x003e, t01=0x0052}
0x6140…6156 Head {h00=0x0012, h01=0x0050, text=» ADKL A1,CBLEN«, t00=0x003e, t01=0x0074}
0x6156…618e Head {h00=0x0034, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE POINTER TO END OF BUFFER «, t00=0x003e, t01=0x008a}
0x618e…61a8 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE08,A13 «, t00=0x003e, t01=0x00c2}
0x61a8…61cc Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x003e, t01=0x00dc}
0x61cc…61f2 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x003e, t01=0x0100}
0x61f2…620e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x003e, t01=0x0126}
0x620e…6228 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x003e, t01=0x0142}
0x6228…625a Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x003e, t01=0x015c}
0x625a…626e Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x003e, t01=0x018e}
0x626e…6294 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x003f, t01=0x0012}
0x6294…62b0 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x003f, t01=0x0038}
0x62b0…62ca Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x003f, t01=0x0054}
0x62ca…62de Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x003f, t01=0x006e}
0x62de…62e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0082}
0x62e8…631e Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x003f, t01=0x008c}
0x631e…6328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c2}
0x6328…6360 Head {h00=0x0034, h01=0x0050, text=» LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER «, t00=0x003f, t01=0x00cc}
0x6360…6378 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x003f, t01=0x0104}
0x6378…63a2 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x003f, t01=0x011c}
0x63a2…63ca Head {h00=0x0024, h01=0x0050, text=» LDR A4,A9 GET SAVE09 OF BUFFER «, t00=0x003f, t01=0x0146}
0x63ca…63de Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x003f, t01=0x016e}
0x63de…6408 Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x003f, t01=0x0182}
0x6408…642c Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x0040, t01=0x001c}
0x642c…6456 Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x0040, t01=0x0040}
0x6456…646a Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x0040, t01=0x006a}
0x646a…648e Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x0040, t01=0x007e}
0x648e…64a8 Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x0040, t01=0x00a2}
0x64a8…64d2 Head {h00=0x0026, h01=0x0050, text=» CW A1,SAVE01,A13 MEMORY OVERFLOW?«, t00=0x0040, t01=0x00bc}
0x64d2…64ec Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x0040, t01=0x00e6}
0x64ec…651c Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x0040, t01=0x0100}
0x651c…654a Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x0040, t01=0x0130}
0x654a…6574 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0040, t01=0x015e}
0x6574…6586 Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x0040, t01=0x0188}
0x6586…659a Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x0041, t01=0x000a}
0x659a…65c0 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x0041, t01=0x001e}
0x65c0…65e6 Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x0041, t01=0x0044}
0x65e6…6600 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x0041, t01=0x006a}
0x6600…662e Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x0041, t01=0x0084}
0x662e…6666 Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x0041, t01=0x00b2}
0x6666…667a Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x0041, t01=0x00ea}
0x667a…66ac Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CURRENT DESTINATION«, t00=0x0041, t01=0x00fe}
0x66ac…66d4 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A9 GET SAVE09 OF BUFFER «, t00=0x0041, t01=0x0130}
0x66d4…66e6 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0041, t01=0x0158}
0x66e6…66f8 Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x0041, t01=0x016a}
0x66f8…670c Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x0041, t01=0x017c}
0x670c…673a Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0041, t01=0x0190}
0x673a…674e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0042, t01=0x002e}
0x674e…6762 Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x0042, t01=0x0042}
0x6762…676c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0056}
0x676c…67ae Head {h00=0x003e, h01=0x0050, text=»* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x0042, t01=0x0060}
0x67ae…67b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a2}
0x67b8…67de Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0042, t01=0x00ac}
0x67de…6802 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x0042, t01=0x00d2}
0x6802…681c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x0042, t01=0x00f6}
0x681c…682e Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x0042, t01=0x0110}
0x682e…685c Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x0042, t01=0x0122}
0x685c…6882 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x0042, t01=0x0150}
0x6882…6894 Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x0042, t01=0x0176}
0x6894…68a8 Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x0042, t01=0x0188}
0x68a8…68ba Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0043, t01=0x000c}
0x68ba…68e0 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0043, t01=0x001e}
0x68e0…68f4 Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x0043, t01=0x0044}
0x68f4…6908 Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x0043, t01=0x0058}
0x6908…6916 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x006c}
0x6916…692a Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x0043, t01=0x007a}
0x692a…6934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x008e}
0x6934…696e Head {h00=0x0036, h01=0x0050, text=»* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x0043, t01=0x0098}
0x696e…6978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d2}
0x6978…69a6 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x0043, t01=0x00dc}
0x69a6…69cc Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x0043, t01=0x010a}
0x69cc…69f4 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-2 END OF BUFFER «, t00=0x0043, t01=0x0130}
0x69f4…6a20 Head {h00=0x0028, h01=0x0050, text=» ST A1,SAVE08,A13 SAVE END OF BUFFER«, t00=0x0043, t01=0x0158}
0x6a20…6a4a Head {h00=0x0026, h01=0x0050, text=» ADK A1,8 START OF SAVE BUFFER =2 «, t00=0x0043, t01=0x0184}
0x6a4a…6a6c Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE =2 «, t00=0x0044, t01=0x001e}
0x6a6c…6a94 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x0044, t01=0x0040}
0x6a94…6aa8 Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x0044, t01=0x0068}
0x6aa8…6ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x007c}
0x6ab2…6ae6 Head {h00=0x0030, h01=0x0050, text=»* READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x0044, t01=0x0086}
0x6ae6…6af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ba}
0x6af0…6b12 Head {h00=0x001e, h01=0x0050, text=» CF A14,READS READ SECTOR «, t00=0x0044, t01=0x00c4}
0x6b12…6b28 Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x0044, t01=0x00e6}
0x6b28…6b4e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x0044, t01=0x00fc}
0x6b4e…6b62 Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x0044, t01=0x0122}
0x6b62…6b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0136}
0x6b6c…6ba2 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x0044, t01=0x0140}
0x6ba2…6bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0176}
0x6bac…6be4 Head {h00=0x0034, h01=0x0050, text=» LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER «, t00=0x0044, t01=0x0180}
0x6be4…6bfc Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0045, t01=0x0028}
0x6bfc…6c26 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x0045, t01=0x0040}
0x6c26…6c48 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x0045, t01=0x006a}
0x6c48…6c5c Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x0045, t01=0x008c}
0x6c5c…6c7c Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0045, t01=0x00a0}
0x6c7c…6ca0 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0045, t01=0x00c0}
0x6ca0…6cba Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x0045, t01=0x00e4}
0x6cba…6cce Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x0045, t01=0x00fe}
0x6cce…6cfc Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x0045, t01=0x0112}
0x6cfc…6d16 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x0045, t01=0x0140}
0x6d16…6d40 Head {h00=0x0026, h01=0x0050, text=» CW A1,SAVE01,A13 MEMORY OVERFLOW?«, t00=0x0045, t01=0x015a}
0x6d40…6d5a Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x0045, t01=0x0184}
0x6d5a…6d84 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x0046, t01=0x000e}
0x6d84…6db2 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x0046, t01=0x0038}
0x6db2…6ddc Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x0046, t01=0x0066}
0x6ddc…6df4 Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x0046, t01=0x0090}
0x6df4…6e08 Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x0046, t01=0x00a8}
0x6e08…6e2e Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x0046, t01=0x00bc}
0x6e2e…6e52 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x0046, t01=0x00e2}
0x6e52…6e6c Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x0046, t01=0x0106}
0x6e6c…6e9a Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x0046, t01=0x0120}
0x6e9a…6ed2 Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x0046, t01=0x014e}
0x6ed2…6ee6 Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x0046, t01=0x0186}
0x6ee6…6f18 Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE03,A13 SAVE CURRENT DESTINATION«, t00=0x0047, t01=0x000a}
0x6f18…6f3a Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x0047, t01=0x003c}
0x6f3a…6f4c Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0047, t01=0x005e}
0x6f4c…6f78 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0047, t01=0x0070}
0x6f78…6f9e Head {h00=0x0022, h01=0x0050, text=» CW A10,SAVE20,A13 LAST RECORD«, t00=0x0047, t01=0x009c}
0x6f9e…6fb8 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0047, t01=0x00c2}
0x6fb8…6fea Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0047, t01=0x00dc}
0x6fea…7012 Head {h00=0x0024, h01=0x0050, text=» CW A8,SAVE08,A13 END OF BUFFER «, t00=0x0047, t01=0x010e}
0x7012…7034 Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT RECORD «, t00=0x0047, t01=0x0136}
0x7034…7052 Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT SECTOR«, t00=0x0047, t01=0x0158}
0x7052…7066 Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0047, t01=0x0176}
0x7066…707a Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0047, t01=0x018a}
0x707a…70a4 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0048, t01=0x000e}
0x70a4…70ce Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0048, t01=0x0038}
0x70ce…70e4 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0048, t01=0x0062}
0x70e4…70ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0078}
0x70ee…710e Head {h00=0x001c, h01=0x0050, text=»* UNLOCK FLEXIBLE DISC «, t00=0x0048, t01=0x0082}
0x710e…7118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a2}
0x7118…713e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTPLD GET LOAD DEVICE «, t00=0x0048, t01=0x00ac}
0x713e…715c Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0048, t01=0x00d2}
0x715c…7184 Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0048, t01=0x00f0}
0x7184…71aa Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0048, t01=0x0118}
0x71aa…71c8 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0048, t01=0x013e}
0x71c8…71f0 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES; DON'T UNLOCK«, t00=0x0048, t01=0x015c}
0x71f0…7210 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/C UNLOCK ORDER «, t00=0x0048, t01=0x0184}
0x7210…7232 Head {h00=0x001e, h01=0x0050, text=» EX FRD:10 EXECUTE COMMAND«, t00=0x0049, t01=0x0014}
0x7232…725a Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0049, t01=0x0036}
0x725a…727a Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x0049, t01=0x005e}
0x727a…72a2 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0049, t01=0x007e}
0x72a2…72b6 Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0049, t01=0x00a6}
0x72b6…72c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00ba}
0x72c4…72d8 Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0049, t01=0x00c8}
0x72d8…72e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00dc}
0x72e2…731a Head {h00=0x0034, h01=0x0050, text=»* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0049, t01=0x00e6}
0x731a…7324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x011e}
0x7324…735e Head {h00=0x0036, h01=0x0050, text=» LD A1,SAVE08,A13 GET SAVE09 OF CONFIGURATION DATA«, t00=0x0049, t01=0x0128}
0x735e…738c Head {h00=0x002a, h01=0x0050, text=» LD A3,SCTPLD GET PROGRAM LOAD DEVICE «, t00=0x0049, t01=0x0162}
0x738c…73aa Head {h00=0x001a, h01=0x0050, text=» SUK A3,/F0 CASSETTE? «, t00=0x0049, t01=0x0190}
0x73aa…73c4 Head {h00=0x0016, h01=0x0050, text=» RF(N) CMOV10 YES!«, t00=0x004a, t01=0x001e}
0x73c4…73ea Head {h00=0x0022, h01=0x0050, text=» ADK A1,8 START OF SAVE BUFFER«, t00=0x004a, t01=0x0038}
0x73ea…7428 Head {h00=0x003a, h01=0x0050, text=»CMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA «, t00=0x004a, t01=0x005e}
0x7428…7458 Head {h00=0x002c, h01=0x0050, text=» LD A2,SAVE01,A13 GET END OF SYSTEM AREA«, t00=0x004a, t01=0x009c}
0x7458…7486 Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x004a, t01=0x00cc}
0x7486…74ac Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x004a, t01=0x00fa}
0x74ac…74dc Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x004a, t01=0x0120}
0x74dc…74e4 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0150}
0x74e4…7502 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x004a, t01=0x0158}
0x7502…750c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0176}
0x750c…7534 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x004a, t01=0x0180}
0x7534…7546 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x004b, t01=0x0018}
0x7546…7580 Head {h00=0x0036, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA«, t00=0x004b, t01=0x002a}
0x7580…75aa Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x004b, t01=0x0064}
0x75aa…75ce Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x004b, t01=0x008e}
0x75ce…75f6 Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x004b, t01=0x00b2}
0x75f6…7628 Head {h00=0x002e, h01=0x0050, text=» ST A12,M:REL,A13 SAVE RELOCATION CONSTANT«, t00=0x004b, t01=0x00da}
0x7628…7654 Head {h00=0x0028, h01=0x0050, text=» LD A2,SAVE01,A13 GET START OF CONFF«, t00=0x004b, t01=0x010c}
0x7654…765e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0138}
0x765e…769e Head {h00=0x003c, h01=0x0050, text=»* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x004b, t01=0x0142}
0x769e…76a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0182}
0x76a8…76be Head {h00=0x0012, h01=0x0050, text=»MOPRO SUK A1,2«, t00=0x004b, t01=0x018c}
0x76be…76d0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004c, t01=0x0012}
0x76d0…76e4 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x004c, t01=0x0024}
0x76e4…76f6 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x004c, t01=0x0038}
0x76f6…770a Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x004c, t01=0x004a}
0x770a…7720 Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x004c, t01=0x005e}
0x7720…774e Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 SAVE NEW LOCATION OF SYSLDA«, t00=0x004c, t01=0x0074}
0x774e…7774 Head {h00=0x0022, h01=0x0050, text=» AD A2,LDALEN,A2 BYPASS SYSLDA«, t00=0x004c, t01=0x00a2}
0x7774…77a0 Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x004c, t01=0x00c8}
0x77a0…77ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00f4}
0x77ae…77fe Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004c, t01=0x0102}
0x77fe…784e Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x004c, t01=0x0152}
0x784e…789e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004d, t01=0x0012}
0x789e…78c6 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x004d, t01=0x0062}
0x78c6…78ee Head {h00=0x0024, h01=0x0050, text=»* SOPIN - READ SOP SWITCHES * «, t00=0x004d, t01=0x008a}
0x78ee…7916 Head {h00=0x0024, h01=0x0050, text=»* ========================= * «, t00=0x004d, t01=0x00b2}
0x7916…793e Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x004d, t01=0x00da}
0x793e…7966 Head {h00=0x0024, h01=0x0050, text=»* ENTRY: * «, t00=0x004d, t01=0x0102}
0x7966…798e Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x004d, t01=0x012a}
0x798e…79b6 Head {h00=0x0024, h01=0x0050, text=»* EXIT: A1 - SOP INPUT * «, t00=0x004d, t01=0x0152}
0x79b6…79de Head {h00=0x0024, h01=0x0050, text=»* BIT 6 - SWITCH 1 * «, t00=0x004d, t01=0x017a}
0x79de…7a06 Head {h00=0x0024, h01=0x0050, text=»* BIT 15 - SWITCH 10 * «, t00=0x004e, t01=0x0012}
0x7a06…7a2e Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x004e, t01=0x003a}
0x7a2e…7a56 Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1 * «, t00=0x004e, t01=0x0062}
0x7a56…7a7e Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x004e, t01=0x008a}
0x7a7e…7aa6 Head {h00=0x0024, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x004e, t01=0x00b2}
0x7aa6…7ace Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x004e, t01=0x00da}
0x7ace…7af6 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x004e, t01=0x0102}
0x7af6…7b0a Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x004e, t01=0x012a}
0x7b0a…7b20 Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x004e, t01=0x013e}
0x7b20…7b36 Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x004e, t01=0x0154}
0x7b36…7b4a Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x004e, t01=0x016a}
0x7b4a…7b5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x017e}
0x7b5a…7b68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x018e}
0x7b68…7ba8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x004f, t01=0x000c}
0x7ba8…7be8 Head {h00=0x003c, h01=0x0050, text=»* CASSIN - CASSETTE INITIATING ROUTINE * «, t00=0x004f, t01=0x004c}
0x7be8…7c28 Head {h00=0x003c, h01=0x0050, text=»* ==================================== * «, t00=0x004f, t01=0x008c}
0x7c28…7c68 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x004f, t01=0x00cc}
0x7c68…7ca8 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLOD -LOADING PART- * «, t00=0x004f, t01=0x010c}
0x7ca8…7ce8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x004f, t01=0x014c}
0x7ce8…7d28 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: * «, t00=0x004f, t01=0x018c}
0x7d28…7d68 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0050, t01=0x003c}
0x7d68…7da8 Head {h00=0x003c, h01=0x0050, text=»* EXIT: * «, t00=0x0050, t01=0x007c}
0x7da8…7de8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0050, t01=0x00bc}
0x7de8…7e28 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x0050, t01=0x00fc}
0x7e28…7e68 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0050, t01=0x013c}
0x7e68…7ea8 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: SOPIN,CHCRIO * «, t00=0x0050, t01=0x017c}
0x7ea8…7ee8 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0051, t01=0x002c}
0x7ee8…7f28 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0051, t01=0x006c}
0x7f28…7f3c Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x0051, t01=0x00ac}
0x7f3c…7f4e Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0051, t01=0x00c0}
0x7f4e…7f74 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0051, t01=0x00d2}
0x7f74…7faa Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x0051, t01=0x00f8}
0x7faa…7fc0 Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x0051, t01=0x012e}
0x7fc0…7fd4 Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x0051, t01=0x0144}
0x7fd4…7ff2 Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x0051, t01=0x0158}
0x7ff2…801a Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x0051, t01=0x0176}
0x801a…8034 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x0052, t01=0x000e}
0x8034…805e Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x0052, t01=0x0028}
0x805e…8074 Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x0052, t01=0x0052}
0x8074…8092 Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x0052, t01=0x0068}
0x8092…80b0 Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x0052, t01=0x0086}
0x80b0…80d2 Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x0052, t01=0x00a4}
0x80d2…80e6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x0052, t01=0x00c6}
0x80e6…810a Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x0052, t01=0x00da}
0x810a…812e Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x0052, t01=0x00fe}
0x812e…8148 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x0052, t01=0x0122}
0x8148…815e Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT «, t00=0x0052, t01=0x013c}
0x815e…818e Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x0052, t01=0x0152}
0x818e…81a2 Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x0052, t01=0x0182}
0x81a2…81d0 Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x0053, t01=0x0008}
0x81d0…81e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0036}
0x81e0…81ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0046}
0x81ee…8224 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0053, t01=0x0054}
0x8224…825a Head {h00=0x0032, h01=0x0050, text=»* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * «, t00=0x0053, t01=0x008a}
0x825a…8290 Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x0053, t01=0x00c0}
0x8290…82c6 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0053, t01=0x00f6}
0x82c6…82fc Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: CASSIN,SYSLOD * «, t00=0x0053, t01=0x012c}
0x82fc…8332 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0053, t01=0x0162}
0x8332…8368 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A1 - I/O INSTRUCTION COMMAND * «, t00=0x0054, t01=0x0008}
0x8368…839e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0054, t01=0x003e}
0x839e…83d4 Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x0054, t01=0x0074}
0x83d4…840a Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0054, t01=0x00aa}
0x840a…8440 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x0054, t01=0x00e0}
0x8440…8476 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0116}
0x8476…84ac Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0054, t01=0x014c}
0x84ac…84e2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0182}
0x84e2…8518 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0055, t01=0x0028}
0x8518…852c Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x0055, t01=0x005e}
0x852c…8542 Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x0055, t01=0x0072}
0x8542…8556 Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x0055, t01=0x0088}
0x8556…856c Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x0055, t01=0x009c}
0x856c…857c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0055, t01=0x00b2}
0x857c…858a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x00c2}
0x858a…85c4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0055, t01=0x00d0}
0x85c4…85fe Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0055, t01=0x010a}
0x85fe…8638 Head {h00=0x0036, h01=0x0050, text=»* RDBLK - READ ONE CASSETTE BLOCK *«, t00=0x0055, t01=0x0144}
0x8638…8672 Head {h00=0x0036, h01=0x0050, text=»* =============================== *«, t00=0x0055, t01=0x017e}
0x8672…86ac Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0056, t01=0x0028}
0x86ac…86e6 Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: SYSLOD *«, t00=0x0056, t01=0x0062}
0x86e6…8720 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0056, t01=0x009c}
0x8720…875a Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A9 - CASSETTE BUFFER POINTER *«, t00=0x0056, t01=0x00d6}
0x875a…8794 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0056, t01=0x0110}
0x8794…87ce Head {h00=0x0036, h01=0x0050, text=»* EXIT: A2 - NUMBER OF CHARACTERS IN BLOCK *«, t00=0x0056, t01=0x014a}
0x87ce…8808 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0056, t01=0x0184}
0x8808…8846 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A5 * «, t00=0x0057, t01=0x002e}
0x8846…8880 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0057, t01=0x006c}
0x8880…88ba Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0057, t01=0x00a6}
0x88ba…88f4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0057, t01=0x00e0}
0x88f4…8908 Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x0057, t01=0x011a}
0x8908…891a Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0057, t01=0x012e}
0x891a…892e Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x0057, t01=0x0140}
0x892e…8952 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A9 SAVE09 OF BUFFER «, t00=0x0057, t01=0x0154}
0x8952…897c Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x0057, t01=0x0178}
0x897c…89a4 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE SAVE09 OF BUFFER«, t00=0x0058, t01=0x0012}
0x89a4…89c8 Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x0058, t01=0x003a}
0x89c8…89da Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x0058, t01=0x005e}
0x89da…89fc Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x0058, t01=0x0070}
0x89fc…8a12 Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x0058, t01=0x0092}
0x8a12…8a26 Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x0058, t01=0x00a8}
0x8a26…8a3c Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x0058, t01=0x00bc}
0x8a3c…8a52 Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x0058, t01=0x00d2}
0x8a52…8a74 Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x0058, t01=0x00e8}
0x8a74…8a8e Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x0058, t01=0x010a}
0x8a8e…8ab0 Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x0058, t01=0x0124}
0x8ab0…8ade Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x0058, t01=0x0146}
0x8ade…8b08 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0058, t01=0x0174}
0x8b08…8b1c Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x0059, t01=0x000e}
0x8b1c…8b32 Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR «, t00=0x0059, t01=0x0022}
0x8b32…8b48 Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x0059, t01=0x0038}
0x8b48…8b6c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x0059, t01=0x004e}
0x8b6c…8b8a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x0059, t01=0x0072}
0x8b8a…8ba2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x0059, t01=0x0090}
0x8ba2…8bc6 Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x0059, t01=0x00a8}
0x8bc6…8bea Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x0059, t01=0x00cc}
0x8bea…8bfe Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x0059, t01=0x00f0}
0x8bfe…8c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0104}
0x8c08…8c48 Head {h00=0x003c, h01=0x0050, text=»* READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x0059, t01=0x010e}
0x8c48…8c8a Head {h00=0x003e, h01=0x0050, text=»* THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x0059, t01=0x014e}
0x8c8a…8c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0190}
0x8c94…8cb2 Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x005a, t01=0x000a}
0x8cb2…8cd2 Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x005a, t01=0x0028}
0x8cd2…8cf6 Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x005a, t01=0x0048}
0x8cf6…8d1a Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x005a, t01=0x006c}
0x8d1a…8d3e Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x005a, t01=0x0090}
0x8d3e…8d66 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x005a, t01=0x00b4}
0x8d66…8d78 Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x005a, t01=0x00dc}
0x8d78…8d8c Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x005a, t01=0x00ee}
0x8d8c…8da2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x005a, t01=0x0102}
0x8da2…8db6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005a, t01=0x0118}
0x8db6…8dca Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x005a, t01=0x012c}
0x8dca…8dda Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x0140}
0x8dda…8de8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0150}
0x8de8…8e14 Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x005a, t01=0x015e}
0x8e14…8e40 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005a, t01=0x018a}
0x8e40…8e6c Head {h00=0x0028, h01=0x0023, text=»* DUINIT - INITIALIZE DISC UNIT * «, t00=0x005b, t01=0x0026}
0x8e6c…8e98 Head {h00=0x0028, h01=0x0023, text=»* ============================= * «, t00=0x005b, t01=0x0052}
0x8e98…8ec4 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005b, t01=0x007e}
0x8ec4…8ef0 Head {h00=0x0028, h01=0x0023, text=»* REFERENCED IN: SYSLOD,GETFIL * «, t00=0x005b, t01=0x00aa}
0x8ef0…8f1c Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005b, t01=0x00d6}
0x8f1c…8f48 Head {h00=0x0028, h01=0x0023, text=»* ENTRY: A1 - DEVICE ADDRESS * «, t00=0x005b, t01=0x0102}
0x8f48…8f74 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005b, t01=0x012e}
0x8f74…8fa0 Head {h00=0x0028, h01=0x0023, text=»* EXIT: * «, t00=0x005b, t01=0x015a}
0x8fa0…8fcc Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005b, t01=0x0186}
0x8fcc…8ff8 Head {h00=0x0028, h01=0x0023, text=»* WORK REGISTERS: A2 * «, t00=0x005c, t01=0x0022}
0x8ff8…9024 Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005c, t01=0x004e}
0x9024…9050 Head {h00=0x0028, h01=0x0023, text=»* SUBROUTINES: * «, t00=0x005c, t01=0x007a}
0x9050…907c Head {h00=0x0028, h01=0x0023, text=»* * «, t00=0x005c, t01=0x00a6}
0x907c…90a8 Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x005c, t01=0x00d2}
0x90a8…90bc Head {h00=0x0010, h01=0x000c, text=»DUINIT EQU *«, t00=0x005c, t01=0x00fe}
0x90bc…90c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0112}
0x90c6…90ea Head {h00=0x0020, h01=0x001c, text=»* INIT SUBROUTINE ADDRESSES«, t00=0x005c, t01=0x011c}
0x90ea…90f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005c, t01=0x0140}
0x90f4…9122 Head {h00=0x002a, h01=0x0025, text=» LDKL A2,RDSEC GET SUBROUTINE ADDRESS «, t00=0x005c, t01=0x014a}
0x9122…9142 Head {h00=0x001c, h01=0x0018, text=» ST A2,READ READ PROGRAM«, t00=0x005c, t01=0x0178}
0x9142…916e Head {h00=0x0028, h01=0x0024, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x005d, t01=0x0008}
0x916e…9196 Head {h00=0x0024, h01=0x001f, text=» ST A2,READVL READ VOLUME LABEL «, t00=0x005d, t01=0x0034}
0x9196…91c4 Head {h00=0x002a, h01=0x0025, text=» ST A2,READCF READ CONFIGURATION DATA «, t00=0x005d, t01=0x005c}
0x91c4…91ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x008a}
0x91ce…91ec Head {h00=0x001a, h01=0x0015, text=»* INIT DISC COMMANDS «, t00=0x005d, t01=0x0094}
0x91ec…91f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x005d, t01=0x00b2}
0x91f6…920c Head {h00=0x0012, h01=0x000e, text=» ADS A1,RDS:10«, t00=0x005d, t01=0x00bc}
0x920c…9222 Head {h00=0x0012, h01=0x000e, text=» ADS A1,RDS:20«, t00=0x005d, t01=0x00d2}
0x9222…9238 Head {h00=0x0012, h01=0x000e, text=» ADS A1,RDS:60«, t00=0x005d, t01=0x00e8}
0x9238…924e Head {h00=0x0012, h01=0x000e, text=» ADS A1,RDS:70«, t00=0x005d, t01=0x00fe}
0x924e…925e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x005d, t01=0x0114}
0x925e…926c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x005d, t01=0x0124}
0x926c…92a4 Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x005d, t01=0x0132}
0x92a4…92dc Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005d, t01=0x016a}
0x92dc…9314 Head {h00=0x0034, h01=0x002f, text=»* RDSEC - READ ONE SECTOR FROM DISC * «, t00=0x005e, t01=0x0012}
0x9314…934c Head {h00=0x0034, h01=0x002f, text=»* ================================= * «, t00=0x005e, t01=0x004a}
0x934c…9384 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005e, t01=0x0082}
0x9384…93bc Head {h00=0x0034, h01=0x002f, text=»* REFERENCED IN: SYSLOD * «, t00=0x005e, t01=0x00ba}
0x93bc…93f4 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005e, t01=0x00f2}
0x93f4…942c Head {h00=0x0034, h01=0x002f, text=»* ENTRY: A9 - BUFFER ADDRESS + 2 * «, t00=0x005e, t01=0x012a}
0x942c…9464 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005e, t01=0x0162}
0x9464…949c Head {h00=0x0034, h01=0x002f, text=»* A11 - SECTOR NUMBER * «, t00=0x005f, t01=0x000a}
0x949c…94d4 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005f, t01=0x0042}
0x94d4…950c Head {h00=0x0034, h01=0x002f, text=»* EXIT: * «, t00=0x005f, t01=0x007a}
0x950c…9544 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005f, t01=0x00b2}
0x9544…957c Head {h00=0x0034, h01=0x002f, text=»* WORK REGISTERS: A1,A2 * «, t00=0x005f, t01=0x00ea}
0x957c…95b4 Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x005f, t01=0x0122}
0x95b4…95ec Head {h00=0x0034, h01=0x002f, text=»* SUBROUTINES: ERROR * «, t00=0x005f, t01=0x015a}
0x95ec…9624 (96, 0, 400) Head {h00=0x0034, h01=0x002f, text=»* * «, t00=0x0060, t01=0x0004}
0x9624…965c Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0060, t01=0x003c}
0x965c…9670 Head {h00=0x0010, h01=0x000b, text=»RDSEC EQU * «, t00=0x0060, t01=0x0074}
0x9670…967a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0088}
0x967a…96ae Head {h00=0x0030, h01=0x002c, text=»* DERIVE CYLINDER NUMBER FROM SECTOR NUMBER«, t00=0x0060, t01=0x0092}
0x96ae…96b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x00c6}
0x96b8…96de Head {h00=0x0022, h01=0x001d, text=» LDR A1,A11 GET SECTOR NUMBER «, t00=0x0060, t01=0x00d0}
0x96de…970c Head {h00=0x002a, h01=0x0026, text=» SRL A1,5 CYLINDER NUMBER IN BITS 4-12«, t00=0x0060, t01=0x00f6}
0x970c…971e Head {h00=0x000e, h01=0x0009, text=» SLL A1,3 «, t00=0x0060, t01=0x0124}
0x971e…973a Head {h00=0x0018, h01=0x0014, text=» ORK A1,2 SET BIT 14«, t00=0x0060, t01=0x0136}
0x973a…9744 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0152}
0x9744…975c Head {h00=0x0014, h01=0x0010, text=»* SEEK CYLINDER«, t00=0x0060, t01=0x015c}
0x975c…9766 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0060, t01=0x0174}
0x9766…978c Head {h00=0x0022, h01=0x001e, text=»RDS:10 CIO A1,1,0 SEEK COMMAND«, t00=0x0060, t01=0x017e}
0x978c…97b4 Head {h00=0x0024, h01=0x001f, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x0061, t01=0x0014}
0x97b4…97be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x003c}
0x97be…97d6 Head {h00=0x0014, h01=0x0050, text=»* CHECK STATUS «, t00=0x0061, t01=0x0046}
0x97d6…97e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x005e}
0x97e0…9804 Head {h00=0x0020, h01=0x0050, text=»RDS:20 SST A1,0 SENSE STATUS«, t00=0x0061, t01=0x0068}
0x9804…982e Head {h00=0x0026, h01=0x0050, text=» RB(NA) RDS:20 LOOP UNTIL ACCEPTED«, t00=0x0061, t01=0x008c}
0x982e…9838 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x00b6}
0x9838…9862 Head {h00=0x0026, h01=0x0021, text=»* COMPUTE PHYSICAL SECTOR NUMBER «, t00=0x0061, t01=0x00c0}
0x9862…986c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x00ea}
0x986c…9898 Head {h00=0x0028, h01=0x0023, text=»RDS:30 LDR A2,A11 GET SECTOR NUMBER «, t00=0x0061, t01=0x00f4}
0x9898…98b6 Head {h00=0x001a, h01=0x0016, text=» ANK A2,/10 GET BIT 11«, t00=0x0061, t01=0x0120}
0x98b6…98dc Head {h00=0x0022, h01=0x001d, text=» LDR A1,A11 GET SECTOR NUMBER «, t00=0x0061, t01=0x013e}
0x98dc…98ee Head {h00=0x000e, h01=0x0009, text=» SLL A1,1 «, t00=0x0061, t01=0x0164}
0x98ee…9902 Head {h00=0x0010, h01=0x000b, text=» ADR A1,A11 «, t00=0x0061, t01=0x0176}
0x9902…9914 Head {h00=0x000e, h01=0x000a, text=» ANK A1,/F«, t00=0x0061, t01=0x018a}
0x9914…9926 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A2«, t00=0x0062, t01=0x000c}
0x9926…9938 Head {h00=0x000e, h01=0x0009, text=» SLL A1,2 «, t00=0x0062, t01=0x001e}
0x9938…9942 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0062, t01=0x0030}
0x9942…995c Head {h00=0x0016, h01=0x0011, text=»* INIT MUX WORDS «, t00=0x0062, t01=0x003a}
0x995c…9966 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0062, t01=0x0054}
0x9966…9990 Head {h00=0x0026, h01=0x0022, text=» LDKL A2,MUXCC LOAD FIRST MUX WORD«, t00=0x0062, t01=0x005e}
0x9990…99b0 Head {h00=0x001c, h01=0x0017, text=»RDS:40 WER A2,/10 WRITE «, t00=0x0062, t01=0x0088}
0x99b0…99da Head {h00=0x0026, h01=0x0021, text=» LD A2,MXBUF LOAD SECOND MUX WORD «, t00=0x0062, t01=0x00a8}
0x99da…99fc Head {h00=0x001e, h01=0x0019, text=»RDS:50 WER A2,/10+1 WRITE «, t00=0x0062, t01=0x00d2}
0x99fc…9a22 Head {h00=0x0022, h01=0x001d, text=»RDS:60 CIO A1,1,0 READ SECTOR «, t00=0x0062, t01=0x00f4}
0x9a22…9a4c Head {h00=0x0026, h01=0x0022, text=» RB(NA) RDS:60 LOOP UNTIL ACCEPTED«, t00=0x0062, t01=0x011a}
0x9a4c…9a6e Head {h00=0x001e, h01=0x001a, text=»RDS:70 SST A1,0 GET STATUS«, t00=0x0062, t01=0x0144}
0x9a6e…9a98 Head {h00=0x0026, h01=0x0022, text=» RB(NA) RDS:70 LOOP UNTIL ACCEPTED«, t00=0x0062, t01=0x0166}
0x9a98…9ac0 Head {h00=0x0024, h01=0x0020, text=» ANK A1,/1F GET 5 RIGHTMOST BITS«, t00=0x0062, t01=0x0190}
0x9ac0…9aee Head {h00=0x002a, h01=0x0026, text=» RB(NZ) RDS:30 LOOP UNTIL CORRECT READ«, t00=0x0063, t01=0x0028}
0x9aee…9b1a Head {h00=0x0028, h01=0x0024, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x0063, t01=0x0056}
0x9b1a…9b2a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0063, t01=0x0082}
0x9b2a…9b38 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0063, t01=0x0092}
0x9b38…9b70 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x0063, t01=0x00a0}
0x9b70…9ba8 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0063, t01=0x00d8}
0x9ba8…9be0 Head {h00=0x0034, h01=0x0030, text=»* FDINIT - INITIALIZE FLEXIBLE DISC *«, t00=0x0063, t01=0x0110}
0x9be0…9c18 Head {h00=0x0034, h01=0x0030, text=»* ================================= *«, t00=0x0063, t01=0x0148}
0x9c18…9c50 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0063, t01=0x0180}
0x9c50…9c88 Head {h00=0x0034, h01=0x0030, text=»* REFERENCED IN: SYSLOD,GETFIL *«, t00=0x0064, t01=0x0028}
0x9c88…9cc0 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0064, t01=0x0060}
0x9cc0…9cf8 Head {h00=0x0034, h01=0x0030, text=»* ENTRY: A1 - DEVICE ADDRESS *«, t00=0x0064, t01=0x0098}
0x9cf8…9d30 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0064, t01=0x00d0}
0x9d30…9d68 Head {h00=0x0034, h01=0x0030, text=»* EXIT: *«, t00=0x0064, t01=0x0108}
0x9d68…9da0 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0064, t01=0x0140}
0x9da0…9dd8 Head {h00=0x0034, h01=0x0030, text=»* WORK REGISTERS: *«, t00=0x0064, t01=0x0178}
0x9dd8…9e10 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0065, t01=0x0020}
0x9e10…9e48 Head {h00=0x0034, h01=0x0030, text=»* SUBROUTINES: *«, t00=0x0065, t01=0x0058}
0x9e48…9e80 Head {h00=0x0034, h01=0x0030, text=»* *«, t00=0x0065, t01=0x0090}
0x9e80…9eb8 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x0065, t01=0x00c8}
0x9eb8…9ecc Head {h00=0x0010, h01=0x000c, text=»FDINIT EQU *«, t00=0x0065, t01=0x0100}
0x9ecc…9efa Head {h00=0x002a, h01=0x0026, text=» LDKL A2,FRDSEC GET SUBROUTINE ADDRESS«, t00=0x0065, t01=0x0114}
0x9efa…9f14 Head {h00=0x0016, h01=0x0011, text=» ST A2,READ STORE «, t00=0x0065, t01=0x0142}
0x9f14…9f28 Head {h00=0x0010, h01=0x000c, text=» ST A2,READS«, t00=0x0065, t01=0x015c}
0x9f28…9f3e Head {h00=0x0012, h01=0x000d, text=» ST A2,READVL «, t00=0x0065, t01=0x0170}
0x9f3e…9f54 Head {h00=0x0012, h01=0x000d, text=» ST A2,READCF «, t00=0x0065, t01=0x0186}
0x9f54…9f5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x000c}
0x9f5e…9f84 Head {h00=0x0022, h01=0x001e, text=»* INIT FLEXIBLE DISC COMMANDS«, t00=0x0066, t01=0x0016}
0x9f84…9f8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0066, t01=0x003c}
0x9f8e…9fbe Head {h00=0x002c, h01=0x0027, text=» ORS A1,FRD:10 MODIFY READ SECTOR ORDER «, t00=0x0066, t01=0x0046}
0x9fbe…9fe2 Head {h00=0x0020, h01=0x001c, text=» ANK A1,8 PROGRAMMED CHANNEL«, t00=0x0066, t01=0x0076}
0x9fe2…9ffe Head {h00=0x0018, h01=0x0013, text=» RF(NZ) FDI:10 YES! «, t00=0x0066, t01=0x009a}
0x9ffe…a02c Head {h00=0x002a, h01=0x0025, text=» LDKL A1,/0511 NOT PROGRAMMED CHANNEL «, t00=0x0066, t01=0x00b6}
0xa02c…a058 Head {h00=0x0028, h01=0x0024, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x0066, t01=0x00e4}
0xa058…a06c Head {h00=0x0010, h01=0x000c, text=»FDI:10 EQU *«, t00=0x0066, t01=0x0110}
0xa06c…a08a Head {h00=0x001a, h01=0x0016, text=» LDK A1,/14 LOCK ORDER«, t00=0x0066, t01=0x0124}
0xa08a…a0aa Head {h00=0x001c, h01=0x0018, text=» EX FRD:10 EXECUTE ORDER«, t00=0x0066, t01=0x0142}
0xa0aa…a0d2 Head {h00=0x0024, h01=0x001f, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x0066, t01=0x0162}
0xa0d2…a0f4 Head {h00=0x001e, h01=0x0019, text=» SST A1,FDCU SENSE STATUS «, t00=0x0066, t01=0x018a}
0xa0f4…a108 Head {h00=0x0010, h01=0x000b, text=» RB(NA) *-2 «, t00=0x0067, t01=0x001c}
0xa108…a132 Head {h00=0x0026, h01=0x0021, text=» ANK A1,1 FLEXIBLE DISC OPERABLE? «, t00=0x0067, t01=0x0030}
0xa132…a14c Head {h00=0x0016, h01=0x0012, text=» RB(NZ) FDI:10 NO!«, t00=0x0067, t01=0x005a}
0xa14c…a15c Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0067, t01=0x0074}
0xa15c…a16a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0067, t01=0x0084}
0xa16a…a1ae Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x0067, t01=0x0092}
0xa1ae…a1f2 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0067, t01=0x00d6}
0xa1f2…a236 Head {h00=0x0040, h01=0x003b, text=»* FRDSEC - READ SECTOR FROM FLEXIBLE DISC * «, t00=0x0067, t01=0x011a}
0xa236…a27a Head {h00=0x0040, h01=0x003b, text=»* ======================================= * «, t00=0x0067, t01=0x015e}
0xa27a…a2be Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0068, t01=0x0012}
0xa2be…a302 Head {h00=0x0040, h01=0x003b, text=»* REFERENCED IN: SYSLOD * «, t00=0x0068, t01=0x0056}
0xa302…a346 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0068, t01=0x009a}
0xa346…a38a Head {h00=0x0040, h01=0x003b, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x0068, t01=0x00de}
0xa38a…a3ce Head {h00=0x0040, h01=0x003b, text=»* A11 - SECTOR NUMBER * «, t00=0x0068, t01=0x0122}
0xa3ce…a412 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0068, t01=0x0166}
0xa412…a456 Head {h00=0x0040, h01=0x003b, text=»* EXIT: * «, t00=0x0069, t01=0x001a}
0xa456…a49a Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0069, t01=0x005e}
0xa49a…a4de Head {h00=0x0040, h01=0x003b, text=»* WORK REGISTERS: A1,A2,A3 * «, t00=0x0069, t01=0x00a2}
0xa4de…a522 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0069, t01=0x00e6}
0xa522…a566 Head {h00=0x0040, h01=0x003b, text=»* SUBROUTINES: ERROR * «, t00=0x0069, t01=0x012a}
0xa566…a5aa Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x0069, t01=0x016e}
0xa5aa…a5ee Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x006a, t01=0x0022}
0xa5ee…a602 Head {h00=0x0010, h01=0x000c, text=»FRDSEC EQU *«, t00=0x006a, t01=0x0066}
0xa602…a628 Head {h00=0x0022, h01=0x001d, text=» LDR A1,A11 GET SECTOR NUMBER «, t00=0x006a, t01=0x007a}
0xa628…a63a Head {h00=0x000e, h01=0x0009, text=» SLL A1,5 «, t00=0x006a, t01=0x00a0}
0xa63a…a650 Head {h00=0x0012, h01=0x000e, text=» ORKL A1,/C000«, t00=0x006a, t01=0x00b2}
0xa650…a67a Head {h00=0x0026, h01=0x0021, text=» LDKL A2,MUXCC LOAD 1:ST MUX WORD «, t00=0x006a, t01=0x00c8}
0xa67a…a6a2 Head {h00=0x0024, h01=0x001f, text=» LD A3,MXBUF LOAD 2:ND MUX WORD «, t00=0x006a, t01=0x00f2}
0xa6a2…a6cc Head {h00=0x0026, h01=0x0021, text=» WER A2,FDIOP WRITE 1:ST MUX WORD «, t00=0x006a, t01=0x011a}
0xa6cc…a6f8 Head {h00=0x0028, h01=0x0023, text=» WER A3,FDIOP+1 WRITE 2:ND MUX WORD «, t00=0x006a, t01=0x0144}
0xa6f8…a718 Head {h00=0x001c, h01=0x0017, text=» LDR A2,A3 BUFFER START «, t00=0x006a, t01=0x0170}
0xa718…a73a Head {h00=0x001e, h01=0x001a, text=» ADKL A3,BUFLEN BUFFER END«, t00=0x006a, t01=0x0190}
0xa73a…a762 Head {h00=0x0024, h01=0x001f, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x006b, t01=0x0022}
0xa762…a78c Head {h00=0x0026, h01=0x0022, text=» RB(NA) FRD:10 LOOP UNTIL ACCEPTED«, t00=0x006b, t01=0x004a}
0xa78c…a7c4 Head {h00=0x0034, h01=0x002f, text=»FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX «, t00=0x006b, t01=0x0074}
0xa7c4…a7ee Head {h00=0x0026, h01=0x0022, text=» RF(NA) FRD:40 LOOP UNTIL ACCEPTED«, t00=0x006b, t01=0x00ac}
0xa7ee…a810 Head {h00=0x001e, h01=0x001a, text=» STR A1,A2 STORE CHARACTER«, t00=0x006b, t01=0x00d6}
0xa810…a83a Head {h00=0x0026, h01=0x0022, text=» ADK A2,2 INCREMENT BUFFER POINTER«, t00=0x006b, t01=0x00f8}
0xa83a…a85c Head {h00=0x001e, h01=0x0019, text=» CWR A2,A3 END OF BUFFER? «, t00=0x006b, t01=0x0122}
0xa85c…a876 Head {h00=0x0016, h01=0x0012, text=» RB(NE) FRD:20 NO!«, t00=0x006b, t01=0x0144}
0xa876…a8a0 Head {h00=0x0026, h01=0x0021, text=»FRD:30 CIO A1,0,FDCU STOP READING «, t00=0x006b, t01=0x015e}
0xa8a0…a8b2 Head {h00=0x000e, h01=0x000a, text=» RB FRD:20«, t00=0x006b, t01=0x0188}
0xa8b2…a8da Head {h00=0x0024, h01=0x001f, text=»FRD:40 SST A1,FDCU SENSE STATUS «, t00=0x006c, t01=0x000a}
0xa8da…a904 Head {h00=0x0026, h01=0x0022, text=» RB(NA) FRD:20 LOOP UNTIL ACCEPTED«, t00=0x006c, t01=0x0032}
0xa904…a928 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR? «, t00=0x006c, t01=0x005c}
0xa928…a944 Head {h00=0x0018, h01=0x0013, text=» RF(NZ) FRD:50 YES! «, t00=0x006c, t01=0x0080}
0xa944…a970 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR ADDRESS«, t00=0x006c, t01=0x009c}
0xa970…a980 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x006c, t01=0x00c8}
0xa980…a99c Head {h00=0x0018, h01=0x0013, text=»FRD:50 LDKL A1,LMP2 «, t00=0x006c, t01=0x00d8}
0xa99c…a9b0 Head {h00=0x0010, h01=0x000b, text=» CALL ERROR «, t00=0x006c, t01=0x00f4}
0xa9b0…a9be Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x006c, t01=0x0108}
0xa9be…a9fa Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x006c, t01=0x0116}
0xa9fa…aa36 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006c, t01=0x0152}
0xaa36…aa72 Head {h00=0x0038, h01=0x0033, text=»* GETFIL - GET CONFIGURATION FILE * «, t00=0x006c, t01=0x018e}
0xaa72…aaae Head {h00=0x0038, h01=0x0033, text=»* =============================== * «, t00=0x006d, t01=0x003a}
0xaaae…aaea Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006d, t01=0x0076}
0xaaea…ab26 Head {h00=0x0038, h01=0x0033, text=»* REFERENCED IN: SYSLOD * «, t00=0x006d, t01=0x00b2}
0xab26…ab62 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006d, t01=0x00ee}
0xab62…ab9e Head {h00=0x0038, h01=0x0033, text=»* ENTRY: A9 - BUFFER ADDRESS + 2 * «, t00=0x006d, t01=0x012a}
0xab9e…abda Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006d, t01=0x0166}
0xabda…ac16 Head {h00=0x0038, h01=0x0033, text=»* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * «, t00=0x006e, t01=0x0012}
0xac16…ac52 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006e, t01=0x004e}
0xac52…ac8e Head {h00=0x0038, h01=0x0033, text=»* WORK REGISTERS: A1,A4,A5,A6,A7,A8,A10 * «, t00=0x006e, t01=0x008a}
0xac8e…acca Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006e, t01=0x00c6}
0xacca…ad06 Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: READVL,READCF * «, t00=0x006e, t01=0x0102}
0xad06…ad42 Head {h00=0x0038, h01=0x0033, text=»* * «, t00=0x006e, t01=0x013e}
0xad42…ad7e Head {h00=0x0038, h01=0x0033, text=»*************************************************** «, t00=0x006e, t01=0x017a}
0xad7e…ad92 Head {h00=0x0010, h01=0x000c, text=»GETFIL EQU *«, t00=0x006f, t01=0x0026}
0xad92…adb2 Head {h00=0x001c, h01=0x0018, text=» LDKL A11,0 VOLUME LABEL«, t00=0x006f, t01=0x003a}
0xadb2…adda Head {h00=0x0024, h01=0x001f, text=» CF A14,READVL GET VOLUME LABEL «, t00=0x006f, t01=0x005a}
0xadda…adf0 Head {h00=0x0012, h01=0x000e, text=»READVL EQU *-2«, t00=0x006f, t01=0x0082}
0xadf0…ae14 Head {h00=0x0020, h01=0x001b, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x006f, t01=0x0098}
0xae14…ae2e Head {h00=0x0016, h01=0x0011, text=» LDR A11,A10 SAVE «, t00=0x006f, t01=0x00bc}
0xae2e…ae54 Head {h00=0x0022, h01=0x001d, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x006f, t01=0x00d6}
0xae54…ae80 Head {h00=0x0028, h01=0x0023, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x006f, t01=0x00fc}
0xae80…aeae Head {h00=0x002a, h01=0x0025, text=» ADKL A11,1 FIRST FILE SECTOR IN VTOC «, t00=0x006f, t01=0x0128}
0xaeae…aec2 Head {h00=0x0010, h01=0x000c, text=»GET:10 EQU *«, t00=0x006f, t01=0x0156}
0xaec2…aee4 Head {h00=0x001e, h01=0x001a, text=» CF A14,READCF READ SECTOR«, t00=0x006f, t01=0x016a}
0xaee4…aefa Head {h00=0x0012, h01=0x000e, text=»READCF EQU *-2«, t00=0x006f, t01=0x018c}
0xaefa…af20 Head {h00=0x0022, h01=0x001e, text=» LDK A7,QBLFAC BLOCKING FACTOR«, t00=0x0070, t01=0x0012}
0xaf20…af46 Head {h00=0x0022, h01=0x001e, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0070, t01=0x0038}
0xaf46…af5a Head {h00=0x0010, h01=0x000c, text=»GET:20 EQU *«, t00=0x0070, t01=0x005e}
0xaf5a…af78 Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0070, t01=0x0072}
0xaf78…af98 Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x0070, t01=0x0090}
0xaf98…afb2 Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0070, t01=0x00b0}
0xafb2…afd4 Head {h00=0x001e, h01=0x001a, text=» LDR A4,A6 START OF RECORD«, t00=0x0070, t01=0x00ca}
0xafd4…b000 Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x0070, t01=0x00ec}
0xb000…b024 Head {h00=0x0020, h01=0x001b, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x0070, t01=0x0118}
0xb024…b03e Head {h00=0x0016, h01=0x0012, text=» RF(NE) GET:50 NO!«, t00=0x0070, t01=0x013c}
0xb03e…b06c Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x0070, t01=0x0156}
0xb06c…b092 Head {h00=0x0022, h01=0x001e, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x0070, t01=0x0184}
0xb092…b0ac Head {h00=0x0016, h01=0x0012, text=» RF(NE) GET:50 NO!«, t00=0x0071, t01=0x001a}
0xb0ac…b0e2 Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0071, t01=0x0034}
0xb0e2…b10e Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0071, t01=0x006a}
0xb10e…b128 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x0071, t01=0x0096}
0xb128…b14a Head {h00=0x001e, h01=0x0019, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x0071, t01=0x00b0}
0xb14a…b17a Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x0071, t01=0x00d2}
0xb17a…b1a6 Head {h00=0x0028, h01=0x0024, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x0071, t01=0x0102}
0xb1a6…b1c0 Head {h00=0x0016, h01=0x0012, text=» RF(E) GET:40 YES!«, t00=0x0071, t01=0x012e}
0xb1c0…b1e4 Head {h00=0x0020, h01=0x001c, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x0071, t01=0x0148}
0xb1e4…b206 Head {h00=0x001e, h01=0x0019, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x0071, t01=0x016c}
0xb206…b220 Head {h00=0x0016, h01=0x0012, text=» RF(E) GET:50 YES!«, t00=0x0071, t01=0x018e}
0xb220…b232 Head {h00=0x000e, h01=0x000a, text=» RB GET:30«, t00=0x0072, t01=0x0018}
0xb232…b246 Head {h00=0x0010, h01=0x000c, text=»GET:40 EQU *«, t00=0x0072, t01=0x002a}
0xb246…b250 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x003e}
0xb250…b274 Head {h00=0x0020, h01=0x001b, text=»* CHECK APPLICATION NUMBER «, t00=0x0072, t01=0x0048}
0xb274…b27e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x006c}
0xb27e…b2a0 Head {h00=0x001e, h01=0x001a, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x0072, t01=0x0076}
0xb2a0…b2c4 Head {h00=0x0020, h01=0x001c, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x0072, t01=0x0098}
0xb2c4…b2e8 Head {h00=0x0020, h01=0x001b, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x0072, t01=0x00bc}
0xb2e8…b30e Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0072, t01=0x00e0}
0xb30e…b33e Head {h00=0x002c, h01=0x0028, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x0072, t01=0x0106}
0xb33e…b354 Head {h00=0x0012, h01=0x000e, text=» RF(NE) GET:50«, t00=0x0072, t01=0x0136}
0xb354…b35e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x014c}
0xb35e…b382 Head {h00=0x0020, h01=0x001b, text=»* CONFIGURATION FILE FOUND «, t00=0x0072, t01=0x0156}
0xb382…b38c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0072, t01=0x017a}
0xb38c…b3b4 Head {h00=0x0024, h01=0x001f, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x0072, t01=0x0184}
0xb3b4…b3d2 Head {h00=0x001a, h01=0x0016, text=» ST A1,SAVE20,A13 SAVE«, t00=0x0073, t01=0x001c}
0xb3d2…b3f6 Head {h00=0x0020, h01=0x001c, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x0073, t01=0x003a}
0xb3f6…b406 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0073, t01=0x005e}
0xb406…b41a Head {h00=0x0010, h01=0x000c, text=»GET:50 EQU *«, t00=0x0073, t01=0x006e}
0xb41a…b43e Head {h00=0x0020, h01=0x001b, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x0073, t01=0x0082}
0xb43e…b468 Head {h00=0x0026, h01=0x0021, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x0073, t01=0x00a6}
0xb468…b498 Head {h00=0x002c, h01=0x0027, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x0073, t01=0x00d0}
0xb498…b4b2 Head {h00=0x0016, h01=0x0012, text=» RB(P) GET:20 YES!«, t00=0x0073, t01=0x0100}
0xb4b2…b4d8 Head {h00=0x0022, h01=0x001e, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0073, t01=0x011a}
0xb4d8…b4f2 Head {h00=0x0016, h01=0x0012, text=» RB(NE) GET:10 NO!«, t00=0x0073, t01=0x0140}
0xb4f2…b528 Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0073, t01=0x015a}
0xb528…b554 Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0073, t01=0x0190}
0xb554…b56e Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0074, t01=0x002c}
0xb56e…b578 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x0046}
0xb578…b5b6 Head {h00=0x003a, h01=0x0036, text=»* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x0074, t01=0x0050}
0xb5b6…b5e4 Head {h00=0x002a, h01=0x0025, text=»* LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x0074, t01=0x008e}
0xb5e4…b5ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0074, t01=0x00bc}
0xb5ee…b604 Head {h00=0x0012, h01=0x000e, text=» LDKL A2,/01F8«, t00=0x0074, t01=0x00c6}
0xb604…b62e Head {h00=0x0026, h01=0x0021, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x0074, t01=0x00dc}
0xb62e…b642 Head {h00=0x0010, h01=0x000c, text=»GET:70 EQU *«, t00=0x0074, t01=0x0106}
0xb642…b658 Head {h00=0x0012, h01=0x000d, text=» CF A14,SOPIN «, t00=0x0074, t01=0x011a}
0xb658…b67e Head {h00=0x0022, h01=0x001d, text=» ANKL A1,/00FC ALLOWED SWITCH «, t00=0x0074, t01=0x0130}
0xb67e…b698 Head {h00=0x0016, h01=0x0011, text=» RB(Z) GET:70 NO! «, t00=0x0074, t01=0x0156}
0xb698…b6ae Head {h00=0x0012, h01=0x000d, text=» LDKL A2,LMP1 «, t00=0x0074, t01=0x0170}
0xb6ae…b6d8 Head {h00=0x0026, h01=0x0021, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x0074, t01=0x0186}
0xb6d8…b6ea Head {h00=0x000e, h01=0x000a, text=» SRN A1,A2«, t00=0x0075, t01=0x0020}
0xb6ea…b716 Head {h00=0x0028, h01=0x0023, text=» LD A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x0075, t01=0x0032}
0xb716…b72e Head {h00=0x0014, h01=0x000f, text=» CWK A2,5 DISC? «, t00=0x0075, t01=0x005e}
0xb72e…b748 Head {h00=0x0016, h01=0x0012, text=» RF(G) GET:80 YES!«, t00=0x0075, t01=0x0076}
0xb748…b772 Head {h00=0x0026, h01=0x0021, text=» CF A14,FDINIT INIT FLEXIBLE DISC «, t00=0x0075, t01=0x0090}
0xb772…b784 Head {h00=0x000e, h01=0x000a, text=» RB GETFIL«, t00=0x0075, t01=0x00ba}
0xb784…b798 Head {h00=0x0010, h01=0x000c, text=»GET:80 EQU *«, t00=0x0075, t01=0x00cc}
0xb798…b7b8 Head {h00=0x001c, h01=0x0018, text=» CF A14,DUINIT INIT DISC«, t00=0x0075, t01=0x00e0}
0xb7b8…b7ca Head {h00=0x000e, h01=0x000a, text=» RB GETFIL«, t00=0x0075, t01=0x0100}
0xb7ca…b7de Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x0075, t01=0x0112}
0xb7de…b806 Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x0075, t01=0x0126}
0xb806…b820 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0075, t01=0x014e}
0xb820…b84a Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x0075, t01=0x0168}
0xb84a…b878 (118, 0, 398) Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x0076, t01=0x0004}
0xb878…b8aa Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x0076, t01=0x0032}
0xb8aa…b8c4 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x0076, t01=0x0064}
0xb8c4…b8e4 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x0076, t01=0x007e}
0xb8e4…b912 Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x0076, t01=0x009e}
0xb912…b93c Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x0076, t01=0x00cc}
0xb93c…b956 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x0076, t01=0x00f6}
0xb956…b960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0110}
0xb960…b9a8 Head {h00=0x0044, h01=0x0050, text=»* SWAPPABLE WORK BLOCK FILE FOUND - SAVE SECTOR ADDRESS ON DISC«, t00=0x0076, t01=0x011a}
0xb9a8…b9b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0162}
0xb9b2…b9dc Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET FILE EXTENT BASE «, t00=0x0076, t01=0x016c}
0xb9dc…ba00 Head {h00=0x0020, h01=0x0050, text=» ST A1,SCTSWB SAVE IN SYSTAB«, t00=0x0077, t01=0x0008}
0xba00…ba2e Head {h00=0x002a, h01=0x0050, text=» LD A3,SWPFEL,A6 GET LENGTH IN SECTORS«, t00=0x0077, t01=0x002c}
0xba2e…ba5a Head {h00=0x0028, h01=0x0050, text=» ADR A3,A1 LAST SECTOR IN SWAPP-FILE«, t00=0x0077, t01=0x005a}
0xba5a…ba78 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE25,A13 SAVE«, t00=0x0077, t01=0x0086}
0xba78…ba8e Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x0077, t01=0x00a4}
0xba8e…ba9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x00ba}
0xba9c…bada Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0077, t01=0x00c8}
0xbada…bb18 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0106}
0xbb18…bb56 Head {h00=0x003a, h01=0x0050, text=»* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * «, t00=0x0077, t01=0x0144}
0xbb56…bb94 Head {h00=0x003a, h01=0x0050, text=»* =============================================== * «, t00=0x0077, t01=0x0182}
0xbb94…bbd2 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0030}
0xbbd2…bc10 Head {h00=0x003a, h01=0x0050, text=»* LODSEG - LOAD ONE SEGMENT * «, t00=0x0078, t01=0x006e}
0xbc10…bc4e Head {h00=0x003a, h01=0x0050, text=»* ========================= * «, t00=0x0078, t01=0x00ac}
0xbc4e…bc8c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00ea}
0xbc8c…bcca Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A8 - SEGMENT ADDRESS * «, t00=0x0078, t01=0x0128}
0xbcca…bd08 Head {h00=0x003a, h01=0x0050, text=»* A10 - EFFECTIVE LENGTH * «, t00=0x0078, t01=0x0166}
0xbd08…bd46 Head {h00=0x003a, h01=0x0050, text=»* A12 - RELOCATION BASE * «, t00=0x0079, t01=0x0014}
0xbd46…bd84 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0052}
0xbd84…bdc2 Head {h00=0x003a, h01=0x0050, text=»* EXIT: * «, t00=0x0079, t01=0x0090}
0xbdc2…be00 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0079, t01=0x00ce}
0xbe00…be3e Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A7 * «, t00=0x0079, t01=0x010c}
0xbe3e…be7c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0079, t01=0x014a}
0xbe7c…beba Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: MOVE,READ * «, t00=0x0079, t01=0x0188}
0xbeba…bef8 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0036}
0xbef8…bf36 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x007a, t01=0x0074}
0xbf36…bf4a Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x007a, t01=0x00b2}
0xbf4a…bf72 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A9 GET SAVE09 OF BUFFER «, t00=0x007a, t01=0x00c6}
0xbf72…bf8a Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x007a, t01=0x00ee}
0xbf8a…bfb8 Head {h00=0x002a, h01=0x0050, text=» LD A7,SCTPLD GET PROGRAM LOAD DEVICE «, t00=0x007a, t01=0x0106}
0xbfb8…bfe2 Head {h00=0x0026, h01=0x0050, text=» ANK A7,/FE SKIP UNIT SELECTOR BIT«, t00=0x007a, t01=0x0134}
0xbfe2…bffe Head {h00=0x0018, h01=0x0050, text=» SUK A7,/F0 CASSTTE?«, t00=0x007a, t01=0x015e}
0xbffe…c018 Head {h00=0x0016, h01=0x0050, text=» RF(N) LOD:20 YES!«, t00=0x007a, t01=0x017a}
0xc018…c042 (123, 0, 398) Head {h00=0x0026, h01=0x0050, text=» LDKL A7,376 NUMBER OF CODE WORDS «, t00=0x007b, t01=0x0004}
0xc042…c058 Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x007b, t01=0x002e}
0xc058…c06a Head {h00=0x000e, h01=0x0050, text=» RF LOD:30«, t00=0x007b, t01=0x0044}
0xc06a…c07e Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x007b, t01=0x0056}
0xc07e…c0a8 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x007b, t01=0x006a}
0xc0a8…c0bc Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x007b, t01=0x0094}
0xc0bc…c0dc Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x007b, t01=0x00a8}
0xc0dc…c0f6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:40 NO!«, t00=0x007b, t01=0x00c8}
0xc0f6…c116 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x007b, t01=0x00e2}
0xc116…c128 Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x007b, t01=0x0102}
0xc128…c13c Head {h00=0x0010, h01=0x0050, text=»LOD:40 EQU *«, t00=0x007b, t01=0x0114}
0xc13c…c16e Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x007b, t01=0x0128}
0xc16e…c18c Head {h00=0x001a, h01=0x0050, text=» RF(NN) LOD:50 NO YET!«, t00=0x007b, t01=0x015a}
0xc18c…c1aa Head {h00=0x001a, h01=0x0050, text=» CWK A7,240 CASSETTE? «, t00=0x007b, t01=0x0178}
0xc1aa…c1c4 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:45 YES!«, t00=0x007c, t01=0x0008}
0xc1c4…c1ea Head {h00=0x0022, h01=0x0050, text=» CWK A7,400 200 WORDS/SECTOR? «, t00=0x007c, t01=0x0022}
0xc1ea…c204 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:42 YES!«, t00=0x007c, t01=0x0048}
0xc204…c230 Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION TABLE«, t00=0x007c, t01=0x0062}
0xc230…c254 Head {h00=0x0020, h01=0x0050, text=» CF A14,REBUF RELOCATE CODE «, t00=0x007c, t01=0x008e}
0xc254…c268 Head {h00=0x0010, h01=0x0050, text=»LOD:42 EQU *«, t00=0x007c, t01=0x00b2}
0xc268…c298 Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x007c, t01=0x00c6}
0xc298…c2c4 Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x007c, t01=0x00f6}
0xc2c4…c2d6 Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x007c, t01=0x0122}
0xc2d6…c2ea Head {h00=0x0010, h01=0x0050, text=»LOD:45 EQU *«, t00=0x007c, t01=0x0134}
0xc2ea…c320 Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x007c, t01=0x0148}
0xc320…c34c Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x007c, t01=0x017e}
0xc34c…c360 Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x007d, t01=0x001a}
0xc360…c386 Head {h00=0x0022, h01=0x0050, text=» CWK A7,400 200 WORDS/SECTOR? «, t00=0x007d, t01=0x002e}
0xc386…c3a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x007d, t01=0x0054}
0xc3a0…c3cc Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x007d, t01=0x006e}
0xc3cc…c400 Head {h00=0x0030, h01=0x0050, text=» CWK A7,240 APPLICATION<ONE CASSETTE BLOCK? «, t00=0x007d, t01=0x009a}
0xc400…c41a Head {h00=0x0016, h01=0x0050, text=» RF(NL) LOD:51 NO «, t00=0x007d, t01=0x00ce}
0xc41a…c448 Head {h00=0x002a, h01=0x0050, text=» LD A4,SAVE12,A13 FIRST CASSETTE BLOCK«, t00=0x007d, t01=0x00e8}
0xc448…c462 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:51 NO «, t00=0x007d, t01=0x0116}
0xc462…c48c Head {h00=0x0026, h01=0x0050, text=» ADK A2,8 START OF RELOCATION BITS«, t00=0x007d, t01=0x0130}
0xc48c…c4a0 Head {h00=0x0010, h01=0x0050, text=»LOD:51 EQU *«, t00=0x007d, t01=0x015a}
0xc4a0…c4be Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x007d, t01=0x016e}
0xc4be…c4d2 Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x007d, t01=0x018c}
0xc4d2…c4f8 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x007e, t01=0x0010}
0xc4f8…c526 Head {h00=0x002a, h01=0x0050, text=» LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? «, t00=0x007e, t01=0x0036}
0xc526…c540 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x007e, t01=0x0064}
0xc540…c576 Head {h00=0x0032, h01=0x0050, text=» IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK«, t00=0x007e, t01=0x007e}
0xc576…c5aa Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x007e, t01=0x00b4}
0xc5aa…c5de Head {h00=0x0030, h01=0x0050, text=» CWK A10,0 COMMON PART <= ONE SECTOR/BLOCK? «, t00=0x007e, t01=0x00e8}
0xc5de…c5f8 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:55 YES «, t00=0x007e, t01=0x011c}
0xc5f8…c628 Head {h00=0x002c, h01=0x0050, text=» SUK A7,8 DECR. NUMBER OF CHAR. TO MOVE «, t00=0x007e, t01=0x0136}
0xc628…c63c Head {h00=0x0010, h01=0x0050, text=» ADKL A10,8 «, t00=0x007e, t01=0x0166}
0xc63c…c650 Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x007e, t01=0x017a}
0xc650…c680 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x007e, t01=0x018e}
0xc680…c6a8 Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE07,A13 GET TO-ADDRESS«, t00=0x007f, t01=0x002e}
0xc6a8…c6d8 Head {h00=0x002c, h01=0x0050, text=» ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS«, t00=0x007f, t01=0x0056}
0xc6d8…c6fe Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x007f, t01=0x0086}
0xc6fe…c71e Head {h00=0x001c, h01=0x0050, text=» ANK A4,1 MMU IN SYSTEM?«, t00=0x007f, t01=0x00ac}
0xc71e…c738 Head {h00=0x0016, h01=0x0050, text=» RF(Z) LOD:60 NO! «, t00=0x007f, t01=0x00cc}
0xc738…c760 Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x007f, t01=0x00e6}
0xc760…c772 Head {h00=0x000e, h01=0x0050, text=» RF LOD:65«, t00=0x007f, t01=0x010e}
0xc772…c786 Head {h00=0x0010, h01=0x0050, text=»LOD:60 EQU *«, t00=0x007f, t01=0x0120}
0xc786…c798 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x007f, t01=0x0134}
0xc798…c7ac Head {h00=0x0010, h01=0x0050, text=»LOD:65 EQU *«, t00=0x007f, t01=0x0146}
0xc7ac…c7d0 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x007f, t01=0x015a}
0xc7d0…c7e6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x007f, t01=0x017e}
0xc7e6…c7fc (128, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x0080, t01=0x0004}
0xc7fc…c810 Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x0080, t01=0x001a}
0xc810…c83c Head {h00=0x0028, h01=0x0050, text=» LDKL A1,400 NUMBER OF WORDS/SECTOR «, t00=0x0080, t01=0x002e}
0xc83c…c864 Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x0080, t01=0x005a}
0xc864…c878 Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x0080, t01=0x0082}
0xc878…c88c Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0080, t01=0x0096}
0xc88c…c8a0 Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x0080, t01=0x00aa}
0xc8a0…c8b2 Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x0080, t01=0x00be}
0xc8b2…c8c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x00d0}
0xc8c0…c8fa Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0080, t01=0x00de}
0xc8fa…c934 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0118}
0xc934…c96e Head {h00=0x0036, h01=0x0050, text=»* REBUF - RELOCATE BUFFER ROUTINE * «, t00=0x0080, t01=0x0152}
0xc96e…c9a8 Head {h00=0x0036, h01=0x0050, text=»* =============================== * «, t00=0x0080, t01=0x018c}
0xc9a8…c9e2 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0036}
0xc9e2…ca1c Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: LODCOM/LODSEG * «, t00=0x0081, t01=0x0070}
0xca1c…ca56 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00aa}
0xca56…ca90 Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A3 - SAVE09 OF BUFFER *«, t00=0x0081, t01=0x00e4}
0xca90…caca Head {h00=0x0036, h01=0x0050, text=»* A2 - SAVE09 OF RELOCATION TABLE *«, t00=0x0081, t01=0x011e}
0xcaca…cb04 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0158}
0xcb04…cb3e (130, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* EXIT: * «, t00=0x0082, t01=0x0004}
0xcb3e…cb78 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0082, t01=0x003e}
0xcb78…cbb2 Head {h00=0x0036, h01=0x0050, text=»* WORK REGISTERS: A1,A4,A5,A6 * «, t00=0x0082, t01=0x0078}
0xcbb2…cbec Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00b2}
0xcbec…cc26 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0082, t01=0x00ec}
0xcc26…cc60 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0126}
0xcc60…cc9a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0082, t01=0x0160}
0xcc9a…ccae Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x0083, t01=0x000a}
0xccae…cce0 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE«, t00=0x0083, t01=0x001e}
0xcce0…ccf2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0083, t01=0x0050}
0xccf2…cd06 Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x0083, t01=0x0062}
0xcd06…cd2c Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x0083, t01=0x0076}
0xcd2c…cd58 Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x0083, t01=0x009c}
0xcd58…cd80 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x0083, t01=0x00c8}
0xcd80…cd94 Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x0083, t01=0x00f0}
0xcd94…cdc4 Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x0083, t01=0x0104}
0xcdc4…cde6 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x0083, t01=0x0134}
0xcde6…ce02 Head {h00=0x0018, h01=0x0050, text=» ADR A5,A12 RELOCATE«, t00=0x0083, t01=0x0156}
0xce02…ce22 Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x0083, t01=0x0172}
0xce22…ce36 (132, 0, 400) Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x0084, t01=0x0004}
0xce36…ce56 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x0084, t01=0x0018}
0xce56…ce80 Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x0084, t01=0x0038}
0xce80…ce9a Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x0084, t01=0x0062}
0xce9a…cec2 Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x0084, t01=0x007c}
0xcec2…cedc Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x0084, t01=0x00a4}
0xcedc…cf02 Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x0084, t01=0x00be}
0xcf02…cf14 Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x0084, t01=0x00e4}
0xcf14…cf28 Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x0084, t01=0x00f6}
0xcf28…cf38 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x010a}
0xcf38…cf46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x011a}
0xcf46…cf78 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0084, t01=0x0128}
0xcf78…cfaa Head {h00=0x002e, h01=0x0029, text=»* GETCON - GET CONTENT IN MEMORY WORD * «, t00=0x0084, t01=0x015a}
0xcfaa…cfdc Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0084, t01=0x018c}
0xcfdc…cfe6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x002e}
0xcfe6…d008 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: SEGGEN «, t00=0x0085, t01=0x0038}
0xd008…d012 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x005a}
0xd012…d038 Head {h00=0x0022, h01=0x001e, text=»* ENTRY: A2 - MEMORY ADDRESS«, t00=0x0085, t01=0x0064}
0xd038…d06a Head {h00=0x002e, h01=0x0029, text=»* MMUOPT - MMU OPTION SWITCH (X) «, t00=0x0085, t01=0x008a}
0xd06a…d074 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x00bc}
0xd074…d0a4 Head {h00=0x002c, h01=0x0028, text=»* EXIT: A1 - CONTENT OF MEMORY ADDRESS«, t00=0x0085, t01=0x00c6}
0xd0a4…d0ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x00f6}
0xd0ae…d0c8 Head {h00=0x0016, h01=0x0013, text=»* WORK REGISTER: «, t00=0x0085, t01=0x0100}
0xd0c8…d0d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x011a}
0xd0d2…d0ea Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0085, t01=0x0124}
0xd0ea…d0f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0085, t01=0x013c}
0xd0f4…d108 Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x0085, t01=0x0146}
0xd108…d12e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0085, t01=0x015a}
0xd12e…d14a Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x0085, t01=0x0180}
0xd14a…d166 Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x0086, t01=0x000c}
0xd166…d178 Head {h00=0x000e, h01=0x000a, text=» ELR A1,A2«, t00=0x0086, t01=0x0028}
0xd178…d18a Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x0086, t01=0x003a}
0xd18a…d19e Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x0086, t01=0x004c}
0xd19e…d1b2 Head {h00=0x0010, h01=0x000b, text=» LDR* A1,A2 «, t00=0x0086, t01=0x0060}
0xd1b2…d1c6 Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x0086, t01=0x0074}
0xd1c6…d1de Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x0086, t01=0x0088}
0xd1de…d1f2 Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x0086, t01=0x00a0}
0xd1f2…d1f6 Head {h00=0x4004, h01=0x0000}
0xd1f6…d1fa 00 86 00 b4 ┆ ┆
0xd1fa…d24a (135, 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 ┆
0xd24a…d25a 00 00 00 00 00 87 00 04 40 04 00 00 00 87 00 5c ┆ @ ┆
0xd25a…d262 (136, 1, 8) 20 04 00 00 00 88 00 04 ┆ ┆
0xd262…d2b2 (137, 0, 400) 00 30 00 50 5c 4c 44 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 3a 41 27 53 20 41 43 43 55 4d 55 4c 41 54 4f 52 20 01 39 00 04 00 28 00 50 5c 53 4c 4c 5c 41 32 2c 31 5c 43 41 4c 43 2e 20 52 45 41 4c 20 4c 45 4e ┆ 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR 9 ( P SLL A2,1 CALC. REAL LEN┆
0xd2b2…d302 47 54 48 20 28 42 59 54 45 53 29 20 01 39 00 38 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 32 20 01 39 00 64 00 30 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 30 35 2c 41 31 33 5c 53 41 56 45 20 54 4f 54 2e 20 4e 55 4d 42 45 52 20 4f 46 20 54 3a 41 27 ┆GTH (BYTES) 9 8 P ADK A2,2 9 d 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'┆
0xd302…d352 53 20 01 39 00 76 00 08 00 50 5c 5c 5c 5c 01 39 00 aa 00 0a 00 50 5c 45 4a 45 43 54 01 39 00 b6 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 39 00 c4 00 24 00 50 2a 20 52 45 4c 4f ┆S 9 v P 9 P EJECT 9 " P****************************** 9 $ P* RELO┆
0xd352…d3a2 43 41 54 45 20 41 44 44 52 45 53 53 45 53 20 49 4e 20 55 3a 42 54 41 42 20 2a 01 39 00 ea 00 24 00 50 2a 20 28 52 45 41 4c 20 4c 45 4e 47 54 48 3d 50 52 4f 54 4f 54 59 50 45 20 4c 45 4e 2e 29 20 2a 01 39 01 12 00 24 00 50 2a 2a 2a 2a 2a 2a ┆CATE ADDRESSES IN U:BTAB * 9 $ P* (REAL LENGTH=PROTOTYPE LEN.) * 9 $ P******┆
0xd3a2…d3f2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 39 01 3a 00 04 00 50 01 39 01 62 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 01 39 01 6a 00 24 00 50 5c 4c 44 5c 41 35 2c 55 3a 42 ┆************************** 9 : P 9 b P IFT CREDIT-MMUPAG=1 9 j $ P LD A5,U:B┆
0xd3f2…d442 (138, 0, 400) 54 4f 44 2c 41 31 33 5c 55 3a 42 54 41 42 20 41 44 44 52 45 53 53 01 39 01 86 00 16 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 35 5c 4c 45 4e 47 54 48 01 3a 00 1e 00 16 00 50 5c 53 54 5c 41 33 2c 53 41 56 45 30 36 2c 41 31 33 20 01 3a 00 38 00 1e ┆TOD,A13 U:BTAB ADDRESS 9 P LDR* A3,A5 LENGTH : P ST A3,SAVE06,A13 : 8 ┆
0xd442…d492 00 50 5c 41 44 4b 5c 41 35 2c 32 5c 53 4b 49 50 20 4c 45 4e 47 54 48 20 57 4f 52 44 01 3a 00 52 00 14 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 20 20 2d 22 2d 20 01 3a 00 74 00 22 00 50 53 59 41 31 38 30 5c 52 46 28 5a 29 5c 53 59 41 31 38 35 5c ┆ P ADK A5,2 SKIP LENGTH WORD : R P SUK A3,2 -"- : t " PSYA180 RF(Z) SYA185 ┆
0xd492…d4e2 41 4c 4c 20 44 4f 4e 45 21 20 01 3a 00 8c 00 18 00 50 5c 41 44 52 53 5c 41 36 2c 41 35 5c 52 45 4c 4f 43 41 54 45 01 3a 00 b2 00 08 00 50 5c 58 49 46 01 3a 00 ce 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 3a ┆ALL DONE! : P ADRS A6,A5 RELOCATE : P XIF : P IFT CREDIT+MMUPAG=2 :┆
0xd4e2…d532 00 da 00 24 00 50 5c 4c 44 5c 41 35 2c 55 3a 42 54 4f 44 2c 41 31 33 5c 55 3a 42 54 41 42 20 41 44 44 52 45 53 53 01 3a 00 f6 00 1c 00 50 5c 45 4c 52 5c 41 33 2c 41 35 5c 54 41 42 4c 45 20 4c 45 4e 47 54 48 20 01 3a 01 1e 00 2c 00 50 5c 53 ┆ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS : P ELR A3,A5 TABLE LENGTH : , P S┆
0xd532…d582 54 5c 41 33 2c 53 41 56 45 30 36 2c 41 31 33 5c 53 41 56 45 20 4c 45 4e 47 54 48 20 4f 46 20 55 3a 42 54 41 42 20 01 3a 01 3e 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 32 20 01 3a 01 6e 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 53 55 42 20 4c 45 ┆T A3,SAVE06,A13 SAVE LENGTH OF U:BTAB : > P ADK A5,2 : n P SUK A3,2 SUB LE┆
0xd582…d5d2 (139, 0, 400) 4e 47 54 48 2d 57 4f 52 44 20 01 3a 01 80 00 18 00 50 53 59 41 31 38 30 5c 52 46 28 5a 29 5c 53 59 41 31 38 35 20 01 3b 00 12 00 1c 00 50 5c 45 4c 52 5c 41 31 30 2c 41 35 5c 47 45 54 20 41 44 44 52 45 53 53 20 01 3b 00 2e 00 18 00 50 5c 41 ┆NGTH-WORD : PSYA180 RF(Z) SYA185 ; P ELR A10,A5 GET ADDRESS ; . P A┆
0xd5d2…d622 44 52 5c 41 31 30 2c 41 36 5c 52 45 4c 4f 43 41 54 45 01 3b 00 4e 00 10 00 50 5c 45 53 52 5c 41 31 30 2c 41 35 20 01 3b 00 6a 00 08 00 50 5c 58 49 46 01 3b 00 7e 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 01 3b 00 8a 00 38 00 50 ┆DR A10,A6 RELOCATE ; N P ESR A10,A5 ; j P XIF ; ~ P IFF CREDIT=0 ; 8 P┆
0xd622…d672 5c 41 44 4b 5c 41 35 2c 55 50 3a 52 45 43 5c 41 44 44 20 54 4f 20 4e 45 58 54 20 52 45 43 4f 52 44 20 49 4e 20 55 3a 42 54 41 42 20 50 52 4f 54 4f 54 59 50 01 3b 00 a0 00 12 00 50 5c 53 55 4b 5c 41 33 2c 55 50 3a 52 45 43 01 3b 00 dc 00 0e ┆ ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ; P SUK A3,UP:REC ; ┆
0xd672…d6c2 00 50 5c 52 42 5c 53 59 41 31 38 30 01 3b 00 f2 00 0a 00 50 5c 45 4a 45 43 54 01 3b 01 04 00 10 00 50 53 59 41 31 38 35 5c 45 51 55 5c 2a 01 3b 01 12 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b 4d 4d 55 53 57 42 3d 33 01 3b 01 26 00 06 ┆ P RB SYA180 ; P EJECT ; PSYA185 EQU * ; P IFT CREDIT+MMUSWB=3 ; & ┆
0xd6c2…d712 00 50 2a 20 01 3b 01 42 00 24 00 50 2a 20 20 43 4f 4d 50 55 54 45 20 52 45 41 4c 20 4c 45 4e 47 54 48 20 4f 46 20 53 3a 42 54 41 42 01 3b 01 4c 00 06 00 50 2a 20 01 3b 01 74 00 24 00 50 5c 4c 44 5c 41 35 2c 53 3a 42 54 4f 44 2c 41 31 33 5c ┆ P* ; B $ P* COMPUTE REAL LENGTH OF S:BTAB ; L P* ; t $ P LD A5,S:BTOD,A13 ┆
0xd712…d762 (140, 0, 400) 53 3a 42 54 41 42 20 41 44 44 52 45 53 53 01 3b 01 7e 00 22 00 50 5c 45 4c 52 5c 41 33 2c 41 35 5c 4c 45 4e 47 54 48 20 4f 46 20 50 52 4f 54 4f 54 59 50 45 01 3c 00 16 00 14 00 50 5c 4c 44 52 5c 41 32 2c 41 33 5c 53 41 56 45 20 01 3c 00 3c ┆S:BTAB ADDRESS ; ~ " P ELR A3,A5 LENGTH OF PROTOTYPE < P LDR A2,A3 SAVE < <┆
0xd762…d7b2 00 22 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 45 58 43 4c 55 44 45 20 4c 45 4e 47 54 48 20 57 4f 52 44 20 01 3c 00 54 00 2c 00 50 53 59 41 31 39 30 5c 52 46 28 5a 29 5c 53 59 41 31 39 39 5c 41 4c 4c 20 52 45 43 4f 52 44 53 20 53 43 41 4e 4e 45 ┆ " P SUK A3,2 EXCLUDE LENGTH WORD < T , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNE┆
0xd7b2…d802 44 21 01 3c 00 7a 00 24 00 50 5c 45 4c 5c 41 34 2c 32 2c 41 35 5c 47 45 54 20 50 52 4f 54 2e 20 57 2e 42 2e 2d 41 44 44 52 2e 01 3c 00 aa 00 18 00 50 5c 41 44 52 5c 41 34 2c 41 36 5c 52 45 4c 4f 43 41 54 45 20 01 3c 00 d2 00 1e 00 50 5c 45 ┆D! < z $ P EL A4,2,A5 GET PROT. W.B.-ADDR. < P ADR A4,A6 RELOCATE < P E┆
0xd802…d852 53 5c 41 34 2c 32 2c 41 35 5c 53 54 4f 52 45 20 49 54 20 42 41 43 4b 20 01 3c 00 ee 00 2c 00 50 5c 45 4c 5c 41 34 2c 55 50 4e 55 4d 42 2d 31 2c 41 35 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 20 01 3c 01 10 00 1e 00 50 ┆S A4,2,A5 STORE IT BACK < , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES < P┆
0xd852…d8a2 5c 41 4e 4b 5c 41 34 2c 2f 46 46 5c 47 45 54 20 52 49 47 48 54 20 42 59 54 45 01 3c 01 40 00 2e 00 50 53 59 41 31 39 32 5c 52 46 28 5a 29 5c 53 59 41 31 39 34 5c 4e 4f 20 4d 4f 4f 52 45 20 4f 46 20 54 48 49 53 20 54 59 50 45 21 01 3c 01 62 ┆ ANK A4,/FF GET RIGHT BYTE < @ . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! < b┆