|
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: 139000 (0x21ef8)
Notes: pts_type(SC)
Names: »SYSLOD.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »M:AF/SYSLOD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/SYSLOD.SC«
IDENT SYSLOD REL 11.0 81-05-22 870105041100 =12,COND. ASSEMBLY EDM INTRODUCED =12,REL 11.0 81-05-19 =11,ERROR IN READ ROUT. FOR 16M,80M =11,REL 11.0 81-05-11 =10,TWO WORDS IN INTERRUPT TABLE ARE =10,DESTROYED =10,REL 11.0 81-04-08 =9,NEW CONTROL UNIT 16M,80M DISC =9,REL 11.0 81-04-06 =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION =8,REL 11.0 81-03-31 =7,WRONG VTOC-SECTOR POINTER =7,REL 11.0 81-03-12 =6,DC BLOCK DESTROYED WHEN CFTEST=0 =6,REL 11.0 81-02-06 =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS =5,REL 11.0 81-01-29 =4,FLOPPY MUX CORRECTED =4,REL 11.0 81-01-26 =3,IF 256 KBYTE MEMORY OVERFLOW =3,WILL OCCUR IN SEGMENT ALLOCATION =3,PRR 11.0 80-12-03 =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR =2,REDESIGNED SEGMENT ALLOCATION ALGORITM =2,PRR 11.0 80-11-20 =1,MXSTAB ADDR. NOT REL IF CFTEST=0 =1,PRR 11.0 80-11-19 ENTRY SYSLOD ENTRY SYSBAS ENTRY NUMSEG ENTRY PRGLG1 ENTRY APLADA ENTRY APLLAC ENTRY APLLAP ENTRY APLLDA ENTRY APLMMC ENTRY APLMMP ENTRY APLNPE ENTRY APLREL ENTRY APLSTA ENTRY APLTYP ENTRY APLIOE ENTRY APLSEG ENTRY APLSWB *************************** * * * ENTRIES AND EXTERNALS * * * *************************** EXTRN CONVRT EXTRN POB RESTORE REGISTER CONTENTS EXTRN PUSH SAVE REGISTER CONTENTS EXTRN SYSLDM EXTRN SCTANO EXTRN SCTBUG EXTRN SCTEFA EXTRN SCTMSZ EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE EXTRN SCTNOP EXTRN SCTOPT EXTRN SCTIPL EXTRN SCTPSZ EXTRN SCTSFA EXTRN SCTSTB EJECT EXTRN REL EXTRN ERROR EXTRN MMDDIV EXTRN TABBE EXTRN MMEND EXTRN CMPADR EXTRN MOVE EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB EXTRN TTB:CB EXTRN STKCOM EXTRN STKEND 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 START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 SAVE05 TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 7 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 EJECT **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 LAMP 1 CODE LMP2 EQU /200 LMP3 EQU /100 LMP4 EQU /80 LMP5 EQU /40 LMP6 EQU /20 LMP7 EQU /10 LMP8 EQU 8 LMP9 EQU 4 LMP10 EQU 2 LMP11 EQU 1 EJECT *********************************** * MXSTAB DISPLACEMENTS * *********************************** MX:NOX EQU 6 MX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS ********************************************* * * * APCTAB DISPLACEMENTS * * ==================== * * * ********************************************* APLADA EQU 22 APPLICATION DISC FILE ADDRESS =2 APLREL EQU 18 APPLICATION RELOCATION BASE APLIOE EQU 0 APPLICATION RESTART ADDRESS APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) APLMMC EQU 10 APPLICATION MMU START ENTRY APLMMP EQU 8 SEGMENT START MMU ENTRY APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU APLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 APLSWB EQU 2 APPLICATION SWB APLSTA EQU 16 APPL. PGM START ADDRESS APLTYP EQU 8 APPLICATION TYPE EJECT ****************************** * * * COMMON DISPLACEMENTS * * AND CONSTANTS * * * ****************************** ACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE APPLNO EQU 18 APPLICATION NUMBER BUFSIZ EQU 14 TEMPORARY BUFFER SIZE CONLEN EQU 0 LENGTH OF CONFIGURATION DATA CONSTA EQU 2 START OF CONFIGURATION DATA DATEND EQU 34 END OF DDIV PROTOTYPE FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART MAPLEN EQU 30 LENGTH OF AREA TO MAP MMFROM EQU 36 2ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATION CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) TTAB EQU 32 WORK AREA FOR MMU TABLE COM01 EQU 40 COMMON SAVE AREA 1 COM02 EQU 42 COMMON SAVE AREA 2 COM03 EQU 44 COMMON SAVE AREA 3 TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG COM04 EQU 50 COMMON SAVE AREA 4 DCBLK EQU 54 START OF DC CONF. DATA EJECT ****************************** * * * LOCAL DISPLACEMENTS * * AND CONSTANTS * * * ****************************** APLCNT EQU 4 NO OF APPLICATIONS TO LOAD BLKLEN EQU 6 SEGMENT BLOCK LENGTH CARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9 CBLEN EQU 256 CASSETTE BUFFER LENGTH COMLG EQU 4 LENGTH OF CORE RESIDENT PART CONDAD EQU 44 CONF. FILE DISC ADDRESS * EQU 46 CONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. CURAPL EQU 24 CURRENT APPL. CONTR. BLOCK DEVTYP EQU 50 DEVICE TYPE DISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) ECNFBF EQU 6 END OF CONF. BUFFER EINPBF EQU 2 END OF INPUT BUFFER ESYSTA EQU 0 END OF SYSTEM AREA EXLEN EQU 4 MONITOR EXTENT LENGTH FILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE) FSTSEC EQU 16 FIRST SECTOR INDICATOR IPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE IPLTYP EQU 48 PGM LOAD DEVICE TYPE LLDADR EQU 12 LOGICAL LOAD ADDRESS LSTREC EQU 20 LAST RECORD OF CONF. FILE LSTASG EQU 8 LOGICAL START OF FIRST SEGMENT MONNO EQU 22 MONITOR NUMBER NCHAID EQU 8 NO OF CHAR. IN APPL. NAME NCHTID EQU 5 NO OF CHAR IN TID RECORD NDEVCL EQU 18 NO OF DEVICE CLASSES NUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB OPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 PAGLG EQU 8 PAGE LENGTH IN S:GTAB PAGSIZ EQU /1000 PHYSICAL PAGE SIZE PLDADR EQU 14 PHYSICAL LOAD ADDRESS PRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT PSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT PSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT PSECPA EQU 38 PHYSICAL SECTOR PART (0-2) SEGCNT EQU 10 SEGMENT COUNTER SWPFEL EQU 14 FILE EXTENT LENGTH TNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS EJECT *********************** * CASSETTE HANDLING * *********************** CHCR EQU /E DEVICE ADDRESS FOR CASSETTE LOCK EQU /2 LOCK CASSETTE SBOT EQU 8 SEARCH BEGINNING OF TAPE STMF EQU /C SEARCH TAPEMARK FORWARD * * DISC/FLEXIBLE DISC HANDLING * BUFLEN EQU 256 LENGTH OF READ BUFFER DKBA3 EQU 514 BUFFER LENGTH VERSION A3 RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH FDCU EQU /09 FLEXIBLE DISC CU ADDRESS FDIOP EQU FDCU+FDCU MUX ADDRESS FORDEV EQU 48 DISC FORMAT MUXCC EQU /8080 1:ST MUX WORD MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS QBLFAC EQU 6 BLOCKING FACTOR CIO EQU /41C0 I/O INSTR. CONF. CONSTANT EJECT ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT ************************** * CONDITIONAL ASSEMBLY * ************************** * * CONSTANTS EDITED BY SYSGEN * X:A EQU 1 X:B EQU 1 X:C EQU 1 X:D EQU 0 X:E EQU 0 X:F EQU 0 =9 X:G EQU 1 =9 MMUPAG EQU 1 1-MMU HARDWARE PRESENT EDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12 CASS EQU 0 1-PROGRAM LOAD DEVICE = CASSETTE DISC EQU 0 1-PROGRAM LOAD DEVICE = DISC FLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC MFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC CDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC CDDI16 EQU 0 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9 CFTEST EQU 1 1-TEST OF CONFIGURATION FILE =9 CFTCAS EQU CFTEST+CASS CFTFLD EQU CFTEST+FLDISC EJECT ****************************************************** * * * APPLICATION LOAD PART OF SYSLOD * * =============================== * * * * ENTRY: A1 - FORMAT AND DEVICE TYPE * * A2 - PROGRAM LOAD DEVICE * * A3 - APPLICATION NUMBER * * A7 - APPLICATION DISC ADDRESS BIT 16-31 * * A8 - APPLICATION DISC ADDRESS BIT 0-15 * * A9 - START OF FREE AREA * * A13 - MONITOR START ADDRESS * * * * EXIT: * * * * SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * * LODSEG,REBUF,MOVBUF,RDBLK, * * CONLOD,CONEX,MOVREV * * * ****************************************************** SYSLOD EQU * * * SAVE REGISTERS * ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE ST A2,IPLDEV+STKEND CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. ST A3,SCTANO APPLICATION NUMBER LDR A3,P USE BEGINNING OF SYSLOD SUK A3,TBLBAS TBLBAS EQU *-2-SYSLOD ST A3,APLTAB+STKCOM AS TABLE AREA LDK A1,1 INITIATE NO OF APPL. STR A1,A3 AND SAVE IN TABLE ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31 ST A9,SCTSFA SAVE START OF FREE AREA LDKL A14,SYSLOD LDR A13,P SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 LD A1,SCTBUG LDR A2,A1 ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START ABR(NZ) A1 * SYS110 EQU * LD A15,SCTSTB LOAD STACK BASE SUKL A15,4 ADJUST STACK BASE * * 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 IFT MMUPAG=1 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 EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS ES A5,PAGSIZ-2,A1 STORE TEST PATTERN EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS CWR A2,A5 COMPARE WITH TEST PATTERN RF(E) AP:020 SUK A6,4 DECREMENT NUMBER OF PAGES RB AP:010 * * CHECK IF MMU HARDWARE PRESENT * AP:020 LDKL A1,/FC00 ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE CW A1,MMDDIV,A13 SUCCESSFUL? RF(E) AP:030 YES! MMU PRESENT LDKL A1,LMP9 CALL ERROR INDICATE HARDWARE NOT PRESENT AP:030 CM TABBE RESET MMU TABLE * * END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY * XIF IFT MMUPAG=0 EJECT AP:100 EQU * * * EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY * LDKL A1,PAGSIZ-2 START 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 * XIF EJECT * * COMMON EXECUTION PATH * AP:200 EQU * ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES SRL A6,2 MAKE NO OF 4K FRAMES SLL A6,10 MAKE FRAME ADDRESS ST A6,SCTEFA FIRST FRAME TO BE USED LDK A3,0 ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME LD A1,SCTOPT GET OPTION WORD =2 ST A1,OPTION+STKEND =2 ANKL A1,/FFF RESET TYPE BITS =2 ST A1,SCTOPT AND SET AS NEW OPTION =2 * * INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE LD A9,SCTSFA POINTER TO READ BUFFER ST A9,MXBUF ADDRESS TO READ-BUFFER LD A1,SCTIPL GET PROGRAM LOAD DEVICE * * INITIALIZE PROGRAM LOAD DEVICE * CF A14,LODDEV LDR A3,A9 SAVE AD A3,SAVCON COMPUTE START OF APPL. TABLE ST A3,SCTSFA STORE IN SYSTAB LDR A1,A1 RF(Z) AP:233 CASSETTE LOADING * ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV. EJECT AP:232 EQU * IFT EDM=1 =12 * * LOAD MONITOR EXTENTS IF PRESENT * CF A14,LODMEX LOAD MONITOR EXTENTS XIF * * SCAN CONF. FILE FOR POSSIBLE * APPLICATION DEFINITION BLOCKS * CF A14,SCNCON LD A1,APLTAB+STKCOM GET ADDRESS TO ADK A1,2 CURRENT APPL. CONTR. BLOCK LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS LD A10,READ GET SUBROUTINE ADDRESS CFR A14,A10 READ FIRST SECTOR AP:233 EQU * LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS LDR* A6,A1 GET NO OF APPL. TO LOAD NGR A6,A6 NEGATE AND SAVE ST A6,APLCNT+STKEND AS COUNTER ADK A1,2 ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK AP:234 EQU * LD A7,SCTEFA GET FIRST FRAME TO USE LD A5,SCTEFA+2 AND AREA EMPTY IN IT LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. EJECT AP:235 EQU * * * SAVE INFORMATION ABOUT THE LOAD MODULE * CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST CM APLSEG+2,A1 CORE RESIDENT SEGMENT CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.) ST A6,APLSTA,A1 SAVE LD A2,SCTOPT GET OPTION WORD LD A6,PRGLG1+8,A9 GET PROGRAM TYPE LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) CWK A6,'CR' CREDIT APPLICATION? RF(E) AP2340 * SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) CWK A6,'CO' COBOL APPLICATION? RF(E) AP2340 * SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) CWK A6,'BA' BASIC APLICATION? RF(E) AP2340 * LDKL A6,'AS' SET ASSEMBLER TYPE SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) AP2340 EQU * ST A6,APLTYP,A1 SAVE APPLICATION TYPE CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 RF(E) AP2345 =2 AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 RF(NZ) AP2345 YES =2 LDK A1,LMP9 NO, WRONG MONITOR OPTION =2 CALL ERROR =2 AP2345 EQU * =2 ORR A2,A4 SET BIT IN OPTION WORD ST A2,SCTOPT AND SAVE CWK A6,'AS' RF(E) AP2350 SKIP IF ASSEMBLER APPL. * LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE * ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE AP2350 EQU * IFT MMUPAG=1 EJECT * * EXECUTION PATH FOR SYSTEMS WITH MMU OPTION * CWK A6,'AS' ASSEMBLER APPLICATION? ABL(E) AP:330 YES! NO SEGMENTS LDR A4,A3 SAVE ANKL A4,/3FF EVEN 1K MULTIPLE? RF(Z) AP:237 YES! * LDK A1,LMP8 CALL ERROR INDICATE PAGE SIZE ERROR * AP:237 EQU * LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED * AP:238 EQU * ABL(Z) AP:330 NO SEGMENTS! * CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. * * A1 - POINTER TO CURRENT APPL. CONTR. BLOCK * A3 - PAGESIZE IN 1K BLOCKS * A5 - OFFSET WITHIN 4K PAGE * A7 - PAGE FRAME ADDR. (PHYS. ADDR.) * A4 - AREA LEFT IN LAST 4K PAGE FRAME * * STORE ADDRESS(ES) TO PAGE FRAMES * HOLDING THE FIRST LOGICAL PAGE * SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 LDKL A6,MMEND GET END OF MMU-TABLE LDKL A8,16 AND NO OF ENTRIES LDR A4,A5 GET AREA LEFT IN LAST FRAME AP:295 EQU * SUK A6,2 DECREMENT MMU ENTRY ADDR. SUKL A8,1 DECREMENT MMU ENTRY POINTER SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE RB(P) AP:295 RF(Z) AP:300 EVEN 4K BYTES PAGE * * RESERVE ONE EXTRA MMU ENTRY * WHEN PAGE SIZE IS NOT AN * EVEN MULTIPLE OF 4K * LD A3,PAGLG+8,A9 GET PAGE SIZE ANKL A3,/C00 GET LENGTH IN MODULO 4K CWK A3,/400 PAGE SIZE = 1K? RF(E) AP:300 YES! ONE ENTRY ENOUGH * SUK A6,2 ALLOCATE ONE ENTRY EXTRA SUKL A8,1 * AP:300 EQU * LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? RF(Z) AP:310 NO! * LDR A2,A7 GET SEGMENT FRAME ADDRESS LDR A3,A6 SAVE MMU ENTRY * AP:305 EQU * STR A2,A3 STORE ADDRESS TO PAGE FRAME ADK A3,2 INCREMENT MMU ENTRY ADDRESS CWK A3,MMEND END OF MMU TABLE? RF(E) AP:310 YES! * ADKL A2,/400 INCREMENT PAGE FRAME ADDR. RB AP:305 * AP:310 EQU * * * SAVE LOGICAL ADDRESS * TO SEGMENT * LDR A2,A8 GET MMU ENTRY SLL A2,12 MOVE TO 4 LEFTMOST BITS ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK ORR A2,A4 CONCATENATE DISPLACEMENT ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. RF AP:335 * * NO SEGMENTS DEFINED * AP:330 EQU * LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE LDKL A6,MMEND INITIATE MMU POINTER LDKL A8,16 AND MMU ENTRY POINTER LDR A4,A5 AREA LEFT IN LAST FRAME AP:335 EQU * * * COMPUTE APPLICATION START ADDRESS * * A1 - POINTER TO APPLICATION CONTROL BLOCK * A4 - AREA LEFT IN CURRENT PAGE FRAME * A7 - PHYSICAL PAGE ADDRESS * A6 - MMU ENTRY ADDRESS * A8 - CURRENT MMU ENTRY * LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART LD A3,APLTYP,A1 GET APPLICATION TYPE CWK A3,'AS' ASSEMBLER? RF(NE) AP:336 NO! * ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER AP:336 EQU * ADK A2,1 ANKL A2,/FFFE MAKE EVEN LENGTH * * IF APPLICATION IS LARGER THAN * 60 K BYTES, START ON A 4K * BOUNDARY, TO MAKE SURE THAT * LOGICAL MEMORY WILL BE * MAXIMAL POSSIBLE. * LDR A5,A2 SRL A5,12 NO OF 4K BLOCKS CWK A5,15 >60 KBYTES? RF(L) AP:337 NO! * LDK A4,0 START ON A 4K BOUNDARY RF AP:341 * AP:337 EQU * ADK A2,0 RESTORE LENGTH CONDITION RF(N) AP:340 LARGER THAN ONE PAGE * * APPLICATION IS SMALLER THAN 32 K * BUT IS IT SMALLER THAN AREA LEFT * IN LAST ALLOCATED PAGE? * CWR A2,A4 RF(G) AP:340 LARGER * * APPLICATION LENGTH LESS THAN AREA * LEFT IN LAST PAGE * COPY FRAME ADDRESS IN NEXT * MMU ENTRY * * SUKL A8,1 RF(N) TABOVF TABBE OVERFLOW! * SUK A6,2 STR A7,A6 UPDATE MMU ENTRY LDR A5,A2 RESTORE LENGTH OF COMMON PART RF AP:351 * AP:340 EQU * * * RESERVE ENTRIES IN MMU TABLE FOR * COMMON PART OF APPLICATION * * A4 - AREA MAPPED BUT NOT USED * IN LAST MMU ENTRY * A2 - LENGTH OF COMMON PART LDR A4,A4 EMPTY FRAME? RF(Z) AP:341 YES! * SUKL A8,1 NO, ANY MMU ENTRIES LEFT? RF(N) TABOVF NO! * SUK A6,2 ADVANCE TO NEXT MMU ENTRY STR A7,A6 AND COPY FRAME ADDRESS AP:341 EQU * SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME LDK A4,0 RESET AREA LEFT IN LAST FRAME LDR A5,A2 SAVE REMAINING AREA NEEDED RF(Z) AP:351 NOTHING LEFT * SRL A2,12 CONVERT TO NO OF 4K FRAMES ANKL A5,/0FFF RF(Z) AP:342 NO REMAINDER * ADK A2,1 ALLOCATE ONE MORE ENTRY * * UPDTE MMU ENTRIES * AP:342 EQU * SUK A2,1 MORE ENTRIES TO UPDATE? RF(N) AP:350 NO! * SUKL A8,1 DECREMENT MMU ENTRY POINTER RF(N) TABOVF TABLE OVERFLOW! * SUK A6,2 DECREMENT MMU ENTRY ADDR. SUKL A7,/400 DECREMENT FRAME ADDRESS STR A7,A6 STORE FRAME ADDRESS RB AP:342 * TABOVF EQU * LDK A1,LMP7 CALL ERROR SIGNAL TABBE OVERFLOW! MEMOVF EQU * LDKL A1,LMP3 CALL ERROR MEMORY OVERFLOW! * AP:350 EQU * * LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME RF(Z) AP:351 * LDKL A4,PAGSIZ GET FRAME SIZE AP:351 EQU * SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME LDR A2,A8 GET MMU ENTRY SLL A2,12 MOVE TO FOUR LEFTMOST BITS LDR A8,A2 ORR A8,A4 LOGICAL START ADDRESS CWK A3,'AS' ASSEMBLER APPLICATION? RF(NE) AP:352 NO! * ADKL A8,10 SKIP FIVE PRECEEDING WORDS AP:352 EQU * ST A8,LLDADR+STKEND SAVE ST A7,SCTEFA AND SAVE ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5) ST A4,APLLDA+2,A1 AND BIT 6-17 ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL ST A4,LSTADR+STKCOM ADDRESS USED LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE ANKL A1,/C000 GREATER THAN 64K? RF(Z) AP:353 NO! LDK A1,0 UPPER LIMIT 64 KB RF AP:354 AP:353 EQU * LDR* A1,A6 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 EQU * RB(L) MEMOVF MEMORY OVERFLOW! AP:354 EQU * ST A1,ESYSTA+STKEND SAVE LD A10,COMLG,A9 LOAD COMLG OF COMMON PART TL TABBE LOAD MMU REGISTERS XIF IFT MMUPAG=0 EJECT AP:240 EQU * * * EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION * * * CHECK IF ASSEMBLER APPLICATION * CWK A6,'AS' ASSEMBLER APPLICATION? RF(E) AP:275 YES! LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS RF(Z) AP:275 NO SEGMENTS! CF A14,ALOCSG RESERVE AREA FOR SEGMENTS LDR A2,A7 CONFIGURE LOGICAL START ADDR. SLL A2,2 TO FIRST SEGMENT ORR A2,A5 ST A2,LSTASG+STKEND AP:275 EQU * LD A10,COMLG,A9 GET LENGTH OF COMMON PART LD A3,APLTYP,A1 GET APPLICATION TYPE CWK A3,'AS' ASSEMBLER? RF(NE) AP:276 NO! * ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER AP:276 EQU * ADKL A10,1 ANKL A10,/FFFE MAKE EVEN LENGTH RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE * CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME RF(NG) AP:280 YES! * AP:278 EQU * SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME LDK A5,0 NO AREA LEFT IN CURRENT FRAME LDR A2,A10 GET REMAINING LENGTH SRL A2,12 COUNT NO OF 4K BLOCKS SRL A7,10 FRAME ADDRESS AS BLOCK COUNT SUR A7,A2 SUBTRACT AREA NEEDED RF(N) MEMOVF MEMORY OVERFLOW! * ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER RF(Z) AP:279 NO REMAINDER * LDKL A5,PAGSIZ RESERVE ONE NEW FRAME SUK A7,1 RF(N) MEMOVF MEMORY OVERFLOW! * AP:279 EQU * SLL A7,10 RESTORE FRAME ADDRESS AP:280 EQU * SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME LDR A4,A9 SAVE A9 LDR A8,A11 SAVE A11 ST A7,SCTEFA AND SAVE ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5) ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL ST A5,LSTADR+STKCOM ADDRESS USED SLL A7,2 LDR A11,A7 ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. LD A9,SCTSFA GET START OF FREE AREA CALL CMPADR A11 COMPARED TO A9 RF(G) AP:290 * MEMOVF EQU * LDKL A1,LMP3 MEMORY OVERFLOW! CALL ERROR * AP:290 EQU * CWK A3,'AS' ASSEMBLER APPLICATION? RF(NE) AP:295 NO! * ADKL A11,10 SKIP 5 PRECEEDING WORDS AP:295 EQU * ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS LDR A9,A4 RESTORE A9 LDR A11,A8 RESTORE A11 LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS LD A10,COMLG,A9 GET LENGTH OF COMMON PART XIF EJECT * * COMMON EXECUTION PATH * * READ AND RELOCATE CORE RESIDENT PART OF APPLICATION * * A8 - APPLICATION LOAD ADDRESS * A10 - LENGTH OF CORE RESIDENT PART * AP:355 EQU * LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK ST A7,LOD:10 MODIFY INSTRUCTION CF A14,LODCOM LOAD CORE RESIDENT PART * * CHECK IF ASSEMBLER APPLICATION * LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK LD A2,APLTYP,A1 AND TYPE OF THIS APPL. CWK A2,'AS' ASSEMBLER APPLICATION? ABL(E) AP:400 YES LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS ABL(Z) AP:400 NO SEGMENTS IN APPLICATION * CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED IFT MMUPAG=1 TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS XIF AP:360 EQU * * * READ AND RELOCATE THE SEGMENTS * * A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT * A10 - SEGMENT LENGTH * LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR. LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. ADKL A2,BLKLEN+BLKLEN LD A1,SEGCNT+STKEND GET SEGMENT COUNTER AP:365 EQU * RF(Z) AP:370 ADK A2,BLKLEN NEXT BLOCK SUK A1,1 DECREMENT BLOCK COUNTER RB AP:365 AP:370 EQU * * * CHECK IF DISC PAGING * LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(Z) AP:376 NO! * * CHECK IF CORE RESIDENT SEGMENT * CALL GETCON GET SEGMENT TYPE LDR A12,A1 GET MOST SIGNIFICANT PART ANKL A12,/FF OF DISC ADDRESS SRL A1,8 SEGMENT TYPE TO RIGHT BYTE CCK A1,'RR' CORE RESIDENT SEGMENT? RF(E) AP:376 YES: LOAD THIS SEGMENT! * * BYPASS THIS SEGMENT AND CHECK NEXT * LD A1,SEGCNT+STKEND GET SEGMENT COUNTER LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS ADK A1,1 INCREMENT CWR A1,A2 LAST SEGMENT? ABL(E) AP:400 YES! ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER RB AP:360 AP:375 LDKL A1,LMP2 DISC I/O ERROR CALL ERROR EJECT AP:376 EQU * ADK A2,2 DISC SECTOR ADDRESS CALL GETCON GET DISC SECTOR ADDRESS LDR A11,A1 SAVE AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? RF(O) AP:377 OVERFLOW RF AP:378 NOT OVERFLOW AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS ANKL A11,/7FFF RESET OVERFLOW AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. CWK A12,255 OVERFLOW? RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! 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,LLDADR+STKEND CF A14,LODSEG LOAD SEGMENT LD A1,SEGCNT+STKEND GET SEGMENT COUNTER LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS ADK A1,1 INCREMENT SEGMENT COUNTER CWR A1,A2 ALL SEGMENTS LOADED? ABL(E) AP:400 YES! ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2 IFT MMUPAG=0 ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE RB AP:360 XIF IFT MMUPAG=1 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,APLLAP,A3 LOGICAL PAGE ADDRESS 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 * XIF EJECT AP:400 EQU * LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK IM APLCNT+STKEND ABL(Z) CONLOD ALL APPLICATIONS LOADED * ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR. LD A10,READ GET SUBROUTINE ADDRESS CFR A14,A10 READ FIRST SECTOR ABL AP:234 EJECT ********************************************* * * * * * ALOCSG * * ====== * * * * RESERVE PAGES FOR RESIDENT SEGMENTS * * * * * ********************************************* * * ALOCSG EQU * ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 LD A4,SCTOPT GET OPTION WORD SRC A4,2 DISC PAGING? RF(NN) ALSG04 NO! * LD A4,SCTIPL GET PROGRAM LOAD DEVICE SUK A4,/F0 CHECK IF CASSETTE RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! * * COMPUTE NUMBER OF CORE RESIDENT PAGES * LDR A6,A9 START OF APPLICATION ADK A6,14 START OF SEGMENT BLOCKS ALSG00 EQU * ADK A6,6 NEXT SEGMENT BLOCK * LOOK IF OUTSIDE BUFFER * IF SO READ NEXT * SECTOR BLOCK * LDR A4,A6 SAVE BUFFER POSITION SUR A4,A9 RELATIVE POSITION CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5 RF(NG) ALSG01 NO! * CF A14,NXTSEC READ NEXT SECTOR SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 AND RESET BUFFER POSITION =5 * ALSG01 EQU * LCR A4,A6 GET SEGMENT TYPE CCK A4,'RR' CORE RESIDENT SEGMENT? RF(NE) ALSG02 NO! IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER ALSG02 EQU * SUK A2,1 MOORE SEGMENTS? RB(NZ) ALSG00 YES! LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS RF(Z) ALSG12 NO RESIDENT SEGMENTS! ALSG04 EQU * ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. LD A6,SCTOPT GET OPTION WORD SRC A6,1 RF(NN) ALSG08 NO MMU IN SYSTEM * LDR A6,A3 GET SEGMENT SIZE ANKL A6,/FFF RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES * LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY RF(Z) ALSG08 YES * LDK A5,0 START ON A 4K BOUNDARY ALSG08 EQU * LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3 RF(NZ) ALSG8B NO! =3 LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 SUKL A7,/400 BEGINNING OF LAST FRAME =3 ALSG8B EQU * ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 SRL A5,1 AND REMAINING AREA TOO =2 SRL A7,10 CONVERT TO NO OF FRAMES =2 LDR A4,A3 GET SEGMENT SIZE =2 NGR A4,A4 AND CORRESPONDING NEG. VALUE =2 ALSG09 EQU * =2 CWR A5,A3 ENOUGH SPACE LEFT? =2 RF(NL) ALSG10 YES =2 SUK A7,1 DECREMENT FRAME COUNT =2 ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 RB(P) ALSG09 LOOK IF ENOUGH =2 ALSG10 EQU * =2 TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 RF(N) ALS11A YES =2 SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2 RF ALS11B =2 ALS11A EQU * =2 ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2 ALS11B EQU * =2 SUK A2,1 DECREMENT SEGMENT COUNTS =2 RB(NZ) ALSG09 MORE SEGMENTS =2 LDR A7,A7 =2 ABL(N) MEMOVF MEMORY OVERFLOW! * SLL A7,10 RESTORE FRAME ADDRESS ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO SLL A5,1 RESTORE AREA LEFT IN BYTES =2 SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2 ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT ALSG12 EQU * * * REREAD FIRST SECTOR OF APPLICATION * IF S:GTAB IS LARGER THAN ONE SECTOR * LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART CF A14,NXTSEC REREAD FIRST SECTOR RTN A14 NXTSEC EQU * CALL PUSH SAVE REGISTER CONTENTS LD A10,READ READ NEXT SECTOR CFR A14,A10 ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 ST A12,DISCAD+2+STKEND ADDRESS =10 CALL POB RESTORE FORMER REGISTER CONTENTS LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 LD A12,DISCAD+2+STKEND ADDRESS =10 RTN A14 IFT EDM=1 =12 EJECT *********************************************** * * * LODMEX - LOAD MONITOR EXTENT(S) * * =============================== * * * * REFERENCED IN: SYSLOD * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A12 * * * * SUBROUTINES: LODCOM * * * *********************************************** LODMEX EQU * LD A1,SCTMXS MONITOR EXTENT TABLE MSX10 EQU * RF(Z) MSX99 * LD A1,SCTOPT GET MONITOR OPTION =12 SRC A1,1 LOOK IF MMU OPTION ON =12 RF(N) MSX15 YES =12 LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12 CALL ERROR . =12 MSX15 EQU * . =12 CF A14,GETMON GET MONITOR DISC ADDRESS LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS SLL A6,1 MAKE BYTE DISPLACEMENT ADK A6,4 ADR A6,A1 FIRST EXTENT BLOCK MSX20 EQU * SUK A3,1 DECREMENT EXTENT COUNTER RF(N) MSX99 NO MORE EXTENTS * STR A3,A15 SAVE NO OF EXTENTS ADK A6,6 NEXT EXTENT BLOCK LD A7,SCTEFA RESTORE ADDRESS TO LD A5,SCTEFA+2 END OF FREE AREA RF(NZ) MSX25 * LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE SUKL A7,/400 MSX25 EQU * LD A2,EXLEN,A6 GET LENGTH OF EXTENT ADK A2,11 RESERV FIVE EXTRA WORDS ANKL A2,/FFFE MAKE EVEN LENGTH SRL A7,10 FRAME ADDRESS AS FRAME COUNT ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES? RF(N) MSX30 NO * CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME RF(L) MSX40 YES! * MSX30 EQU * LDR A1,A2 SRL A1,12 CONVERT LENGTH TO NO OF FRAMES CWK A1,14 <60K BYTES? RF(L) MSX35 YES! * CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY RF(E) MSX35 YES! * LDKL A5,PAGSIZ START ON 4K BOUNDARY SUK A7,1 MSX35 EQU * SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME LDK A5,0 AND SET EMPTY FRAME LDR A1,A2 SRL A1,12 CONVERT LENGTH TO NO OF FRAMES SUR A7,A1 AND SUBTRACT FROM FRAME COUNT ABL(N) MEMOVF MEMORY OVERFLOW! * ANKL A2,/FFF ISOLATE AREA LEFT RF(Z) MSX45 * LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME SUK A7,1 MSX40 EQU * SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME MSX45 EQU * CWK A7,15 LOOK IF FIRST PARTITION ABL(NG) MEMOVF YES, MEMORY OVERFNGOW! * ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY SLL A7,10 RESTORE FRAME ADDRESS ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS ST A7,SCTEFA TO END OF FREE AREA * LD A4,SCTMXS GET MXSTAB ADDRESS ADK A4,2 MONITOR DISC ADDRESS XRR A1,A1 RESET REG. A1 LDR* A2,A6 GET MONITOR EXTENT ADDRESS DAR* A4 AND RELOCATE EXTENT ADDRESS LDR A11,A2 GET LEAST SIGNIFICANT PART LDR A12,A1 AND MOST SIGNIFICANT PART LDR A1,A5 SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS ORR A1,A7 TO A 16 BITS ADDRESS STR A1,A6 AND SAVE IN MXSTAB * ADK A5,10 SKIP PRECCEDING FIVE WORDS ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) LDR A8,A5 SAVE RELOCATION BASE ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS * LD A10,EXLEN,A6 GET LENGTH OF EXTENT LDK A3,0 RESET MMU ENTRY COUNTER LDKL A2,TABBE GET ADDRESS TO MMU TABLE ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR MSX50 EQU * STR A7,A2 STORE PAGE ADDRESS ADKL A7,/400 NEXT PAGE ADDRESS ADK A2,2 NEXT MMU ENTRY ADK A3,1 INCREMENT ENTRY COUNTER CWK A3,16 ALL ENTRIES INITIALIZED? RB(NE) MSX50 NO * TL TABBE LOAD MMU REGISTERS CALL LOD:70 LOAD EXTENT LDR* A3,A15 RESTORE NO OF EXTENTS RB MSX20 * MSX99 EQU * RTN A14 EJECT *********************************************** * * GETMON * ====== * * SEARCH FOR MONITOR TO BE USED * AND UPDATE IT'S DISC ADDRESS * IN MXSTAB ENTRIES. * ************************************************ * * GETMON EQU * LD A1,SCTANO GET APPLICATION NUMBER ST A1,MONNO+STKEND SAVE CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0' ST A1,MONNO+STKEND AND SAVE CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR) * GTMON2 EQU * LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) CW A1,8,A4 IS IT THE RIGHT MONITOR? RF(E) GTMON4 YES! * CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC RB GTMON2 * GTMON4 EQU * LD A1,SCTMXS GET MXSTAB ADDRESS LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15) ST A2,2,A1 AND SAVE IN MXSTAB LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) ST A2,4,A1 AND SAVE IN MXSTAB RTN A14 RETURN EJECT GETNBR EQU * CF A14,GETVLB READ VOLUME LABEL GTNBR0 EQU * CF A14,RDSEC READ SECTOR LDK A7,QBLFAC VTOC BLOCKING FACTOR LDR A4,A9 START OF RECORD LD A1,MONNO+STKEND GET APPLICATION NUMBER GTNBR2 EQU * LCR A2,A4 GET 1ST CHARACTER IN FILE NAME CCK A2,/2020 UNUSED? RF(E) GTNBR4 YES! * CC A1,9,A4 SAME APPLICATION NUMBER? RF(E) GTNBR6 YES, RETURN * GTNBR4 EQU * ADR A4,A8 GET NEXT RECORD ADK A4,1 BYPASS STATUS CHARACTER SUK A7,1 MORE RECORDS IN THIS SECTOR? RB(P) GTNBR2 YES! * RB GTNBR0 NO, READ NEXT SECTOR * GTNBR6 EQU * RTN A14 XIF EJECT ********************************************************** * * * LOAD CONFIGURATION PART OF SYSLOD * * ================================= * * * * ENTRY: A9 - BUFFER ADDRESS * * * * EXIT: * * * * SUBROUTINES: CASSIN,RDBLK,MOVBUF * * * ********************************************************** CONLOD EQU * LD A1,SCTEFA GET END OF FREE AREA LDR A2,A1 SAVE ANKL A1,/3C00 ISOLATE BIT 2-5 SLL A1,2 ROTATE TO BIT 0-3 ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT SLC A2,2 PARTITION NR TO BIT 14,15 ANK A2,3 ISOLATE IT ST A2,SCTEFA AND SAVE LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK ST A1,SCTSFA UPDATE START OF FREE AREA LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION ST A1,CURAPL+STKEND CONTROL BLOCK LD A1,SCTIPL GET PROGRAM LOAD DEVICE SUK A1,/F0 CHECK DEVICE TYPE RF(NN) CONRAD NOT CASSETTE IFT CFTEST+CASS=2 * * PROGRAM LOAD DEVICE = CASSETTE * CON:30 EQU * LDKL A1,CON:40-2 SUKL A1,COR:48 ADKL A1,/5700 ST A1,COR:48 MODIFY INSTRUCTION LDKL A1,/0100 ST A1,COR:38 MODIFY LDR A1,A9 START OF BUFFER ADKL A1,BUFLEN END OF BUFFER ST A1,PLDADR+STKEND SAVE END OF BUFFER ST A1,EINPBF+STKEND SAVE ST A1,CONSTA+STKCOM START OF CONF. DATA CF A14,RDBLK READ ONE BLOCK CF A14,RDBLK READ NEXT BLOCK LDR A8,A9 LDR A4,A8 GET START OF BUFFER LDR A1,A1 TAPEMARK? RF(Z) TST:10 NO! CF A14,CASSIN INIT CONFIGURATION CASSETTE CALL CON:40 RF TST:10 CONEX EQU * * * UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 APPLICATION DATA? RF(NZ) CON:80 NO! LDK A1,/D CF A14,CHCRIO SEARCH TAPEMARK REVERSE CF A14,RDBLK BYPASS TAPEMARK RF CON:90 CON:80 EQU * LDK A1,/F CF A14,CHCRIO UNLOAD CASSETTE CON:90 EQU * ABL CONMOV XIF IFT CFTEST=1 EJECT CONRAD EQU * * * LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC * LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA RF(Z) CONRA0 SAME AS PGM LOAD DEVICE * CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. CONRA0 EQU * LD A11,CONDAD+STKEND GET START SECTOR LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART LDR A1,A9 GET START OF BUFFER ADKL A1,BUFLEN-6 END OF BUFFER ST A1,PLDADR+STKEND SAVE END OF BUFFER LDR A1,A9 GET START OF BUFFER AD A1,SAVCON START OF SAVE BUFFER ST A1,EINPBF+STKEND SAVE =2 ST A1,CONSTA+STKCOM START OF CONF. DATA LDKL A10,0 RESET RECORD COUNTER * * READ ONE SECTOR FROM RANDOM ACCESS DEVICE * CALL READC READ SECTOR * * TEST THE SYNTAX OF THE CONFIGURATION FILE * TST:10 CALL T CALL CONRD CALL NN CALL CONRD CALL TID CALL TEST CALL AA CALL CONRD CALL TCL CALL TEST CALL AA CALL CONRD CALL LEV CALL TEST CALL NN1 TST:20 CALL CONRD CALL NN1 CALL CONRD TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES CWK A5,/3030 ZERO? RF(E) TST:40 YES! CALL SUKASC CALL TDCT CALL TEST CALL NN CALL CONRD CALL LC CALL TEST CALL NNL CALL CONRD RB TST:30 TST:40 EQU * CALL NN1 CALL CONRD TST:50 EQU * LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES CWK A5,/3030 ZERO? RF(E) TST:60 YES! CALL SUKASC CALL SDCS CALL TEST CALL NN CALL CONRD RB TST:50 TST:60 EQU * LCR A5,A4 GET CHARACTER CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) TST:70 EQU *-2 RB(E) TST:10 YES! LDKL A3,/FFFF ST A3,TST:70 MODIFY INSTRUCTION TO RF CCK A5,'CC' BLOCK TYPE C ? RF(NE) TST:80 NO! LDKL A3,'CC' ST A3,T:10 MODIFY INSTRUCTION CALL T RB TST:20 TST:80 EQU * LDR A1,A5 SAVE FIRST CHARACTER IN RECORD ADK A4,1 INCREMENT BUFFER POINTER LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD ABL(NE) CONERR NO! TST:85 EQU * CCK A1,'AA' START OF APPL. CONTR. BLOCK? RF(E) TST:90 YES * CCK A1,'DD' DATA COMMUNICATION BLOCK? RF(NE) TST:87 NO! * LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION ST A1,DCBLK+STKCOM SAVE TST:87 EQU * CALL CONRD MOVE AND GET NEXT RECORD LCR A1,A4 AND FIRST CHAR. IN IT RB TST:85 * TST:90 EQU * * * APPLICATION CONTROL BLOCK * SKIP NAME RECORD AND * SCAN CONFIGURATION DATA * LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' STR A1,A8 LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA ADK A1,1 SKIP BLOCK MARKER SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA ADK A2,ACBLEN ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK CALL CONRD MOVE AND PACK RECORD ADKL A10,1 INCREMENT RECORD COUNTER CW A10,LSTREC+STKEND LAST RECORD RF(E) COR:50 YES! ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,PLDADR+STKEND END OF BUFFER RF(NE) TST:95 * CALL READC READ SECTOR TST:95 EQU * LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK ST A1,TST:70 MODIFY INSTR. ST A1,T:10 LDR A4,A8 ABL TST:10 SCAN CONF. DATA * COR:50 EQU * LD A1,SCTOPT GET OPTION WORD ANK A1,8 SWB:S? RF(Z) COR:55 NO LDK A3,'S' SC A3,GET:25+1 MODIFY INSTRUCTION SC A3,GET:60+1 MODIFY INSTRUCTION LD A1,IPLDEV+STKEND CF A14,LODDEV INITIALIZE PGM LOAD DEVICE CF A14,GETFIL * * UNLOCK FLEXIBLE DISC * COR:55 EQU * LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE RF(Z) COR:58 SAME AS APPL. LOAD DEVICE * LDR A2,A1 ANK A2,/F SUK A2,9 RF(NZ) COR:58 NOT FLEXIBLE DISC * XIF IFT CFTEST+FLDISC=2 CF A14,UNLOCK UNLOCK FLEXIBLE DISC XIF IFT CFTEST=1 COR:58 EQU * LD A1,SCTIPL GET PROGRAM LOAD DEVICE SUK A1,/F8 CHECK TYPE RF(N) COR:60 NOT FLEXIBLE DISC * XIF SUK A1,/FC-/F8 FLEXIBLE DISC? ABL(NN) COR:60 NO! * IFT CFTEST+FLDISC=2 LD A2,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) COR:60 YES! DON'T UNLOCK * LD A1,IPLDEV+STKEND CF A14,UNLOCK UNLOCK FLEXIBLE DISC XIF IFT CFTEST=1 COR:60 EQU * EJECT CONMOV EQU * * * MOVE CONFIGURATION DATA TO END OF SYSTEM AREA * CIO A1,0,SOP INHIBIT SOP SWITCHES LD A1,CONSTA+STKCOM GET START OF CONF. DATA CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA LD A2,ESYSTA+STKEND 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 ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA SUR A2,A3 TO-ADDRESS * ANKL A2,/FFFE MAKE EVEN ADDRESS CALL MOVE ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH ANKL A1,/FFFE AND MAKE EVEN ST A1,CONLEN+STKCOM 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+STKCOM SAVE RELOCATION CONSTANT LD A2,SCTMXS GET MXSTAB ADDRESS RF(Z) CMOV20 NO MXSTAB PRESENT * AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS ST A2,SCTMXS AND SAVE AS NEW ADDRESS CMOV20 EQU * LD A2,CONSTA+STKCOM GET START OF CONFF * * MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA * MOPRO EQU * LDKL A13,SYSLDM SUK A1,2 SUK A2,2 LDR* A4,A1 STR A4,A2 CWR A1,A13 RB(NE) MOPRO ABR A2 CONTINUE EXECUTION IN SYSLDM EJECT *************************************************************** * SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE *************************************************************** EJECT CONRD EQU * * * COMPUTE NUMBER OF CHARACTERS IN THIS RECORD * LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A8 START OF RECORD COR:30 EQU * LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD? RF(E) COR:40 YES! COR:35 EQU * CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? COR:38 EQU *-2 RF(E) COR:40 YES! CW A1,ESYSTA+STKEND MEMORY OVERFLOW? RF(E) MEMOFL YES! ADK A1,1 INCREMENT BUFFER POINTER ADK A3,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT RECORD POINTER RB COR:30 LOOP COR:40 EQU * LC A5,1,A4 GET NEXT CHARACTER CCK A5,';;' TWO SEMICOLONS? RF(NE) COR:45 NO! CWK A3,NCHTID CHECK IF END OF RECORD RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD COR:45 EQU * ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION LDR A1,A8 START OF RECORD CALL MOVE COR:48 EQU * ADKL A10,1 INCREMENT RECORD COUNTER CW A10,LSTREC+STKEND LAST RECORD ABL(E) COR:50 YES! ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,PLDADR+STKEND END OF BUFFER RF(NE) COR:10 NO! CALL READC READ SECTOR COR:10 LDR A4,A8 START OF RECORD RTN A14 XIF IFT CFTEST+CASS=2 CON:40 EQU * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 TAPEMARK? ABL(NZ) CONEX YES! LDR A8,A9 LDR A4,A8 GET START OF BUFFER RTN A14 XIF IFT CFTEST=1 MEMOFL EQU * LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR EJECT READC EQU * CF A14,RDSEC READ SECTOR LDR A8,A9 LDR A4,A8 GET START OF BUFFER RTN A14 T EQU * LCR A5,A4 GET CHARACTER CCK A5,'TT' BLOCK TYPE T? T:10 EQU *-2 ABL(NE) CONERR ADK A4,1 INCREMENT BUFFER POINTER LCR A5,A4 GET NEXT CHARACTER CCK A5,';;' END OF RECORD? ABL(NE) CONERR NO! RTN A14 EJECT NNL EQU * LDK A3,3 NO OF DIGITS IN LINE NUMBER CF A14,NUMB LOOK IF LEGAL DIGITS LDR A1,A1 SET RETURN CONDITION ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED * LCR A5,A4 GET NEXT CHARACTER CCK A5,'LL' LINE L? RF(E) NN:40 YES! CCK A5,'RR' LINE R? RF(E) NN:40 YES! CCK A5,'AA' LINE A? RF(E) NN:40 YES! CCK A5,'SS' LINE S? RF(E) NN:40 YES! CCK A5,'PP' LINE P? RF(E) NN:40 YES! CCK A5,'VV' LINE V? RF(E) NN:40 CCK A5,'QQ' LINE Q? RF(E) NN:40 YES! RF CONERR NN:40 EQU * ADK A4,1 INCREMENT BUFFER POINTER RF NN:50 * NN EQU * LDK A3,2 NO OF DIGITS IN NUMBER CF A14,NUMB LOOK IF LEGAL DIGITS LDR A1,A1 SET RETURN CONDITION RF(Z) CONERR '00' NOT ALLOWED * RF NN:50 LOOK IF END IF RECORD * NN1 EQU * LDK A3,2 NO OF DIGITS IN NUMBER CF A14,NUMB LOOK IF LEGAL DIGITS ST A5,NDEVCL+STKEND SAVE NUMBER NN:50 LCR A5,A4 GET CHARACTER CCK A5,';;' END OF RECORD? RF(NE) CONERR NO! RTN A14 EJECT AA EQU * LDK A3,2 AA:10 EQU * LCR A5,A4 GET CHARACTER CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30? RF(L) CONERR YES! CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? RF(NG) AA:20 NO! CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? RF(L) CONERR CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? RF(G) CONERR AA:20 EQU * ADK A4,1 INCREMENT BUFFER POINTER SUK A3,1 RB(NZ) AA:10 LCR A5,A4 GET NEXT CHARACTER CCK A5,';;' END OF RECORD? RF(NE) CONERR NO! RTN A14 EJECT TID EQU * LDKL A2,SEQ1 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 TCL EQU * LDKL A2,SEQ2 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 LEV EQU * LDKL A2,SEQ3 SELECT SEQUENCE LDK A3,4 GET NUMBER OF CHARACTERS RTN A14 EJECT TDCT EQU * LDKL A2,SEQ4 SELECT SEQUENCE LDK A3,5 GET NUMBER OF CHARACTERS RTN A14 LC EQU * LDKL A2,SEQ5 SELECT SEQUENCE LDK A3,3 GET NUMBER OF CHARACTERS RTN A14 SDCS EQU * LDKL A2,SEQ6 SELECT SEQUENCE LDK A3,5 GET NUMBER OF CHARACTERS RTN A14 EJECT TEST EQU * LCR A5,A4 GET CHARACTER CCR A5,A2 RF(NE) CONERR ADK A4,1 INCREMENT BUFFER POINTER ADK A2,1 INCREMENT SEQUENCE POINTER SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? RB(NZ) TEST YES! RTN A14 EJECT SUKASC EQU * CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10? RF(NE) SUK:10 YES! SUK A5,/F6 N0! SUK:10 SUK A5,1 ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES RTN A14 EJECT NUMB EQU * LDK A1,0 RESET NO OF NON ZERO DIGITS NUMB00 EQU * LCR A5,A4 GET DIGIT IN NUMBER ADK A4,1 INCREMENT BUFFER POINTER CCK A5,/3939 NUMERIC CHARACTER >9? RF(G) CONERR YES! * CCK A5,/3030 NUMERIC CHARACTER <0? RF(L) CONERR YES! RF(Z) NUMB10 NUMERIC CHARACTER =0 * ADK A1,1 INCREMENT NO OF NON ZERO DIGITS NUMB10 EQU * SUK A3,1 DECREMENT DIGIT COUNTER RF(Z) NUMB20 ALL DIGITS PROCESSED * SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE RB NUMB00 PROCESS NEXT DIGIT * NUMB20 EQU * RTN A14 RETURN EJECT * * ************************************************** * * * SEQUENCES * * * ************************************************** * * * * SEQ1 EQU * TID= DATA 'TI' DATA 'D=' SEQ2 EQU * TCL= DATA 'TC' DATA 'L=' SEQ3 EQU * LEV= DATA 'LE' DATA 'V=' SEQ4 EQU * TDC=T DATA 'TD' DATA 'C=' DATA 'T0' SEQ5 EQU * LC= DATA 'LC' DATA '=0' SEQ6 EQU * SDC=S DATA 'SD' DATA 'C=' DATA 'S0' XIF IFT CFTCAS+CASS=2 * * PROGRAM LOAD DEVICE = CASSETTE * CON:30 EQU * LDR A1,A9 START OF BUFFER ADKL A1,BUFLEN END OF BUFFER ST A1,PLDADR+STKEND SAVE END OF BUFFER ST A1,EINPBF+STKEND SAVE ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA 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,EINPBF+STKEND GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A9 GET START 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,ESYSTA+STKEND 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,EINPBF+STKEND SAVE CURRENT DESTINATION LDR A1,A9 GET START OF BUFFER CALL MOVE RB CON:40 CONEX EQU * * * UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE * CF A14,RDBLK READ NEXT BLOCK LDR A1,A1 APPLICATION DATA? RF(NZ) CON:80 NO! LDK A1,/D CF A14,CHCRIO SEARCH TAPEMARK REVERSE CF A14,RDBLK BYPASS TAPEMARK RF CON:90 CON:80 EQU * LDK A1,/F CF A14,CHCRIO UNLOAD CASSETTE CON:90 EQU * ABL CONMOV XIF CONERR EQU * LDKL A1,LMP4 CALL ERROR IFF CFTEST=1 MEMOFL EQU * LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR EJECT CONRAD EQU * * * LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC * LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA RF(Z) CONRA0 SAME AS PGM LOAD DEVICE * CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. CONRA0 EQU * LD A11,CONDAD+STKEND GET START SECTOR LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART LDR A1,A9 GET START OF BUFFER ADKL A1,BUFLEN-6 END OF BUFFER ST A1,PLDADR+STKEND SAVE END OF BUFFER LDR A1,A9 GET START OF BUFFER AD A1,SAVCON START OF SAVE BUFFER ST A1,EINPBF+STKEND SAVE =2 ST A1,CONSTA+STKCOM LDKL A10,0 RESET RECORD COUNTER COR:10 EQU * * * READ ONE SECTOR FROM RANDOM ACCESS DEVICE * CF A14,RDSEC READ SECTOR LDR A8,A9 GET START OF BUFFER COR:20 EQU * * * COMPUTE NUMBER OF CHARACTERS IN THIS RECORD * LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER LDR A2,A1 SAVE LDK A3,0 RESET CHARACTER COUNTER LDR A4,A8 START OF RECORD * * LOOK IF WE HAVE AN * APPLICATION CONTROL BLOCK * LDR* A5,A4 GET 1ST WORD IN BUFFER CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? RF(E) COR:25 YES! * CWK A5,'A;' AND LOOK IF IT IS 'A;' RF(NE) COR:30 NO! * LDKL A5,/FF3B YES, SUBSTITUTE A; WITH STR A5,A4 'HEX FF' AND ';' LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK ADK A1,1 SKIP BLOCK MARKER ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK LDR A1,A8 START OF RECORD ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE CALL MOVE ADKL A10,2 SKIP NEXT RECORD * ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,PLDADR+STKEND END OF BUFFER? RF(L) COR:48 NO! * CF A14,RDSEC YES, READ NEXT SECTOR LDR A8,A9 AND GET START OF BUFFER RF COR:48 * COR:25 EQU * LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6 SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 ST A5,DCBLK+STKCOM SAVE =6 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,ESYSTA+STKEND 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,EINPBF+STKEND SAVE CURRENT DESTINATION LDR A1,A8 START OF RECORD CALL MOVE ADKL A10,1 INCREMENT RECORD COUNTER CW A10,LSTREC+STKEND LAST RECORD RF(E) COR:50 YES! COR:48 EQU * ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,PLDADR+STKEND END OF BUFFER RB(E) COR:10 NEXT SECTOR RB COR:20 NEXT RECORD COR:50 EQU * LD A1,SCTOPT GET OPTION WORD ANK A1,8 SWB:S? RF(Z) COR:55 NO LDK A3,'S' SC A3,GET:25+1 MODIFY INSTRUCTION SC A3,GET:60+1 MODIFY INSTRUCTION LD A1,IPLDEV+STKEND CF A14,LODDEV INITIALIZE PGM LOAD DEVICE CF A14,GETFIL * * UNLOCK FLEXIBLE DISC * COR:55 EQU * LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE RF(Z) COR:58 SAME AS APPL. LOAD DEVICE * LDR A2,A1 ANK A2,/F SUK A2,9 RF(NZ) COR:58 NOT FLEXIBLE DISC XIF IFT CFTFLD+FLDISC=2 CF A14,UNLOCK UNLOCK FLEXIBLE DISC XIF IFF CFTEST=1 COR:58 EQU * LD A1,SCTIPL GET PROGRAM LOAD DEVICE SUK A1,/F8 CHECK TYPE RF(N) COR:60 NOT FLEXIBLE DISC * SUK A1,/FC-/F8 FLEXIBLE DISC? RF(NN) COR:60 NO! * XIF IFT CFTFLD+FLDISC=2 LD A2,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) COR:60 YES! DON'T UNLOCK * LD A1,IPLDEV+STKEND CF A14,UNLOCK UNLOCK FLEXIBLE DISC XIF IFF CFTEST=1 IFF CFTEST=1 COR:60 EQU * EJECT CONMOV EQU * * * MOVE CONFIGURATION DATA TO END OF SYSTEM AREA * CIO A1,0,SOP INHIBIT SOP SWITCHES LDR A1,A9 GET START OF BUFFER AD A1,SAVCON COMPUTE END OF BUFFER CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA LD A2,ESYSTA+STKEND 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 ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA SUR A2,A3 TO-ADDRESS * ANKL A2,/FFFE MAKE EVEN ADDRESS CALL MOVE ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH ANKL A1,/FFFE AND MAKE EVEN ST A1,CONLEN+STKCOM 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+STKCOM SAVE RELOCATION CONSTANT LD A2,SCTMXS GET MXSTAB ADDRESS =1 RF(Z) CMOV20 NO MXSTAB PRESENT =1 * =1 ADR A2,A12 RELOCATE MXSTAB ADDRESS =1 ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 CMOV20 EQU * =1 LD A2,CONSTA+STKCOM GET START OF CONFF * * MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA * MOPRO EQU * LDKL A13,SYSLDM SUK A1,2 SUK A2,2 LDR* A4,A1 STR A4,A2 CWR A1,A13 RB(NE) MOPRO ABR A2 CONTINUE EXECUTION IN SYSLDM XIF EJECT ************************************************************************ * SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O ************************************************************************ ******************************* * SOPIN - READ SOP SWITCHES * * ========================= * * * * ENTRY: * * * * EXIT: A1 - SOP INPUT * * BIT 6 - SWITCH 1 * * BIT 15 - SWITCH 10 * * * * WORK REGISTERS: A1 * * * * SUBROUTINES: * * * ******************************* SOPIN EQU * CIO A1,1,SOP INR A1,0,SOP RB(NA) *-2 RTN A14 EJECT *********************************** * * * LODDEV - INITIAZE LOAD UNIT * * =========================== * * * * USED FOR CONFIGURATION OF * * PROGRAM LOAD DEVICE AND * * CONFIGURATION DATA LOAD * * DEVICE (IF DIFFERENT). * * * * ON ENTRY: A1=DEVICE ADDRESS * * ON EXIT: A2=FILE CODE * * * *********************************** LODDEV EQU * LDKL A3,BUFLEN ST A3,SAVCON INITIALIZE BUFFER LENGTH LDKL A2,-1 ST A2,CYLNBR SET SEEK CONDITION LDR A2,A1 ANK A2,/80 CHECK IF CASSETTE =9 RF(P) CASS:0 YES! * LDR A2,A1 GET PROGRAM LOAD DEVICE SRL A2,4 BIT15 INDICATE UNIT 1 OR 2 LC A3,IPLTYP+1+STKEND GET DEVICE TYPE ANK A3,/FF SUK A3,3 RF(N) DISC:0 DISC RF(Z) MFD:0 MINI FIXED DISC SUK A3,3 =9 RF(N) CDC:0 80M CDC DISC RF FLEX:0 FLEXIBLE DISC EJECT CASS:0 EQU * IFT CASS=1 * * PROGRAM LOAD DEVICE = CASSETTE * LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK CM APLADA+2,A1 CLEAR APPLICATION DISC CM APLADA+4,A1 FILE ADDRESS ENTRIES LDKL A1,RDBLK GET SUBROUTINE ADDRESS LDR A10,A1 ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE CASS:2 EQU * CF A14,RDBLK READ ONE CASSETTE BLOCK LDR A1,A1 TAPE MARK? RF(Z) FINIS RETURN * CF A14,CASSIN INIT APPLICATION CASSETTE RB CASS:2 XIF IFF CASS=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT FLEX:0 EQU * IFT FLDISC=1 * * PROGRAM LOAD DEVICE = FLEXIBLE DISC * * * MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2 * ORK A2,/F8 ST A2,FILCOD+STKEND SAVE FILE CODE * * INIT FLEXIBLE DISC * CF A14,FDINIT RF FINISH * XIF IFF FLDISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT MFD:0 EQU * IFT MFDISC=1 * * PROGRAM LOAD DEVICE = MINI FIXED DISC * * MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 * ORK A2,/F4 ST A2,FILCOD+STKEND SAVE FILE CODE * * INIT MINI FIXED DISC * CF A14,MDINIT RF FINISH RETURN * XIF IFF MFDISC=1 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT DISC:0 EQU * IFT DISC=1 * * PROGRAM LOAD DEVICE = DISC * * * MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC * LC A2,FCTAB,A2 LOAD FILE CODE =5 ST A2,FILCOD+STKEND SAVE FILE CODE * * INITIALIZE DISC COMMANDS * CF A14,DUINIT XIF IFF DISC=1 LDKL A1,LMP9 CALL ERROR XIF FINISH EQU * LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE FINIS EQU * LD A2,FILCOD+STKEND RESTORE FILE CODE RTN A14 EJECT CDC:0 EQU * IFF CDDISC+CDDI16=0 * * PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC * * * MODIFY SCTIPL: /FC - /FD * SRC A2,2 TEST IF UNIT 1 OR 2 =9 RF(NN) CDC:1 UNIT 1 =9 ADK A2,2 =9 CDC:1 EQU * =9 ANK A2,7 MASK BITS NOT USED =9 ORK A2,/FC FILE CODE ST A2,FILCOD+STKEND SAVE FILE CODE * * INITIALISE DISC COMMANDS * CF A14,CDINIT INIT DEVICE RB FINISH RETURN XIF IFT CDDISC+CDDI16=0 =9 LDKL A1,LMP9 CALL ERROR ILLEGAL MONITOR OPTION XIF EJECT ******************************************************* * * * CONFLD - SELECT LOAD UNIT FOR CONF. DATA * * ======================================== * * * * ON ENTRY: A1 = DEVICE ADDRESS * * * ******************************************************* CONFLD EQU * LDKL A2,-1 ST A2,CYLNBR SET SEEK CONDITION LDR A2,A1 SAVE DEVICE ADDRESS ANK A2,/F ISOLATE LAST DIGIT SUK A2,7 RB(N) MFD:0 MINI FIXED DISC * RB(Z) CDC:0 80M CDC DISC * SUK A2,1 RB(Z) DISC:0 DISC DEVICE * RB FLEX:0 FLEXIBLE DISC DEVICE EJECT IFT CASS=1 ******************************************************* * 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 START OF BUFFER LDK A2,0 RESET CHARACTER COUNTER LDR A4,A3 SAVE START OF BUFFER ADKL A3,CBLEN END OF BUFFER LDK A1,/A CIO A1,1,CHCR READ BLOCK RF(NA) RDERR3 RDB:20 EQU * INR A1,0,CHCR RF(NA) RDB:30 CWR A4,A3 END OF BUFFER? RF(E) RDERR YES! SCR A1,A4 STORE CHARACTER ADK A2,1 INCREMENT CHARACTER COUNTER ADK A4,1 INCREMENT BUFFER POINTER RDB:30 EQU * SST A1,CHCR RB(NA) RDB:20 ANKL A1,/FCFF CHECK STATUS LDR A4,A1 SAVE STATUS RF(Z) RDBEX OK SLC A4,3 CHECK IF TAPEMARK RF(N) RDBEX OK IF TAPEMARK RDERR EQU * * * READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ * THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE * ADK A5,1 NEXT ATTEMPT CWK A5,3 THIRD ATTEMPT? RF(E) RDERR3 YES - GIVE UP! LDK A1,/E REVERSE ONE BLOCK CIO A1,1,CHCR EXECUTE ORDER RB(NA) *-2 LOOP UNTIL ACCEPTED RB RDB:10 RDERR3 EQU * LDKL A1,LMP2 CALL ERROR RDBEX EQU * RTN A14 XIF IFT DISC=1 EJECT *********************************** * * * DUINIT - INITIALIZE DISC UNIT * * ============================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: * * * *********************************** DUINIT EQU * LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS LDR A5,A1 SAVE FILE CODE EJECT * * INIT DISC COMMANDS VERSION A2 * ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. ST A1,SEEK20 ORKL A1,/800 FORM SST A1,XX INSTR. ST A1,SEEK21 XRKL A1,/B00 FORM CIO A2,1,XX INSTR. ST A1,READ21 ORKL A1,/800 FORM SST A2,XX INSTR ST A1,READ22 ST A2,READ INIT SUBROUTINE ADDRESSES ST A2,READS LDK A2,4 XRS A2,CRCCHK DISCARD CRC CHECK CF A14,GETVLB GET VOLUME LABEL LDK A2,4 ORS A2,CRCCHK SET CRC CHECK LC A2,FORDEV,A9 GET FORMAT ANK A2,1 RF(Z) DUI:50 FORMAT A2 * LDR A1,A5 RESTORE FILE CODE LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS * * INIT DISC COMMANDS VERSION A3 * LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 ST A3,SAVCON BUFFER LENGTH VERSION A3 ORKL A1,CIO+8 XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. ST A1,SEEK30 ORKL A1,/800 FORM SST A4,XX INSTR. ST A1,SEEK31 XRKL A1,/E00 FORM CIO A2,1,XX INSTR. ST A1,READ30 ORKL A1,/800 FORM SST A2,XX INSTR. ST A1,READ31 * * INIT SUBROUTINE ADDRESSES * DUI:40 ST A2,READ READ PROGRAM ST A2,READS READ CONFIGURATION DATA DUI:50 EQU * RTN A14 EJECT *********************************************** * * * RDSEC - READ ONE SECTOR FROM DISC * * ================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * * A11 - SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4,A7 * * * SUBROUTINES: ERROR * * * *********************************************** * EJECT * * READ DISC SECTOR VERSION A2 * RDSEC2 EQU * LDK A2,0 LDR A1,A11 GET LOGICAL SECTOR NUMBER DIV200 EQU * ADR A2,A1 SRL A1,5 RB(NZ) DIV200 MORE IN SERIE TO ADD LDR A1,A2 ANKL A1,/FFE0 SRL A2,5 SUR A1,A2 SUR A1,A11 ADK A1,31 RF(P) DIV210 NO CORRECTION OF RESULT ADK A2,1 DIV210 EQU * LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 RF(Z) DIV220 CYLINDER 0 ADK A2,1 DIV220 EQU * ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING * LDR A1,A2 SRL A1,5 CW A1,CYLNBR RF(E) INT200 SAME CYLINDER NUMBER ST A1,CYLNBR SLL A1,3 ORK A1,2 SET BIT 14 EJECT * * SEEK CYLINDER * SEEK20 CIO A1,1,0 RB(NA) SEEK20 * SEEK21 SST A1,0 RB(NA) SEEK21 * * INTERLACING * INT200 EQU * LDR A1,A2 ADR A2,A2 ADR A2,A1 INTERLACING FACTOR 3 ANK A2,/1F LD A1,CYLNBR GET CYLINDER NUMBER ANK A1,1 RF(Z) INT210 EVEN CYLINDER ADK A2,8 INT210 EQU * ANK A2,/1F SLL A2,2 PHYSICAL SECTOR AND ORDER CODE ST A2,SECNBR EJECT * * READ SECTOR * LDR A1,A9 BUFFER ADDRESS READ20 LDKL A4,MUXCC NUMBER OF WORDS WERIO2 WER A4,/10 WRITE NUMBER OF WORDS WER A1,/11 WRITE BUFFER ADDRESS READ21 CIO A2,1,0 READ SECTOR RB(NA) READ21 LOOP UNTIL ACCEPTED READ22 SST A2,0 STATUS RB(NA) READ22 LOOP UNTIL ACCEPTED CRCCHK EQU * ANK A2,/1F STATUS RF(NZ) DUERR READING ERROR ADKL A11,1 INCREMENT SECTOR COUNTER RTN A14 EJECT * * READ DISC SECTOR VERSION A3 * RDSEC3 EQU * LDK A2,0 LDR A1,A11 GET LOGICAL SECTOR NUMBER LDKL A7,/1000 LDKL A4,/3000 DIV300 EQU * SUR A1,A4 RF(N) DIV310 ADR A2,A7 RB DIV300 DIV310 EQU * ADR A1,A4 ADJUST DIVIDEND SRL A4,4 SRL A7,4 RB(NZ) DIV300 ADR A2,A2 * SUK A1,1 ST A1,SAVMEM RF(NP) CASE10 ,XXXX , , OR , XX,XX , ADK A2,1 , , XXXX, CASE10 EQU * LDR A4,A2 SRL A4,5 CW A4,CYLNBR RF(E) INT300 ST A4,CYLNBR STORE NEW CYLINDER NUMBER SLL A4,3 ORK A4,2 SET BIT 14 EJECT * * SEEK CYLINDER * SEEK30 CIO A4,1,0 RB(NA) SEEK30 * SEEK31 SST A4,0 GET STATUS RB(NA) SEEK31 * * INTERLACING * INT300 EQU * LDR A3,A2 ADR A2,A2 ADR A2,A3 INTERLACING FACTOR 3 ANK A2,/1F LD A4,CYLNBR GET CYLINDER NUMBER ANK A4,1 RF(Z) INT310 EVEN CYLINDER NUMBER ADK A2,8 SKEW FACTOR 180 DEG. * INT310 EQU * ANK A2,/1F SLL A2,2 INTERLACED SECTOR NUMBER ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER EJECT * * READ SECTOR * LDR A7,A9 BUFFER ADDRESS READ34 LDKL A4,MXCCD3 NUMBER OF WORDS WERIO3 WER A4,/10 WRITE NUMBER OF WORDS WER A7,/11 WRITE BUFFER ADDRESS * READ30 CIO A2,1,0 READ SECTOR RB(NA) READ30 LOOP UNTIL ACCEPTED * READ31 SST A2,0 GET STATUS RB(NA) READ31 LOOP UNTIL ACCEPTED ANK A2,/1F STATUS RF(NZ) DUERR READING ERROR LDR A2,A9 BUFFER ADDRESS LDR A1,A1 RF(N) RETURN ,XXXX , , RF(P) READ33 , , XXXX, ADKL A2,256 SOURCE POINTER LDK A4,64 NUMBER OF WORDS TO MOVE READ32 EQU * , XX,XX , LDR* A1,A2 STR A1,A7 ADK A2,2 ADK A7,2 SUK A4,1 RB(NZ) READ32 CONTINUE MOVING LD A1,SAVMEM RF(P) RETURN LD A2,SECNBR PHYSICAL SECTOR NUMBER ADK A2,/C NEW SECTOR TO READ ANK A2,/7C SUK A1,1 RB READ34 EJECT READ33 EQU * ADK A2,128 SOURCE POINTER LDK A4,128 NUMBER OF WORDS TO MOVE RB READ32 RETURN ADKL A11,1 INCREMENT SECTOR NUMBER RTN A14 DUERR EQU * LDKL A1,LMP2 CALL ERROR XIF IFT MFDISC=1 EJECT ******************************************************** * * * MDINIT - INITIALIZE MINI FIXED DISC UNIT * * ======================================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 = DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: ERROR * * * ******************************************************** MDINIT EQU * * * INIT MINI FIXED DISC COMMANDS * MDI:00 EQU * ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. ST A1,READM2 ORKL A1,/800 FORM SST A1,XX INSTR. ST A1,READM3 XRKL A1,/B00 FORM CIO A2,1,XX INSTR. ST A1,SEEKM1 ORKL A1,/800 FORM SST A2,XX INSTR. ST A1,SEEKM2 EJECT * LDKL A2,MRDSEC GET SUBROUTINE ADDRESS ST A2,READ ST A2,READS RTN A14 EJECT ****************************************************** * * * MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC * * ============================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * A11 = SECTOR NUMBER * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ***************************************************** MRDSEC EQU * LDK A1,0 PREPARE FOR DIVISION LDR A2,A11 GET LOGICAL SECTOR NUMBER DVK 104 DIVIDE BY 104 SLL A2,2 ORK A2,3 SET BIT 14 AND 15 * * A1=SECTOR NUMBER ON CYLINDER * A2=CYLINDER NUMBER * ST A1,SECNBR STORE SECTOR NUMBER CW A2,CYLNBR RF(E) INTM10 SAME CYLINDER NUMBER ST A2,CYLNBR STORE CYLINDER NUMBER EJECT * * SEEK CYLINDER * SEEKM1 CIO A2,1,0 SEEK COMMAND RB(NA) SEEKM1 LOOP UNTIL ACCEPTED * SEEKM2 SST A2,0 GET STATUS RB(NA) SEEKM2 WAIT UNTIL ACCEPTED * * INTERLACING * INTM10 EQU * CWK A1,52 RF(L) INTM20 SECTOR 0-51 SUK A1,52 SECTOR 52-103 INTM20 EQU * LDR A2,A1 SLL A2,2 A2:=4*SECTOR NUMBER LDK A1,0 PREPARE FOR DIVISION DVK 52 ADR A1,A2 A1:=INTERLACED SECTOR NUMBER * * A1:=INTERLACED SECTOR NUMBER * LD A2,CYLNBR GET CYLINDER NUMBER SRC A2,3 RF(NN) INTM30 EVEN CYLINDER NUMBER SUK A1,26 SKEW FACTOR 26 RF(NN) INTM30 ADK A1,52 INTM30 EQU * SLL A1,2 LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING CWK A2,52 RF(L) INTM40 HEAD NUMBER 0 ORKL A1,/4000 HEAD NUMBER 1 INTM40 EQU * * * READ SECTOR * READM1 EQU * LDKL A4,MUXCC NUMBER OF WORDS LDR A7,A9 BUFFER ADDRESS * WERIOM WER A4,8 WRITE NUMBER OF WORDS WER A7,9 WRITE BUFFER ADDRESS * READM2 CIO A1,1,0 READ SECTOR RB(NA) READM2 LOOP UNTIL ACCEPTED * READM3 SST A1,0 GET STATUS RB(NA) READM3 LOOP UNTIL ACCEPTED ANK A1,/1F STATUS RF(NZ) MFDERR READING ERROR ADKL A11,1 INCREMENT SECTOR NUMBER RTN A14 MFDERR EQU * LDKL A1,LMP2 CALL ERROR XIF IFT FLDISC=1 EJECT ************************************************ * * * FDINIT - INITIALIZE FLEXIBLE DISC * * ================================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ************************************************ FDINIT EQU * ANK A1,/10 ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. ST A1,FRD:10 LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE LDK A1,3 SEEK ORDER EX FRD:10 SEEK TO ZERO FDI:05 EQU * EX SEKSST RB(NA) FDI:05 * ANK A1,/10 RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE * LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 ST A1,FRD:20 MODIFY INR INSTRUCTION LDKL A1,/41F ST A1,FRD:42 MODIFY SST MASK LDKL A1,/C00 ST A1,RELEAS MODIFY RELEAS ORDER LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE FDI:10 EQU * ST A2,READ ST A2,READS CF A14,GETVLB GET VOLUME LABEL LD A1,FORDEV,A9 GET FORMAT ST A1,DEVTYP+STKEND RTN A14 EJECT ******************************************** * * * * * UNLOCK - UNLOCK FLEXIBLE DISC * * ============================= * * * * ON ENTRY: A1 = DEVICE ADDRESS * * * ******************************************** UNLOCK EQU * CF A14,FDINIT INIT UNLOCK ORDER RELEAS EQU *+2 LDKL A1,/C EX FRD:10 EXECUTE UNLOCK COMMAND RB(NA) *-4 LOOP UNTIL ACCEPTED * EX FRD:40 SENSE STATUS RB(NA) *-4 LOOP UNTIL ACCEPTED 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 A2,A11 GET SECTOR NUMBER LDKL A4,/340 26 SHIFTED 10 STEPS LEFT LD A1,DEVTYP+STKEND DEVICE TYPE ANK A1,1 RF(Z) SNHEAD 0,25 MEG FLOPPY DISC CWK A2,13 RF(NL) NOTCY0 NOT CYLINDER 0 SNHEAD EQU * SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR RF DVK26 NOTCY0 EQU * ADK A2,13 EJECT * * A2=PHYSICAL SECTOR NUMBER * DVK26 EQU * LDK A1,0 DVK26A EQU * SLL A1,5 DVK26B EQU * SUR A2,A4 RF(N) DVK26C ADK A1,1 RB DVK26B DVK26C EQU * ADR A2,A4 SRL A4,5 RB(NZ) DVK26A NEXT FIVE BITS EJECT * * A2=SECTOR NUMBER * A1=CYLINDER NUMBER * LD A4,DEVTYP+STKEND DEVICE TYPE ANK A4,1 RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD SLL A1,1 ONLY ONE HEAD DBHEAD EQU * LDR A4,A1 ANK A4,1 SRC A4,2 HEAD NUMBER IN CORRECT POSITION SLL A2,2 SECTOR NUMBER IN CORRECT POSITION ORR A2,A4 A2=CIO READ REGISTER SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION ORK A1,3 A1=CIO SEEK REGISTER CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER RF(E) NOSEEK NO SEEK NEEDED ST A1,CYLNBR SAVE CYLINDER NUMBER FDSEEK EX FRD:10 CIO START RB(NA) FDSEEK SEKSST SST A1,FDCU RB(NA) SEKSST ANKL A1,/611 RF(NZ) FRD:50 SEEK ERROR NOSEEK EQU * LDR A1,A2 RF FRD:05 EJECT FRDS25 EQU * LDR A1,A11 SECTOR NO SLL A1,4 ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) FRD:05 EQU * LDKL A2,MUXCC LD A3,MXBUF BUFFER ADDRESS WER A2,FDIOP 1:ST WER WER A3,FDIOP+1 SECOND WER LDR A2,A3 BUFFER START ADDRESS AD A2,SAVCON BUFFER END ADDRESS * FRD:10 CIO A1,1,FDCU START READ RB(NA) FRD:10 * EJECT CRVOL * * FRD:20 INR A1,0,FDCU RF(NA) FRD:40 =4 STR A1,A3 ADK A3,2 CWR A3,A2 RB(NE) FRD:20 * FRD:25 CIO A1,0,FDCU STOP READ RB FRD:20 FRD:40 SST A1,FDCU RB(NA) FRD:20 FRD:42 EQU *+2 ANKL A1,/4E15 FATAL ERROR ? RF(NZ) FRD:50 YES! FRD:43 CWR A3,A2 =4 RF(E) FRD:44 PROGRAMMED CHANNEL =4 LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 ST A1,FRD:20 UPDATE INR ISTR. =4 FRD:44 EQU * =4 LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 ST A1,FRD:43 UPDATE CWR INSTR. =4 ABI READ READ AGAIN =4 FRD:45 EQU * ADKL A11,1 INCRMENT SECTOR ADDRESS RF(NN) FRD:48 SUR A11,A11 RESET LEAST SIGN. PART OF D.A. ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. RF(O) FRD:50 DISC ADDRESS ERROR FRD:48 EQU * RTN A14 FRD:50 EQU * LDKL A1,LMP2 CALL ERROR FRD:B1 EQU FRD:40-FRD:20-2 =4 FRD:B2 EQU FRD:45-FRD:43-2 =4 XIF IFT CDDISC=1 IFT CDDI16=0 =9 EJECT *********************************** * * * CDINIT - INITIALIZE DISC UNIT * * ============================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A1,A2 * * * * SUBROUTINES: * * * *********************************** CDINIT EQU * * * INIT 80M CDC DISC COMMANDS * ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. ST A1,READC1 ORKL A1,/800 FORM SST A1,XX INSTR. ST A1,READC2 XRKL A1,/B00 FORM CIO A2,1,XX INSTR. ST A1,SEEKC1 ORKL A1,/800 FORM SST A2,XX INSTR. ST A1,SEEKC2 LDKL A2,-1 ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR LDKL A2,/300 BUFLEN 80M CDC DISC ST A2,SAVCON SAVE LENGTH LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. ST A2,READ ST A2,READS RTN A14 EJECT *********************************************** * * * CRDSEC- READ ONE SECTOR FROM DISC * * ================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * * * A11 - SECTOR NBR LEAST SIGNIFICANT * * A12 - SECTOR NBR MOST SIGNIFICANT * * * * EXIT: A12,A11 = A12,A11 + 1 * * * * WORK REGISTERS: A1,A2,A3,A6 * * * * SUBROUTINES: ERROR * * * *********************************************** * CRDSEC EQU * * * SET BUFFER ADDRESS * LDR A1,A9 BUFFER ADDRESS ADKL A1,256 ST A1,CIOAD2 ADDRESS 2 ADKL A1,256 ST A1,CIOAD3 ADDRESS 3 LDKL A1,/3FFF ANS A1,CIOTAB RESET BITS ANS A1,CIOTOT RESET BITS LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT EJECT * * DIVIDE LOGICAL WITH 3 * LDK A3,0 RED100 EQU * ADK A3,1 SUK A1,3 RB(NN) RED100 ADK A1,3 SUK A3,1 DVK 3 CW A9,CIOAD1 RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ CW A2,PSECNL+STKEND RF(NE) RED110 NOT SAME PHYSICAL SEC NBR CW A3,PSECNM+STKEND RF(NE) RED110 NOT SAME PHYSICAL SEC NBR CW A1,PSECPA+STKEND RF(E) TURN SAME LOG SEC AS BEFORE RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR RED110 EQU * ST A9,CIOAD1 ADDRESS 1 MS 3,PSECPA+STKEND SAVE NEW VALUES LDR A1,A3 DVK 115 EJECT * A1=HEAD NBR * SECTOR NBR * A2=CYLINDER NBR LDR A3,A2 LDR A2,A1 LDK A1,0 DVK 23 * A1=SECTOR NBR * A2=HEAD NBR ORKL A2,/800 SET INTERRUPT BIT ST A2,CIOTAB UPDATE CIO TABLE EJECT * * INTERLACING * LDR A2,A1 MUK 5 INTERLACING 5 SLC A3,1 RF(NN) INT100 EVEN CYLINDER NUMBER ADK A2,12 SKEW FACTOR INT100 EQU * DVK 23 SLL A1,5 IN POSITION ORS A1,CIOTAB UPDATE CIO TABLE SRC A3,1 RESTORE A3 CW A3,CYLNBR RF(E) READER SAME CYLINDER NUMBER EJECT * * SEEK * ST A3,CYLNBR SAVE CYLINDER NBR ADKL A3,/A800 SEEK COMMAND ST A3,SEKTAB LDKL A2,SEKTAB SEEKC1 EQU * CIO A2,1,0 SEEK RB(NA) SEEKC1 SEEKC2 EQU * SST A2,0 RB(NA) SEEKC2 EJECT * * READ * READER EQU * LDK A6,3 NUMBER OF RETRIES REA100 EQU * LDKL A1,CIOTAB POINTER TO CIO TABLE READC1 CIO A1,1,0 READ RB(NA) READC1 LOOP UNTIL ACCEPTED * READC2 SST A1,0 STATUS RB(NA) READC2 LOOP UNTIL ACCEPTED ANKL A1,/FF0F STATUS RF(NZ) RET30 READING ERROR LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 TURN EQU * ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER RF(O) TURN10 OVERFLOW RF TURN20 TURN10 EQU * SUR A11,A11 RESET A11 ADKL A12,1 TURN20 EQU * RTN A14 EJECT * * MOVE UP NEXT LOGICAL SECTOR * REDMOV EQU * ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART SLL A1,2 INDEX TO TABLE LD A1,CIOAD1,A1 SOURCE ADDRESS LDR A2,A9 DESTINATION ADDRESS LDK A3,128 LENGTH IN WORDS RMOV10 EQU * LDR* A6,A1 STR A6,A2 ADK A1,2 ADK A2,2 SUK A3,1 RB(P) RMOV10 NEXT WORD RB TURN NOFOND EQU * LDKL A1,LMP2 CALL ERROR INDICATE READING ERROR EJECT * * IO ERROR IN READING * RET30 EQU * SUK A6,1 RB(NZ) REA100 NEW TRY LC A1,CIOTAB ANK A1,/C0 RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S LDKL A2,/8000 ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE RB READER RET31 EQU * ANK A1,/80 RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE LDKL A2,/C000 XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S RB READER RET32 EQU * LDKL A2,/3FFF ANS A2,CIOTAB RESET LATE DATA STROBE LC A1,CIOTOT ANK A1,/C0 RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- LDKL A2,/8000 ORS A2,CIOTOT PREPARE FOR CARRIAGE+ RB READER RET33 EQU * ANK A1,/80 RB(Z) NOFOND READING ERROR LDKL A2,/C000 XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- RB READER EJECT * * SEEK TABLE * SEKTAB EQU * DATA 0 * * CIO TABLE * CIOTAB EQU * DATA 0 ORDER,SECTOR NBR,HEAD NBR CIOTOT EQU * DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR) CIOPA1 EQU * DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS CIOAD1 EQU * DATA 0 ADDRESS 1 CIOPA2 EQU * DATA /4000+128 CIOAD2 EQU * DATA 0 ADDRESS 2 CIOPA3 EQU * DATA 128 CIOAD3 EQU * DATA 0 ADDRESS 3 XIF IFT CDDI16=1 =9 EJECT *********************************** * * * CDINIT - INITIALIZE DISC UNIT * * ============================= * * * * REFERENCED IN: SYSLOD,GETFIL * * * * ENTRY: A1 - DEVICE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A1,A2 * * * * SUBROUTINES: * * * *********************************** CDINIT EQU * * * INIT 16M OR 80M CDC DISC COMMANDS * LDR A2,A1 =9 ANK A1,/3F MASK DEVICE ADDRESS =9 SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 ANK A2,/10 =9 ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. ST A1,READC1 ORKL A1,/800 FORM SST A1,XX INSTR. ST A1,READC2 XRKL A1,/B00 FORM CIO A2,1,XX INSTR. ST A1,SEEKC1 ORKL A1,/800 FORM SST A2,XX INSTR. ST A1,SEEKC2 LDKL A2,-1 ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR LDKL A2,/300 BUFLEN 80M CDC DISC ST A2,SAVCON SAVE LENGTH LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. ST A2,READ ST A2,READS CF A14,GETVLB GET VOLUME LABEL =9 LC A2,FORDEV+1,A9 GET FORMAT =9 ANK A2,1 FORMAT 4 OR 5 =9 LDK A2,23 CONSTANT FOR 16M DISC =9 RF(NZ) CDI:10 16M DISC =9 LDK A2,115 CONSTANT FOR 80M DISC =9 CDI:10 EQU * =9 ST A2,DIVCON SET DIVIDE CONSTANT =9 RTN A14 EJECT *********************************************** * * * CRDSEC- READ ONE SECTOR FROM DISC * * ================================= * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 = BUFFER ADDRESS * * * * A11 - SECTOR NBR LEAST SIGNIFICANT * * A12 - SECTOR NBR MOST SIGNIFICANT * * * * EXIT: A12,A11 = A12,A11 + 1 * * * * WORK REGISTERS: A1,A2,A3,A6 * * * * SUBROUTINES: ERROR * * * *********************************************** * CRDSEC EQU * * * SET BUFFER ADDRESS * LDR A1,A9 BUFFER ADDRESS ADKL A1,256 ST A1,CIOAD2 ADDRESS 2 ADKL A1,256 ST A1,CIOAD3 ADDRESS 3 LDKL A1,/3FFF ANS A1,CIOTAB RESET BITS ANS A1,CIOTOT RESET BITS LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT EJECT * * DIVIDE LOGICAL WITH 3 * LDK A3,0 RED100 EQU * ADK A3,1 SUK A1,3 RB(NN) RED100 ADK A1,3 SUK A3,1 DVK 3 CW A9,CIOAD1 RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ CW A2,PSECNL+STKEND RF(NE) RED110 NOT SAME PHYSICAL SEC NBR CW A3,PSECNM+STKEND RF(NE) RED110 NOT SAME PHYSICAL SEC NBR CW A1,PSECPA+STKEND RF(E) TURN SAME LOG SEC AS BEFORE RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR RED110 EQU * ST A9,CIOAD1 ADDRESS 1 MS 3,PSECPA+STKEND SAVE NEW VALUES LDR A1,A3 DIVCON EQU *+2 =9 DVK 23 =9 EJECT * A1=HEAD NBR * SECTOR NBR * A2=CYLINDER NBR LDR A3,A2 LDR A2,A1 LDK A1,0 DVK 23 * A1=SECTOR NBR * A2=HEAD NBR ORKL A2,/800 SET INTERRUPT BIT OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 ST A2,CIOTAB UPDATE CIO TABLE EJECT * * INTERLACING * LDR A2,A1 MUK 5 INTERLACING 5 SRC A3,1 =9 RF(NN) INT100 EVEN CYLINDER NUMBER ADK A2,12 SKEW FACTOR INT100 EQU * DVK 23 SLL A1,5 IN POSITION ORS A1,CIOTAB UPDATE CIO TABLE SLC A3,1 RESTORE A3 =9 CW A3,CYLNBR RF(E) READER SAME CYLINDER NUMBER EJECT * * SEEK * ST A3,CYLNBR SAVE CYLINDER NBR ADKL A3,/A800 SEEK COMMAND ST A3,SEKTAB LDKL A2,SEKTAB SEEKC1 EQU * CIO A2,1,0 SEEK RB(NA) SEEKC1 SEEKC2 EQU * SST A2,0 RB(NA) SEEKC2 EJECT * * READ * READER EQU * LDK A6,3 NUMBER OF RETRIES REA100 EQU * LDKL A1,CIOTAB POINTER TO CIO TABLE READC1 CIO A1,1,0 READ RB(NA) READC1 LOOP UNTIL ACCEPTED * READC2 SST A1,0 STATUS RB(NA) READC2 LOOP UNTIL ACCEPTED ANKL A1,/FF0F STATUS RF(NZ) RET30 READING ERROR LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 TURN EQU * ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER RF(O) TURN10 OVERFLOW RF TURN20 TURN10 EQU * SUR A11,A11 RESET A11 ADKL A12,1 TURN20 EQU * RTN A14 EJECT * * MOVE UP NEXT LOGICAL SECTOR * REDMOV EQU * ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART SLL A1,1 =9 LDR A2,A1 =9 ADR A1,A1 =9 ADR A1,A2 A1 MULTIPIED WITH 6 =9 LD A1,CIOAD1,A1 SOURCE ADDRESS LDR A2,A9 DESTINATION ADDRESS LDK A3,128 LENGTH IN WORDS RMOV10 EQU * LDR* A6,A1 STR A6,A2 ADK A1,2 ADK A2,2 SUK A3,1 RB(P) RMOV10 NEXT WORD RB TURN NOFOND EQU * LDKL A1,LMP2 CALL ERROR INDICATE READING ERROR EJECT * * IO ERROR IN READING * RET30 EQU * SUK A6,1 RB(NZ) REA100 NEW TRY LC A1,CIOTAB ANK A1,/C0 RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S LDKL A2,/8000 ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE RB READER RET31 EQU * ANK A1,/80 RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE LDKL A2,/C000 XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S RB READER RET32 EQU * LDKL A2,/3FFF ANS A2,CIOTAB RESET LATE DATA STROBE LC A1,CIOTOT ANK A1,/C0 RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- LDKL A2,/8000 ORS A2,CIOTOT PREPARE FOR CARRIAGE+ RB READER RET33 EQU * ANK A1,/80 RB(Z) NOFOND READING ERROR LDKL A2,/C000 XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- RB READER EJECT * * SEEK TABLE * SEKTAB EQU * DATA 0 * * CIO TABLE * CIOTAB EQU * DATA 0 ORDER,SECTOR NBR,HEAD NBR CIOTOT EQU * DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR) CIOPA1 EQU * DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS DATA 0 ADDRESS1 MOST SIGN. =9 CIOAD1 EQU * DATA 0 ADDRESS 1 CIOPA2 EQU * DATA /4000+128 DATA 0 ADDRESS 2 MOST SIGN. =9 CIOAD2 EQU * DATA 0 ADDRESS 2 CIOPA3 EQU * DATA 128 DATA 0 ADDRESS 3 MOST SIGN. =9 CIOAD3 EQU * DATA 0 ADDRESS 3 XIF EJECT *************************************************** * * * GETFIL - GET CONFIGURATION FILE * * =============================== * * * * REFERENCED IN: SYSLOD * * * * ENTRY: A9 - BUFFER ADDRESS * * * * EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * * * * WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * * * * SUBROUTINES: READVL,READCF * * * *************************************************** GETFIL EQU * CF A14,GETVLB GET:10 EQU * CF A14,RDSEC GET VOLUME LABEL LDK A7,QBLFAC VTOC 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,LSTREC+STKEND SAVE LD A12,16,A6 GET 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,/7F8 OTR A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN ANKL A1,/7FC ALLOWED SWITCH? RB(Z) GET:70 NO! LDKL A2,LMP1 OTR A2,0,SOP SWITCH ON LOAD LAMP SRN A1,A2 LC A1,DEVTAB,A2 GET DEVICE ADDRESS GET:75 EQU * SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE CF A14,CONFLD CONFIGURE LOAD DEVICE 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 DISC ADDRESS * TO FILE AND TO NEXT SECTOR AFTER FILE * LD A1,18,A6 GET BIT 16-31 OF D.A. LD A2,16,A6 GET BIT 0-15 OF D.A. ST A1,SWBFSA+STKCOM SAVE ST A2,SWBFSA+STKCOM+2 SAVE LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH ADR A4,A2 ADD MOST SIGNIFICANT PART ADR A3,A1 ADD LEAST SIGNIFICANT PART RF(O) GET:92 OVERFLOW - ADD CARRY RF GET:98 GET:92 ADK A4,1 ADD CARRY ANKL A3,/7FFF RESET OVERFLOW GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A. IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND GET:99 RTN A14 EJECT ***************************************************** * * * LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * * =============================================== * * * * LODSEG - LOAD ONE SEGMENT * * ========================= * * * * ENTRY: A8 - RELOCATION BASE * * A10 - EFFECTIVE LENGTH * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4,A7 * * * * SUBROUTINES: MOVE,READ * * * ***************************************************** LODCOM EQU * LD A9,MXBUF GET ADDRESS TO READ BUFFER LDR A3,A9 GET START OF BUFFER LDR A2,A3 SAVE LDKL A7,240 NUMBER OF CODE WORDS LOD:10 EQU *-2 LDR A10,A10 APP >32 KB? RF(NN) LOD:20 NO! SUR A10,A7 DEC. LENGTH RF LOD:50 LOD:20 EQU * SUR A10,A7 CHECK IF IN END OF OF SEGMENT RF(P) LOD:50 NO YET! CWK A7,256 128 WORDS/SECTOR? RF(NE) LOD:30 NO! ADR A7,A10 COMPUTE NUMBER OF CODE WORDS LDKL A10,0 INDICATE END OF SEGMENT RF LOD:52 LOD:30 EQU * ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! LDKL A10,0 INDICATE END OF SEGMENT LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK RF(NZ) LOD:50 NO! * ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK RF(L) LOD:50 NO! * SUK A7,240 YES, GET WORDS REMAINING LDR A10,A7 AND SAVE LDK A7,240 START OF RELOCATION BITS LOD:50 EQU * CWK A7,256 128 WORDS/SECTOR? RF(E) LOD:52 YES! ADR A2,A7 START OF RELOCATION BITS CF A14,REBUF RELOCATE LOD:52 EQU * LDR A1,A9 START OF CODE PART LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? RF(NZ) LOD:55 NO! IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE LD A3,COMLG,A9 GET LENGTH RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK * CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION? RF(NG) LOD:55 YES! * LOD:54 ADKL A10,8 LOD:55 EQU * LDR A3,A7 NUMBER OF CHARACTERS TO MOVE LD A2,LLDADR+STKEND GET TO-ADDRESS ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS IFT MMUPAG=1 MVSU A3 MOVE TABLE FROM SYSTEM XIF IFT MMUPAG=0 CALL MOVE XIF LDR A10,A10 END OF SEGMENT? RF(NZ) LOD:70 RTN A14 EXIT LODSEG EQU * LDKL A1,256 NUMBER OF WORDS/SECTOR ST A1,LOD:10 MODIFY INSTRUCTION LOD:70 EQU * CF A14,READ READ EQU *-2 RB LODCOM EJECT ************************************************* * * * REBUF - RELOCATE BUFFER ROUTINE * * =============================== * * * * REFERENCED IN: LODCOM/LODSEG * * * * ENTRY: A3 - START OF BUFFER * * A2 - START OF RELOCATION TABLE * * * * EXIT: * * * * WORK REGISTERS: A1,A4,A5,A6 * * * * SUBROUTINES: * * * ************************************************* REBUF EQU * LDR A4,A2 GET START OPF RELOCATION TABLE SUK A4,2 REB:10 EQU * ADK A4,2 NEXT RELOCATION WORD LDK A6,16 NUMBER OF RELOCATION BITS LDR* A1,A4 GET RELOCATION WORD REB:20 EQU * RF(NN) REB:30 DON'T RELOCATE THIS WORD! LDR* A5,A3 GET CODE WORD ADR A5,A8 RELOCATE STR A5,A3 STORE IT BACK REB:30 EQU * ADK A3,2 NEXT CODE WORD CWR A3,A2 END OF CODE WORD PART? RF(E) EXREL YES! SUK A6,1 MOORE RELOCATION BITS? RB(Z) REB:10 NO! SLL A1,1 NEXT RELOCATION BIT RB REB:20 EXREL EQU * RTN A14 EJECT ***************************************** * GETCON - GET CONTENT IN MEMORY WORD * ***************************************** * * REFERENCED IN: SEGGEN * * ENTRY: A2 - MEMORY ADDRESS * MMUOPT - MMU OPTION SWITCH (X) * * EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK REGISTER: * * SUBROUTINES: * GETCON EQU * LD A1,SCTOPT GET OPTION WORD ANK A1,1 MMU OPTION RF(Z) GCON10 NO MMU ELR A1,A2 RF GCON20 GCON10 EQU * LDR* A1,A2 GCON20 EQU * RTN A14 RETURN EJECT ********************************************* * * * SCNCON * * ====== * * * * SCAN CONFIGURATION FILE FOR POSSIBLE * * APPLICATION DEFINITION BLOCKS. IF * * FOUND APLTAB+STKCOM IS UPDATED WITH DISC * * ADDRESSES. * * * * ENTRY: A9 INPUT BUFFER ADDRESS * * * * WORK REGISTERS A1-A8,A10 * * * * ROUTINES REFERENCED: GETFIL, APLID * * * * REFERENCED IN SYSLOD * * * ********************************************* * * SCNCON EQU * CF A14,GETFIL GET CONFIGURATION FILE ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS ST A12,CONDAD+2+STKEND MOST SIGN. PART LDR A8,A9 GET START OF BUFFER ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED ST A8,ECNFBF+STKEND AND SAVE BUFFER END * LDKL A10,0 RESET RECORD COUNTER LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK CF A14,RDSEC READ FIRST SECTOR LDR A4,A9 GET START OF RECORD LDR A8,A9 SAVE RECORD START * SCAN00 EQU * LDR* A1,A4 GET FIRST WORD IN RECORD CWK A1,'A;' APPLICATION DEFINITION BLOCK? RF(NE) SCAN10 NO! * CF A14,APLID YES GET APPLICATION NAME SCAN10 EQU * ADKL A10,1 INCREMENT RECORD COUNTER CW A10,LSTREC+STKEND LAST RECORD? RF(E) SCNEND YES! * ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,ECNFBF+STKEND OUTSIDE SECTOR? RF(NE) SCAN20 NO! * CF A14,RDSEC READ NEXT SECTOR LDR A8,A9 RESET RECORD ADDRESS SCAN20 EQU * LDR A4,A8 GET RECORD START RB SCAN00 CONTINUE SCAN PROCESS * * THE WHOLE CONFIGURATION FILE * IS PROCESSED. SEARCH VTOC FOR * GIVEN FILE NAMES AND UPDATE * APLTAB+STKCOM WITH CORRESPONDING * DISC ADDRESSES. * SCNEND EQU * LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV. CF A14,LODDEV LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS SUK A1,1 DECREMENT RF(Z) RTRN ONLY ONE APPLICATION NGR A1,A1 NEGATE ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER CF A14,GETAPL UPDATE APPLIC. DISC ADDR. * RTRN EQU * RTN A14 END OF SCNCON EJECT ********************************************* * * * * * APLID * * ===== * * * * APLID TAKES THE NAME OF APPLICATION * * AND MOVES IT FROM CONF. FILE TO * * APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * * IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * * * * LENGTH OF NAME (BYTES) * * NAME * * * * THE NAME ENTRY CONSISTS OF 1-4 WORDS * * * * ENTRY: A6 POINTER INTO APLTAB+STKCOM * * A8 RECORD POINTER * * A10 RECORD COUNTER * * * * WORK REGISTERS: A1-A5 * * * ********************************************* * * APLID EQU * ADKL A10,1 INCREMENT RECORD COUNTER CW A10,LSTREC+STKEND LAST RECORD ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE * ADKL A8,RECLEN+1 INCREMENT RECORD POINTER CW A8,ECNFBF+STKEND OUTSIDE SECTOR? RF(NE) APLID0 NO! * CF A14,RDSEC READ NEXT SECTOR LDR A8,A9 GET RECORD START APLID0 EQU * LDR A4,A8 RECORD START LDK A5,0 RESET CHARACTER COUNTER APLID2 EQU * LCR A1,A4 GET CHARACTER CCK A1,';;' DELIMITER CHARACTER? RF(E) APLID4 YES! END OF NAME * ADK A4,1 INCREMENT CHARACTER POINTER ADK A5,1 INCREMENT CHARACTER COUNT CWK A5,NCHAID END OF THIS RECORD? RB(NE) APLID2 NO GET NEXT CHARACTER * * END OF NAME RECORD, LOOK IF * NEXT CHARACTER IS A DELIMITER * LCR A1,A4 CCK A1,';;' ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE * APLID4 EQU * ADK A5,0 ABL(Z) CONERR NO LEGAL CHARACTER IN NAME * LDR A3,A6 SAVE BLOCK START STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. LDR A4,A8 GET START OF NAME RECORD ADK A5,1 INCREMENT CHARACTER COUNT SRA A5,1 AND MAKE WORD COUNT * APLID6 EQU * ADK A3,2 ADVANCE TABLE POINTER LDR* A1,A4 MOVE 2 CHARACTERS OF NAME STR A1,A3 TO APLTAB+STKCOM ADK A4,2 ADVANCE CHARACTER POINTER SUK A5,1 DECREMENT WORD COUNT RB(P) APLID6 MORE CHARACTERS TO MOVE * ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY RTN A14 NO, RETURN EJECT ********************************************* * * * * * GETAPL * * ====== * * * * SCANS VTOC FOR FILE NAMES LISTED IN * * APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE- * * SPONDING DISC ADDRESSE AND THE LENGTH * * OF APLTAB+STKCOM IS THEN USED TO CALCULATE * * START OF FREE AREA. * * * * ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * * APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM * * * ********************************************* * * GETAPL EQU * CF A14,GETVLB READ VOLUME LABEL GETAP0 EQU * CF A14,RDSEC READ SECTOR LDK A7,QBLFAC VTOC BLOCKING FACTOR LDR A4,A9 GET START OF RECORD GETAP2 EQU * LDR* A5,A6 GET LENGTH OF APPL. NAME LDR A3,A4 SAVE RECORD START LDR A1,A6 AND TABLE POINTER ADK A1,2 SKIP NO OF CHAR. ENTRY LCR A2,A4 GET 1ST CHARACTER IN FILE NAME CCK A2,/2020 UNUSED? RF(E) GETAP4 YES! * CF A14,CMPSYM COMPARE SYMBOLS ADK A5,0 RF(Z) FOUND EQUAL * * NO MATCH, TRY NEXT VTOC ENTRY * GETAP4 EQU * ADR A4,A8 GET NEXT RECORD ADK A4,1 BYPASS STATUS CHARACTER SUK A7,1 MORE RECORDS IN THIS SECTOR RB(P) GETAP2 YES! * CWR A11,A10 LAST VTOC SECTOR? ABL(E) CONERR ERROR IN CONF. FILE * RB GETAP0 * FOUND EQU * LDK A2,'L' LOAD FILE CHARACTER CC A2,27,A4 LOAD FILE? ABL(NE) CONERR NO ERROR IN CONF. FILE * LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM LD A2,18,A4 GET DISC ADDRESS (BITS 16-31) ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK * IM APLCNT+STKEND INCREMENT APPLICATION COUNT RB(NZ) GETAPL MORE TO DO! * RTN A14 END OF GETAPL EJECT ********************************************* * * * * * CMPSYM * * ====== * * * * COMPARE TWO SYMBOLS WITH EACH OTHER * * * * ENTRY: A3 - START OF SYMBOL 1 * * A1 - START OF SYMBOL 2 * * A5 - LENGTH OF SYMBOL 2 * * * * EXIT: A5 = 0 IF SYMBOLS EQUAL * * * ********************************************* * * CMPSYM EQU * LCR A2,A3 GET CHARACTER IN SYMBOL 1 CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 RF(NE) CMPEND IF NOT EQUAL, RETURN * ADK A3,1 ADVANCE CHARACTER POINTERS ADK A1,1 SUK A5,1 DECREMENT CHARACTER COUNT RB(NZ) CMPSYM CONTINUE THE COMPARISION * LDR* A2,A6 RESTORE NAME LENGTH CWK A2,8 LOOK IF MAX. LENGTH RF(E) CMPEND YES! FINISHED * LCR A2,A3 GET NEXT CHARACTER IN FILE NAME CCK A2,/2020 END OF FILE NAME? RF(E) CMPEND YES! * LDK A5,1 NO, NOT EQUAL! CMPEND EQU * RTN A14 END OF CMPSYM EJECT ********************************************* * * * * * GETVLB * * ====== * * * * READ SECTOR CONTAINIG VOLUME LABEL * * * * EXIT: A10 - LAST VTOC SECTOR * * A11 - FIRST VTOC SECTOR * * A8 - VTOC RECORD LENGTH * * * ********************************************* * * GETVLB EQU * SUR A11,A11 VOLUME LABEL SUR A12,A12 CF A14,RDSEC GET VOLUME LABEL 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 AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7 RTN A14 END OF GETVLB * EJECT ********************************************* * * * * * RDSEC * * ===== * * * * READS A SECTOR FROM INPUT DISC. * * * * ENTRY: A9 - BUFFER ADDRESS * * A11- SECTOR ADDRESS * * A12- SECTOR ADDRESS * * * ********************************************* * * RDSEC EQU * CF A14,READS MODIFIED ADDRESS READS EQU *-2 RTN A14 EJECT * * DATA AREA DEFINITION * SYSBAS EQU * SAVCON DATA BUFLEN MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS SAVMEM DATA 0 SAVE AREA CYLNBR DATA /FFFF CYLINDER NUMBER SECNBR DATA 0 PHYSICAL SECTOR NUMBER IFT CDDISC=1 =9 IFT CDDI16=0 =9 DEVTAB DATA 0,/1909,/3717,/2808,/1404 XIF =9 IFF CDDISC-CDDI16=1 =9 DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 XIF =9 SWPTAB DATA '$S','WA','P ',' ' FCTAB EQU * =5 DATA /F1F3,/F0F2 =5 * END SYSLOD
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLOD REL 11.0 81-05-22 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a Head {h00=0x0028, h01=0x0050, text=» =12,COND. ASSEMBLY EDM INTRODUCED«, t00=0x0000, t01=0x0042}
0x0006a…0008a Head {h00=0x001c, h01=0x0050, text=» =12,REL 11.0 81-05-19«, t00=0x0000, t01=0x006e}
0x0008a…000b8 Head {h00=0x002a, h01=0x0050, text=» =11,ERROR IN READ ROUT. FOR 16M,80M«, t00=0x0000, t01=0x008e}
0x000b8…000d8 Head {h00=0x001c, h01=0x0050, text=» =11,REL 11.0 81-05-11«, t00=0x0000, t01=0x00bc}
0x000d8…00108 Head {h00=0x002c, h01=0x0050, text=» =10,TWO WORDS IN INTERRUPT TABLE ARE «, t00=0x0000, t01=0x00dc}
0x00108…00120 Head {h00=0x0014, h01=0x0050, text=» =10,DESTROYED«, t00=0x0000, t01=0x010c}
0x00120…00140 Head {h00=0x001c, h01=0x0050, text=» =10,REL 11.0 81-04-08«, t00=0x0000, t01=0x0124}
0x00140…0016c Head {h00=0x0028, h01=0x0050, text=» =9,NEW CONTROL UNIT 16M,80M DISC «, t00=0x0000, t01=0x0144}
0x0016c…0018c Head {h00=0x001c, h01=0x0050, text=» =9,REL 11.0 81-04-06 «, t00=0x0000, t01=0x0170}
0x0018c…001c2 Head {h00=0x0032, h01=0x0050, text=» =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION «, t00=0x0000, t01=0x0190}
0x001c2…001e2 Head {h00=0x001c, h01=0x0050, text=» =8,REL 11.0 81-03-31 «, t00=0x0001, t01=0x0036}
0x001e2…0020a Head {h00=0x0024, h01=0x0050, text=» =7,WRONG VTOC-SECTOR POINTER «, t00=0x0001, t01=0x0056}
0x0020a…0022a Head {h00=0x001c, h01=0x0050, text=» =7,REL 11.0 81-03-12 «, t00=0x0001, t01=0x007e}
0x0022a…00258 Head {h00=0x002a, h01=0x0050, text=» =6,DC BLOCK DESTROYED WHEN CFTEST=0«, t00=0x0001, t01=0x009e}
0x00258…00278 Head {h00=0x001c, h01=0x0050, text=» =6,REL 11.0 81-02-06 «, t00=0x0001, t01=0x00cc}
0x00278…002ae Head {h00=0x0032, h01=0x0050, text=» =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS«, t00=0x0001, t01=0x00ec}
0x002ae…002ce Head {h00=0x001c, h01=0x0050, text=» =5,REL 11.0 81-01-29 «, t00=0x0001, t01=0x0122}
0x002ce…002f0 Head {h00=0x001e, h01=0x0050, text=» =4,FLOPPY MUX CORRECTED«, t00=0x0001, t01=0x0142}
0x002f0…00310 Head {h00=0x001c, h01=0x0050, text=» =4,REL 11.0 81-01-26 «, t00=0x0001, t01=0x0164}
0x00310…0033a Head {h00=0x0026, h01=0x0050, text=» =3,IF 256 KBYTE MEMORY OVERFLOW«, t00=0x0001, t01=0x0184}
0x0033a…00368 Head {h00=0x002a, h01=0x0050, text=» =3,WILL OCCUR IN SEGMENT ALLOCATION«, t00=0x0002, t01=0x001e}
0x00368…00388 Head {h00=0x001c, h01=0x0050, text=» =3,PRR 11.0 80-12-03 «, t00=0x0002, t01=0x004c}
0x00388…003bc Head {h00=0x0030, h01=0x0050, text=» =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR «, t00=0x0002, t01=0x006c}
0x003bc…003f0 Head {h00=0x0030, h01=0x0050, text=» =2,REDESIGNED SEGMENT ALLOCATION ALGORITM«, t00=0x0002, t01=0x00a0}
0x003f0…00410 Head {h00=0x001c, h01=0x0050, text=» =2,PRR 11.0 80-11-20 «, t00=0x0002, t01=0x00d4}
0x00410…0043e Head {h00=0x002a, h01=0x0050, text=» =1,MXSTAB ADDR. NOT REL IF CFTEST=0«, t00=0x0002, t01=0x00f4}
0x0043e…0045e Head {h00=0x001c, h01=0x0050, text=» =1,PRR 11.0 80-11-19 «, t00=0x0002, t01=0x0122}
0x0045e…00474 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0002, t01=0x0142}
0x00474…0048a Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0002, t01=0x0158}
0x0048a…004a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0002, t01=0x016e}
0x004a0…004b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0002, t01=0x0184}
0x004b6…004cc Head {h00=0x0012, h01=0x0050, text=» ENTRY APLADA «, t00=0x0003, t01=0x000a}
0x004cc…004e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAC «, t00=0x0003, t01=0x0020}
0x004e2…004f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAP «, t00=0x0003, t01=0x0036}
0x004f8…0050e Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLDA «, t00=0x0003, t01=0x004c}
0x0050e…00524 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMC «, t00=0x0003, t01=0x0062}
0x00524…0053a Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMP «, t00=0x0003, t01=0x0078}
0x0053a…00550 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLNPE «, t00=0x0003, t01=0x008e}
0x00550…00566 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLREL «, t00=0x0003, t01=0x00a4}
0x00566…0057c Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSTA «, t00=0x0003, t01=0x00ba}
0x0057c…00592 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLTYP «, t00=0x0003, t01=0x00d0}
0x00592…005a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLIOE «, t00=0x0003, t01=0x00e6}
0x005a8…005be Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSEG «, t00=0x0003, t01=0x00fc}
0x005be…005d4 Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSWB «, t00=0x0003, t01=0x0112}
0x005d4…005f8 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0003, t01=0x0128}
0x005f8…0061c Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0003, t01=0x014c}
0x0061c…00640 Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0003, t01=0x0170}
0x00640…00664 (4, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0004}
0x00664…00688 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0028}
0x00688…0069e Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0004, t01=0x004c}
0x0069e…006ca Head {h00=0x0028, h01=0x0050, text=» EXTRN POB RESTORE REGISTER CONTENTS«, t00=0x0004, t01=0x0062}
0x006ca…006f4 Head {h00=0x0026, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER CONTENTS«, t00=0x0004, t01=0x008e}
0x006f4…0070a Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDM «, t00=0x0004, t01=0x00b8}
0x0070a…00720 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0004, t01=0x00ce}
0x00720…00736 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0004, t01=0x00e4}
0x00736…0074c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0004, t01=0x00fa}
0x0074c…00762 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0004, t01=0x0110}
0x00762…00798 Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE «, t00=0x0004, t01=0x0126}
0x00798…007ae Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0004, t01=0x015c}
0x007ae…007c4 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0004, t01=0x0172}
0x007c4…007da Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0004, t01=0x0188}
0x007da…007f0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0005, t01=0x000e}
0x007f0…00806 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0005, t01=0x0024}
0x00806…0081c Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSTB «, t00=0x0005, t01=0x003a}
0x0081c…0082a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0050}
0x0082a…0083c Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0005, t01=0x005e}
0x0083c…00850 Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0005, t01=0x0070}
0x00850…00866 Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0005, t01=0x0084}
0x00866…0087a Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0005, t01=0x009a}
0x0087a…0088e Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0005, t01=0x00ae}
0x0088e…008a4 Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0005, t01=0x00c2}
0x008a4…008b8 Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0005, t01=0x00d8}
0x008b8…008f0 Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB «, t00=0x0005, t01=0x00ec}
0x008f0…00906 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:CB «, t00=0x0005, t01=0x0124}
0x00906…0091c Head {h00=0x0012, h01=0x0050, text=» EXTRN STKCOM «, t00=0x0005, t01=0x013a}
0x0091c…00932 Head {h00=0x0012, h01=0x0050, text=» EXTRN STKEND «, t00=0x0005, t01=0x0150}
0x00932…00940 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0166}
0x00940…0094c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0174}
0x0094c…00958 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0180}
0x00958…00980 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0005, t01=0x018c}
0x00980…009a8 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0006, t01=0x0024}
0x009a8…009d0 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x004c}
0x009d0…009dc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x0074}
0x009dc…009fc Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x0080}
0x009fc…00a1e Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x00a0}
0x00a1e…00a4a Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0006, t01=0x00c2}
0x00a4a…00a7a Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0006, t01=0x00ee}
0x00a7a…00aaa Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0006, t01=0x011e}
0x00aaa…00ad2 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0006, t01=0x014e}
0x00ad2…00b10 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0006, t01=0x0176}
0x00b10…00b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0024}
0x00b1a…00b44 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0007, t01=0x002e}
0x00b44…00b6c Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x0058}
0x00b6c…00b8e Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0007, t01=0x0080}
0x00b8e…00bba Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0007, t01=0x00a2}
0x00bba…00bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x00bc4…00bf2 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0007, t01=0x00d8}
0x00bf2…00bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x00bfc…00c20 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0007, t01=0x0110}
0x00c20…00c42 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0007, t01=0x0134}
0x00c42…00c7c Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0007, t01=0x0156}
0x00c7c…00ca8 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0007, t01=0x0190}
0x00ca8…00cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x00cb2…00cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x00cbc…00ce6 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x0040}
0x00ce6…00d08 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x006a}
0x00d08…00d38 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x008c}
0x00d38…00d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x00d42…00d6e Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0008, t01=0x00c6}
0x00d6e…00d8e Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0008, t01=0x00f2}
0x00d8e…00db4 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0008, t01=0x0112}
0x00db4…00de6 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0008, t01=0x0138}
0x00de6…00df4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x016a}
0x00df4…00e0c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0008, t01=0x0178}
0x00e0c…00e24 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0008, t01=0x0190}
0x00e24…00e3c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0018}
0x00e3c…00e5e Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x0030}
0x00e5e…00e66 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0052}
0x00e66…00e88 Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x005a}
0x00e88…00e9e Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x007c}
0x00e9e…00eb4 Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x0092}
0x00eb4…00ec8 Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0009, t01=0x00a8}
0x00ec8…00edc Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0009, t01=0x00bc}
0x00edc…00ef0 Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0009, t01=0x00d0}
0x00ef0…00f04 Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0009, t01=0x00e4}
0x00f04…00f16 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0009, t01=0x00f8}
0x00f16…00f28 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0009, t01=0x010a}
0x00f28…00f3c Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0009, t01=0x011c}
0x00f3c…00f50 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0009, t01=0x0130}
0x00f50…00f5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0144}
0x00f5e…00f66 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0152}
0x00f66…00f6e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x015a}
0x00f6e…00f9a Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x0162}
0x00f9a…00fc6 Head {h00=0x0028, h01=0x0050, text=»* MXSTAB DISPLACEMENTS * «, t00=0x0009, t01=0x018e}
0x00fc6…00ff2 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x000a, t01=0x002a}
0x00ff2…00ffa Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0056}
0x00ffa…01002 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x005e}
0x01002…01016 Head {h00=0x0010, h01=0x0050, text=»MX:NOX EQU 6«, t00=0x000a, t01=0x0066}
0x01016…01046 Head {h00=0x002c, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS «, t00=0x000a, t01=0x007a}
0x01046…0104e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00aa}
0x0104e…01056 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b2}
0x01056…0108c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x00ba}
0x0108c…010c2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00f0}
0x010c2…010f8 Head {h00=0x0032, h01=0x0050, text=»* APCTAB DISPLACEMENTS * «, t00=0x000a, t01=0x0126}
0x010f8…0112e Head {h00=0x0032, h01=0x0050, text=»* ==================== * «, t00=0x000a, t01=0x015c}
0x0112e…01164 (11, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0004}
0x01164…0119a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x003a}
0x0119a…011a2 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0070}
0x011a2…011aa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0078}
0x011aa…011e0 Head {h00=0x0032, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC FILE ADDRESS =2«, t00=0x000b, t01=0x0080}
0x011e0…01212 Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE «, t00=0x000b, t01=0x00b6}
0x01212…01242 Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x000b, t01=0x00e8}
0x01242…0127e Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000b, t01=0x0118}
0x0127e…012a8 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000b, t01=0x0154}
0x012a8…012e4 Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000b, t01=0x017e}
0x012e4…01316 Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000c, t01=0x002a}
0x01316…01342 Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000c, t01=0x005c}
0x01342…01374 Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000c, t01=0x0088}
0x01374…013a6 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000c, t01=0x00ba}
0x013a6…013d8 Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 «, t00=0x000c, t01=0x00ec}
0x013d8…013fc Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000c, t01=0x011e}
0x013fc…0142a Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000c, t01=0x0142}
0x0142a…01450 Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000c, t01=0x0170}
0x01450…0145e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x0145e…01484 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0016}
0x01484…014aa Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x003c}
0x014aa…014d0 Head {h00=0x0022, h01=0x0050, text=»* COMMON DISPLACEMENTS *«, t00=0x000d, t01=0x0062}
0x014d0…014f6 Head {h00=0x0022, h01=0x0050, text=»* AND CONSTANTS *«, t00=0x000d, t01=0x0088}
0x014f6…0151c Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00ae}
0x0151c…01542 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x00d4}
0x01542…0154e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000d, t01=0x00fa}
0x0154e…0155a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000d, t01=0x0106}
0x0155a…01594 Head {h00=0x0036, h01=0x0050, text=»ACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 «, t00=0x000d, t01=0x0112}
0x01594…015c8 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000d, t01=0x014c}
0x015c8…015f0 Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000d, t01=0x0180}
0x015f0…0161c Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000e, t01=0x0018}
0x0161c…0164e Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x0044}
0x0164e…0167e Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x0076}
0x0167e…016aa Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000e, t01=0x00a6}
0x016aa…016e8 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000e, t01=0x00d2}
0x016e8…01716 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000e, t01=0x0110}
0x01716…01746 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000e, t01=0x013e}
0x01746…01780 Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000e, t01=0x016e}
0x01780…017ac Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000f, t01=0x0018}
0x017ac…017da Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x0044}
0x017da…01806 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x0072}
0x01806…0182e Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000f, t01=0x009e}
0x0182e…0185e Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000f, t01=0x00c6}
0x0185e…01894 Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x000f, t01=0x00f6}
0x01894…018c8 Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x000f, t01=0x012c}
0x018c8…018f4 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000f, t01=0x0160}
0x018f4…0191c Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x000f, t01=0x018c}
0x0191c…01944 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0010, t01=0x0024}
0x01944…0196c Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x004c}
0x0196c…0199a Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x0074}
0x0199a…019ca Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0010, t01=0x00a2}
0x019ca…019f2 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0010, t01=0x00d2}
0x019f2…01a1e Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0010, t01=0x00fa}
0x01a1e…01a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0126}
0x01a2c…01a52 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0010, t01=0x0134}
0x01a52…01a78 Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x0010, t01=0x015a}
0x01a78…01a9e Head {h00=0x0022, h01=0x0050, text=»* LOCAL DISPLACEMENTS *«, t00=0x0010, t01=0x0180}
0x01a9e…01ac4 Head {h00=0x0022, h01=0x0050, text=»* AND CONSTANTS *«, t00=0x0011, t01=0x0016}
0x01ac4…01aea Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x0011, t01=0x003c}
0x01aea…01b10 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0011, t01=0x0062}
0x01b10…01b1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0011, t01=0x0088}
0x01b1c…01b28 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0011, t01=0x0094}
0x01b28…01b58 Head {h00=0x002c, h01=0x0050, text=»APLCNT EQU 4 NO OF APPLICATIONS TO LOAD «, t00=0x0011, t01=0x00a0}
0x01b58…01b82 Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0011, t01=0x00d0}
0x01b82…01bbe Head {h00=0x0038, h01=0x0050, text=»CARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9«, t00=0x0011, t01=0x00fa}
0x01bbe…01bea Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0011, t01=0x0136}
0x01bea…01c1a Head {h00=0x002c, h01=0x0050, text=»COMLG EQU 4 LENGTH OF CORE RESIDENT PART«, t00=0x0011, t01=0x0162}
0x01c1a…01c48 (18, 0, 400) Head {h00=0x002a, h01=0x0050, text=»CONDAD EQU 44 CONF. FILE DISC ADDRESS «, t00=0x0012, t01=0x0004}
0x01c48…01c58 Head {h00=0x000c, h01=0x0050, text=»* EQU 46«, t00=0x0012, t01=0x0032}
0x01c58…01c8c Head {h00=0x0030, h01=0x0050, text=»CONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. «, t00=0x0012, t01=0x0042}
0x01c8c…01cbc Head {h00=0x002c, h01=0x0050, text=»CURAPL EQU 24 CURRENT APPL. CONTR. BLOCK«, t00=0x0012, t01=0x0076}
0x01cbc…01cde Head {h00=0x001e, h01=0x0050, text=»DEVTYP EQU 50 DEVICE TYPE «, t00=0x0012, t01=0x00a6}
0x01cde…01d18 Head {h00=0x0036, h01=0x0050, text=»DISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS)«, t00=0x0012, t01=0x00c8}
0x01d18…01d40 Head {h00=0x0024, h01=0x0050, text=»ECNFBF EQU 6 END OF CONF. BUFFER«, t00=0x0012, t01=0x0102}
0x01d40…01d68 Head {h00=0x0024, h01=0x0050, text=»EINPBF EQU 2 END OF INPUT BUFFER«, t00=0x0012, t01=0x012a}
0x01d68…01d90 Head {h00=0x0024, h01=0x0050, text=»ESYSTA EQU 0 END OF SYSTEM AREA «, t00=0x0012, t01=0x0152}
0x01d90…01dba Head {h00=0x0026, h01=0x0050, text=»EXLEN EQU 4 MONITOR EXTENT LENGTH «, t00=0x0012, t01=0x017a}
0x01dba…01df4 Head {h00=0x0036, h01=0x0050, text=»FILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE)«, t00=0x0013, t01=0x0014}
0x01df4…01e20 Head {h00=0x0028, h01=0x0050, text=»FSTSEC EQU 16 FIRST SECTOR INDICATOR«, t00=0x0013, t01=0x004e}
0x01e20…01e54 Head {h00=0x0030, h01=0x0050, text=»IPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE «, t00=0x0013, t01=0x007a}
0x01e54…01e7e Head {h00=0x0026, h01=0x0050, text=»IPLTYP EQU 48 PGM LOAD DEVICE TYPE«, t00=0x0013, t01=0x00ae}
0x01e7e…01ea8 Head {h00=0x0026, h01=0x0050, text=»LLDADR EQU 12 LOGICAL LOAD ADDRESS«, t00=0x0013, t01=0x00d8}
0x01ea8…01ed8 Head {h00=0x002c, h01=0x0050, text=»LSTREC EQU 20 LAST RECORD OF CONF. FILE «, t00=0x0013, t01=0x0102}
0x01ed8…01f0c Head {h00=0x0030, h01=0x0050, text=»LSTASG EQU 8 LOGICAL START OF FIRST SEGMENT «, t00=0x0013, t01=0x0132}
0x01f0c…01f30 Head {h00=0x0020, h01=0x0050, text=»MONNO EQU 22 MONITOR NUMBER «, t00=0x0013, t01=0x0166}
0x01f30…01f5e Head {h00=0x002a, h01=0x0050, text=»NCHAID EQU 8 NO OF CHAR. IN APPL. NAME«, t00=0x0013, t01=0x018a}
0x01f5e…01f8c Head {h00=0x002a, h01=0x0050, text=»NCHTID EQU 5 NO OF CHAR IN TID RECORD «, t00=0x0014, t01=0x0028}
0x01f8c…01fb6 Head {h00=0x0026, h01=0x0050, text=»NDEVCL EQU 18 NO OF DEVICE CLASSES«, t00=0x0014, t01=0x0056}
0x01fb6…01fec Head {h00=0x0032, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB «, t00=0x0014, t01=0x0080}
0x01fec…0201e Head {h00=0x002e, h01=0x0050, text=»OPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2«, t00=0x0014, t01=0x00b6}
0x0201e…02048 Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0014, t01=0x00e8}
0x02048…02074 Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE «, t00=0x0014, t01=0x0112}
0x02074…020a0 Head {h00=0x0028, h01=0x0050, text=»PLDADR EQU 14 PHYSICAL LOAD ADDRESS «, t00=0x0014, t01=0x013e}
0x020a0…020d0 Head {h00=0x002c, h01=0x0050, text=»PRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT«, t00=0x0014, t01=0x016a}
0x020d0…0210e Head {h00=0x003a, h01=0x0050, text=»PSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT«, t00=0x0015, t01=0x000a}
0x0210e…0214c Head {h00=0x003a, h01=0x0050, text=»PSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT «, t00=0x0015, t01=0x0048}
0x0214c…0217c Head {h00=0x002c, h01=0x0050, text=»PSECPA EQU 38 PHYSICAL SECTOR PART (0-2)«, t00=0x0015, t01=0x0086}
0x0217c…021a2 Head {h00=0x0022, h01=0x0050, text=»SEGCNT EQU 10 SEGMENT COUNTER «, t00=0x0015, t01=0x00b6}
0x021a2…021ca Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0015, t01=0x00dc}
0x021ca…021f8 Head {h00=0x002a, h01=0x0050, text=»TNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS«, t00=0x0015, t01=0x0104}
0x021f8…02206 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0132}
0x02206…02226 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0015, t01=0x0140}
0x02226…02246 Head {h00=0x001c, h01=0x0050, text=»* CASSETTE HANDLING * «, t00=0x0015, t01=0x0160}
0x02246…02266 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0015, t01=0x0180}
0x02266…02296 Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0016, t01=0x0010}
0x02296…022b8 Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x0016, t01=0x0040}
0x022b8…022e4 Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x0016, t01=0x0062}
0x022e4…02310 Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x0016, t01=0x008e}
0x02310…0231a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ba}
0x0231a…02340 Head {h00=0x0022, h01=0x0050, text=»* DISC/FLEXIBLE DISC HANDLING«, t00=0x0016, t01=0x00c4}
0x02340…0234a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ea}
0x0234a…02376 Head {h00=0x0028, h01=0x0050, text=»BUFLEN EQU 256 LENGTH OF READ BUFFER«, t00=0x0016, t01=0x00f4}
0x02376…023a4 Head {h00=0x002a, h01=0x0050, text=»DKBA3 EQU 514 BUFFER LENGTH VERSION A3«, t00=0x0016, t01=0x0120}
0x023a4…023da Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x0016, t01=0x014e}
0x023da…02408 Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x0016, t01=0x0184}
0x02408…02430 Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x0017, t01=0x0022}
0x02430…02452 Head {h00=0x001e, h01=0x0050, text=»FORDEV EQU 48 DISC FORMAT «, t00=0x0017, t01=0x004a}
0x02452…02478 Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /8080 1:ST MUX WORD «, t00=0x0017, t01=0x006c}
0x02478…024a6 Head {h00=0x002a, h01=0x0050, text=»MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS«, t00=0x0017, t01=0x0092}
0x024a6…024ca Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 6 BLOCKING FACTOR«, t00=0x0017, t01=0x00c0}
0x024ca…024fa Head {h00=0x002c, h01=0x0050, text=»CIO EQU /41C0 I/O INSTR. CONF. CONSTANT «, t00=0x0017, t01=0x00e4}
0x024fa…02508 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0114}
0x02508…02514 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0017, t01=0x0122}
0x02514…0255e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0017, t01=0x012e}
0x0255e…025a8 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0017, t01=0x0178}
0x025a8…025f2 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0018, t01=0x0032}
0x025f2…0263c Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0018, t01=0x007c}
0x0263c…02686 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x00c6}
0x02686…02692 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0110}
0x02692…0269e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x011c}
0x0269e…026aa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0128}
0x026aa…026c8 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0018, t01=0x0134}
0x026c8…026d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0152}
0x026d6…026f8 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0018, t01=0x0160}
0x026f8…0271a Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0018, t01=0x0182}
0x0271a…0273c Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0019, t01=0x0014}
0x0273c…02744 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0036}
0x02744…0274c Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x003e}
0x0274c…02756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x02756…0277c Head {h00=0x0022, h01=0x0050, text=»* CONSTANTS EDITED BY SYSGEN «, t00=0x0019, t01=0x0050}
0x0277c…02786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0076}
0x02786…0278e Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0080}
0x0278e…02796 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0088}
0x02796…027a8 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0019, t01=0x0090}
0x027a8…027ba Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0019, t01=0x00a2}
0x027ba…027cc Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0019, t01=0x00b4}
0x027cc…027de Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0019, t01=0x00c6}
0x027de…027f0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0019, t01=0x00d8}
0x027f0…02806 Head {h00=0x0012, h01=0x0050, text=»X:F EQU 0 =9 «, t00=0x0019, t01=0x00ea}
0x02806…0281c Head {h00=0x0012, h01=0x0050, text=»X:G EQU 1 =9 «, t00=0x0019, t01=0x0100}
0x0281c…02824 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0116}
0x02824…02850 Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 1 1-MMU HARDWARE PRESENT «, t00=0x0019, t01=0x011e}
0x02850…02882 Head {h00=0x002e, h01=0x0050, text=»EDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12«, t00=0x0019, t01=0x014a}
0x02882…028b6 Head {h00=0x0030, h01=0x0050, text=»CASS EQU 0 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0019, t01=0x017c}
0x028b6…028e6 Head {h00=0x002c, h01=0x0050, text=»DISC EQU 0 1-PROGRAM LOAD DEVICE = DISC «, t00=0x001a, t01=0x0020}
0x028e6…02922 Head {h00=0x0038, h01=0x0050, text=»FLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC «, t00=0x001a, t01=0x0050}
0x02922…0295e Head {h00=0x0038, h01=0x0050, text=»MFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x001a, t01=0x008c}
0x0295e…02996 Head {h00=0x0034, h01=0x0050, text=»CDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC «, t00=0x001a, t01=0x00c8}
0x02996…029d2 Head {h00=0x0038, h01=0x0050, text=»CDDI16 EQU 0 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9«, t00=0x001a, t01=0x0100}
0x029d2…02a06 Head {h00=0x0030, h01=0x0050, text=»CFTEST EQU 1 1-TEST OF CONFIGURATION FILE =9«, t00=0x001a, t01=0x013c}
0x02a06…02a24 Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x001a, t01=0x0170}
0x02a24…02a44 Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x001a, t01=0x018e}
0x02a44…02a52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x001e}
0x02a52…02a90 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x002c}
0x02a90…02ace Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x001b, t01=0x006a}
0x02ace…02b0c Head {h00=0x003a, h01=0x0050, text=»* APPLICATION LOAD PART OF SYSLOD *«, t00=0x001b, t01=0x00a8}
0x02b0c…02b4a Head {h00=0x003a, h01=0x0050, text=»* =============================== *«, t00=0x001b, t01=0x00e6}
0x02b4a…02b88 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0124}
0x02b88…02bc4 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - FORMAT AND DEVICE TYPE *«, t00=0x001b, t01=0x0162}
0x02bc4…02c02 Head {h00=0x003a, h01=0x0050, text=»* A2 - PROGRAM LOAD DEVICE *«, t00=0x001c, t01=0x000e}
0x02c02…02c40 Head {h00=0x003a, h01=0x0050, text=»* A3 - APPLICATION NUMBER *«, t00=0x001c, t01=0x004c}
0x02c40…02c7e Head {h00=0x003a, h01=0x0050, text=»* A7 - APPLICATION DISC ADDRESS BIT 16-31 * «, t00=0x001c, t01=0x008a}
0x02c7e…02cbc Head {h00=0x003a, h01=0x0050, text=»* A8 - APPLICATION DISC ADDRESS BIT 0-15 * «, t00=0x001c, t01=0x00c8}
0x02cbc…02cfa Head {h00=0x003a, h01=0x0050, text=»* A9 - START OF FREE AREA *«, t00=0x001c, t01=0x0106}
0x02cfa…02d38 Head {h00=0x003a, h01=0x0050, text=»* A13 - MONITOR START ADDRESS *«, t00=0x001c, t01=0x0144}
0x02d38…02d76 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x001c, t01=0x0182}
0x02d76…02db4 Head {h00=0x003a, h01=0x0050, text=»* EXIT: *«, t00=0x001d, t01=0x0030}
0x02db4…02df2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x001d, t01=0x006e}
0x02df2…02e30 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM *«, t00=0x001d, t01=0x00ac}
0x02e30…02e6e Head {h00=0x003a, h01=0x0050, text=»* LODSEG,REBUF,MOVBUF,RDBLK, *«, t00=0x001d, t01=0x00ea}
0x02e6e…02eac Head {h00=0x003a, h01=0x0050, text=»* CONLOD,CONEX,MOVREV *«, t00=0x001d, t01=0x0128}
0x02eac…02eea Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0166}
0x02eea…02f28 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001e, t01=0x0014}
0x02f28…02f3c Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x001e, t01=0x0052}
0x02f3c…02f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0066}
0x02f46…02f60 Head {h00=0x0016, h01=0x0050, text=»* SAVE REGISTERS «, t00=0x001e, t01=0x0070}
0x02f60…02f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x02f6a…02fa2 Head {h00=0x0034, h01=0x0050, text=» ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE«, t00=0x001e, t01=0x0094}
0x02fa2…02fd0 Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x001e, t01=0x00cc}
0x02fd0…02fec Head {h00=0x0018, h01=0x0050, text=» ST A2,IPLDEV+STKEND«, t00=0x001e, t01=0x00fa}
0x02fec…03022 Head {h00=0x0032, h01=0x0050, text=» CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. «, t00=0x001e, t01=0x0116}
0x03022…0304a Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x001e, t01=0x014c}
0x0304a…03074 Head {h00=0x0026, h01=0x0050, text=» LDR A3,P USE BEGINNING OF SYSLOD «, t00=0x001e, t01=0x0174}
0x03074…0308a Head {h00=0x0012, h01=0x0050, text=» SUK A3,TBLBAS«, t00=0x001f, t01=0x000e}
0x0308a…030a8 Head {h00=0x001a, h01=0x0050, text=»TBLBAS EQU *-2-SYSLOD «, t00=0x001f, t01=0x0024}
0x030a8…030d2 Head {h00=0x0026, h01=0x0050, text=» ST A3,APLTAB+STKCOM AS TABLE AREA«, t00=0x001f, t01=0x0042}
0x030d2…030f8 Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INITIATE NO OF APPL.«, t00=0x001f, t01=0x006c}
0x030f8…0311c Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 AND SAVE IN TABLE«, t00=0x001f, t01=0x0092}
0x0311c…0315e Head {h00=0x003e, h01=0x0050, text=» ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 «, t00=0x001f, t01=0x00b6}
0x0315e…031a0 Head {h00=0x003e, h01=0x0050, text=» ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31«, t00=0x001f, t01=0x00f8}
0x031a0…031ce Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE START OF FREE AREA «, t00=0x001f, t01=0x013a}
0x031ce…031e6 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSLOD«, t00=0x001f, t01=0x0168}
0x031e6…031f8 Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x001f, t01=0x0180}
0x031f8…03230 (32, 0, 400) Head {h00=0x0034, h01=0x0050, text=»SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 «, t00=0x0020, t01=0x0004}
0x03230…03246 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0020, t01=0x003c}
0x03246…03258 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x0052}
0x03258…03294 Head {h00=0x0038, h01=0x0050, text=» ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START«, t00=0x0020, t01=0x0064}
0x03294…032a8 Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0020, t01=0x00a0}
0x032a8…032b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b4}
0x032b2…032c6 Head {h00=0x0010, h01=0x0050, text=»SYS110 EQU *«, t00=0x0020, t01=0x00be}
0x032c6…032ec Head {h00=0x0022, h01=0x0050, text=» LD A15,SCTSTB LOAD STACK BASE«, t00=0x0020, t01=0x00d2}
0x032ec…03312 Head {h00=0x0022, h01=0x0050, text=» SUKL A15,4 ADJUST STACK BASE «, t00=0x0020, t01=0x00f8}
0x03312…0331c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x011e}
0x0331c…0333c Head {h00=0x001c, h01=0x0050, text=»* INDICATE SYSLOD RUNS «, t00=0x0020, t01=0x0128}
0x0333c…03346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0148}
0x03346…0335c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0020, t01=0x0152}
0x0335c…03372 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0020, t01=0x0168}
0x03372…0337c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x0337c…033c2 Head {h00=0x0042, h01=0x0050, text=»* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0020, t01=0x0188}
0x033c2…033ea Head {h00=0x0024, h01=0x0050, text=»* AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0021, t01=0x003e}
0x033ea…033f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x033f4…03414 Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0021, t01=0x0070}
0x03414…0343e Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0021, t01=0x0090}
0x0343e…03450 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0021, t01=0x00ba}
0x03450…03478 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0021, t01=0x00cc}
0x03478…0349c Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0021, t01=0x00f4}
0x0349c…034b2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0118}
0x034b2…034c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x012e}
0x034c0…034ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013c}
0x034ca…0350c Head {h00=0x003e, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0021, t01=0x0146}
0x0350c…03516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0188}
0x03516…0353c (34, 0, 400) Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0022, t01=0x0004}
0x0353c…03560 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0022, t01=0x002a}
0x03560…03574 Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0022, t01=0x004e}
0x03574…0359a Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0022, t01=0x0062}
0x0359a…035d0 Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0022, t01=0x0088}
0x035d0…035f2 Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0022, t01=0x00be}
0x035f2…03616 Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0022, t01=0x00e0}
0x03616…0364a Head {h00=0x0030, h01=0x0050, text=» EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS «, t00=0x0022, t01=0x0104}
0x0364a…03678 Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0022, t01=0x0138}
0x03678…036a6 Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0022, t01=0x0166}
0x036a6…036dc (35, 0, 400) Head {h00=0x0032, h01=0x0050, text=» ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS«, t00=0x0023, t01=0x0004}
0x036dc…03708 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0023, t01=0x003a}
0x03708…0371e Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:020 «, t00=0x0023, t01=0x0066}
0x0371e…0374a Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0023, t01=0x007c}
0x0374a…0375c Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0023, t01=0x00a8}
0x0375c…03766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ba}
0x03766…0378e Head {h00=0x0024, h01=0x0050, text=»* CHECK IF MMU HARDWARE PRESENT«, t00=0x0023, t01=0x00c4}
0x0378e…03798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x03798…037b4 Head {h00=0x0018, h01=0x0050, text=»AP:020 LDKL A1,/FC00«, t00=0x0023, t01=0x00f6}
0x037b4…037ee Head {h00=0x0036, h01=0x0050, text=» ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA «, t00=0x0023, t01=0x0112}
0x037ee…0381e Head {h00=0x002c, h01=0x0050, text=» TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS«, t00=0x0023, t01=0x014c}
0x0381e…03850 Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE«, t00=0x0023, t01=0x017c}
0x03850…03876 Head {h00=0x0022, h01=0x0050, text=» CW A1,MMDDIV,A13 SUCCESSFUL? «, t00=0x0024, t01=0x001e}
0x03876…0389c Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:030 YES! MMU PRESENT«, t00=0x0024, t01=0x0044}
0x0389c…038b2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0024, t01=0x006a}
0x038b2…038e4 Head {h00=0x002e, h01=0x0050, text=» CALL ERROR INDICATE HARDWARE NOT PRESENT «, t00=0x0024, t01=0x0080}
0x038e4…0390c Head {h00=0x0024, h01=0x0050, text=»AP:030 CM TABBE RESET MMU TABLE «, t00=0x0024, t01=0x00b2}
0x0390c…03916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00da}
0x03916…0395e Head {h00=0x0044, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x00e4}
0x0395e…03968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012c}
0x03968…03974 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0136}
0x03974…0398a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0024, t01=0x0142}
0x0398a…03998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0158}
0x03998…039ac Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0024, t01=0x0166}
0x039ac…039b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017a}
0x039b6…039fa Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x0184}
0x039fa…03a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x03a04…03a2c Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PAGSIZ-2 START AT /FFFE«, t00=0x0025, t01=0x0042}
0x03a2c…03a40 Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0025, t01=0x006a}
0x03a40…03a6a Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0025, t01=0x007e}
0x03a6a…03a96 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0025, t01=0x00a8}
0x03a96…03abc Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0025, t01=0x00d4}
0x03abc…03ae0 Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0025, t01=0x00fa}
0x03ae0…03b06 Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0025, t01=0x011e}
0x03b06…03b3a Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0025, t01=0x0144}
0x03b3a…03b4c Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0025, t01=0x0178}
0x03b4c…03b60 Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0025, t01=0x018a}
0x03b60…03b8e Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0026, t01=0x000e}
0x03b8e…03b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x03b98…03be4 Head {h00=0x0048, h01=0x0050, text=»* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0026, t01=0x0046}
0x03be4…03bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0092}
0x03bee…03bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x009c}
0x03bfa…03c08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00a8}
0x03c08…03c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b6}
0x03c12…03c32 Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x0026, t01=0x00c0}
0x03c32…03c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e0}
0x03c3c…03c50 Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0026, t01=0x00ea}
0x03c50…03c84 Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0026, t01=0x00fe}
0x03c84…03caa Head {h00=0x0022, h01=0x0050, text=» SRL A6,2 MAKE NO OF 4K FRAMES«, t00=0x0026, t01=0x0132}
0x03caa…03cd0 Head {h00=0x0022, h01=0x0050, text=» SLL A6,10 MAKE FRAME ADDRESS «, t00=0x0026, t01=0x0158}
0x03cd0…03cfc Head {h00=0x0028, h01=0x0050, text=» ST A6,SCTEFA FIRST FRAME TO BE USED«, t00=0x0026, t01=0x017e}
0x03cfc…03d0e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x001a}
0x03d0e…03d40 Head {h00=0x002e, h01=0x0050, text=» ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME «, t00=0x0027, t01=0x002c}
0x03d40…03d68 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD =2«, t00=0x0027, t01=0x005e}
0x03d68…03d8a Head {h00=0x001e, h01=0x0050, text=» ST A1,OPTION+STKEND =2 «, t00=0x0027, t01=0x0086}
0x03d8a…03db2 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/FFF RESET TYPE BITS =2«, t00=0x0027, t01=0x00a8}
0x03db2…03de0 Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTOPT AND SET AS NEW OPTION =2«, t00=0x0027, t01=0x00d0}
0x03de0…03dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fe}
0x03dea…03e36 Head {h00=0x0048, h01=0x0050, text=»* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0027, t01=0x0108}
0x03e36…03e62 Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0027, t01=0x0154}
0x03e62…03e8e Head {h00=0x0028, h01=0x0050, text=» ST A9,MXBUF ADDRESS TO READ-BUFFER «, t00=0x0027, t01=0x0180}
0x03e8e…03ebc Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x001c}
0x03ebc…03ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004a}
0x03ec6…03ef0 Head {h00=0x0026, h01=0x0050, text=»* INITIALIZE PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x0054}
0x03ef0…03efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007e}
0x03efa…03f10 Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0028, t01=0x0088}
0x03f10…03f28 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0028, t01=0x009e}
0x03f28…03f5a Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVCON COMPUTE START OF APPL. TABLE«, t00=0x0028, t01=0x00b6}
0x03f5a…03f80 Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0028, t01=0x00e8}
0x03f80…03f92 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x010e}
0x03f92…03fb8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:233 CASSETTE LOADING«, t00=0x0028, t01=0x0120}
0x03fb8…03fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0146}
0x03fc2…03ff8 Head {h00=0x0032, h01=0x0050, text=» ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV.«, t00=0x0028, t01=0x0150}
0x03ff8…04006 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0186}
0x04006…0401a (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=»AP:232 EQU *«, t00=0x0029, t01=0x0004}
0x0401a…04032 Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1 =12 «, t00=0x0029, t01=0x0018}
0x04032…0403c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0030}
0x0403c…04066 Head {h00=0x0026, h01=0x0050, text=»* LOAD MONITOR EXTENTS IF PRESENT«, t00=0x0029, t01=0x003a}
0x04066…04070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0064}
0x04070…0409c Head {h00=0x0028, h01=0x0050, text=» CF A14,LODMEX LOAD MONITOR EXTENTS«, t00=0x0029, t01=0x006e}
0x0409c…040a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x009a}
0x040a8…040b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a6}
0x040b2…040da Head {h00=0x0024, h01=0x0050, text=»* SCAN CONF. FILE FOR POSSIBLE «, t00=0x0029, t01=0x00b0}
0x040da…04102 Head {h00=0x0024, h01=0x0050, text=»* APPLICATION DEFINITION BLOCKS«, t00=0x0029, t01=0x00d8}
0x04102…0410c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x0410c…04122 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCNCON«, t00=0x0029, t01=0x010a}
0x04122…0414e Head {h00=0x0028, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET ADDRESS TO «, t00=0x0029, t01=0x0120}
0x0414e…0417a Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 CURRENT APPL. CONTR. BLOCK«, t00=0x0029, t01=0x014c}
0x0417a…041b4 Head {h00=0x0036, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS «, t00=0x0029, t01=0x0178}
0x041b4…041f0 Head {h00=0x0038, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS«, t00=0x002a, t01=0x0022}
0x041f0…0421c Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x002a, t01=0x005e}
0x0421c…04242 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x002a, t01=0x008a}
0x04242…04256 Head {h00=0x0010, h01=0x0050, text=»AP:233 EQU *«, t00=0x002a, t01=0x00b0}
0x04256…0428a Head {h00=0x0030, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS«, t00=0x002a, t01=0x00c4}
0x0428a…042b6 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A1 GET NO OF APPL. TO LOAD «, t00=0x002a, t01=0x00f8}
0x042b6…042d8 Head {h00=0x001e, h01=0x0050, text=» NGR A6,A6 NEGATE AND SAVE«, t00=0x002a, t01=0x0124}
0x042d8…04300 Head {h00=0x0024, h01=0x0050, text=» ST A6,APLCNT+STKEND AS COUNTER «, t00=0x002a, t01=0x0146}
0x04300…04312 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x016e}
0x04312…0434a Head {h00=0x0034, h01=0x0050, text=» ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK«, t00=0x002a, t01=0x0180}
0x0434a…0435e Head {h00=0x0010, h01=0x0050, text=»AP:234 EQU *«, t00=0x002b, t01=0x0028}
0x0435e…0438a Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTEFA GET FIRST FRAME TO USE«, t00=0x002b, t01=0x003c}
0x0438a…043b6 Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTEFA+2 AND AREA EMPTY IN IT«, t00=0x002b, t01=0x0068}
0x043b6…043f4 Head {h00=0x003a, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR.«, t00=0x002b, t01=0x0094}
0x043f4…04402 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00d2}
0x04402…04416 Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x002b, t01=0x00e0}
0x04416…04420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x04420…04452 Head {h00=0x002e, h01=0x0050, text=»* SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x002b, t01=0x00fe}
0x04452…0445c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0130}
0x0445c…04494 Head {h00=0x0034, h01=0x0050, text=» CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x002b, t01=0x013a}
0x04494…044ca Head {h00=0x0032, h01=0x0050, text=» CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST «, t00=0x002b, t01=0x0172}
0x044ca…044f8 Head {h00=0x002a, h01=0x0050, text=» CM APLSEG+2,A1 CORE RESIDENT SEGMENT «, t00=0x002c, t01=0x0018}
0x044f8…04530 Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA «, t00=0x002c, t01=0x0046}
0x04530…04562 Head {h00=0x002e, h01=0x0050, text=» CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 «, t00=0x002c, t01=0x007e}
0x04562…04596 Head {h00=0x0030, h01=0x0050, text=» CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 «, t00=0x002c, t01=0x00b0}
0x04596…045d4 Head {h00=0x003a, h01=0x0050, text=» LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.)«, t00=0x002c, t01=0x00e4}
0x045d4…045f2 Head {h00=0x001a, h01=0x0050, text=» ST A6,APLSTA,A1 SAVE «, t00=0x002c, t01=0x0122}
0x045f2…04618 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002c, t01=0x0140}
0x04618…04644 Head {h00=0x0028, h01=0x0050, text=» LD A6,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x002c, t01=0x0166}
0x04644…0467c (45, 0, 400) Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) «, t00=0x002d, t01=0x0004}
0x0467c…046a4 Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CR' CREDIT APPLICATION?«, t00=0x002d, t01=0x003c}
0x046a4…046ba Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0064}
0x046ba…046c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007a}
0x046c4…046f6 Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) «, t00=0x002d, t01=0x0084}
0x046f6…0471e Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CO' COBOL APPLICATION? «, t00=0x002d, t01=0x00b6}
0x0471e…04734 Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x00de}
0x04734…0473e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f4}
0x0473e…04770 Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) «, t00=0x002d, t01=0x00fe}
0x04770…04796 Head {h00=0x0022, h01=0x0050, text=» CWK A6,'BA' BASIC APLICATION?«, t00=0x002d, t01=0x0130}
0x04796…047ac Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0156}
0x047ac…047b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016c}
0x047b6…047de Head {h00=0x0024, h01=0x0050, text=» LDKL A6,'AS' SET ASSEMBLER TYPE«, t00=0x002d, t01=0x0176}
0x047de…04814 Head {h00=0x0032, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) «, t00=0x002e, t01=0x000e}
0x04814…04828 Head {h00=0x0010, h01=0x0050, text=»AP2340 EQU *«, t00=0x002e, t01=0x0044}
0x04828…04856 Head {h00=0x002a, h01=0x0050, text=» ST A6,APLTYP,A1 SAVE APPLICATION TYPE«, t00=0x002e, t01=0x0058}
0x04856…04886 Head {h00=0x002c, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2«, t00=0x002e, t01=0x0086}
0x04886…048a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2345 =2«, t00=0x002e, t01=0x00b6}
0x048a0…048da Head {h00=0x0036, h01=0x0050, text=» AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 «, t00=0x002e, t01=0x00d0}
0x048da…048f8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AP2345 YES =2 «, t00=0x002e, t01=0x010a}
0x048f8…04928 Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP9 NO, WRONG MONITOR OPTION =2«, t00=0x002e, t01=0x0128}
0x04928…04940 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR =2«, t00=0x002e, t01=0x0158}
0x04940…0495a Head {h00=0x0016, h01=0x0050, text=»AP2345 EQU * =2 «, t00=0x002e, t01=0x0170}
0x0495a…04984 Head {h00=0x0026, h01=0x0050, text=» ORR A2,A4 SET BIT IN OPTION WORD «, t00=0x002e, t01=0x018a}
0x04984…049a2 Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTOPT AND SAVE«, t00=0x002f, t01=0x0024}
0x049a2…049b6 Head {h00=0x0010, h01=0x0050, text=» CWK A6,'AS'«, t00=0x002f, t01=0x0042}
0x049b6…049e4 Head {h00=0x002a, h01=0x0050, text=» RF(E) AP2350 SKIP IF ASSEMBLER APPL. «, t00=0x002f, t01=0x0056}
0x049e4…049ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x049ee…04a1e Head {h00=0x002c, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE «, t00=0x002f, t01=0x008e}
0x04a1e…04a58 Head {h00=0x0036, h01=0x0050, text=» CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE«, t00=0x002f, t01=0x00be}
0x04a58…04a8a Head {h00=0x002e, h01=0x0050, text=» RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE «, t00=0x002f, t01=0x00f8}
0x04a8a…04a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x04a94…04ac8 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE«, t00=0x002f, t01=0x0134}
0x04ac8…04adc Head {h00=0x0010, h01=0x0050, text=»AP2350 EQU *«, t00=0x002f, t01=0x0168}
0x04adc…04af2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x017c}
0x04af2…04b00 (48, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0004}
0x04b00…04b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0012}
0x04b0a…04b40 Head {h00=0x0032, h01=0x0050, text=»* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0030, t01=0x001c}
0x04b40…04b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0052}
0x04b4a…04b76 Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0030, t01=0x005c}
0x04b76…04b9e Head {h00=0x0024, h01=0x0050, text=» ABL(E) AP:330 YES! NO SEGMENTS «, t00=0x0030, t01=0x0088}
0x04b9e…04bb6 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0030, t01=0x00b0}
0x04bb6…04bde Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/3FF EVEN 1K MULTIPLE? «, t00=0x0030, t01=0x00c8}
0x04bde…04bf8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:237 YES!«, t00=0x0030, t01=0x00f0}
0x04bf8…04c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010a}
0x04c02…04c16 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0030, t01=0x0114}
0x04c16…04c42 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0030, t01=0x0128}
0x04c42…04c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0154}
0x04c4c…04c60 Head {h00=0x0010, h01=0x0050, text=»AP:237 EQU *«, t00=0x0030, t01=0x015e}
0x04c60…04c96 Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED «, t00=0x0030, t01=0x0172}
0x04c96…04ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0018}
0x04ca0…04cb4 Head {h00=0x0010, h01=0x0050, text=»AP:238 EQU *«, t00=0x0031, t01=0x0022}
0x04cb4…04cd8 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0031, t01=0x0036}
0x04cd8…04ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005a}
0x04ce2…04d18 Head {h00=0x0032, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM.«, t00=0x0031, t01=0x0064}
0x04d18…04d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009a}
0x04d22…04d58 Head {h00=0x0032, h01=0x0050, text=»* A1 - POINTER TO CURRENT APPL. CONTR. BLOCK «, t00=0x0031, t01=0x00a4}
0x04d58…04d7e Head {h00=0x0022, h01=0x0050, text=»* A3 - PAGESIZE IN 1K BLOCKS «, t00=0x0031, t01=0x00da}
0x04d7e…04da4 Head {h00=0x0022, h01=0x0050, text=»* A5 - OFFSET WITHIN 4K PAGE «, t00=0x0031, t01=0x0100}
0x04da4…04dd2 Head {h00=0x002a, h01=0x0050, text=»* A7 - PAGE FRAME ADDR. (PHYS. ADDR.)«, t00=0x0031, t01=0x0126}
0x04dd2…04e02 Head {h00=0x002c, h01=0x0050, text=»* A4 - AREA LEFT IN LAST 4K PAGE FRAME «, t00=0x0031, t01=0x0154}
0x04e02…04e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0184}
0x04e0c…04e38 Head {h00=0x0028, h01=0x0050, text=»* STORE ADDRESS(ES) TO PAGE FRAMES «, t00=0x0031, t01=0x018e}
0x04e38…04e62 Head {h00=0x0026, h01=0x0050, text=»* HOLDING THE FIRST LOGICAL PAGE «, t00=0x0032, t01=0x002a}
0x04e62…04e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0054}
0x04e6c…04e9c Head {h00=0x002c, h01=0x0050, text=» SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 «, t00=0x0032, t01=0x005e}
0x04e9c…04ec8 Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND GET END OF MMU-TABLE «, t00=0x0032, t01=0x008e}
0x04ec8…04eee Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 AND NO OF ENTRIES «, t00=0x0032, t01=0x00ba}
0x04eee…04f1c Head {h00=0x002a, h01=0x0050, text=» LDR A4,A5 GET AREA LEFT IN LAST FRAME«, t00=0x0032, t01=0x00e0}
0x04f1c…04f30 Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0032, t01=0x010e}
0x04f30…04f5c Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x0032, t01=0x0122}
0x04f5c…04f8a Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0032, t01=0x014e}
0x04f8a…04fc0 Head {h00=0x0032, h01=0x0050, text=» SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE «, t00=0x0032, t01=0x017c}
0x04fc0…04fd6 Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0033, t01=0x0022}
0x04fd6…04ffe Head {h00=0x0024, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K BYTES PAGE«, t00=0x0033, t01=0x0038}
0x04ffe…05008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0060}
0x05008…0502e Head {h00=0x0022, h01=0x0050, text=»* RESERVE ONE EXTRA MMU ENTRY«, t00=0x0033, t01=0x006a}
0x0502e…05052 Head {h00=0x0020, h01=0x0050, text=»* WHEN PAGE SIZE IS NOT AN «, t00=0x0033, t01=0x0090}
0x05052…05070 Head {h00=0x001a, h01=0x0050, text=»* EVEN MULTIPLE OF 4K«, t00=0x0033, t01=0x00b4}
0x05070…0507a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d2}
0x0507a…050a2 Head {h00=0x0024, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET PAGE SIZE «, t00=0x0033, t01=0x00dc}
0x050a2…050d0 Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/C00 GET LENGTH IN MODULO 4K «, t00=0x0033, t01=0x0104}
0x050d0…050f4 Head {h00=0x0020, h01=0x0050, text=» CWK A3,/400 PAGE SIZE = 1K?«, t00=0x0033, t01=0x0132}
0x050f4…05120 Head {h00=0x0028, h01=0x0050, text=» RF(E) AP:300 YES! ONE ENTRY ENOUGH «, t00=0x0033, t01=0x0156}
0x05120…0512a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0182}
0x0512a…05154 Head {h00=0x0026, h01=0x0050, text=» SUK A6,2 ALLOCATE ONE ENTRY EXTRA«, t00=0x0033, t01=0x018c}
0x05154…05166 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0034, t01=0x0026}
0x05166…05170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0038}
0x05170…05184 Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0034, t01=0x0042}
0x05184…051bc Head {h00=0x0034, h01=0x0050, text=» LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS?«, t00=0x0034, t01=0x0056}
0x051bc…051d6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:310 NO! «, t00=0x0034, t01=0x008e}
0x051d6…051e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a8}
0x051e0…0520c Head {h00=0x0028, h01=0x0050, text=» LDR A2,A7 GET SEGMENT FRAME ADDRESS«, t00=0x0034, t01=0x00b2}
0x0520c…0522e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 SAVE MMU ENTRY «, t00=0x0034, t01=0x00de}
0x0522e…05238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0100}
0x05238…0524c Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0034, t01=0x010a}
0x0524c…0527a Head {h00=0x002a, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO PAGE FRAME«, t00=0x0034, t01=0x011e}
0x0527a…052a8 Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0034, t01=0x014c}
0x052a8…052d0 Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0034, t01=0x017a}
0x052d0…052ea Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0035, t01=0x0012}
0x052ea…052f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x052f4…05324 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/400 INCREMENT PAGE FRAME ADDR.«, t00=0x0035, t01=0x0036}
0x05324…05336 Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0035, t01=0x0066}
0x05336…05340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0078}
0x05340…05354 Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0035, t01=0x0082}
0x05354…0535e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0096}
0x0535e…0537e Head {h00=0x001c, h01=0x0050, text=»* SAVE LOGICAL ADDRESS «, t00=0x0035, t01=0x00a0}
0x0537e…05394 Head {h00=0x0012, h01=0x0050, text=»* TO SEGMENT «, t00=0x0035, t01=0x00c0}
0x05394…0539e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d6}
0x0539e…053be Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0035, t01=0x00e0}
0x053be…053e8 Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0035, t01=0x0100}
0x053e8…05422 Head {h00=0x0036, h01=0x0050, text=» ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK«, t00=0x0035, t01=0x012a}
0x05422…0544e Head {h00=0x0028, h01=0x0050, text=» ORR A2,A4 CONCATENATE DISPLACEMENT «, t00=0x0035, t01=0x0164}
0x0544e…0548a Head {h00=0x0038, h01=0x0050, text=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR.«, t00=0x0035, t01=0x0190}
0x0548a…0549c Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0036, t01=0x003c}
0x0549c…054a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004e}
0x054a6…054c4 Head {h00=0x001a, h01=0x0050, text=»* NO SEGMENTS DEFINED«, t00=0x0036, t01=0x0058}
0x054c4…054ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0076}
0x054ce…054e2 Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0036, t01=0x0080}
0x054e2…05516 Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x0036, t01=0x0094}
0x05516…05542 Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND INITIATE MMU POINTER «, t00=0x0036, t01=0x00c8}
0x05542…0556c Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 AND MMU ENTRY POINTER «, t00=0x0036, t01=0x00f4}
0x0556c…05596 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A5 AREA LEFT IN LAST FRAME«, t00=0x0036, t01=0x011e}
0x05596…055aa Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0036, t01=0x0148}
0x055aa…055b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015c}
0x055b4…055e0 Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION START ADDRESS «, t00=0x0036, t01=0x0166}
0x055e0…055ea (55, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0004}
0x055ea…0561e Head {h00=0x0030, h01=0x0050, text=»* A1 - POINTER TO APPLICATION CONTROL BLOCK«, t00=0x0037, t01=0x000e}
0x0561e…0564e Head {h00=0x002c, h01=0x0050, text=»* A4 - AREA LEFT IN CURRENT PAGE FRAME «, t00=0x0037, t01=0x0042}
0x0564e…05674 Head {h00=0x0022, h01=0x0050, text=»* A7 - PHYSICAL PAGE ADDRESS «, t00=0x0037, t01=0x0072}
0x05674…05696 Head {h00=0x001e, h01=0x0050, text=»* A6 - MMU ENTRY ADDRESS «, t00=0x0037, t01=0x0098}
0x05696…056b8 Head {h00=0x001e, h01=0x0050, text=»* A8 - CURRENT MMU ENTRY «, t00=0x0037, t01=0x00ba}
0x056b8…056c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00dc}
0x056c2…056f6 Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0037, t01=0x00e6}
0x056f6…05724 Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0037, t01=0x011a}
0x05724…05744 Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0037, t01=0x0148}
0x05744…0575e Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:336 NO!«, t00=0x0037, t01=0x0168}
0x0575e…05768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0182}
0x05768…05798 Head {h00=0x002c, h01=0x0050, text=» ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0037, t01=0x018c}
0x05798…057ac Head {h00=0x0010, h01=0x0050, text=»AP:336 EQU *«, t00=0x0038, t01=0x002c}
0x057ac…057be Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0038, t01=0x0040}
0x057be…057e6 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0038, t01=0x0052}
0x057e6…057f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007a}
0x057f0…05818 Head {h00=0x0024, h01=0x0050, text=»* IF APPLICATION IS LARGER THAN«, t00=0x0038, t01=0x0084}
0x05818…0583c Head {h00=0x0020, h01=0x0050, text=»* 60 K BYTES, START ON A 4K«, t00=0x0038, t01=0x00ac}
0x0583c…05862 Head {h00=0x0022, h01=0x0050, text=»* BOUNDARY, TO MAKE SURE THAT«, t00=0x0038, t01=0x00d0}
0x05862…05884 Head {h00=0x001e, h01=0x0050, text=»* LOGICAL MEMORY WILL BE «, t00=0x0038, t01=0x00f6}
0x05884…058a0 Head {h00=0x0018, h01=0x0050, text=»* MAXIMAL POSSIBLE.«, t00=0x0038, t01=0x0118}
0x058a0…058aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0134}
0x058aa…058bc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0038, t01=0x013e}
0x058bc…058de Head {h00=0x001e, h01=0x0050, text=» SRL A5,12 NO OF 4K BLOCKS«, t00=0x0038, t01=0x0150}
0x058de…058fc Head {h00=0x001a, h01=0x0050, text=» CWK A5,15 >60 KBYTES?«, t00=0x0038, t01=0x0172}
0x058fc…05916 Head {h00=0x0016, h01=0x0050, text=» RF(L) AP:337 NO! «, t00=0x0038, t01=0x0190}
0x05916…05920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x001a}
0x05920…05948 Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 START ON A 4K BOUNDARY«, t00=0x0039, t01=0x0024}
0x05948…0595a Head {h00=0x000e, h01=0x0050, text=» RF AP:341«, t00=0x0039, t01=0x004c}
0x0595a…05964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x005e}
0x05964…05978 Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x0039, t01=0x0068}
0x05978…059a2 Head {h00=0x0026, h01=0x0050, text=» ADK A2,0 RESTORE LENGTH CONDITION«, t00=0x0039, t01=0x007c}
0x059a2…059cc Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:340 LARGER THAN ONE PAGE«, t00=0x0039, t01=0x00a6}
0x059cc…059d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d0}
0x059d6…05a00 Head {h00=0x0026, h01=0x0050, text=»* APPLICATION IS SMALLER THAN 32 K«, t00=0x0039, t01=0x00da}
0x05a00…05a2a Head {h00=0x0026, h01=0x0050, text=»* BUT IS IT SMALLER THAN AREA LEFT«, t00=0x0039, t01=0x0104}
0x05a2a…05a4c Head {h00=0x001e, h01=0x0050, text=»* IN LAST ALLOCATED PAGE? «, t00=0x0039, t01=0x012e}
0x05a4c…05a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0150}
0x05a56…05a68 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0039, t01=0x015a}
0x05a68…05a84 Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:340 LARGER«, t00=0x0039, t01=0x016c}
0x05a84…05a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0188}
0x05a8e…05aba (58, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* APPLICATION LENGTH LESS THAN AREA «, t00=0x003a, t01=0x0004}
0x05aba…05ad6 Head {h00=0x0018, h01=0x0050, text=»* LEFT IN LAST PAGE «, t00=0x003a, t01=0x0030}
0x05ad6…05afa Head {h00=0x0020, h01=0x0050, text=»* COPY FRAME ADDRESS IN NEXT«, t00=0x003a, t01=0x004c}
0x05afa…05b0e Head {h00=0x0010, h01=0x0050, text=»* MMU ENTRY «, t00=0x003a, t01=0x0070}
0x05b0e…05b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0084}
0x05b18…05b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008e}
0x05b22…05b34 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003a, t01=0x0098}
0x05b34…05b5a Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABBE OVERFLOW! «, t00=0x003a, t01=0x00aa}
0x05b5a…05b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d0}
0x05b64…05b76 Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x003a, t01=0x00da}
0x05b76…05b9a Head {h00=0x0020, h01=0x0050, text=» STR A7,A6 UPDATE MMU ENTRY «, t00=0x003a, t01=0x00ec}
0x05b9a…05bca Head {h00=0x002c, h01=0x0050, text=» LDR A5,A2 RESTORE LENGTH OF COMMON PART«, t00=0x003a, t01=0x0110}
0x05bca…05bdc Head {h00=0x000e, h01=0x0050, text=» RF AP:351«, t00=0x003a, t01=0x0140}
0x05bdc…05be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0152}
0x05be6…05bfa Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x003a, t01=0x015c}
0x05bfa…05c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0170}
0x05c04…05c30 Head {h00=0x0028, h01=0x0050, text=»* RESERVE ENTRIES IN MMU TABLE FOR «, t00=0x003a, t01=0x017a}
0x05c30…05c56 Head {h00=0x0022, h01=0x0050, text=»* COMMON PART OF APPLICATION «, t00=0x003b, t01=0x0016}
0x05c56…05c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003c}
0x05c60…05c88 Head {h00=0x0024, h01=0x0050, text=»* A4 - AREA MAPPED BUT NOT USED«, t00=0x003b, t01=0x0046}
0x05c88…05caa Head {h00=0x001e, h01=0x0050, text=»* IN LAST MMU ENTRY «, t00=0x003b, t01=0x006e}
0x05caa…05cd0 Head {h00=0x0022, h01=0x0050, text=»* A2 - LENGTH OF COMMON PART «, t00=0x003b, t01=0x0090}
0x05cd0…05cf0 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 EMPTY FRAME? «, t00=0x003b, t01=0x00b6}
0x05cf0…05d0a Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:341 YES!«, t00=0x003b, t01=0x00d6}
0x05d0a…05d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f0}
0x05d14…05d40 Head {h00=0x0028, h01=0x0050, text=» SUKL A8,1 NO, ANY MMU ENTRIES LEFT?«, t00=0x003b, t01=0x00fa}
0x05d40…05d5a Head {h00=0x0016, h01=0x0050, text=» RF(N) TABOVF NO! «, t00=0x003b, t01=0x0126}
0x05d5a…05d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0140}
0x05d64…05d90 Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 ADVANCE TO NEXT MMU ENTRY «, t00=0x003b, t01=0x014a}
0x05d90…05dba Head {h00=0x0026, h01=0x0050, text=» STR A7,A6 AND COPY FRAME ADDRESS «, t00=0x003b, t01=0x0176}
0x05dba…05dce Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x003c, t01=0x0010}
0x05dce…05e04 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME«, t00=0x003c, t01=0x0024}
0x05e04…05e34 Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET AREA LEFT IN LAST FRAME «, t00=0x003c, t01=0x005a}
0x05e34…05e62 Head {h00=0x002a, h01=0x0050, text=» LDR A5,A2 SAVE REMAINING AREA NEEDED «, t00=0x003c, t01=0x008a}
0x05e62…05e84 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:351 NOTHING LEFT«, t00=0x003c, t01=0x00b8}
0x05e84…05e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x05e8e…05ebc Head {h00=0x002a, h01=0x0050, text=» SRL A2,12 CONVERT TO NO OF 4K FRAMES «, t00=0x003c, t01=0x00e4}
0x05ebc…05ed2 Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/0FFF«, t00=0x003c, t01=0x0112}
0x05ed2…05ef4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:342 NO REMAINDER«, t00=0x003c, t01=0x0128}
0x05ef4…05efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014a}
0x05efe…05f28 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 ALLOCATE ONE MORE ENTRY «, t00=0x003c, t01=0x0154}
0x05f28…05f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017e}
0x05f32…05f4e Head {h00=0x0018, h01=0x0050, text=»* UPDTE MMU ENTRIES«, t00=0x003c, t01=0x0188}
0x05f4e…05f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0014}
0x05f58…05f6c Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x003d, t01=0x001e}
0x05f6c…05f96 Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 MORE ENTRIES TO UPDATE? «, t00=0x003d, t01=0x0032}
0x05f96…05fb0 Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:350 NO! «, t00=0x003d, t01=0x005c}
0x05fb0…05fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0076}
0x05fba…05fe8 Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x003d, t01=0x0080}
0x05fe8…0600e Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABLE OVERFLOW! «, t00=0x003d, t01=0x00ae}
0x0600e…06018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d4}
0x06018…06044 Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x003d, t01=0x00de}
0x06044…06072 Head {h00=0x002a, h01=0x0050, text=» SUKL A7,/400 DECREMENT FRAME ADDRESS «, t00=0x003d, t01=0x010a}
0x06072…06098 Head {h00=0x0022, h01=0x0050, text=» STR A7,A6 STORE FRAME ADDRESS«, t00=0x003d, t01=0x0138}
0x06098…060aa Head {h00=0x000e, h01=0x0050, text=» RB AP:342«, t00=0x003d, t01=0x015e}
0x060aa…060b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0170}
0x060b4…060c8 Head {h00=0x0010, h01=0x0050, text=»TABOVF EQU *«, t00=0x003d, t01=0x017a}
0x060c8…060dc Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x003d, t01=0x018e}
0x060dc…06106 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR SIGNAL TABBE OVERFLOW!«, t00=0x003e, t01=0x0012}
0x06106…0611a Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x003e, t01=0x003c}
0x0611a…06130 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003e, t01=0x0050}
0x06130…06154 Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x003e, t01=0x0066}
0x06154…0615e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008a}
0x0615e…06172 Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x003e, t01=0x0094}
0x06172…0617c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a8}
0x0617c…061b0 Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME«, t00=0x003e, t01=0x00b2}
0x061b0…061c6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x003e, t01=0x00e6}
0x061c6…061d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fc}
0x061d0…061f6 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGSIZ GET FRAME SIZE«, t00=0x003e, t01=0x0106}
0x061f6…0620a Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003e, t01=0x012c}
0x0620a…06242 Head {h00=0x0034, h01=0x0050, text=» SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME «, t00=0x003e, t01=0x0140}
0x06242…06262 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x003e, t01=0x0178}
0x06262…06290 Head {h00=0x002a, h01=0x0050, text=» SLL A2,12 MOVE TO FOUR LEFTMOST BITS «, t00=0x003f, t01=0x0008}
0x06290…062a2 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x003f, t01=0x0036}
0x062a2…062ca Head {h00=0x0024, h01=0x0050, text=» ORR A8,A4 LOGICAL START ADDRESS«, t00=0x003f, t01=0x0048}
0x062ca…062f6 Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x003f, t01=0x0070}
0x062f6…06310 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:352 NO!«, t00=0x003f, t01=0x009c}
0x06310…0631a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x0631a…06348 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,10 SKIP FIVE PRECEEDING WORDS«, t00=0x003f, t01=0x00c0}
0x06348…0635c Head {h00=0x0010, h01=0x0050, text=»AP:352 EQU *«, t00=0x003f, t01=0x00ee}
0x0635c…0637e Head {h00=0x001e, h01=0x0050, text=» ST A8,LLDADR+STKEND SAVE «, t00=0x003f, t01=0x0102}
0x0637e…0639c Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x003f, t01=0x0124}
0x0639c…063cc Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME«, t00=0x003f, t01=0x0142}
0x063cc…0640a Head {h00=0x003a, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5)«, t00=0x003f, t01=0x0172}
0x0640a…06432 Head {h00=0x0024, h01=0x0050, text=» ST A4,APLLDA+2,A1 AND BIT 6-17 «, t00=0x0040, t01=0x0020}
0x06432…06462 Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0040, t01=0x0048}
0x06462…0648c Head {h00=0x0026, h01=0x0050, text=» ST A4,LSTADR+STKCOM ADDRESS USED «, t00=0x0040, t01=0x0078}
0x0648c…064bc Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE«, t00=0x0040, t01=0x00a2}
0x064bc…064e4 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x0040, t01=0x00d2}
0x064e4…064fe Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x0040, t01=0x00fa}
0x064fe…06522 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 UPPER LIMIT 64 KB «, t00=0x0040, t01=0x0114}
0x06522…06534 Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0040, t01=0x0138}
0x06534…06548 Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0040, t01=0x014a}
0x06548…06570 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET PHYSICAL ADDRESS«, t00=0x0040, t01=0x015e}
0x06570…06582 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0040, t01=0x0186}
0x06582…065a6 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0041, t01=0x0008}
0x065a6…065d2 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0041, t01=0x002c}
0x065d2…065fe Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0041, t01=0x0058}
0x065fe…0661a Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0041, t01=0x0084}
0x0661a…0662c Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0041, t01=0x00a0}
0x0662c…0663e Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0041, t01=0x00b2}
0x0663e…06656 Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0041, t01=0x00c4}
0x06656…0666a Head {h00=0x0010, h01=0x0050, text=»AP3534 EQU *«, t00=0x0041, t01=0x00dc}
0x0666a…06690 Head {h00=0x0022, h01=0x0050, text=» RB(L) MEMOVF MEMORY OVERFLOW!«, t00=0x0041, t01=0x00f0}
0x06690…066a4 Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0041, t01=0x0116}
0x066a4…066c6 Head {h00=0x001e, h01=0x0050, text=» ST A1,ESYSTA+STKEND SAVE «, t00=0x0041, t01=0x012a}
0x066c6…066f8 Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0041, t01=0x014c}
0x066f8…0671c Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0041, t01=0x017e}
0x0671c…06728 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0012}
0x06728…0673e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0042, t01=0x001e}
0x0673e…0674c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0034}
0x0674c…06760 Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0042, t01=0x0042}
0x06760…0676a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0056}
0x0676a…067ae Head {h00=0x0040, h01=0x0050, text=»* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0042, t01=0x0060}
0x067ae…067b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a4}
0x067b8…067c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ae}
0x067c2…067ec Head {h00=0x0026, h01=0x0050, text=»* CHECK IF ASSEMBLER APPLICATION «, t00=0x0042, t01=0x00b8}
0x067ec…067f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e2}
0x067f6…06822 Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0042, t01=0x00ec}
0x06822…0683c Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:275 YES!«, t00=0x0042, t01=0x0118}
0x0683c…0686a Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0042, t01=0x0132}
0x0686a…0688c Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0042, t01=0x0160}
0x0688c…068bc Head {h00=0x002c, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS«, t00=0x0042, t01=0x0182}
0x068bc…068ec Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 CONFIGURE LOGICAL START ADDR.«, t00=0x0043, t01=0x0022}
0x068ec…0690e Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 TO FIRST SEGMENT«, t00=0x0043, t01=0x0052}
0x0690e…06920 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A5«, t00=0x0043, t01=0x0074}
0x06920…0693c Head {h00=0x0018, h01=0x0050, text=» ST A2,LSTASG+STKEND«, t00=0x0043, t01=0x0086}
0x0693c…06950 Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0043, t01=0x00a2}
0x06950…06982 Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0043, t01=0x00b6}
0x06982…069b0 Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0043, t01=0x00e8}
0x069b0…069d0 Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0043, t01=0x0116}
0x069d0…069ea Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:276 NO!«, t00=0x0043, t01=0x0136}
0x069ea…069f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0150}
0x069f4…06a26 Head {h00=0x002e, h01=0x0050, text=» ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0043, t01=0x015a}
0x06a26…06a3a Head {h00=0x0010, h01=0x0050, text=»AP:276 EQU *«, t00=0x0043, t01=0x018c}
0x06a3a…06a4e Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0044, t01=0x0010}
0x06a4e…06a76 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0044, t01=0x0024}
0x06a76…06ab2 Head {h00=0x0038, h01=0x0050, text=» RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE «, t00=0x0044, t01=0x004c}
0x06ab2…06abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0088}
0x06abc…06afe Head {h00=0x003e, h01=0x0050, text=» CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME «, t00=0x0044, t01=0x0092}
0x06afe…06b1a Head {h00=0x0018, h01=0x0050, text=» RF(NG) AP:280 YES! «, t00=0x0044, t01=0x00d4}
0x06b1a…06b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f0}
0x06b24…06b38 Head {h00=0x0010, h01=0x0050, text=»AP:278 EQU *«, t00=0x0044, t01=0x00fa}
0x06b38…06b6e Head {h00=0x0032, h01=0x0050, text=» SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME«, t00=0x0044, t01=0x010e}
0x06b6e…06b9e Head {h00=0x002c, h01=0x0050, text=» LDK A5,0 NO AREA LEFT IN CURRENT FRAME «, t00=0x0044, t01=0x0144}
0x06b9e…06bc6 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A10 GET REMAINING LENGTH«, t00=0x0044, t01=0x0174}
0x06bc6…06bee Head {h00=0x0024, h01=0x0050, text=» SRL A2,12 COUNT NO OF 4K BLOCKS«, t00=0x0045, t01=0x000c}
0x06bee…06c1e Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS BLOCK COUNT «, t00=0x0045, t01=0x0034}
0x06c1e…06c46 Head {h00=0x0024, h01=0x0050, text=» SUR A7,A2 SUBTRACT AREA NEEDED «, t00=0x0045, t01=0x0064}
0x06c46…06c6c Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x008c}
0x06c6c…06c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b2}
0x06c76…06ca8 Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER«, t00=0x0045, t01=0x00bc}
0x06ca8…06cca Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:279 NO REMAINDER«, t00=0x0045, t01=0x00ee}
0x06cca…06cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0110}
0x06cd4…06d02 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ RESERVE ONE NEW FRAME «, t00=0x0045, t01=0x011a}
0x06d02…06d14 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0045, t01=0x0148}
0x06d14…06d3a Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x015a}
0x06d3a…06d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0180}
0x06d44…06d58 Head {h00=0x0010, h01=0x0050, text=»AP:279 EQU *«, t00=0x0045, t01=0x018a}
0x06d58…06d80 Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0046, t01=0x000e}
0x06d80…06d94 Head {h00=0x0010, h01=0x0050, text=»AP:280 EQU *«, t00=0x0046, t01=0x0036}
0x06d94…06dca Head {h00=0x0032, h01=0x0050, text=» SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME«, t00=0x0046, t01=0x004a}
0x06dca…06de4 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x0046, t01=0x0080}
0x06de4…06e00 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x0046, t01=0x009a}
0x06e00…06e1e Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0046, t01=0x00b6}
0x06e1e…06e54 Head {h00=0x0032, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE «, t00=0x0046, t01=0x00d4}
0x06e54…06e8e Head {h00=0x0036, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5)«, t00=0x0046, t01=0x010a}
0x06e8e…06ec4 Head {h00=0x0032, h01=0x0050, text=» ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION«, t00=0x0046, t01=0x0144}
0x06ec4…06ef4 Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0046, t01=0x017a}
0x06ef4…06f1e Head {h00=0x0026, h01=0x0050, text=» ST A5,LSTADR+STKCOM ADDRESS USED «, t00=0x0047, t01=0x001a}
0x06f1e…06f30 Head {h00=0x000e, h01=0x0050, text=» SLL A7,2 «, t00=0x0047, t01=0x0044}
0x06f30…06f44 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A7 «, t00=0x0047, t01=0x0056}
0x06f44…06f76 Head {h00=0x002e, h01=0x0050, text=» ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR.«, t00=0x0047, t01=0x006a}
0x06f76…06fa2 Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0047, t01=0x009c}
0x06fa2…06fca Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x0047, t01=0x00c8}
0x06fca…06fe0 Head {h00=0x0012, h01=0x0050, text=» RF(G) AP:290 «, t00=0x0047, t01=0x00f0}
0x06fe0…06fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0106}
0x06fea…06ffe Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x0047, t01=0x0110}
0x06ffe…07024 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW!«, t00=0x0047, t01=0x0124}
0x07024…07038 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x014a}
0x07038…07042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x015e}
0x07042…07056 Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0047, t01=0x0168}
0x07056…07082 Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0047, t01=0x017c}
0x07082…0709c Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:295 NO!«, t00=0x0048, t01=0x0018}
0x0709c…070a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0032}
0x070a6…070d2 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,10 SKIP 5 PRECEEDING WORDS«, t00=0x0048, t01=0x003c}
0x070d2…070e6 Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0048, t01=0x0068}
0x070e6…0711c Head {h00=0x0032, h01=0x0050, text=» ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS «, t00=0x0048, t01=0x007c}
0x0711c…0713a Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x0048, t01=0x00b2}
0x0713a…0715a Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x0048, t01=0x00d0}
0x0715a…07190 Head {h00=0x0032, h01=0x0050, text=» LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS«, t00=0x0048, t01=0x00f0}
0x07190…071ca Head {h00=0x0036, h01=0x0050, text=» ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS«, t00=0x0048, t01=0x0126}
0x071ca…071fc Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0048, t01=0x0160}
0x071fc…07208 (73, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0004}
0x07208…07216 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0010}
0x07216…07220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001e}
0x07220…07240 Head {h00=0x001c, h01=0x0050, text=»* COMMON EXECUTION PATH«, t00=0x0049, t01=0x0028}
0x07240…0724a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0048}
0x0724a…07288 Head {h00=0x003a, h01=0x0050, text=»* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x0049, t01=0x0052}
0x07288…07292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0090}
0x07292…072ba Head {h00=0x0024, h01=0x0050, text=»* A8 - APPLICATION LOAD ADDRESS«, t00=0x0049, t01=0x009a}
0x072ba…072e8 Head {h00=0x002a, h01=0x0050, text=»* A10 - LENGTH OF CORE RESIDENT PART «, t00=0x0049, t01=0x00c2}
0x072e8…072f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00f0}
0x072f2…07306 Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x0049, t01=0x00fa}
0x07306…07346 Head {h00=0x003c, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER«, t00=0x0049, t01=0x010e}
0x07346…07374 Head {h00=0x002a, h01=0x0050, text=» ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS «, t00=0x0049, t01=0x014e}
0x07374…073ae Head {h00=0x0036, h01=0x0050, text=» ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE «, t00=0x0049, t01=0x017c}
0x073ae…073e6 Head {h00=0x0034, h01=0x0050, text=» CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. «, t00=0x004a, t01=0x0026}
0x073e6…07420 Head {h00=0x0036, h01=0x0050, text=» LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK «, t00=0x004a, t01=0x005e}
0x07420…07448 Head {h00=0x0024, h01=0x0050, text=» ST A7,LOD:10 MODIFY INSTRUCTION«, t00=0x004a, t01=0x0098}
0x07448…07476 Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x004a, t01=0x00c0}
0x07476…07480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ee}
0x07480…074aa Head {h00=0x0026, h01=0x0050, text=»* CHECK IF ASSEMBLER APPLICATION «, t00=0x004a, t01=0x00f8}
0x074aa…074b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0122}
0x074b4…074f0 Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x004a, t01=0x012c}
0x074f0…07520 Head {h00=0x002c, h01=0x0050, text=» LD A2,APLTYP,A1 AND TYPE OF THIS APPL. «, t00=0x004a, t01=0x0168}
0x07520…0754c Head {h00=0x0028, h01=0x0050, text=» CWK A2,'AS' ASSEMBLER APPLICATION? «, t00=0x004b, t01=0x0008}
0x0754c…07566 Head {h00=0x0016, h01=0x0050, text=» ABL(E) AP:400 YES«, t00=0x004b, t01=0x0034}
0x07566…075a4 Head {h00=0x003a, h01=0x0050, text=» LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE«, t00=0x004b, t01=0x004e}
0x075a4…075d8 Head {h00=0x0030, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS «, t00=0x004b, t01=0x008c}
0x075d8…0760a Head {h00=0x002e, h01=0x0050, text=» ABL(Z) AP:400 NO SEGMENTS IN APPLICATION «, t00=0x004b, t01=0x00c0}
0x0760a…07614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f2}
0x07614…0764c Head {h00=0x0034, h01=0x0050, text=» CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED«, t00=0x004b, t01=0x00fc}
0x0764c…07662 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0134}
0x07662…07694 Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x004b, t01=0x014a}
0x07694…076a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x017c}
0x076a0…076b4 Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x004b, t01=0x0188}
0x076b4…076be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000c}
0x076be…076e8 Head {h00=0x0026, h01=0x0050, text=»* READ AND RELOCATE THE SEGMENTS «, t00=0x004c, t01=0x0016}
0x076e8…076f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0040}
0x076f2…07724 Head {h00=0x002e, h01=0x0050, text=»* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x004c, t01=0x004a}
0x07724…07744 Head {h00=0x001c, h01=0x0050, text=»* A10 - SEGMENT LENGTH «, t00=0x004c, t01=0x007c}
0x07744…0774e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x0774e…07788 Head {h00=0x0036, h01=0x0050, text=» LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR.«, t00=0x004c, t01=0x00a6}
0x07788…077bc Head {h00=0x0030, h01=0x0050, text=» LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. «, t00=0x004c, t01=0x00e0}
0x077bc…077da Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x004c, t01=0x0114}
0x077da…0780a Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004c, t01=0x0132}
0x0780a…0781e Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x004c, t01=0x0162}
0x0781e…07834 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x004c, t01=0x0176}
0x07834…07856 Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x004c, t01=0x018c}
0x07856…07880 Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x004d, t01=0x001e}
0x07880…07892 Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x004d, t01=0x0048}
0x07892…078a6 Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x004d, t01=0x005a}
0x078a6…078b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x006e}
0x078b0…078d0 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF DISC PAGING «, t00=0x004d, t01=0x0078}
0x078d0…078da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0098}
0x078da…07900 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x004d, t01=0x00a2}
0x07900…0791e Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x004d, t01=0x00c8}
0x0791e…07938 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x004d, t01=0x00e6}
0x07938…07942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0100}
0x07942…0796c Head {h00=0x0026, h01=0x0050, text=»* CHECK IF CORE RESIDENT SEGMENT «, t00=0x004d, t01=0x010a}
0x0796c…07976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0134}
0x07976…0799c Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x004d, t01=0x013e}
0x0799c…079ca Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 GET MOST SIGNIFICANT PART «, t00=0x004d, t01=0x0164}
0x079ca…079f0 (78, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ANKL A12,/FF OF DISC ADDRESS «, t00=0x004e, t01=0x0004}
0x079f0…07a1e Head {h00=0x002a, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE «, t00=0x004e, t01=0x002a}
0x07a1e…07a4a Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x004e, t01=0x0058}
0x07a4a…07a78 Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x004e, t01=0x0084}
0x07a78…07a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00b2}
0x07a82…07ab0 Head {h00=0x002a, h01=0x0050, text=»* BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x004e, t01=0x00bc}
0x07ab0…07aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x07aba…07aea Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004e, t01=0x00f4}
0x07aea…07b24 Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x004e, t01=0x0124}
0x07b24…07b40 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x004e, t01=0x015e}
0x07b40…07b60 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x004e, t01=0x017a}
0x07b60…07b7c Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x004f, t01=0x000a}
0x07b7c…07bb4 Head {h00=0x0034, h01=0x0050, text=» ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER«, t00=0x004f, t01=0x0026}
0x07bb4…07bc6 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x004f, t01=0x005e}
0x07bc6…07bf0 Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x004f, t01=0x0070}
0x07bf0…07c04 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x009a}
0x07c04…07c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00ae}
0x07c12…07c26 Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x004f, t01=0x00bc}
0x07c26…07c4c Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x004f, t01=0x00d0}
0x07c4c…07c78 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x004f, t01=0x00f6}
0x07c78…07c90 Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x004f, t01=0x0122}
0x07c90…07ccc Head {h00=0x0038, h01=0x0050, text=» AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? «, t00=0x004f, t01=0x013a}
0x07ccc…07cea Head {h00=0x001a, h01=0x0050, text=» RF(O) AP:377 OVERFLOW«, t00=0x004f, t01=0x0176}
0x07cea…07d0a (80, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF AP:378 NOT OVERFLOW «, t00=0x0050, t01=0x0004}
0x07d0a…07d42 Head {h00=0x0034, h01=0x0050, text=»AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS«, t00=0x0050, t01=0x0024}
0x07d42…07d68 Head {h00=0x0022, h01=0x0050, text=» ANKL A11,/7FFF RESET OVERFLOW«, t00=0x0050, t01=0x005c}
0x07d68…07da0 Head {h00=0x0034, h01=0x0050, text=»AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A.«, t00=0x0050, t01=0x0082}
0x07da0…07dbe Head {h00=0x001a, h01=0x0050, text=» CWK A12,255 OVERFLOW?«, t00=0x0050, t01=0x00ba}
0x07dbe…07dee Head {h00=0x002c, h01=0x0050, text=» RB(G) AP:375 YES: ILLEGAL DISC ADDRESS!«, t00=0x0050, t01=0x00d8}
0x07dee…07e0e Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0050, t01=0x0108}
0x07e0e…07e36 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0050, t01=0x0128}
0x07e36…07e4e Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0050, t01=0x0150}
0x07e4e…07e62 Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0050, t01=0x0168}
0x07e62…07e8a Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0050, t01=0x017c}
0x07e8a…07ea6 Head {h00=0x0018, h01=0x0050, text=» ST A8,LLDADR+STKEND«, t00=0x0051, t01=0x0014}
0x07ea6…07eca Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0051, t01=0x0030}
0x07eca…07efa Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0051, t01=0x0054}
0x07efa…07f34 Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0051, t01=0x0084}
0x07f34…07f60 Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0051, t01=0x00be}
0x07f60…07f88 Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0051, t01=0x00ea}
0x07f88…07fa4 Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0051, t01=0x0112}
0x07fa4…07fd6 Head {h00=0x002e, h01=0x0050, text=» ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER«, t00=0x0051, t01=0x012e}
0x07fd6…08016 Head {h00=0x003c, h01=0x0050, text=» LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 «, t00=0x0051, t01=0x0160}
0x08016…0804a Head {h00=0x0030, h01=0x0050, text=» LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2«, t00=0x0052, t01=0x0010}
0x0804a…08060 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0052, t01=0x0044}
0x08060…08090 Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x005a}
0x08090…080a2 Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0052, t01=0x008a}
0x080a2…080ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x009c}
0x080ae…080c4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00a8}
0x080c4…080d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00be}
0x080d2…080e6 Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0052, t01=0x00cc}
0x080e6…080fe Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0052, t01=0x00e0}
0x080fe…08130 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0052, t01=0x00f8}
0x08130…08156 Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0052, t01=0x012a}
0x08156…0818e Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x0150}
0x0818e…081a6 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0052, t01=0x0188}
0x081a6…081d8 Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0053, t01=0x0010}
0x081d8…0820c Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0042}
0x0820c…08242 Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0053, t01=0x0076}
0x08242…08270 Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0053, t01=0x00ac}
0x08270…08284 Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0053, t01=0x00da}
0x08284…082b2 Head {h00=0x002a, h01=0x0050, text=» LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS «, t00=0x0053, t01=0x00ee}
0x082b2…082ca Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0053, t01=0x011c}
0x082ca…08302 Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0134}
0x08302…0832e Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0053, t01=0x016c}
0x0832e…0834c Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0054, t01=0x0008}
0x0834c…08360 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0054, t01=0x0026}
0x08360…0838a Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0054, t01=0x003a}
0x0838a…0839e Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0054, t01=0x0064}
0x0839e…083b8 Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0054, t01=0x0078}
0x083b8…083e6 Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0054, t01=0x0092}
0x083e6…083fa Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0054, t01=0x00c0}
0x083fa…0842a Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0054, t01=0x00d4}
0x0842a…0844a Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0054, t01=0x0104}
0x0844a…0845c Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0054, t01=0x0124}
0x0845c…08472 Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0054, t01=0x0136}
0x08472…0849c Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0054, t01=0x014c}
0x0849c…084ae Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0054, t01=0x0176}
0x084ae…084b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0188}
0x084b8…084c4 (85, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0004}
0x084c4…084d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0010}
0x084d2…084e6 Head {h00=0x0010, h01=0x0050, text=»AP:400 EQU *«, t00=0x0055, t01=0x001e}
0x084e6…08522 Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK «, t00=0x0055, t01=0x0032}
0x08522…0853c Head {h00=0x0016, h01=0x0050, text=» IM APLCNT+STKEND «, t00=0x0055, t01=0x006e}
0x0853c…0856a Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CONLOD ALL APPLICATIONS LOADED«, t00=0x0055, t01=0x0088}
0x0856a…08574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b6}
0x08574…085a6 Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0055, t01=0x00c0}
0x085a6…085dc Head {h00=0x0032, h01=0x0050, text=» ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK«, t00=0x0055, t01=0x00f2}
0x085dc…08614 Head {h00=0x0034, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. «, t00=0x0055, t01=0x0128}
0x08614…0864e Head {h00=0x0036, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR.«, t00=0x0055, t01=0x0160}
0x0864e…0867a Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x0056, t01=0x000a}
0x0867a…086a0 Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x0056, t01=0x0036}
0x086a0…086b4 Head {h00=0x0010, h01=0x0050, text=» ABL AP:234 «, t00=0x0056, t01=0x005c}
0x086b4…086c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0070}
0x086c2…086f8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x007e}
0x086f8…0872e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0056, t01=0x00b4}
0x0872e…08764 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0056, t01=0x00ea}
0x08764…0879a Head {h00=0x0032, h01=0x0050, text=»* ALOCSG * «, t00=0x0056, t01=0x0120}
0x0879a…087d0 Head {h00=0x0032, h01=0x0050, text=»* ====== * «, t00=0x0056, t01=0x0156}
0x087d0…08806 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0056, t01=0x018c}
0x08806…0883c Head {h00=0x0032, h01=0x0050, text=»* RESERVE PAGES FOR RESIDENT SEGMENTS * «, t00=0x0057, t01=0x0032}
0x0883c…08872 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0068}
0x08872…088a8 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x009e}
0x088a8…088de Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x00d4}
0x088de…088e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x010a}
0x088e8…088f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0114}
0x088f2…08906 Head {h00=0x0010, h01=0x0050, text=»ALOCSG EQU *«, t00=0x0057, t01=0x011e}
0x08906…0893a Head {h00=0x0030, h01=0x0050, text=» ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS«, t00=0x0057, t01=0x0132}
0x0893a…08976 Head {h00=0x0038, h01=0x0050, text=» CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS«, t00=0x0057, t01=0x0166}
0x08976…089a4 Head {h00=0x002a, h01=0x0050, text=» ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 «, t00=0x0058, t01=0x0012}
0x089a4…089ca Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x0058, t01=0x0040}
0x089ca…089e8 Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 DISC PAGING?«, t00=0x0058, t01=0x0066}
0x089e8…08a02 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ALSG04 NO!«, t00=0x0058, t01=0x0084}
0x08a02…08a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x009e}
0x08a0c…08a3a Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0058, t01=0x00a8}
0x08a3a…08a60 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0058, t01=0x00d6}
0x08a60…08a94 Head {h00=0x0030, h01=0x0050, text=» RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0058, t01=0x00fc}
0x08a94…08a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0130}
0x08a9e…08ace Head {h00=0x002c, h01=0x0050, text=»* COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0058, t01=0x013a}
0x08ace…08ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016a}
0x08ad8…08b00 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0058, t01=0x0174}
0x08b00…08b2a Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0059, t01=0x000c}
0x08b2a…08b3e Head {h00=0x0010, h01=0x0050, text=»ALSG00 EQU *«, t00=0x0059, t01=0x0036}
0x08b3e…08b62 Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0059, t01=0x004a}
0x08b62…08b84 Head {h00=0x001e, h01=0x0050, text=»* LOOK IF OUTSIDE BUFFER «, t00=0x0059, t01=0x006e}
0x08b84…08b9e Head {h00=0x0016, h01=0x0050, text=»* IF SO READ NEXT«, t00=0x0059, t01=0x0090}
0x08b9e…08bb6 Head {h00=0x0014, h01=0x0050, text=»* SECTOR BLOCK «, t00=0x0059, t01=0x00aa}
0x08bb6…08bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c2}
0x08bc0…08be8 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A6 SAVE BUFFER POSITION «, t00=0x0059, t01=0x00cc}
0x08be8…08c0c Head {h00=0x0020, h01=0x0050, text=» SUR A4,A9 RELATIVE POSITION«, t00=0x0059, t01=0x00f4}
0x08c0c…08c38 Head {h00=0x0028, h01=0x0050, text=» CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5«, t00=0x0059, t01=0x0118}
0x08c38…08c52 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ALSG01 NO!«, t00=0x0059, t01=0x0144}
0x08c52…08c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x015e}
0x08c5c…08c84 Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTSEC READ NEXT SECTOR «, t00=0x0059, t01=0x0168}
0x08c84…08cc0 Head {h00=0x0038, h01=0x0050, text=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 «, t00=0x0059, t01=0x0190}
0x08cc0…08ce8 Head {h00=0x0024, h01=0x0050, text=» AND RESET BUFFER POSITION =5 «, t00=0x005a, t01=0x003c}
0x08ce8…08cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0064}
0x08cf2…08d06 Head {h00=0x0010, h01=0x0050, text=»ALSG01 EQU *«, t00=0x005a, t01=0x006e}
0x08d06…08d2a Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x005a, t01=0x0082}
0x08d2a…08d56 Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x005a, t01=0x00a6}
0x08d56…08d70 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ALSG02 NO!«, t00=0x005a, t01=0x00d2}
0x08d70…08dac Head {h00=0x0038, h01=0x0050, text=» IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x005a, t01=0x00ec}
0x08dac…08dc0 Head {h00=0x0010, h01=0x0050, text=»ALSG02 EQU *«, t00=0x005a, t01=0x0128}
0x08dc0…08de2 Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x005a, t01=0x013c}
0x08de2…08dfe Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ALSG00 YES! «, t00=0x005a, t01=0x015e}
0x08dfe…08e36 Head {h00=0x0034, h01=0x0050, text=» LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS«, t00=0x005a, t01=0x017a}
0x08e36…08e62 Head {h00=0x0028, h01=0x0050, text=» RF(Z) ALSG12 NO RESIDENT SEGMENTS! «, t00=0x005b, t01=0x0022}
0x08e62…08e76 Head {h00=0x0010, h01=0x0050, text=»ALSG04 EQU *«, t00=0x005b, t01=0x004e}
0x08e76…08eb0 Head {h00=0x0036, h01=0x0050, text=» ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS«, t00=0x005b, t01=0x0062}
0x08eb0…08ee8 Head {h00=0x0034, h01=0x0050, text=» ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. «, t00=0x005b, t01=0x009c}
0x08ee8…08f0e Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x005b, t01=0x00d4}
0x08f0e…08f20 Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x005b, t01=0x00fa}
0x08f20…08f48 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ALSG08 NO MMU IN SYSTEM «, t00=0x005b, t01=0x010c}
0x08f48…08f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0134}
0x08f52…08f76 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 GET SEGMENT SIZE «, t00=0x005b, t01=0x013e}
0x08f76…08f8c Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFF «, t00=0x005b, t01=0x0162}
0x08f8c…08fbe Head {h00=0x002e, h01=0x0050, text=» RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES «, t00=0x005b, t01=0x0178}
0x08fbe…08fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x001a}
0x08fc8…08ffc Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY «, t00=0x005c, t01=0x0024}
0x08ffc…09016 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ALSG08 YES «, t00=0x005c, t01=0x0058}
0x09016…09020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0072}
0x09020…09048 Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 START ON A 4K BOUNDARY«, t00=0x005c, t01=0x007c}
0x09048…0905c Head {h00=0x0010, h01=0x0050, text=»ALSG08 EQU *«, t00=0x005c, t01=0x00a4}
0x0905c…0908a Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3«, t00=0x005c, t01=0x00b8}
0x0908a…090a8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ALSG8B NO! =3 «, t00=0x005c, t01=0x00e6}
0x090a8…090d8 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 «, t00=0x005c, t01=0x0104}
0x090d8…09108 Head {h00=0x002c, h01=0x0050, text=» SUKL A7,/400 BEGINNING OF LAST FRAME =3«, t00=0x005c, t01=0x0134}
0x09108…0911c Head {h00=0x0010, h01=0x0050, text=»ALSG8B EQU *«, t00=0x005c, t01=0x0164}
0x0911c…0914e Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY«, t00=0x005c, t01=0x0178}
0x0914e…09180 Head {h00=0x002e, h01=0x0050, text=» SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 «, t00=0x005d, t01=0x001a}
0x09180…091ac Head {h00=0x0028, h01=0x0050, text=» SRL A5,1 AND REMAINING AREA TOO =2 «, t00=0x005d, t01=0x004c}
0x091ac…091da Head {h00=0x002a, h01=0x0050, text=» SRL A7,10 CONVERT TO NO OF FRAMES =2 «, t00=0x005d, t01=0x0078}
0x091da…09200 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 GET SEGMENT SIZE =2«, t00=0x005d, t01=0x00a6}
0x09200…09232 Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 AND CORRESPONDING NEG. VALUE =2«, t00=0x005d, t01=0x00cc}
0x09232…0924a Head {h00=0x0014, h01=0x0050, text=»ALSG09 EQU * =2 «, t00=0x005d, t01=0x00fe}
0x0924a…09272 Head {h00=0x0024, h01=0x0050, text=» CWR A5,A3 ENOUGH SPACE LEFT? =2«, t00=0x005d, t01=0x0116}
0x09272…09290 Head {h00=0x001a, h01=0x0050, text=» RF(NL) ALSG10 YES =2 «, t00=0x005d, t01=0x013e}
0x09290…092ba Head {h00=0x0026, h01=0x0050, text=» SUK A7,1 DECREMENT FRAME COUNT =2«, t00=0x005d, t01=0x015c}
0x092ba…092ea Head {h00=0x002c, h01=0x0050, text=» ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 «, t00=0x005d, t01=0x0186}
0x092ea…09312 Head {h00=0x0024, h01=0x0050, text=» RB(P) ALSG09 LOOK IF ENOUGH =2 «, t00=0x005e, t01=0x0026}
0x09312…0932a Head {h00=0x0014, h01=0x0050, text=»ALSG10 EQU * =2 «, t00=0x005e, t01=0x004e}
0x0932a…09362 Head {h00=0x0034, h01=0x0050, text=» TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 «, t00=0x005e, t01=0x0066}
0x09362…0937e Head {h00=0x0018, h01=0x0050, text=» RF(N) ALS11A YES =2«, t00=0x005e, t01=0x009e}
0x0937e…093b0 Head {h00=0x002e, h01=0x0050, text=» SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x00ba}
0x093b0…093c6 Head {h00=0x0012, h01=0x0050, text=» RF ALS11B =2 «, t00=0x005e, t01=0x00ec}
0x093c6…093de Head {h00=0x0014, h01=0x0050, text=»ALS11A EQU * =2 «, t00=0x005e, t01=0x0102}
0x093de…09410 Head {h00=0x002e, h01=0x0050, text=» ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x011a}
0x09410…09428 Head {h00=0x0014, h01=0x0050, text=»ALS11B EQU * =2 «, t00=0x005e, t01=0x014c}
0x09428…09456 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT SEGMENT COUNTS =2 «, t00=0x005e, t01=0x0164}
0x09456…0947e (95, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ALSG09 MORE SEGMENTS =2 «, t00=0x005f, t01=0x0004}
0x0947e…09494 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 =2 «, t00=0x005f, t01=0x002c}
0x09494…094bc Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x005f, t01=0x0042}
0x094bc…094c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x006a}
0x094c6…094ee Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x005f, t01=0x0074}
0x094ee…09520 Head {h00=0x002e, h01=0x0050, text=» ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO «, t00=0x005f, t01=0x009c}
0x09520…09550 Head {h00=0x002c, h01=0x0050, text=» SLL A5,1 RESTORE AREA LEFT IN BYTES =2 «, t00=0x005f, t01=0x00ce}
0x09550…09582 Head {h00=0x002e, h01=0x0050, text=» SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2«, t00=0x005f, t01=0x00fe}
0x09582…095b4 Head {h00=0x002e, h01=0x0050, text=» ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT «, t00=0x005f, t01=0x0130}
0x095b4…095c8 Head {h00=0x0010, h01=0x0050, text=»ALSG12 EQU *«, t00=0x005f, t01=0x0162}
0x095c8…095d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0176}
0x095d2…09600 Head {h00=0x002a, h01=0x0050, text=»* REREAD FIRST SECTOR OF APPLICATION «, t00=0x005f, t01=0x0180}
0x09600…0962e Head {h00=0x002a, h01=0x0050, text=»* IF S:GTAB IS LARGER THAN ONE SECTOR«, t00=0x0060, t01=0x001e}
0x0962e…09638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x004c}
0x09638…09674 Head {h00=0x0038, h01=0x0050, text=» LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. «, t00=0x0060, t01=0x0056}
0x09674…096aa Head {h00=0x0032, h01=0x0050, text=» LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART«, t00=0x0060, t01=0x0092}
0x096aa…096d4 Head {h00=0x0026, h01=0x0050, text=» CF A14,NXTSEC REREAD FIRST SECTOR«, t00=0x0060, t01=0x00c8}
0x096d4…096e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00f2}
0x096e4…096f0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0060, t01=0x0102}
0x096f0…096fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0060, t01=0x010e}
0x096fc…09710 Head {h00=0x0010, h01=0x0050, text=»NXTSEC EQU *«, t00=0x0060, t01=0x011a}
0x09710…0973a Head {h00=0x0026, h01=0x0050, text=» CALL PUSH SAVE REGISTER CONTENTS «, t00=0x0060, t01=0x012e}
0x0973a…09760 Head {h00=0x0022, h01=0x0050, text=» LD A10,READ READ NEXT SECTOR «, t00=0x0060, t01=0x0158}
0x09760…09774 Head {h00=0x0010, h01=0x0050, text=» CFR A14,A10«, t00=0x0060, t01=0x017e}
0x09774…097b0 (97, 0, 400) Head {h00=0x0038, h01=0x0050, text=» ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 «, t00=0x0061, t01=0x0004}
0x097b0…097dc Head {h00=0x0028, h01=0x0050, text=» ST A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x0040}
0x097dc…0980e Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE FORMER REGISTER CONTENTS«, t00=0x0061, t01=0x006c}
0x0980e…0984c Head {h00=0x003a, h01=0x0050, text=» LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10«, t00=0x0061, t01=0x009e}
0x0984c…09878 Head {h00=0x0028, h01=0x0050, text=» LD A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x00dc}
0x09878…09888 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0108}
0x09888…098a0 Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1 =12 «, t00=0x0061, t01=0x0118}
0x098a0…098ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0130}
0x098ae…098e6 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0061, t01=0x013e}
0x098e6…0991e Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0061, t01=0x0176}
0x0991e…09956 Head {h00=0x0034, h01=0x0050, text=»* LODMEX - LOAD MONITOR EXTENT(S) * «, t00=0x0062, t01=0x001e}
0x09956…0998e Head {h00=0x0034, h01=0x0050, text=»* =============================== * «, t00=0x0062, t01=0x0056}
0x0998e…099c6 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0062, t01=0x008e}
0x099c6…099fe Head {h00=0x0034, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x0062, t01=0x00c6}
0x099fe…09a36 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0062, t01=0x00fe}
0x09a36…09a6e Head {h00=0x0034, h01=0x0050, text=»* ENTRY: * «, t00=0x0062, t01=0x0136}
0x09a6e…09aa6 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0062, t01=0x016e}
0x09aa6…09ade Head {h00=0x0034, h01=0x0050, text=»* EXIT: * «, t00=0x0063, t01=0x0016}
0x09ade…09b16 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0063, t01=0x004e}
0x09b16…09b4e Head {h00=0x0034, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0063, t01=0x0086}
0x09b4e…09b86 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0063, t01=0x00be}
0x09b86…09bbe Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINES: LODCOM * «, t00=0x0063, t01=0x00f6}
0x09bbe…09bf6 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0063, t01=0x012e}
0x09bf6…09c2e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0063, t01=0x0166}
0x09c2e…09c42 Head {h00=0x0010, h01=0x0050, text=»LODMEX EQU *«, t00=0x0064, t01=0x000e}
0x09c42…09c6c Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTMXS MONITOR EXTENT TABLE«, t00=0x0064, t01=0x0022}
0x09c6c…09c80 Head {h00=0x0010, h01=0x0050, text=»MSX10 EQU * «, t00=0x0064, t01=0x004c}
0x09c80…09c94 Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX99«, t00=0x0064, t01=0x0060}
0x09c94…09c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0074}
0x09c9e…09cca Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTOPT GET MONITOR OPTION =12«, t00=0x0064, t01=0x007e}
0x09cca…09cf6 Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 LOOK IF MMU OPTION ON =12 «, t00=0x0064, t01=0x00aa}
0x09cf6…09d12 Head {h00=0x0018, h01=0x0050, text=» RF(N) MSX15 YES =12«, t00=0x0064, t01=0x00d6}
0x09d12…09d4a Head {h00=0x0034, h01=0x0050, text=» LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12«, t00=0x0064, t01=0x00f2}
0x09d4a…09d64 Head {h00=0x0016, h01=0x0050, text=» CALL ERROR . =12 «, t00=0x0064, t01=0x012a}
0x09d64…09d7e Head {h00=0x0016, h01=0x0050, text=»MSX15 EQU * . =12 «, t00=0x0064, t01=0x0144}
0x09d7e…09dae Head {h00=0x002c, h01=0x0050, text=» CF A14,GETMON GET MONITOR DISC ADDRESS «, t00=0x0064, t01=0x015e}
0x09dae…09ddc Head {h00=0x002a, h01=0x0050, text=» LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS«, t00=0x0064, t01=0x018e}
0x09ddc…09e14 Head {h00=0x0034, h01=0x0050, text=» LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS «, t00=0x0065, t01=0x002c}
0x09e14…09e3c Head {h00=0x0024, h01=0x0050, text=» SLL A6,1 MAKE BYTE DISPLACEMENT«, t00=0x0065, t01=0x0064}
0x09e3c…09e4e Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0065, t01=0x008c}
0x09e4e…09e74 Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 FIRST EXTENT BLOCK «, t00=0x0065, t01=0x009e}
0x09e74…09e88 Head {h00=0x0010, h01=0x0050, text=»MSX20 EQU * «, t00=0x0065, t01=0x00c4}
0x09e88…09eb2 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT EXTENT COUNTER«, t00=0x0065, t01=0x00d8}
0x09eb2…09ed6 Head {h00=0x0020, h01=0x0050, text=» RF(N) MSX99 NO MORE EXTENTS«, t00=0x0065, t01=0x0102}
0x09ed6…09ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0126}
0x09ee0…09f06 Head {h00=0x0022, h01=0x0050, text=» STR A3,A15 SAVE NO OF EXTENTS«, t00=0x0065, t01=0x0130}
0x09f06…09f2a Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT EXTENT BLOCK «, t00=0x0065, t01=0x0156}
0x09f2a…09f52 Head {h00=0x0024, h01=0x0050, text=» LD A7,SCTEFA RESTORE ADDRESS TO«, t00=0x0065, t01=0x017a}
0x09f52…09f7a Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTEFA+2 END OF FREE AREA«, t00=0x0066, t01=0x0012}
0x09f7a…09f90 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MSX25 «, t00=0x0066, t01=0x003a}
0x09f90…09f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0050}
0x09f9a…09fd0 Head {h00=0x0032, h01=0x0050, text=» LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE«, t00=0x0066, t01=0x005a}
0x09fd0…09fe6 Head {h00=0x0012, h01=0x0050, text=» SUKL A7,/400 «, t00=0x0066, t01=0x0090}
0x09fe6…09ffa Head {h00=0x0010, h01=0x0050, text=»MSX25 EQU * «, t00=0x0066, t01=0x00a6}
0x09ffa…0a026 Head {h00=0x0028, h01=0x0050, text=» LD A2,EXLEN,A6 GET LENGTH OF EXTENT«, t00=0x0066, t01=0x00ba}
0x0a026…0a050 Head {h00=0x0026, h01=0x0050, text=» ADK A2,11 RESERV FIVE EXTRA WORDS«, t00=0x0066, t01=0x00e6}
0x0a050…0a078 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0066, t01=0x0110}
0x0a078…0a0a8 Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS FRAME COUNT «, t00=0x0066, t01=0x0138}
0x0a0a8…0a0dc Head {h00=0x0030, h01=0x0050, text=» ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES?«, t00=0x0066, t01=0x0168}
0x0a0dc…0a0f4 Head {h00=0x0014, h01=0x0050, text=» RF(N) MSX30 NO «, t00=0x0067, t01=0x000c}
0x0a0f4…0a0fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0024}
0x0a0fe…0a134 Head {h00=0x0032, h01=0x0050, text=» CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME«, t00=0x0067, t01=0x002e}
0x0a134…0a14e Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX40 YES! «, t00=0x0067, t01=0x0064}
0x0a14e…0a158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x007e}
0x0a158…0a16c Head {h00=0x0010, h01=0x0050, text=»MSX30 EQU * «, t00=0x0067, t01=0x0088}
0x0a16c…0a17e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0067, t01=0x009c}
0x0a17e…0a1b0 Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0067, t01=0x00ae}
0x0a1b0…0a1ce Head {h00=0x001a, h01=0x0050, text=» CWK A1,14 <60K BYTES?«, t00=0x0067, t01=0x00e0}
0x0a1ce…0a1e8 Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX35 YES! «, t00=0x0067, t01=0x00fe}
0x0a1e8…0a1f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0118}
0x0a1f2…0a222 Head {h00=0x002c, h01=0x0050, text=» CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY «, t00=0x0067, t01=0x0122}
0x0a222…0a23c Head {h00=0x0016, h01=0x0050, text=» RF(E) MSX35 YES! «, t00=0x0067, t01=0x0152}
0x0a23c…0a246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x016c}
0x0a246…0a272 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,PAGSIZ START ON 4K BOUNDARY«, t00=0x0067, t01=0x0176}
0x0a272…0a284 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x0012}
0x0a284…0a298 Head {h00=0x0010, h01=0x0050, text=»MSX35 EQU * «, t00=0x0068, t01=0x0024}
0x0a298…0a2cc Head {h00=0x0030, h01=0x0050, text=» SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME «, t00=0x0068, t01=0x0038}
0x0a2cc…0a2f2 Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 AND SET EMPTY FRAME «, t00=0x0068, t01=0x006c}
0x0a2f2…0a304 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0068, t01=0x0092}
0x0a304…0a336 Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0068, t01=0x00a4}
0x0a336…0a366 Head {h00=0x002c, h01=0x0050, text=» SUR A7,A1 AND SUBTRACT FROM FRAME COUNT«, t00=0x0068, t01=0x00d6}
0x0a366…0a38e Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x0068, t01=0x0106}
0x0a38e…0a398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x012e}
0x0a398…0a3c0 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFF ISOLATE AREA LEFT «, t00=0x0068, t01=0x0138}
0x0a3c0…0a3d4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX45«, t00=0x0068, t01=0x0160}
0x0a3d4…0a3de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0174}
0x0a3de…0a40c Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME «, t00=0x0068, t01=0x017e}
0x0a40c…0a41e Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0069, t01=0x001c}
0x0a41e…0a432 Head {h00=0x0010, h01=0x0050, text=»MSX40 EQU * «, t00=0x0069, t01=0x002e}
0x0a432…0a46a Head {h00=0x0034, h01=0x0050, text=» SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME «, t00=0x0069, t01=0x0042}
0x0a46a…0a47e Head {h00=0x0010, h01=0x0050, text=»MSX45 EQU * «, t00=0x0069, t01=0x007a}
0x0a47e…0a4a8 Head {h00=0x0026, h01=0x0050, text=» CWK A7,15 LOOK IF FIRST PARTITION«, t00=0x0069, t01=0x008e}
0x0a4a8…0a4d6 Head {h00=0x002a, h01=0x0050, text=» ABL(NG) MEMOVF YES, MEMORY OVERFNGOW!«, t00=0x0069, t01=0x00b8}
0x0a4d6…0a4e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e6}
0x0a4e0…0a512 Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY «, t00=0x0069, t01=0x00f0}
0x0a512…0a53a Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0069, t01=0x0122}
0x0a53a…0a568 Head {h00=0x002a, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS «, t00=0x0069, t01=0x014a}
0x0a568…0a592 Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTEFA TO END OF FREE AREA «, t00=0x0069, t01=0x0178}
0x0a592…0a59c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0012}
0x0a59c…0a5c4 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTMXS GET MXSTAB ADDRESS«, t00=0x006a, t01=0x001c}
0x0a5c4…0a5ea Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 MONITOR DISC ADDRESS«, t00=0x006a, t01=0x0044}
0x0a5ea…0a60a Head {h00=0x001c, h01=0x0050, text=» XRR A1,A1 RESET REG. A1«, t00=0x006a, t01=0x006a}
0x0a60a…0a638 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET MONITOR EXTENT ADDRESS«, t00=0x006a, t01=0x008a}
0x0a638…0a664 Head {h00=0x0028, h01=0x0050, text=» DAR* A4 AND RELOCATE EXTENT ADDRESS«, t00=0x006a, t01=0x00b8}
0x0a664…0a692 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 GET LEAST SIGNIFICANT PART«, t00=0x006a, t01=0x00e4}
0x0a692…0a6c0 Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 AND MOST SIGNIFICANT PART «, t00=0x006a, t01=0x0112}
0x0a6c0…0a6d2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x006a, t01=0x0140}
0x0a6d2…0a702 Head {h00=0x002c, h01=0x0050, text=» SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS «, t00=0x006a, t01=0x0152}
0x0a702…0a72a Head {h00=0x0024, h01=0x0050, text=» ORR A1,A7 TO A 16 BITS ADDRESS «, t00=0x006a, t01=0x0182}
0x0a72a…0a750 Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 AND SAVE IN MXSTAB «, t00=0x006b, t01=0x001a}
0x0a750…0a75a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0040}
0x0a75a…0a788 Head {h00=0x002a, h01=0x0050, text=» ADK A5,10 SKIP PRECCEDING FIVE WORDS «, t00=0x006b, t01=0x004a}
0x0a788…0a7c6 Head {h00=0x003a, h01=0x0050, text=» ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) «, t00=0x006b, t01=0x0078}
0x0a7c6…0a7ee Head {h00=0x0024, h01=0x0050, text=» LDR A8,A5 SAVE RELOCATION BASE «, t00=0x006b, t01=0x00b6}
0x0a7ee…0a822 Head {h00=0x0030, h01=0x0050, text=» ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS «, t00=0x006b, t01=0x00de}
0x0a822…0a82c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0112}
0x0a82c…0a85a Head {h00=0x002a, h01=0x0050, text=» LD A10,EXLEN,A6 GET LENGTH OF EXTENT «, t00=0x006b, t01=0x011c}
0x0a85a…0a884 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET MMU ENTRY COUNTER «, t00=0x006b, t01=0x014a}
0x0a884…0a8b4 Head {h00=0x002c, h01=0x0050, text=» LDKL A2,TABBE GET ADDRESS TO MMU TABLE «, t00=0x006b, t01=0x0174}
0x0a8b4…0a8ee Head {h00=0x0036, h01=0x0050, text=» ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR «, t00=0x006c, t01=0x0014}
0x0a8ee…0a902 Head {h00=0x0010, h01=0x0050, text=»MSX50 EQU * «, t00=0x006c, t01=0x004e}
0x0a902…0a928 Head {h00=0x0022, h01=0x0050, text=» STR A7,A2 STORE PAGE ADDRESS «, t00=0x006c, t01=0x0062}
0x0a928…0a950 Head {h00=0x0024, h01=0x0050, text=» ADKL A7,/400 NEXT PAGE ADDRESS «, t00=0x006c, t01=0x0088}
0x0a950…0a970 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x006c, t01=0x00b0}
0x0a970…0a99a Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT ENTRY COUNTER «, t00=0x006c, t01=0x00d0}
0x0a99a…0a9c6 Head {h00=0x0028, h01=0x0050, text=» CWK A3,16 ALL ENTRIES INITIALIZED? «, t00=0x006c, t01=0x00fa}
0x0a9c6…0a9de Head {h00=0x0014, h01=0x0050, text=» RB(NE) MSX50 NO«, t00=0x006c, t01=0x0126}
0x0a9de…0a9e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x013e}
0x0a9e8…0aa0c Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x006c, t01=0x0148}
0x0aa0c…0aa2c Head {h00=0x001c, h01=0x0050, text=» CALL LOD:70 LOAD EXTENT«, t00=0x006c, t01=0x016c}
0x0aa2c…0aa56 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A15 RESTORE NO OF EXTENTS«, t00=0x006c, t01=0x018c}
0x0aa56…0aa68 Head {h00=0x000e, h01=0x0050, text=» RB MSX20 «, t00=0x006d, t01=0x0026}
0x0aa68…0aa72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0038}
0x0aa72…0aa86 Head {h00=0x0010, h01=0x0050, text=»MSX99 EQU * «, t00=0x006d, t01=0x0042}
0x0aa86…0aa96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0056}
0x0aa96…0aaa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0066}
0x0aaa4…0aadc Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x006d, t01=0x0074}
0x0aadc…0aae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ac}
0x0aae6…0ab04 Head {h00=0x001a, h01=0x0050, text=»* GETMON«, t00=0x006d, t01=0x00b6}
0x0ab04…0ab22 Head {h00=0x001a, h01=0x0050, text=»* ======«, t00=0x006d, t01=0x00d4}
0x0ab22…0ab2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00f2}
0x0ab2c…0ab56 Head {h00=0x0026, h01=0x0050, text=»* SEARCH FOR MONITOR TO BE USED «, t00=0x006d, t01=0x00fc}
0x0ab56…0ab7e Head {h00=0x0024, h01=0x0050, text=»* AND UPDATE IT'S DISC ADDRESS«, t00=0x006d, t01=0x0126}
0x0ab7e…0ab9c Head {h00=0x001a, h01=0x0050, text=»* IN MXSTAB ENTRIES.«, t00=0x006d, t01=0x014e}
0x0ab9c…0aba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x016c}
0x0aba6…0abde Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x006d, t01=0x0176}
0x0abde…0abe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x001e}
0x0abe8…0abf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0028}
0x0abf2…0ac06 Head {h00=0x0010, h01=0x0050, text=»GETMON EQU *«, t00=0x006e, t01=0x0032}
0x0ac06…0ac32 Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTANO GET APPLICATION NUMBER«, t00=0x006e, t01=0x0046}
0x0ac32…0ac52 Head {h00=0x001c, h01=0x0050, text=» ST A1,MONNO+STKEND SAVE«, t00=0x006e, t01=0x0072}
0x0ac52…0ac88 Head {h00=0x0032, h01=0x0050, text=» CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC«, t00=0x006e, t01=0x0092}
0x0ac88…0acbc Head {h00=0x0030, h01=0x0050, text=» LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER«, t00=0x006e, t01=0x00c8}
0x0acbc…0acf2 Head {h00=0x0032, h01=0x0050, text=» SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0'«, t00=0x006e, t01=0x00fc}
0x0acf2…0ad16 Head {h00=0x0020, h01=0x0050, text=» ST A1,MONNO+STKEND AND SAVE«, t00=0x006e, t01=0x0132}
0x0ad16…0ad4e Head {h00=0x0034, h01=0x0050, text=» CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR)«, t00=0x006e, t01=0x0156}
0x0ad4e…0ad58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x018e}
0x0ad58…0ad6c Head {h00=0x0010, h01=0x0050, text=»GTMON2 EQU *«, t00=0x006f, t01=0x0008}
0x0ad6c…0ada0 Head {h00=0x0030, h01=0x0050, text=» LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7)«, t00=0x006f, t01=0x001c}
0x0ada0…0adcc Head {h00=0x0028, h01=0x0050, text=» CW A1,8,A4 IS IT THE RIGHT MONITOR?«, t00=0x006f, t01=0x0050}
0x0adcc…0ade6 Head {h00=0x0016, h01=0x0050, text=» RF(E) GTMON4 YES!«, t00=0x006f, t01=0x007c}
0x0ade6…0adf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0096}
0x0adf0…0ae2c Head {h00=0x0038, h01=0x0050, text=» CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC «, t00=0x006f, t01=0x00a0}
0x0ae2c…0ae3e Head {h00=0x000e, h01=0x0050, text=» RB GTMON2«, t00=0x006f, t01=0x00dc}
0x0ae3e…0ae48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ee}
0x0ae48…0ae5c Head {h00=0x0010, h01=0x0050, text=»GTMON4 EQU *«, t00=0x006f, t01=0x00f8}
0x0ae5c…0ae84 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTMXS GET MXSTAB ADDRESS«, t00=0x006f, t01=0x010c}
0x0ae84…0aebc Head {h00=0x0034, h01=0x0050, text=» LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15)«, t00=0x006f, t01=0x0134}
0x0aebc…0aee2 Head {h00=0x0022, h01=0x0050, text=» ST A2,2,A1 AND SAVE IN MXSTAB«, t00=0x006f, t01=0x016c}
0x0aee2…0af1c (112, 0, 400) Head {h00=0x0036, h01=0x0050, text=» LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) «, t00=0x0070, t01=0x0004}
0x0af1c…0af42 Head {h00=0x0022, h01=0x0050, text=» ST A2,4,A1 AND SAVE IN MXSTAB«, t00=0x0070, t01=0x003e}
0x0af42…0af5a Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0070, t01=0x0064}
0x0af5a…0af68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x007c}
0x0af68…0af7c Head {h00=0x0010, h01=0x0050, text=»GETNBR EQU *«, t00=0x0070, t01=0x008a}
0x0af7c…0afa4 Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0070, t01=0x009e}
0x0afa4…0afb8 Head {h00=0x0010, h01=0x0050, text=»GTNBR0 EQU *«, t00=0x0070, t01=0x00c6}
0x0afb8…0afda Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0070, t01=0x00da}
0x0afda…0b006 Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0070, t01=0x00fc}
0x0b006…0b028 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A9 START OF RECORD«, t00=0x0070, t01=0x0128}
0x0b028…0b05a Head {h00=0x002e, h01=0x0050, text=» LD A1,MONNO+STKEND GET APPLICATION NUMBER«, t00=0x0070, t01=0x014a}
0x0b05a…0b06e Head {h00=0x0010, h01=0x0050, text=»GTNBR2 EQU *«, t00=0x0070, t01=0x017c}
0x0b06e…0b0a0 Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0070, t01=0x0190}
0x0b0a0…0b0be Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0071, t01=0x0032}
0x0b0be…0b0d8 Head {h00=0x0016, h01=0x0050, text=» RF(E) GTNBR4 YES!«, t00=0x0071, t01=0x0050}
0x0b0d8…0b0e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x006a}
0x0b0e2…0b10e Head {h00=0x0028, h01=0x0050, text=» CC A1,9,A4 SAME APPLICATION NUMBER?«, t00=0x0071, t01=0x0074}
0x0b10e…0b130 Head {h00=0x001e, h01=0x0050, text=» RF(E) GTNBR6 YES, RETURN «, t00=0x0071, t01=0x00a0}
0x0b130…0b13a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00c2}
0x0b13a…0b14e Head {h00=0x0010, h01=0x0050, text=»GTNBR4 EQU *«, t00=0x0071, t01=0x00cc}
0x0b14e…0b170 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0071, t01=0x00e0}
0x0b170…0b19a Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0071, t01=0x0102}
0x0b19a…0b1c8 Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR?«, t00=0x0071, t01=0x012c}
0x0b1c8…0b1e2 Head {h00=0x0016, h01=0x0050, text=» RB(P) GTNBR2 YES!«, t00=0x0071, t01=0x015a}
0x0b1e2…0b1ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0174}
0x0b1ec…0b214 Head {h00=0x0024, h01=0x0050, text=» RB GTNBR0 NO, READ NEXT SECTOR «, t00=0x0071, t01=0x017e}
0x0b214…0b21e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0016}
0x0b21e…0b232 Head {h00=0x0010, h01=0x0050, text=»GTNBR6 EQU *«, t00=0x0072, t01=0x0020}
0x0b232…0b242 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x0034}
0x0b242…0b24e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0044}
0x0b24e…0b25c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0050}
0x0b25c…0b29e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x005e}
0x0b29e…0b2e0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0072, t01=0x00a0}
0x0b2e0…0b322 Head {h00=0x003e, h01=0x0050, text=»* LOAD CONFIGURATION PART OF SYSLOD *«, t00=0x0072, t01=0x00e2}
0x0b322…0b364 Head {h00=0x003e, h01=0x0050, text=»* ================================= *«, t00=0x0072, t01=0x0124}
0x0b364…0b3a6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0072, t01=0x0166}
0x0b3a6…0b3e8 Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS *«, t00=0x0073, t01=0x0018}
0x0b3e8…0b42a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0073, t01=0x005a}
0x0b42a…0b46c Head {h00=0x003e, h01=0x0050, text=»* EXIT: *«, t00=0x0073, t01=0x009c}
0x0b46c…0b4ae Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0073, t01=0x00de}
0x0b4ae…0b4f0 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CASSIN,RDBLK,MOVBUF *«, t00=0x0073, t01=0x0120}
0x0b4f0…0b532 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0073, t01=0x0162}
0x0b532…0b574 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0074, t01=0x0014}
0x0b574…0b588 Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x0074, t01=0x0056}
0x0b588…0b5b2 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0074, t01=0x006a}
0x0b5b2…0b5ca Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0074, t01=0x0094}
0x0b5ca…0b5f0 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/3C00 ISOLATE BIT 2-5«, t00=0x0074, t01=0x00ac}
0x0b5f0…0b614 Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 ROTATE TO BIT 0-3 «, t00=0x0074, t01=0x00d2}
0x0b614…0b64a Head {h00=0x0032, h01=0x0050, text=» ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT«, t00=0x0074, t01=0x00f6}
0x0b64a…0b676 Head {h00=0x0028, h01=0x0050, text=» SLC A2,2 PARTITION NR TO BIT 14,15 «, t00=0x0074, t01=0x012c}
0x0b676…0b692 Head {h00=0x0018, h01=0x0050, text=» ANK A2,3 ISOLATE IT«, t00=0x0074, t01=0x0158}
0x0b692…0b6b0 Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTEFA AND SAVE«, t00=0x0074, t01=0x0174}
0x0b6b0…0b6ec (117, 0, 400) Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0004}
0x0b6ec…0b720 Head {h00=0x0030, h01=0x0050, text=» ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0040}
0x0b720…0b750 Head {h00=0x002c, h01=0x0050, text=» ST A1,SCTSFA UPDATE START OF FREE AREA «, t00=0x0075, t01=0x0074}
0x0b750…0b78c Head {h00=0x0038, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE«, t00=0x0075, t01=0x00a4}
0x0b78c…0b7bc Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK«, t00=0x0075, t01=0x00e0}
0x0b7bc…0b7f4 Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA«, t00=0x0075, t01=0x0110}
0x0b7f4…0b826 Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0075, t01=0x0148}
0x0b826…0b850 Head {h00=0x0026, h01=0x0050, text=» ST A1,CURAPL+STKEND CONTROL BLOCK«, t00=0x0075, t01=0x017a}
0x0b850…0b87e Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0076, t01=0x0014}
0x0b87e…0b8a4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x0076, t01=0x0042}
0x0b8a4…0b8c8 Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x0076, t01=0x0068}
0x0b8c8…0b8e2 Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x0076, t01=0x008c}
0x0b8e2…0b8ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00a6}
0x0b8ec…0b916 Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0076, t01=0x00b0}
0x0b916…0b920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00da}
0x0b920…0b934 Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x0076, t01=0x00e4}
0x0b934…0b94e Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x0076, t01=0x00f8}
0x0b94e…0b966 Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x0076, t01=0x0112}
0x0b966…0b97c Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x0076, t01=0x012a}
0x0b97c…0b9a4 Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x0076, t01=0x0140}
0x0b9a4…0b9ba Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x0076, t01=0x0168}
0x0b9ba…0b9d6 Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x0076, t01=0x017e}
0x0b9d6…0b9f8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x0077, t01=0x000a}
0x0b9f8…0ba1e Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x0077, t01=0x002c}
0x0ba1e…0ba4e Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x0077, t01=0x0052}
0x0ba4e…0ba70 Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x0077, t01=0x0082}
0x0ba70…0baa0 Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x0077, t01=0x00a4}
0x0baa0…0bac4 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x0077, t01=0x00d4}
0x0bac4…0baea Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0077, t01=0x00f8}
0x0baea…0bafc Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0077, t01=0x011e}
0x0bafc…0bb22 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0077, t01=0x0130}
0x0bb22…0bb3e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0077, t01=0x0156}
0x0bb3e…0bb58 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x0077, t01=0x0172}
0x0bb58…0bb8a Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x0077, t01=0x018c}
0x0bb8a…0bb9e Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x0078, t01=0x002e}
0x0bb9e…0bbb0 Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x0078, t01=0x0042}
0x0bbb0…0bbc4 Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x0078, t01=0x0054}
0x0bbc4…0bbce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0068}
0x0bbce…0bc10 Head {h00=0x003e, h01=0x0050, text=»* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x0078, t01=0x0072}
0x0bc10…0bc1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00b4}
0x0bc1a…0bc40 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0078, t01=0x00be}
0x0bc40…0bc64 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x0078, t01=0x00e4}
0x0bc64…0bc7e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x0078, t01=0x0108}
0x0bc7e…0bc90 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x0078, t01=0x0122}
0x0bc90…0bcbe Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x0078, t01=0x0134}
0x0bcbe…0bce4 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x0078, t01=0x0162}
0x0bce4…0bcf6 Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x0078, t01=0x0188}
0x0bcf6…0bd0a Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x0079, t01=0x000a}
0x0bd0a…0bd1c Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0079, t01=0x001e}
0x0bd1c…0bd42 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0079, t01=0x0030}
0x0bd42…0bd56 Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x0079, t01=0x0056}
0x0bd56…0bd6a Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x0079, t01=0x006a}
0x0bd6a…0bd76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x007e}
0x0bd76…0bd8c Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0079, t01=0x008a}
0x0bd8c…0bd9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00a0}
0x0bd9a…0bdae Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x0079, t01=0x00ae}
0x0bdae…0bdb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00c2}
0x0bdb8…0bdf2 Head {h00=0x0036, h01=0x0050, text=»* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x0079, t01=0x00cc}
0x0bdf2…0bdfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0106}
0x0bdfc…0be38 Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x0079, t01=0x0110}
0x0be38…0be66 Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x0079, t01=0x014c}
0x0be66…0be70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x017a}
0x0be70…0bea4 Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x0079, t01=0x0184}
0x0bea4…0beb8 Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x007a, t01=0x0028}
0x0beb8…0bee6 Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x007a, t01=0x003c}
0x0bee6…0bf1c Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x007a, t01=0x006a}
0x0bf1c…0bf42 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x00a0}
0x0bf42…0bf6a Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x007a, t01=0x00c6}
0x0bf6a…0bf9a Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007a, t01=0x00ee}
0x0bf9a…0bfc0 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x011e}
0x0bfc0…0bfea Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x007a, t01=0x0144}
0x0bfea…0c00e Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x007a, t01=0x016e}
0x0c00e…0c03e (123, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007b, t01=0x0004}
0x0c03e…0c066 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x007b, t01=0x0034}
0x0c066…0c070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x005c}
0x0c070…0c0a4 Head {h00=0x0030, h01=0x0050, text=»* READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x007b, t01=0x0066}
0x0c0a4…0c0ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x009a}
0x0c0ae…0c0ce Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x007b, t01=0x00a4}
0x0c0ce…0c0d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00c4}
0x0c0d8…0c10c Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x007b, t01=0x00ce}
0x0c10c…0c116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0102}
0x0c116…0c12c Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x007b, t01=0x010c}
0x0c12c…0c140 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0122}
0x0c140…0c150 Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007b, t01=0x0136}
0x0c150…0c164 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0146}
0x0c164…0c176 Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x007b, t01=0x015a}
0x0c176…0c188 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007b, t01=0x016c}
0x0c188…0c198 Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007b, t01=0x017e}
0x0c198…0c1ac Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x018e}
0x0c1ac…0c1be Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x007c, t01=0x0012}
0x0c1be…0c1d0 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0024}
0x0c1d0…0c1e0 Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007c, t01=0x0036}
0x0c1e0…0c1f4 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x0046}
0x0c1f4…0c206 Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x007c, t01=0x005a}
0x0c206…0c218 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x006c}
0x0c218…0c22a Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x007e}
0x0c22a…0c244 Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x007c, t01=0x0090}
0x0c244…0c256 Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x00aa}
0x0c256…0c26a Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x00bc}
0x0c26a…0c2b0 Head {h00=0x0042, h01=0x0050, text=»TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES«, t00=0x007c, t01=0x00d0}
0x0c2b0…0c2cc Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007c, t01=0x0116}
0x0c2cc…0c2e6 Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x007c, t01=0x0132}
0x0c2e6…0c2fa Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007c, t01=0x014c}
0x0c2fa…0c30c Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x007c, t01=0x0160}
0x0c30c…0c31e Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0172}
0x0c31e…0c32e Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007c, t01=0x0184}
0x0c32e…0c342 (125, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0004}
0x0c342…0c352 Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x007d, t01=0x0018}
0x0c352…0c364 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x0028}
0x0c364…0c376 Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x007d, t01=0x003a}
0x0c376…0c38a Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x004c}
0x0c38a…0c39c Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x007d, t01=0x0060}
0x0c39c…0c3b0 Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x007d, t01=0x0072}
0x0c3b0…0c3c2 Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007d, t01=0x0086}
0x0c3c2…0c3d6 Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0098}
0x0c3d6…0c3ea Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x007d, t01=0x00ac}
0x0c3ea…0c42a Head {h00=0x003c, h01=0x0050, text=» LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES «, t00=0x007d, t01=0x00c0}
0x0c42a…0c446 Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007d, t01=0x0100}
0x0c446…0c460 Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x007d, t01=0x011c}
0x0c460…0c474 Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007d, t01=0x0136}
0x0c474…0c486 Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x007d, t01=0x014a}
0x0c486…0c498 Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x015c}
0x0c498…0c4a8 Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007d, t01=0x016e}
0x0c4a8…0c4bc Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x017e}
0x0c4bc…0c4ce (126, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x007e, t01=0x0004}
0x0c4ce…0c4e2 Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x007e, t01=0x0016}
0x0c4e2…0c502 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007e, t01=0x002a}
0x0c502…0c532 Head {h00=0x002c, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.)«, t00=0x007e, t01=0x004a}
0x0c532…0c548 Head {h00=0x0012, h01=0x0050, text=»TST:70 EQU *-2«, t00=0x007e, t01=0x007a}
0x0c548…0c562 Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x007e, t01=0x0090}
0x0c562…0c578 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x007e, t01=0x00aa}
0x0c578…0c5a6 Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x007e, t01=0x00c0}
0x0c5a6…0c5ca Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x007e, t01=0x00ee}
0x0c5ca…0c5e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x007e, t01=0x0112}
0x0c5e4…0c5fa Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x007e, t01=0x012c}
0x0c5fa…0c620 Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x007e, t01=0x0142}
0x0c620…0c630 Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x007e, t01=0x0168}
0x0c630…0c642 Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x007e, t01=0x0178}
0x0c642…0c656 Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x007e, t01=0x018a}
0x0c656…0c688 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 SAVE FIRST CHARACTER IN RECORD «, t00=0x007f, t01=0x000e}
0x0c688…0c6b2 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x007f, t01=0x0040}
0x0c6b2…0c6d2 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007f, t01=0x006a}
0x0c6d2…0c6f4 Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x007f, t01=0x008a}
0x0c6f4…0c710 Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x007f, t01=0x00ac}
0x0c710…0c724 Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x007f, t01=0x00c8}
0x0c724…0c756 Head {h00=0x002e, h01=0x0050, text=» CCK A1,'AA' START OF APPL. CONTR. BLOCK? «, t00=0x007f, t01=0x00dc}
0x0c756…0c770 Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:90 YES «, t00=0x007f, t01=0x010e}
0x0c770…0c77a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0128}
0x0c77a…0c7a8 Head {h00=0x002a, h01=0x0050, text=» CCK A1,'DD' DATA COMMUNICATION BLOCK?«, t00=0x007f, t01=0x0132}
0x0c7a8…0c7c2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:87 NO!«, t00=0x007f, t01=0x0160}
0x0c7c2…0c7cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017a}
0x0c7cc…0c808 Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x007f, t01=0x0184}
0x0c808…0c840 Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0080, t01=0x0030}
0x0c840…0c860 Head {h00=0x001c, h01=0x0050, text=» ST A1,DCBLK+STKCOM SAVE«, t00=0x0080, t01=0x0068}
0x0c860…0c874 Head {h00=0x0010, h01=0x0050, text=»TST:87 EQU *«, t00=0x0080, t01=0x0088}
0x0c874…0c8a0 Head {h00=0x0028, h01=0x0050, text=» CALL CONRD MOVE AND GET NEXT RECORD«, t00=0x0080, t01=0x009c}
0x0c8a0…0c8c8 Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 AND FIRST CHAR. IN IT«, t00=0x0080, t01=0x00c8}
0x0c8c8…0c8da Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0080, t01=0x00f0}
0x0c8da…0c8e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0102}
0x0c8e4…0c8f8 Head {h00=0x0010, h01=0x0050, text=»TST:90 EQU *«, t00=0x0080, t01=0x010c}
0x0c8f8…0c902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0120}
0x0c902…0c926 Head {h00=0x0020, h01=0x0050, text=»* APPLICATION CONTROL BLOCK«, t00=0x0080, t01=0x012a}
0x0c926…0c946 Head {h00=0x001c, h01=0x0050, text=»* SKIP NAME RECORD AND «, t00=0x0080, t01=0x014e}
0x0c946…0c968 Head {h00=0x001e, h01=0x0050, text=»* SCAN CONFIGURATION DATA«, t00=0x0080, t01=0x016e}
0x0c968…0c972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0190}
0x0c972…0c9b0 Head {h00=0x003a, h01=0x0050, text=» LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' «, t00=0x0081, t01=0x000a}
0x0c9b0…0c9c2 Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0081, t01=0x0048}
0x0c9c2…0c9fa Head {h00=0x0034, h01=0x0050, text=» LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x005a}
0x0c9fa…0ca36 Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0081, t01=0x0092}
0x0ca36…0ca5a Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x0081, t01=0x00ce}
0x0ca5a…0ca92 Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0081, t01=0x00f2}
0x0ca92…0cad0 Head {h00=0x003a, h01=0x0050, text=» ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA«, t00=0x0081, t01=0x012a}
0x0cad0…0cae6 Head {h00=0x0012, h01=0x0050, text=» ADK A2,ACBLEN«, t00=0x0081, t01=0x0168}
0x0cae6…0cb26 Head {h00=0x003c, h01=0x0050, text=» ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x017e}
0x0cb26…0cb4e Head {h00=0x0024, h01=0x0050, text=» CALL CONRD MOVE AND PACK RECORD«, t00=0x0082, t01=0x002e}
0x0cb4e…0cb7a Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0082, t01=0x0056}
0x0cb7a…0cba4 Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0082, t01=0x0082}
0x0cba4…0cbbe Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0082, t01=0x00ac}
0x0cbbe…0cbf0 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0082, t01=0x00c6}
0x0cbf0…0cc1a Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0082, t01=0x00f8}
0x0cc1a…0cc30 Head {h00=0x0012, h01=0x0050, text=» RF(NE) TST:95«, t00=0x0082, t01=0x0122}
0x0cc30…0cc3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0138}
0x0cc3a…0cc5a Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0082, t01=0x0142}
0x0cc5a…0cc6e Head {h00=0x0010, h01=0x0050, text=»TST:95 EQU *«, t00=0x0082, t01=0x0162}
0x0cc6e…0cc9c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK«, t00=0x0082, t01=0x0176}
0x0cc9c…0ccc0 Head {h00=0x0020, h01=0x0050, text=» ST A1,TST:70 MODIFY INSTR. «, t00=0x0083, t01=0x0014}
0x0ccc0…0ccd4 Head {h00=0x0010, h01=0x0050, text=» ST A1,T:10 «, t00=0x0083, t01=0x0038}
0x0ccd4…0cce6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A8«, t00=0x0083, t01=0x004c}
0x0cce6…0cd0a Head {h00=0x0020, h01=0x0050, text=» ABL TST:10 SCAN CONF. DATA «, t00=0x0083, t01=0x005e}
0x0cd0a…0cd14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0082}
0x0cd14…0cd28 Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0083, t01=0x008c}
0x0cd28…0cd4e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0083, t01=0x00a0}
0x0cd4e…0cd66 Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x0083, t01=0x00c6}
0x0cd66…0cd7e Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x0083, t01=0x00de}
0x0cd7e…0cd92 Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0083, t01=0x00f6}
0x0cd92…0cdbc Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x010a}
0x0cdbc…0cde6 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x0134}
0x0cde6…0ce02 Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0083, t01=0x015e}
0x0ce02…0ce34 Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x0083, t01=0x017a}
0x0ce34…0ce4a Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0084, t01=0x001c}
0x0ce4a…0ce54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0032}
0x0ce54…0ce74 Head {h00=0x001c, h01=0x0050, text=»* UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x003c}
0x0ce74…0ce7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x005c}
0x0ce7e…0ce92 Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x0084, t01=0x0066}
0x0ce92…0ceca Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x0084, t01=0x007a}
0x0ceca…0cefa Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x0084, t01=0x00b2}
0x0cefa…0cf04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00e2}
0x0cf04…0cf16 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0084, t01=0x00ec}
0x0cf16…0cf28 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0084, t01=0x00fe}
0x0cf28…0cf3a Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0084, t01=0x0110}
0x0cf3a…0cf62 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x0084, t01=0x0122}
0x0cf62…0cf6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x014a}
0x0cf6c…0cf78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0154}
0x0cf78…0cf94 Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0084, t01=0x0160}
0x0cf94…0cfc0 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x017c}
0x0cfc0…0cfcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0018}
0x0cfcc…0cfe2 Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0085, t01=0x0024}
0x0cfe2…0cff6 Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x0085, t01=0x003a}
0x0cff6…0d024 Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0085, t01=0x004e}
0x0d024…0d042 Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0085, t01=0x007c}
0x0d042…0d06a Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0085, t01=0x009a}
0x0d06a…0d074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c2}
0x0d074…0d080 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x00cc}
0x0d080…0d0a6 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x0085, t01=0x00d8}
0x0d0a6…0d0c2 Head {h00=0x0018, h01=0x0050, text=» ABL(NN) COR:60 NO! «, t00=0x0085, t01=0x00fe}
0x0d0c2…0d0cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x011a}
0x0d0cc…0d0e8 Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0085, t01=0x0124}
0x0d0e8…0d10e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0085, t01=0x0140}
0x0d10e…0d12c Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0085, t01=0x0166}
0x0d12c…0d154 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x0085, t01=0x0184}
0x0d154…0d15e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x001c}
0x0d15e…0d17a Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0086, t01=0x0026}
0x0d17a…0d1a6 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0086, t01=0x0042}
0x0d1a6…0d1b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x006e}
0x0d1b2…0d1c8 Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0086, t01=0x007a}
0x0d1c8…0d1dc Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0086, t01=0x0090}
0x0d1dc…0d1ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00a4}
0x0d1ea…0d1fe Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0086, t01=0x00b2}
0x0d1fe…0d208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00c6}
0x0d208…0d240 Head {h00=0x0034, h01=0x0050, text=»* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0086, t01=0x00d0}
0x0d240…0d24a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0108}
0x0d24a…0d274 Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x0086, t01=0x0112}
0x0d274…0d2a8 Head {h00=0x0030, h01=0x0050, text=» LD A1,CONSTA+STKCOM GET START OF CONF. DATA«, t00=0x0086, t01=0x013c}
0x0d2a8…0d2e8 Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x0086, t01=0x0170}
0x0d2e8…0d31c Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x0087, t01=0x0020}
0x0d31c…0d34a Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0087, t01=0x0054}
0x0d34a…0d370 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0087, t01=0x0082}
0x0d370…0d3a0 Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0087, t01=0x00a8}
0x0d3a0…0d3d6 Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x0087, t01=0x00d8}
0x0d3d6…0d3de Head {h00=0x0004, h01=0x0050, t00=0x0087, t01=0x010e}
0x0d3de…0d3fc Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0087, t01=0x0116}
0x0d3fc…0d406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0134}
0x0d406…0d42e Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0087, t01=0x013e}
0x0d42e…0d440 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0087, t01=0x0166}
0x0d440…0d47e Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x0087, t01=0x0178}
0x0d47e…0d4b4 Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x0088, t01=0x0026}
0x0d4b4…0d4e8 Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x0088, t01=0x005c}
0x0d4e8…0d50c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x0088, t01=0x0090}
0x0d50c…0d528 Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x0088, t01=0x00b4}
0x0d528…0d552 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0088, t01=0x00d0}
0x0d552…0d576 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0088, t01=0x00fa}
0x0d576…0d59e Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0088, t01=0x011e}
0x0d59e…0d5d4 Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x0088, t01=0x0146}
0x0d5d4…0d5fc Head {h00=0x0024, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS«, t00=0x0088, t01=0x017c}
0x0d5fc…0d624 Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT «, t00=0x0089, t01=0x0014}
0x0d624…0d62e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x003c}
0x0d62e…0d662 Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS «, t00=0x0089, t01=0x0046}
0x0d662…0d690 Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS «, t00=0x0089, t01=0x007a}
0x0d690…0d6a4 Head {h00=0x0010, h01=0x0050, text=»CMOV20 EQU *«, t00=0x0089, t01=0x00a8}
0x0d6a4…0d6d4 Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x0089, t01=0x00bc}
0x0d6d4…0d6de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00ec}
0x0d6de…0d71e Head {h00=0x003c, h01=0x0050, text=»* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0089, t01=0x00f6}
0x0d71e…0d728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0136}
0x0d728…0d73c Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x0089, t01=0x0140}
0x0d73c…0d754 Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x0089, t01=0x0154}
0x0d754…0d766 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0089, t01=0x016c}
0x0d766…0d778 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0089, t01=0x017e}
0x0d778…0d78c Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0089, t01=0x0190}
0x0d78c…0d79e Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x008a, t01=0x0014}
0x0d79e…0d7b2 Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x008a, t01=0x0026}
0x0d7b2…0d7c8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x008a, t01=0x003a}
0x0d7c8…0d7f4 Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x008a, t01=0x0050}
0x0d7f4…0d802 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x007c}
0x0d802…0d84a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x008a}
0x0d84a…0d892 Head {h00=0x0044, h01=0x0050, text=»* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x008a, t01=0x00d2}
0x0d892…0d8da Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x011a}
0x0d8da…0d8e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0162}
0x0d8e8…0d8fc Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x008a, t01=0x0170}
0x0d8fc…0d906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0184}
0x0d906…0d93c Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x008a, t01=0x018e}
0x0d93c…0d946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0034}
0x0d946…0d980 Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x008b, t01=0x003e}
0x0d980…0d998 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x008b, t01=0x0078}
0x0d998…0d9c2 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x008b, t01=0x0090}
0x0d9c2…0d9e4 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x008b, t01=0x00ba}
0x0d9e4…0d9f8 Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x008b, t01=0x00dc}
0x0d9f8…0da18 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008b, t01=0x00f0}
0x0da18…0da3c Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x008b, t01=0x0110}
0x0da3c…0da56 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008b, t01=0x0134}
0x0da56…0da6a Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x008b, t01=0x014e}
0x0da6a…0da98 Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x008b, t01=0x0162}
0x0da98…0daae Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x008b, t01=0x0190}
0x0daae…0dac8 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008c, t01=0x0016}
0x0dac8…0daf6 Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x008c, t01=0x0030}
0x0daf6…0db10 Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x008c, t01=0x005e}
0x0db10…0db3a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x008c, t01=0x0078}
0x0db3a…0db68 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x008c, t01=0x00a2}
0x0db68…0db92 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x008c, t01=0x00d0}
0x0db92…0dbaa Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x008c, t01=0x00fa}
0x0dbaa…0dbbe Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x008c, t01=0x0112}
0x0dbbe…0dbe4 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x008c, t01=0x0126}
0x0dbe4…0dc08 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x008c, t01=0x014c}
0x0dc08…0dc22 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x008c, t01=0x0170}
0x0dc22…0dc50 Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x008c, t01=0x018a}
0x0dc50…0dc88 Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x008d, t01=0x0028}
0x0dc88…0dc9c Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x008d, t01=0x0060}
0x0dc9c…0dcd2 Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x008d, t01=0x0074}
0x0dcd2…0dcf4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x008d, t01=0x00aa}
0x0dcf4…0dd06 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x008d, t01=0x00cc}
0x0dd06…0dd1a Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x008d, t01=0x00de}
0x0dd1a…0dd46 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x008d, t01=0x00f2}
0x0dd46…0dd70 Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x008d, t01=0x011e}
0x0dd70…0dd8c Head {h00=0x0018, h01=0x0050, text=» ABL(E) COR:50 YES! «, t00=0x008d, t01=0x0148}
0x0dd8c…0ddbe Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x008d, t01=0x0164}
0x0ddbe…0dde8 Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x008e, t01=0x0008}
0x0dde8…0de02 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x008e, t01=0x0032}
0x0de02…0de22 Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x008e, t01=0x004c}
0x0de22…0de4a Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x008e, t01=0x006c}
0x0de4a…0de5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x0094}
0x0de5a…0de66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00a4}
0x0de66…0de80 Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x008e, t01=0x00b0}
0x0de80…0de94 Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x008e, t01=0x00ca}
0x0de94…0deba Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x008e, t01=0x00de}
0x0deba…0ded6 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x008e, t01=0x0104}
0x0ded6…0def2 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x008e, t01=0x0120}
0x0def2…0df04 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008e, t01=0x013c}
0x0df04…0df2a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008e, t01=0x014e}
0x0df2a…0df3a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x0174}
0x0df3a…0df46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0184}
0x0df46…0df5c Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x008e, t01=0x0190}
0x0df5c…0df70 Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x008f, t01=0x0016}
0x0df70…0df9e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x002a}
0x0df9e…0dfb2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0058}
0x0dfb2…0dfc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x006c}
0x0dfc0…0dfd4 Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x008f, t01=0x007a}
0x0dfd4…0dff6 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x008f, t01=0x008e}
0x0dff6…0e008 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008f, t01=0x00b0}
0x0e008…0e02e Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008f, t01=0x00c2}
0x0e02e…0e03e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00e8}
0x0e03e…0e04e Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x008f, t01=0x00f8}
0x0e04e…0e06e Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008f, t01=0x0108}
0x0e06e…0e090 Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x008f, t01=0x0128}
0x0e090…0e0a4 Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x008f, t01=0x014a}
0x0e0a4…0e0bc Head {h00=0x0014, h01=0x0050, text=» ABL(NE) CONERR «, t00=0x008f, t01=0x015e}
0x0e0bc…0e0e6 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x008f, t01=0x0176}
0x0e0e6…0e10c Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0010}
0x0e10c…0e130 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0090, t01=0x0036}
0x0e130…0e14c Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0090, t01=0x005a}
0x0e14c…0e15c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x0076}
0x0e15c…0e16a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x0086}
0x0e16a…0e17c Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x0090, t01=0x0094}
0x0e17c…0e1aa Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NO OF DIGITS IN LINE NUMBER «, t00=0x0090, t01=0x00a6}
0x0e1aa…0e1d4 Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0090, t01=0x00d4}
0x0e1d4…0e1fc Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0090, t01=0x00fe}
0x0e1fc…0e230 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED«, t00=0x0090, t01=0x0126}
0x0e230…0e23a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x015a}
0x0e23a…0e260 Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0164}
0x0e260…0e27c Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x0090, t01=0x018a}
0x0e27c…0e296 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0016}
0x0e296…0e2b2 Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x0091, t01=0x0030}
0x0e2b2…0e2cc Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x004c}
0x0e2cc…0e2e8 Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x0091, t01=0x0066}
0x0e2e8…0e302 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0082}
0x0e302…0e31e Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x0091, t01=0x009c}
0x0e31e…0e338 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00b8}
0x0e338…0e354 Head {h00=0x0018, h01=0x0050, text=» CCK A5,'PP' LINE P?«, t00=0x0091, t01=0x00d2}
0x0e354…0e36e Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00ee}
0x0e36e…0e38a Head {h00=0x0018, h01=0x0050, text=» CCK A5,'VV' LINE V?«, t00=0x0091, t01=0x0108}
0x0e38a…0e39e Head {h00=0x0010, h01=0x0050, text=» RF(E) NN:40«, t00=0x0091, t01=0x0124}
0x0e39e…0e3ba Head {h00=0x0018, h01=0x0050, text=» CCK A5,'QQ' LINE Q?«, t00=0x0091, t01=0x0138}
0x0e3ba…0e3d4 Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0154}
0x0e3d4…0e3e6 Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x0091, t01=0x016e}
0x0e3e6…0e3fa Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x0091, t01=0x0180}
0x0e3fa…0e424 (146, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0092, t01=0x0004}
0x0e424…0e436 Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0092, t01=0x002e}
0x0e436…0e440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0040}
0x0e440…0e450 Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x0092, t01=0x004a}
0x0e450…0e478 Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x005a}
0x0e478…0e4a2 Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x0082}
0x0e4a2…0e4ca Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0092, t01=0x00ac}
0x0e4ca…0e4f0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONERR '00' NOT ALLOWED«, t00=0x0092, t01=0x00d4}
0x0e4f0…0e4fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00fa}
0x0e4fa…0e522 Head {h00=0x0024, h01=0x0050, text=» RF NN:50 LOOK IF END IF RECORD «, t00=0x0092, t01=0x0104}
0x0e522…0e52c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x012c}
0x0e52c…0e53e Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x0092, t01=0x0136}
0x0e53e…0e566 Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x0148}
0x0e566…0e590 Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x0170}
0x0e590…0e5b8 Head {h00=0x0024, h01=0x0050, text=» ST A5,NDEVCL+STKEND SAVE NUMBER«, t00=0x0093, t01=0x000a}
0x0e5b8…0e5de Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0093, t01=0x0032}
0x0e5de…0e602 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0093, t01=0x0058}
0x0e602…0e61c Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0093, t01=0x007c}
0x0e61c…0e62c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x0096}
0x0e62c…0e63a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00a6}
0x0e63a…0e64a Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0093, t01=0x00b4}
0x0e64a…0e65c Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0093, t01=0x00c4}
0x0e65c…0e670 Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0093, t01=0x00d6}
0x0e670…0e690 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0093, t01=0x00ea}
0x0e690…0e6c2 Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0093, t01=0x010a}
0x0e6c2…0e6dc Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0093, t01=0x013c}
0x0e6dc…0e710 Head {h00=0x0030, h01=0x0050, text=» CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0093, t01=0x0156}
0x0e710…0e72a Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0093, t01=0x018a}
0x0e72a…0e75e Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0094, t01=0x0014}
0x0e75e…0e774 Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0094, t01=0x0048}
0x0e774…0e7a8 Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0094, t01=0x005e}
0x0e7a8…0e7be Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0094, t01=0x0092}
0x0e7be…0e7d2 Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0094, t01=0x00a8}
0x0e7d2…0e7fc Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0094, t01=0x00bc}
0x0e7fc…0e80e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0094, t01=0x00e6}
0x0e80e…0e824 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0094, t01=0x00f8}
0x0e824…0e84a Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0094, t01=0x010e}
0x0e84a…0e86e Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0094, t01=0x0134}
0x0e86e…0e888 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0094, t01=0x0158}
0x0e888…0e898 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0172}
0x0e898…0e8a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0182}
0x0e8a6…0e8b8 Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0094, t01=0x0190}
0x0e8b8…0e8de Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0095, t01=0x0012}
0x0e8de…0e908 Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x0038}
0x0e908…0e918 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0062}
0x0e918…0e92a Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0095, t01=0x0072}
0x0e92a…0e950 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0095, t01=0x0084}
0x0e950…0e97a Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x00aa}
0x0e97a…0e98a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x00d4}
0x0e98a…0e99c Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0095, t01=0x00e4}
0x0e99c…0e9c2 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0095, t01=0x00f6}
0x0e9c2…0e9ec Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x011c}
0x0e9ec…0e9fc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0146}
0x0e9fc…0ea0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0156}
0x0ea0a…0ea1c Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x0095, t01=0x0164}
0x0ea1c…0ea42 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x0095, t01=0x0176}
0x0ea42…0ea6c Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x000c}
0x0ea6c…0ea7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0036}
0x0ea7c…0ea8c Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x0096, t01=0x0046}
0x0ea8c…0eab2 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x0096, t01=0x0056}
0x0eab2…0eadc Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x007c}
0x0eadc…0eaec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x00a6}
0x0eaec…0eafe Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x0096, t01=0x00b6}
0x0eafe…0eb24 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x0096, t01=0x00c8}
0x0eb24…0eb4e Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x00ee}
0x0eb4e…0eb5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0118}
0x0eb5e…0eb6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x0128}
0x0eb6c…0eb7e Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0096, t01=0x0136}
0x0eb7e…0eb9e Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0096, t01=0x0148}
0x0eb9e…0ebb0 Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0096, t01=0x0168}
0x0ebb0…0ebc6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x0096, t01=0x017a}
0x0ebc6…0ebf0 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0096, t01=0x0190}
0x0ebf0…0ec1c Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x0097, t01=0x002a}
0x0ec1c…0ec4e Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x0097, t01=0x0056}
0x0ec4e…0ec68 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x0097, t01=0x0088}
0x0ec68…0ec78 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x00a2}
0x0ec78…0ec86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x00b2}
0x0ec86…0ec9a Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x0097, t01=0x00c0}
0x0ec9a…0ecd0 Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x0097, t01=0x00d4}
0x0ecd0…0ecec Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x0097, t01=0x010a}
0x0ecec…0ed04 Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x0097, t01=0x0126}
0x0ed04…0ed1c Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x0097, t01=0x013e}
0x0ed1c…0ed50 Head {h00=0x0030, h01=0x0050, text=» ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES«, t00=0x0097, t01=0x0156}
0x0ed50…0ed60 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x018a}
0x0ed60…0ed6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x000a}
0x0ed6e…0ed80 Head {h00=0x000e, h01=0x0050, text=»NUMB EQU *«, t00=0x0098, t01=0x0018}
0x0ed80…0edae Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RESET NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x002a}
0x0edae…0edc2 Head {h00=0x0010, h01=0x0050, text=»NUMB00 EQU *«, t00=0x0098, t01=0x0058}
0x0edc2…0ede8 Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET DIGIT IN NUMBER«, t00=0x0098, t01=0x006c}
0x0ede8…0ee12 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0098, t01=0x0092}
0x0ee12…0ee3e Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER >9? «, t00=0x0098, t01=0x00bc}
0x0ee3e…0ee58 Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x0098, t01=0x00e8}
0x0ee58…0ee62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0102}
0x0ee62…0ee8e Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER <0? «, t00=0x0098, t01=0x010c}
0x0ee8e…0eea8 Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0098, t01=0x0138}
0x0eea8…0eed2 Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB10 NUMERIC CHARACTER =0«, t00=0x0098, t01=0x0152}
0x0eed2…0eedc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x017c}
0x0eedc…0ef0e Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x0186}
0x0ef0e…0ef22 Head {h00=0x0010, h01=0x0050, text=»NUMB10 EQU *«, t00=0x0099, t01=0x0028}
0x0ef22…0ef4c Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT DIGIT COUNTER «, t00=0x0099, t01=0x003c}
0x0ef4c…0ef76 Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB20 ALL DIGITS PROCESSED«, t00=0x0099, t01=0x0066}
0x0ef76…0ef80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0090}
0x0ef80…0efb0 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE«, t00=0x0099, t01=0x009a}
0x0efb0…0efd6 Head {h00=0x0022, h01=0x0050, text=» RB NUMB00 PROCESS NEXT DIGIT «, t00=0x0099, t01=0x00ca}
0x0efd6…0efe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f0}
0x0efe0…0eff4 Head {h00=0x0010, h01=0x0050, text=»NUMB20 EQU *«, t00=0x0099, t01=0x00fa}
0x0eff4…0f00c Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0099, t01=0x010e}
0x0f00c…0f01a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0126}
0x0f01a…0f024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0134}
0x0f024…0f02e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x013e}
0x0f02e…0f068 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0099, t01=0x0148}
0x0f068…0f0a2 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0182}
0x0f0a2…0f0dc Head {h00=0x0036, h01=0x0050, text=»* SEQUENCES *«, t00=0x009a, t01=0x002c}
0x0f0dc…0f116 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0066}
0x0f116…0f150 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009a, t01=0x00a0}
0x0f150…0f15a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00da}
0x0f15a…0f164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00e4}
0x0f164…0f16e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00ee}
0x0f16e…0f178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00f8}
0x0f178…0f190 Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x009a, t01=0x0102}
0x0f190…0f1a2 Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x009a, t01=0x011a}
0x0f1a2…0f1b4 Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x009a, t01=0x012c}
0x0f1b4…0f1cc Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x009a, t01=0x013e}
0x0f1cc…0f1de Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x009a, t01=0x0156}
0x0f1de…0f1f0 Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x009a, t01=0x0168}
0x0f1f0…0f208 Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x009a, t01=0x017a}
0x0f208…0f21a (155, 0, 400) Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x009b, t01=0x0004}
0x0f21a…0f22c Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x009b, t01=0x0016}
0x0f22c…0f244 Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x009b, t01=0x0028}
0x0f244…0f256 Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x009b, t01=0x0040}
0x0f256…0f268 Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x0052}
0x0f268…0f27a Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x009b, t01=0x0064}
0x0f27a…0f290 Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x009b, t01=0x0076}
0x0f290…0f2a2 Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x009b, t01=0x008c}
0x0f2a2…0f2b4 Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x009b, t01=0x009e}
0x0f2b4…0f2cc Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x009b, t01=0x00b0}
0x0f2cc…0f2de Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x009b, t01=0x00c8}
0x0f2de…0f2f0 Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x00da}
0x0f2f0…0f302 Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x009b, t01=0x00ec}
0x0f302…0f30e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x00fe}
0x0f30e…0f328 Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x009b, t01=0x010a}
0x0f328…0f332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0124}
0x0f332…0f35c Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x009b, t01=0x012e}
0x0f35c…0f366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0158}
0x0f366…0f37a Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x009b, t01=0x0162}
0x0f37a…0f39c Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x009b, t01=0x0176}
0x0f39c…0f3c2 Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x009c, t01=0x0008}
0x0f3c2…0f3f2 Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x009c, t01=0x002e}
0x0f3f2…0f414 Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x009c, t01=0x005e}
0x0f414…0f44c Head {h00=0x0034, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA«, t00=0x009c, t01=0x0080}
0x0f44c…0f470 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x009c, t01=0x00b8}
0x0f470…0f496 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x00dc}
0x0f496…0f4b2 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009c, t01=0x0102}
0x0f4b2…0f4cc Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x009c, t01=0x011e}
0x0f4cc…0f4fe Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x009c, t01=0x0138}
0x0f4fe…0f512 Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x009c, t01=0x016a}
0x0f512…0f538 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x017e}
0x0f538…0f554 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009d, t01=0x0014}
0x0f554…0f56e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x009d, t01=0x0030}
0x0f56e…0f582 Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x009d, t01=0x004a}
0x0f582…0f58c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x005e}
0x0f58c…0f5c2 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x009d, t01=0x0068}
0x0f5c2…0f5cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x009e}
0x0f5cc…0f606 Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x009d, t01=0x00a8}
0x0f606…0f61e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x009d, t01=0x00e2}
0x0f61e…0f648 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x009d, t01=0x00fa}
0x0f648…0f66e Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF BUFFER«, t00=0x009d, t01=0x0124}
0x0f66e…0f682 Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x009d, t01=0x014a}
0x0f682…0f6ac Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x009d, t01=0x015e}
0x0f6ac…0f6d0 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x009d, t01=0x0188}
0x0f6d0…0f6fa Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x009e, t01=0x001c}
0x0f6fa…0f70e Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x009e, t01=0x0046}
0x0f70e…0f732 Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x009e, t01=0x005a}
0x0f732…0f74c Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x009e, t01=0x007e}
0x0f74c…0f77a Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x009e, t01=0x0098}
0x0f77a…0f794 Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x009e, t01=0x00c6}
0x0f794…0f7c4 Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x009e, t01=0x00e0}
0x0f7c4…0f7f2 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x009e, t01=0x0110}
0x0f7f2…0f81c Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009e, t01=0x013e}
0x0f81c…0f82e Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x009e, t01=0x0168}
0x0f82e…0f842 Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x009e, t01=0x017a}
0x0f842…0f868 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x009e, t01=0x018e}
0x0f868…0f88e Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x009f, t01=0x0024}
0x0f88e…0f8a8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x009f, t01=0x004a}
0x0f8a8…0f8d6 Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x009f, t01=0x0064}
0x0f8d6…0f90e Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x009f, t01=0x0092}
0x0f90e…0f922 Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x009f, t01=0x00ca}
0x0f922…0f958 Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x009f, t01=0x00de}
0x0f958…0f97e Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x009f, t01=0x0114}
0x0f97e…0f990 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x009f, t01=0x013a}
0x0f990…0f9a2 Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x009f, t01=0x014c}
0x0f9a2…0f9b6 Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x009f, t01=0x015e}
0x0f9b6…0f9c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0172}
0x0f9c0…0fa02 Head {h00=0x003e, h01=0x0050, text=»* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x009f, t01=0x017c}
0x0fa02…0fa0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x002e}
0x0fa0c…0fa32 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a0, t01=0x0038}
0x0fa32…0fa56 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x00a0, t01=0x005e}
0x0fa56…0fa70 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x00a0, t01=0x0082}
0x0fa70…0fa82 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x00a0, t01=0x009c}
0x0fa82…0fab0 Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x00a0, t01=0x00ae}
0x0fab0…0fad6 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x00a0, t01=0x00dc}
0x0fad6…0fae8 Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x00a0, t01=0x0102}
0x0fae8…0fafc Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x00a0, t01=0x0114}
0x0fafc…0fb0e Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00a0, t01=0x0128}
0x0fb0e…0fb34 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00a0, t01=0x013a}
0x0fb34…0fb48 Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x00a0, t01=0x0160}
0x0fb48…0fb5c Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x00a0, t01=0x0174}
0x0fb5c…0fb68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0188}
0x0fb68…0fb7c (161, 0, 398) Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x00a1, t01=0x0004}
0x0fb7c…0fb92 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a1, t01=0x0018}
0x0fb92…0fba6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x002e}
0x0fba6…0fbbc Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00a1, t01=0x0042}
0x0fbbc…0fbd0 Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x00a1, t01=0x0058}
0x0fbd0…0fbfe Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a1, t01=0x006c}
0x0fbfe…0fc12 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x009a}
0x0fc12…0fc20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x00ae}
0x0fc20…0fc34 Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x00a1, t01=0x00bc}
0x0fc34…0fc3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00d0}
0x0fc3e…0fc78 Head {h00=0x0036, h01=0x0050, text=»* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x00a1, t01=0x00da}
0x0fc78…0fc82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0114}
0x0fc82…0fcbe Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x00a1, t01=0x011e}
0x0fcbe…0fcec Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x00a1, t01=0x015a}
0x0fcec…0fcf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0188}
0x0fcf6…0fd2a (162, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x00a2, t01=0x0004}
0x0fd2a…0fd3e Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x00a2, t01=0x0038}
0x0fd3e…0fd6c Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x00a2, t01=0x004c}
0x0fd6c…0fda2 Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x00a2, t01=0x007a}
0x0fda2…0fdc8 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x00b0}
0x0fdc8…0fdf0 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x00a2, t01=0x00d6}
0x0fdf0…0fe20 Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a2, t01=0x00fe}
0x0fe20…0fe46 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x012e}
0x0fe46…0fe70 Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x00a2, t01=0x0154}
0x0fe70…0fe94 Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x00a2, t01=0x017e}
0x0fe94…0feb0 Head {h00=0x0018, h01=0x0050, text=» ST A1,CONSTA+STKCOM«, t00=0x00a3, t01=0x0012}
0x0feb0…0fed8 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x00a3, t01=0x002e}
0x0fed8…0feec Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x00a3, t01=0x0056}
0x0feec…0fef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x006a}
0x0fef6…0ff2a Head {h00=0x0030, h01=0x0050, text=»* READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x00a3, t01=0x0074}
0x0ff2a…0ff34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x00a8}
0x0ff34…0ff56 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x00a3, t01=0x00b2}
0x0ff56…0ff7c Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x00a3, t01=0x00d4}
0x0ff7c…0ff90 Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x00a3, t01=0x00fa}
0x0ff90…0ff9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x010e}
0x0ff9a…0ffd0 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x00a3, t01=0x0118}
0x0ffd0…0ffda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x014e}
0x0ffda…10014 Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a3, t01=0x0158}
0x10014…1002c (164, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a4, t01=0x0004}
0x1002c…10056 Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a4, t01=0x001c}
0x10056…10078 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x00a4, t01=0x0046}
0x10078…10082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0068}
0x10082…100a0 Head {h00=0x001a, h01=0x0050, text=»* LOOK IF WE HAVE AN «, t00=0x00a4, t01=0x0072}
0x100a0…100c4 Head {h00=0x0020, h01=0x0050, text=»* APPLICATION CONTROL BLOCK«, t00=0x00a4, t01=0x0090}
0x100c4…100ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00b4}
0x100ce…100f8 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A4 GET 1ST WORD IN BUFFER«, t00=0x00a4, t01=0x00be}
0x100f8…1012c Head {h00=0x0030, h01=0x0050, text=» CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? «, t00=0x00a4, t01=0x00e8}
0x1012c…10146 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:25 YES!«, t00=0x00a4, t01=0x011c}
0x10146…10150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0136}
0x10150…1017c Head {h00=0x0028, h01=0x0050, text=» CWK A5,'A;' AND LOOK IF IT IS 'A;' «, t00=0x00a4, t01=0x0140}
0x1017c…10196 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:30 NO!«, t00=0x00a4, t01=0x016c}
0x10196…101a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0186}
0x101a0…101ce Head {h00=0x002a, h01=0x0050, text=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH«, t00=0x00a4, t01=0x0190}
0x101ce…101f2 Head {h00=0x0020, h01=0x0050, text=» STR A5,A4 'HEX FF' AND ';' «, t00=0x00a5, t01=0x002e}
0x101f2…1022e Head {h00=0x0038, h01=0x0050, text=» LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x00a5, t01=0x0052}
0x1022e…10252 Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x00a5, t01=0x008e}
0x10252…1028c Head {h00=0x0036, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION «, t00=0x00a5, t01=0x00b2}
0x1028c…102c8 Head {h00=0x0038, h01=0x0050, text=» SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION«, t00=0x00a5, t01=0x00ec}
0x102c8…102fc Head {h00=0x0030, h01=0x0050, text=» ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK«, t00=0x00a5, t01=0x0128}
0x102fc…1031e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a5, t01=0x015c}
0x1031e…10352 Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE«, t00=0x00a5, t01=0x017e}
0x10352…10364 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a6, t01=0x0022}
0x10364…10388 Head {h00=0x0020, h01=0x0050, text=» ADKL A10,2 SKIP NEXT RECORD«, t00=0x00a6, t01=0x0034}
0x10388…10392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0058}
0x10392…103c4 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a6, t01=0x0062}
0x103c4…103f0 Head {h00=0x0028, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER? «, t00=0x00a6, t01=0x0094}
0x103f0…1040a Head {h00=0x0016, h01=0x0050, text=» RF(L) COR:48 NO! «, t00=0x00a6, t01=0x00c0}
0x1040a…10414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00da}
0x10414…10440 Head {h00=0x0028, h01=0x0050, text=» CF A14,RDSEC YES, READ NEXT SECTOR «, t00=0x00a6, t01=0x00e4}
0x10440…1046a Head {h00=0x0026, h01=0x0050, text=» LDR A8,A9 AND GET START OF BUFFER«, t00=0x00a6, t01=0x0110}
0x1046a…1047c Head {h00=0x000e, h01=0x0050, text=» RF COR:48«, t00=0x00a6, t01=0x013a}
0x1047c…10486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x014c}
0x10486…1049a Head {h00=0x0010, h01=0x0050, text=»COR:25 EQU *«, t00=0x00a6, t01=0x0156}
0x1049a…104d8 Head {h00=0x003a, h01=0x0050, text=» LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6«, t00=0x00a6, t01=0x016a}
0x104d8…10514 Head {h00=0x0038, h01=0x0050, text=» SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 «, t00=0x00a7, t01=0x0018}
0x10514…10538 Head {h00=0x0020, h01=0x0050, text=» ST A5,DCBLK+STKCOM SAVE =6 «, t00=0x00a7, t01=0x0054}
0x10538…1054c Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x00a7, t01=0x0078}
0x1054c…1056c Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x00a7, t01=0x008c}
0x1056c…10590 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x00a7, t01=0x00ac}
0x10590…105aa Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x00d0}
0x105aa…105be Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x00a7, t01=0x00ea}
0x105be…105ec Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x00a7, t01=0x00fe}
0x105ec…10606 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x012c}
0x10606…10634 Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00a7, t01=0x0146}
0x10634…1064e Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x00a7, t01=0x0174}
0x1064e…10678 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x00a7, t01=0x018e}
0x10678…106a6 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00a8, t01=0x0028}
0x106a6…106d0 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x00a8, t01=0x0056}
0x106d0…106e8 Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x00a8, t01=0x0080}
0x106e8…106fc Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x00a8, t01=0x0098}
0x106fc…10722 Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00a8, t01=0x00ac}
0x10722…10746 Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x00a8, t01=0x00d2}
0x10746…10760 Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x00a8, t01=0x00f6}
0x10760…1078e Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00a8, t01=0x0110}
0x1078e…107c6 Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x00a8, t01=0x013e}
0x107c6…107da Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x00a8, t01=0x0176}
0x107da…10810 Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00a8, t01=0x018a}
0x10810…10832 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a9, t01=0x0030}
0x10832…10844 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a9, t01=0x0052}
0x10844…10870 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x00a9, t01=0x0064}
0x10870…1089a Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x00a9, t01=0x0090}
0x1089a…108b4 Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x00a9, t01=0x00ba}
0x108b4…108c8 Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x00a9, t01=0x00d4}
0x108c8…108fa Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a9, t01=0x00e8}
0x108fa…10924 Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x00a9, t01=0x011a}
0x10924…10946 Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x00a9, t01=0x0144}
0x10946…10964 Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x00a9, t01=0x0166}
0x10964…10978 Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x00a9, t01=0x0184}
0x10978…1099e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0008}
0x1099e…109b6 Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x00aa, t01=0x002e}
0x109b6…109ce Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x00aa, t01=0x0046}
0x109ce…109e2 Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x00aa, t01=0x005e}
0x109e2…10a0c Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x0072}
0x10a0c…10a36 Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x009c}
0x10a36…10a52 Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00aa, t01=0x00c6}
0x10a52…10a84 Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x00aa, t01=0x00e2}
0x10a84…10a9a Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x00aa, t01=0x0114}
0x10a9a…10aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x012a}
0x10aa4…10ac4 Head {h00=0x001c, h01=0x0050, text=»* UNLOCK FLEXIBLE DISC «, t00=0x00aa, t01=0x0134}
0x10ac4…10ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0154}
0x10ace…10ae2 Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x00aa, t01=0x015e}
0x10ae2…10b1a Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x00aa, t01=0x0172}
0x10b1a…10b4a Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x00ab, t01=0x001a}
0x10b4a…10b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x004a}
0x10b54…10b66 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00ab, t01=0x0054}
0x10b66…10b78 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x00ab, t01=0x0066}
0x10b78…10b8a Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x00ab, t01=0x0078}
0x10b8a…10bb2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x00ab, t01=0x008a}
0x10bb2…10bbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00b2}
0x10bbe…10bda Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ab, t01=0x00be}
0x10bda…10c06 Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ab, t01=0x00da}
0x10c06…10c12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0106}
0x10c12…10c28 Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ab, t01=0x0112}
0x10c28…10c3c Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x00ab, t01=0x0128}
0x10c3c…10c6a Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x00ab, t01=0x013c}
0x10c6a…10c88 Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x00ab, t01=0x016a}
0x10c88…10cb0 Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x00ab, t01=0x0188}
0x10cb0…10cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0020}
0x10cba…10ce0 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x00ac, t01=0x002a}
0x10ce0…10cfa Head {h00=0x0016, h01=0x0050, text=» RF(NN) COR:60 NO!«, t00=0x00ac, t01=0x0050}
0x10cfa…10d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x006a}
0x10d04…10d10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0074}
0x10d10…10d2c Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ac, t01=0x0080}
0x10d2c…10d52 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00ac, t01=0x009c}
0x10d52…10d70 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ac, t01=0x00c2}
0x10d70…10d98 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x00ac, t01=0x00e0}
0x10d98…10da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0108}
0x10da2…10dbe Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00ac, t01=0x0112}
0x10dbe…10dea Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ac, t01=0x012e}
0x10dea…10df6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x015a}
0x10df6…10e0c Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x0166}
0x10e0c…10e22 Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x017c}
0x10e22…10e36 (173, 0, 400) Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x00ad, t01=0x0004}
0x10e36…10e44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0018}
0x10e44…10e58 Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x00ad, t01=0x0026}
0x10e58…10e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x003a}
0x10e62…10e9a Head {h00=0x0034, h01=0x0050, text=»* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x00ad, t01=0x0044}
0x10e9a…10ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x007c}
0x10ea4…10ece Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x00ad, t01=0x0086}
0x10ece…10ef4 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00ad, t01=0x00b0}
0x10ef4…10f20 Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x00ad, t01=0x00d6}
0x10f20…10f60 Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x00ad, t01=0x0102}
0x10f60…10f94 Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x00ad, t01=0x0142}
0x10f94…10fc2 Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x00ad, t01=0x0176}
0x10fc2…10fe8 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x00ae, t01=0x0014}
0x10fe8…11018 Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x00ae, t01=0x003a}
0x11018…1104e Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x00ae, t01=0x006a}
0x1104e…1106c Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x00ae, t01=0x00a0}
0x1106c…11076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00be}
0x11076…1109e Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x00ae, t01=0x00c8}
0x1109e…110b0 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00ae, t01=0x00f0}
0x110b0…110ee Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x00ae, t01=0x0102}
0x110ee…11124 Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x00ae, t01=0x0140}
0x11124…11158 Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x00ae, t01=0x0176}
0x11158…1117c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x00af, t01=0x001a}
0x1117c…11198 Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x00af, t01=0x003e}
0x11198…111c2 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x00af, t01=0x005a}
0x111c2…111e6 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x00af, t01=0x0084}
0x111e6…1120e Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x00af, t01=0x00a8}
0x1120e…11244 Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x00af, t01=0x00d0}
0x11244…11270 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS =1 «, t00=0x00af, t01=0x0106}
0x11270…1129a Head {h00=0x0026, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT =1«, t00=0x00af, t01=0x0132}
0x1129a…112aa Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x00af, t01=0x015c}
0x112aa…112d8 Head {h00=0x002a, h01=0x0050, text=» ADR A2,A12 RELOCATE MXSTAB ADDRESS =1«, t00=0x00af, t01=0x016c}
0x112d8…11308 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1«, t00=0x00b0, t01=0x000a}
0x11308…11322 Head {h00=0x0016, h01=0x0050, text=»CMOV20 EQU * =1 «, t00=0x00b0, t01=0x003a}
0x11322…11352 Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x00b0, t01=0x0054}
0x11352…1135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0084}
0x1135c…1139c Head {h00=0x003c, h01=0x0050, text=»* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x00b0, t01=0x008e}
0x1139c…113a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00ce}
0x113a6…113ba Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x00b0, t01=0x00d8}
0x113ba…113d2 Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x00b0, t01=0x00ec}
0x113d2…113e4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00b0, t01=0x0104}
0x113e4…113f6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00b0, t01=0x0116}
0x113f6…1140a Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x00b0, t01=0x0128}
0x1140a…1141c Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x00b0, t01=0x013c}
0x1141c…11430 Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x00b0, t01=0x014e}
0x11430…11446 Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x00b0, t01=0x0162}
0x11446…11472 Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x00b0, t01=0x0178}
0x11472…1147e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b1, t01=0x0014}
0x1147e…1148c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x0020}
0x1148c…114dc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x002e}
0x114dc…1152c Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x00b1, t01=0x007e}
0x1152c…1157c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x00ce}
0x1157c…115a4 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b1, t01=0x011e}
0x115a4…115cc Head {h00=0x0024, h01=0x0050, text=»* SOPIN - READ SOP SWITCHES * «, t00=0x00b1, t01=0x0146}
0x115cc…115f4 Head {h00=0x0024, h01=0x0050, text=»* ========================= * «, t00=0x00b1, t01=0x016e}
0x115f4…1161c Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x00b2, t01=0x0008}
0x1161c…11644 Head {h00=0x0024, h01=0x0050, text=»* ENTRY: * «, t00=0x00b2, t01=0x0030}
0x11644…1166c Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x00b2, t01=0x0058}
0x1166c…11694 Head {h00=0x0024, h01=0x0050, text=»* EXIT: A1 - SOP INPUT * «, t00=0x00b2, t01=0x0080}
0x11694…116bc Head {h00=0x0024, h01=0x0050, text=»* BIT 6 - SWITCH 1 * «, t00=0x00b2, t01=0x00a8}
0x116bc…116e4 Head {h00=0x0024, h01=0x0050, text=»* BIT 15 - SWITCH 10 * «, t00=0x00b2, t01=0x00d0}
0x116e4…1170c Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x00b2, t01=0x00f8}
0x1170c…11734 Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1 * «, t00=0x00b2, t01=0x0120}
0x11734…1175c Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x00b2, t01=0x0148}
0x1175c…11784 Head {h00=0x0024, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x00b2, t01=0x0170}
0x11784…117ac Head {h00=0x0024, h01=0x0050, text=»* * «, t00=0x00b3, t01=0x0008}
0x117ac…117d4 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b3, t01=0x0030}
0x117d4…117e8 Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x00b3, t01=0x0058}
0x117e8…117fe Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x00b3, t01=0x006c}
0x117fe…11814 Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x00b3, t01=0x0082}
0x11814…11828 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x00b3, t01=0x0098}
0x11828…11838 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b3, t01=0x00ac}
0x11838…11846 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b3, t01=0x00bc}
0x11846…11872 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b3, t01=0x00ca}
0x11872…1189e Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00b3, t01=0x00f6}
0x1189e…118ca Head {h00=0x0028, h01=0x0050, text=»* LODDEV - INITIAZE LOAD UNIT * «, t00=0x00b3, t01=0x0122}
0x118ca…118f6 Head {h00=0x0028, h01=0x0050, text=»* =========================== * «, t00=0x00b3, t01=0x014e}
0x118f6…11922 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00b3, t01=0x017a}
0x11922…1194e Head {h00=0x0028, h01=0x0050, text=»* USED FOR CONFIGURATION OF * «, t00=0x00b4, t01=0x0016}
0x1194e…1197a Head {h00=0x0028, h01=0x0050, text=»* PROGRAM LOAD DEVICE AND * «, t00=0x00b4, t01=0x0042}
0x1197a…119a6 Head {h00=0x0028, h01=0x0050, text=»* CONFIGURATION DATA LOAD * «, t00=0x00b4, t01=0x006e}
0x119a6…119d2 Head {h00=0x0028, h01=0x0050, text=»* DEVICE (IF DIFFERENT). * «, t00=0x00b4, t01=0x009a}
0x119d2…119fe Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00b4, t01=0x00c6}
0x119fe…11a2a Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1=DEVICE ADDRESS * «, t00=0x00b4, t01=0x00f2}
0x11a2a…11a56 Head {h00=0x0028, h01=0x0050, text=»* ON EXIT: A2=FILE CODE * «, t00=0x00b4, t01=0x011e}
0x11a56…11a82 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00b4, t01=0x014a}
0x11a82…11aae Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b4, t01=0x0176}
0x11aae…11ab6 Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x0012}
0x11ab6…11abe Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x001a}
0x11abe…11ad2 Head {h00=0x0010, h01=0x0050, text=»LODDEV EQU *«, t00=0x00b5, t01=0x0022}
0x11ad2…11aea Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFLEN «, t00=0x00b5, t01=0x0036}
0x11aea…11b18 Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON INITIALIZE BUFFER LENGTH«, t00=0x00b5, t01=0x004e}
0x11b18…11b2c Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00b5, t01=0x007c}
0x11b2c…11b54 Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00b5, t01=0x0090}
0x11b54…11b66 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00b5, t01=0x00b8}
0x11b66…11b8e Head {h00=0x0024, h01=0x0050, text=» ANK A2,/80 CHECK IF CASSETTE =9«, t00=0x00b5, t01=0x00ca}
0x11b8e…11ba8 Head {h00=0x0016, h01=0x0050, text=» RF(P) CASS:0 YES!«, t00=0x00b5, t01=0x00f2}
0x11ba8…11bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x010c}
0x11bb2…11bdc Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x00b5, t01=0x0116}
0x11bdc…11c08 Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x00b5, t01=0x0140}
0x11c08…11c36 Head {h00=0x002a, h01=0x0050, text=» LC A3,IPLTYP+1+STKEND GET DEVICE TYPE«, t00=0x00b5, t01=0x016c}
0x11c36…11c4a Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x00b6, t01=0x000a}
0x11c4a…11c5c Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x00b6, t01=0x001e}
0x11c5c…11c76 Head {h00=0x0016, h01=0x0050, text=» RF(N) DISC:0 DISC«, t00=0x00b6, t01=0x0030}
0x11c76…11c9a Head {h00=0x0020, h01=0x0050, text=» RF(Z) MFD:0 MINI FIXED DISC«, t00=0x00b6, t01=0x004a}
0x11c9a…11cb0 Head {h00=0x0012, h01=0x0050, text=» SUK A3,3 =9 «, t00=0x00b6, t01=0x006e}
0x11cb0…11cd2 Head {h00=0x001e, h01=0x0050, text=» RF(N) CDC:0 80M CDC DISC «, t00=0x00b6, t01=0x0084}
0x11cd2…11cf2 Head {h00=0x001c, h01=0x0050, text=» RF FLEX:0 FLEXIBLE DISC«, t00=0x00b6, t01=0x00a6}
0x11cf2…11d00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b6, t01=0x00c6}
0x11d00…11d14 Head {h00=0x0010, h01=0x0050, text=»CASS:0 EQU *«, t00=0x00b6, t01=0x00d4}
0x11d14…11d28 Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00b6, t01=0x00e8}
0x11d28…11d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00fc}
0x11d32…11d5c Head {h00=0x0026, h01=0x0050, text=»* PROGRAM LOAD DEVICE = CASSETTE «, t00=0x00b6, t01=0x0106}
0x11d5c…11d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0130}
0x11d66…11da8 Head {h00=0x003e, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK «, t00=0x00b6, t01=0x013a}
0x11da8…11dd6 Head {h00=0x002a, h01=0x0050, text=» CM APLADA+2,A1 CLEAR APPLICATION DISC«, t00=0x00b6, t01=0x017c}
0x11dd6…11e02 Head {h00=0x0028, h01=0x0050, text=» CM APLADA+4,A1 FILE ADDRESS ENTRIES«, t00=0x00b7, t01=0x001a}
0x11e02…11e30 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x00b7, t01=0x0046}
0x11e30…11e44 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A1 «, t00=0x00b7, t01=0x0074}
0x11e44…11e78 Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x00b7, t01=0x0088}
0x11e78…11e8c Head {h00=0x0010, h01=0x0050, text=»CASS:2 EQU *«, t00=0x00b7, t01=0x00bc}
0x11e8c…11eba Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x00b7, t01=0x00d0}
0x11eba…11ed8 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x00b7, t01=0x00fe}
0x11ed8…11ef4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) FINIS RETURN «, t00=0x00b7, t01=0x011c}
0x11ef4…11efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0138}
0x11efe…11f2e Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x00b7, t01=0x0142}
0x11f2e…11f40 Head {h00=0x000e, h01=0x0050, text=» RB CASS:2«, t00=0x00b7, t01=0x0172}
0x11f40…11f4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0184}
0x11f4c…11f60 Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x00b7, t01=0x0190}
0x11f60…11f76 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b8, t01=0x0014}
0x11f76…11fa0 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b8, t01=0x002a}
0x11fa0…11fac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x0054}
0x11fac…11fba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x0060}
0x11fba…11fce Head {h00=0x0010, h01=0x0050, text=»FLEX:0 EQU *«, t00=0x00b8, t01=0x006e}
0x11fce…11fe4 Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00b8, t01=0x0082}
0x11fe4…11fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0098}
0x11fee…1201c Head {h00=0x002a, h01=0x0050, text=»* PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x00b8, t01=0x00a2}
0x1201c…12026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00d0}
0x12026…12030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00da}
0x12030…12066 Head {h00=0x0032, h01=0x0050, text=»* MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x00b8, t01=0x00e4}
0x12066…12070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x011a}
0x12070…12084 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F8«, t00=0x00b8, t01=0x0124}
0x12084…120b0 Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b8, t01=0x0138}
0x120b0…120ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0164}
0x120ba…120d8 Head {h00=0x001a, h01=0x0050, text=»* INIT FLEXIBLE DISC «, t00=0x00b8, t01=0x016e}
0x120d8…120e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x018c}
0x120e2…120f8 Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x00b9, t01=0x0008}
0x120f8…1210a Head {h00=0x000e, h01=0x0050, text=» RF FINISH«, t00=0x00b9, t01=0x001e}
0x1210a…12114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0030}
0x12114…12120 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x003a}
0x12120…12136 Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00b9, t01=0x0046}
0x12136…1214c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b9, t01=0x005c}
0x1214c…12176 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b9, t01=0x0072}
0x12176…12182 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x009c}
0x12182…12190 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b9, t01=0x00a8}
0x12190…121a4 Head {h00=0x0010, h01=0x0050, text=»MFD:0 EQU * «, t00=0x00b9, t01=0x00b6}
0x121a4…121ba Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00b9, t01=0x00ca}
0x121ba…121c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00e0}
0x121c4…121f4 Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x00b9, t01=0x00ea}
0x121f4…121fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x011a}
0x121fe…1222e Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x00b9, t01=0x0124}
0x1222e…12238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0154}
0x12238…1224c Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x00b9, t01=0x015e}
0x1224c…12278 Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b9, t01=0x0172}
0x12278…12282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x000e}
0x12282…122a0 Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x00ba, t01=0x0018}
0x122a0…122aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0036}
0x122aa…122c0 Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x00ba, t01=0x0040}
0x122c0…122da Head {h00=0x0016, h01=0x0050, text=» RF FINISH RETURN «, t00=0x00ba, t01=0x0056}
0x122da…122e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0070}
0x122e4…122f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x007a}
0x122f0…12306 Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x00ba, t01=0x0086}
0x12306…1231c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00ba, t01=0x009c}
0x1231c…12346 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00ba, t01=0x00b2}
0x12346…12352 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x00dc}
0x12352…12360 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x00e8}
0x12360…12374 Head {h00=0x0010, h01=0x0050, text=»DISC:0 EQU *«, t00=0x00ba, t01=0x00f6}
0x12374…12388 Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00ba, t01=0x010a}
0x12388…12392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x011e}
0x12392…123b8 Head {h00=0x0022, h01=0x0050, text=»* PROGRAM LOAD DEVICE = DISC «, t00=0x00ba, t01=0x0128}
0x123b8…123c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x014e}
0x123c2…123cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0158}
0x123cc…1240a Head {h00=0x003a, h01=0x0050, text=»* MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC «, t00=0x00ba, t01=0x0162}
0x1240a…12414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0010}
0x12414…1243e Head {h00=0x0026, h01=0x0050, text=» LC A2,FCTAB,A2 LOAD FILE CODE =5 «, t00=0x00bb, t01=0x001a}
0x1243e…1246a Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bb, t01=0x0044}
0x1246a…12474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0070}
0x12474…12498 Head {h00=0x0020, h01=0x0050, text=»* INITIALIZE DISC COMMANDS «, t00=0x00bb, t01=0x007a}
0x12498…124a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x009e}
0x124a2…124b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x00bb, t01=0x00a8}
0x124b8…124c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x00be}
0x124c4…124d8 Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00bb, t01=0x00ca}
0x124d8…124ee Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bb, t01=0x00de}
0x124ee…12502 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bb, t01=0x00f4}
0x12502…1250e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x0108}
0x1250e…12522 Head {h00=0x0010, h01=0x0050, text=»FINISH EQU *«, t00=0x00bb, t01=0x0114}
0x12522…12554 Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE «, t00=0x00bb, t01=0x0128}
0x12554…12568 Head {h00=0x0010, h01=0x0050, text=»FINIS EQU * «, t00=0x00bb, t01=0x015a}
0x12568…12596 Head {h00=0x002a, h01=0x0050, text=» LD A2,FILCOD+STKEND RESTORE FILE CODE«, t00=0x00bb, t01=0x016e}
0x12596…125a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00bc, t01=0x000c}
0x125a6…125b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x001c}
0x125b4…125c8 Head {h00=0x0010, h01=0x0050, text=»CDC:0 EQU * «, t00=0x00bc, t01=0x002a}
0x125c8…125e4 Head {h00=0x0018, h01=0x0050, text=» IFF CDDISC+CDDI16=0«, t00=0x00bc, t01=0x003e}
0x125e4…125ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x005a}
0x125ee…12622 Head {h00=0x0030, h01=0x0050, text=»* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC «, t00=0x00bc, t01=0x0064}
0x12622…1262c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0098}
0x1262c…12636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00a2}
0x12636…12658 Head {h00=0x001e, h01=0x0050, text=»* MODIFY SCTIPL: /FC - /FD«, t00=0x00bc, t01=0x00ac}
0x12658…12662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00ce}
0x12662…1268a Head {h00=0x0024, h01=0x0050, text=» SRC A2,2 TEST IF UNIT 1 OR 2 =9«, t00=0x00bc, t01=0x00d8}
0x1268a…126aa Head {h00=0x001c, h01=0x0050, text=» RF(NN) CDC:1 UNIT 1 =9 «, t00=0x00bc, t01=0x0100}
0x126aa…126c0 Head {h00=0x0012, h01=0x0050, text=» ADK A2,2 =9 «, t00=0x00bc, t01=0x0120}
0x126c0…126d8 Head {h00=0x0014, h01=0x0050, text=»CDC:1 EQU * =9 «, t00=0x00bc, t01=0x0136}
0x126d8…12700 Head {h00=0x0024, h01=0x0050, text=» ANK A2,7 MASK BITS NOT USED =9 «, t00=0x00bc, t01=0x014e}
0x12700…1271e Head {h00=0x001a, h01=0x0050, text=» ORK A2,/FC FILE CODE «, t00=0x00bc, t01=0x0176}
0x1271e…1274a (189, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bd, t01=0x0004}
0x1274a…12754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0030}
0x12754…12776 Head {h00=0x001e, h01=0x0050, text=»* INITIALISE DISC COMMANDS«, t00=0x00bd, t01=0x003a}
0x12776…12780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x005c}
0x12780…127a2 Head {h00=0x001e, h01=0x0050, text=» CF A14,CDINIT INIT DEVICE«, t00=0x00bd, t01=0x0066}
0x127a2…127bc Head {h00=0x0016, h01=0x0050, text=» RB FINISH RETURN «, t00=0x00bd, t01=0x0088}
0x127bc…127c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00a2}
0x127c8…127e8 Head {h00=0x001c, h01=0x0050, text=» IFT CDDISC+CDDI16=0 =9«, t00=0x00bd, t01=0x00ae}
0x127e8…127fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bd, t01=0x00ce}
0x127fe…12828 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bd, t01=0x00e4}
0x12828…12834 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x010e}
0x12834…12842 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x011a}
0x12842…12882 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00bd, t01=0x0128}
0x12882…128c2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0168}
0x128c2…12902 Head {h00=0x003c, h01=0x0050, text=»* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * «, t00=0x00be, t01=0x0018}
0x12902…12942 Head {h00=0x003c, h01=0x0050, text=»* ======================================== * «, t00=0x00be, t01=0x0058}
0x12942…12982 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00be, t01=0x0098}
0x12982…129c2 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 = DEVICE ADDRESS * «, t00=0x00be, t01=0x00d8}
0x129c2…12a02 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00be, t01=0x0118}
0x12a02…12a42 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00be, t01=0x0158}
0x12a42…12a4a Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0008}
0x12a4a…12a52 Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0010}
0x12a52…12a66 Head {h00=0x0010, h01=0x0050, text=»CONFLD EQU *«, t00=0x00bf, t01=0x0018}
0x12a66…12a7a Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00bf, t01=0x002c}
0x12a7a…12aa2 Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00bf, t01=0x0040}
0x12aa2…12ac8 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE DEVICE ADDRESS«, t00=0x00bf, t01=0x0068}
0x12ac8…12aee Head {h00=0x0022, h01=0x0050, text=» ANK A2,/F ISOLATE LAST DIGIT «, t00=0x00bf, t01=0x008e}
0x12aee…12b00 Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x00bf, t01=0x00b4}
0x12b00…12b24 Head {h00=0x0020, h01=0x0050, text=» RB(N) MFD:0 MINI FIXED DISC«, t00=0x00bf, t01=0x00c6}
0x12b24…12b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00ea}
0x12b2e…12b50 Head {h00=0x001e, h01=0x0050, text=» RB(Z) CDC:0 80M CDC DISC «, t00=0x00bf, t01=0x00f4}
0x12b50…12b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0116}
0x12b5a…12b6c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00bf, t01=0x0120}
0x12b6c…12b8e Head {h00=0x001e, h01=0x0050, text=» RB(Z) DISC:0 DISC DEVICE «, t00=0x00bf, t01=0x0132}
0x12b8e…12b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0154}
0x12b98…12bc0 Head {h00=0x0024, h01=0x0050, text=» RB FLEX:0 FLEXIBLE DISC DEVICE «, t00=0x00bf, t01=0x015e}
0x12bc0…12bce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x0186}
0x12bce…12be2 (192, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00c0, t01=0x0004}
0x12be2…12c22 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c0, t01=0x0018}
0x12c22…12c62 Head {h00=0x003c, h01=0x0050, text=»* CASSIN - CASSETTE INITIATING ROUTINE * «, t00=0x00c0, t01=0x0058}
0x12c62…12ca2 Head {h00=0x003c, h01=0x0050, text=»* ==================================== * «, t00=0x00c0, t01=0x0098}
0x12ca2…12ce2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x00d8}
0x12ce2…12d22 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLOD -LOADING PART- * «, t00=0x00c0, t01=0x0118}
0x12d22…12d62 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x0158}
0x12d62…12da2 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: * «, t00=0x00c1, t01=0x0008}
0x12da2…12de2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x0048}
0x12de2…12e22 Head {h00=0x003c, h01=0x0050, text=»* EXIT: * «, t00=0x00c1, t01=0x0088}
0x12e22…12e62 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x00c8}
0x12e62…12ea2 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x00c1, t01=0x0108}
0x12ea2…12ee2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x0148}
0x12ee2…12f22 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: SOPIN,CHCRIO * «, t00=0x00c1, t01=0x0188}
0x12f22…12f62 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x00c2, t01=0x0038}
0x12f62…12fa2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c2, t01=0x0078}
0x12fa2…12fb6 Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x00c2, t01=0x00b8}
0x12fb6…12fc8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00c2, t01=0x00cc}
0x12fc8…12fee Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00c2, t01=0x00de}
0x12fee…13024 Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x00c2, t01=0x0104}
0x13024…1303a Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c2, t01=0x013a}
0x1303a…1304e Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x00c2, t01=0x0150}
0x1304e…1306c Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x00c2, t01=0x0164}
0x1306c…13094 Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x00c2, t01=0x0182}
0x13094…130ae Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x00c3, t01=0x001a}
0x130ae…130d8 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x00c3, t01=0x0034}
0x130d8…130ee Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c3, t01=0x005e}
0x130ee…1310c Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x00c3, t01=0x0074}
0x1310c…1312a Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x00c3, t01=0x0092}
0x1312a…1314c Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x00c3, t01=0x00b0}
0x1314c…13160 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x00c3, t01=0x00d2}
0x13160…13184 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x00c3, t01=0x00e6}
0x13184…131a8 Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x00c3, t01=0x010a}
0x131a8…131c2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x00c3, t01=0x012e}
0x131c2…131d8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT «, t00=0x00c3, t01=0x0148}
0x131d8…13208 Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x00c3, t01=0x015e}
0x13208…1321c Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x00c3, t01=0x018e}
0x1321c…1324a Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x00c4, t01=0x0012}
0x1324a…1325a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x0040}
0x1325a…13268 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0050}
0x13268…1329e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c4, t01=0x005e}
0x1329e…132d4 Head {h00=0x0032, h01=0x0050, text=»* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * «, t00=0x00c4, t01=0x0094}
0x132d4…1330a Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x00c4, t01=0x00ca}
0x1330a…13340 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c4, t01=0x0100}
0x13340…13376 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: CASSIN,SYSLOD * «, t00=0x00c4, t01=0x0136}
0x13376…133ac Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c4, t01=0x016c}
0x133ac…133e2 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A1 - I/O INSTRUCTION COMMAND * «, t00=0x00c5, t01=0x0012}
0x133e2…13418 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c5, t01=0x0048}
0x13418…1344e Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x00c5, t01=0x007e}
0x1344e…13484 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c5, t01=0x00b4}
0x13484…134ba Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x00c5, t01=0x00ea}
0x134ba…134f0 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c5, t01=0x0120}
0x134f0…13526 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x00c5, t01=0x0156}
0x13526…1355c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c5, t01=0x018c}
0x1355c…13592 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c6, t01=0x0032}
0x13592…135a6 Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x00c6, t01=0x0068}
0x135a6…135bc Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x00c6, t01=0x007c}
0x135bc…135d0 Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x00c6, t01=0x0092}
0x135d0…135e6 Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x00c6, t01=0x00a6}
0x135e6…135f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c6, t01=0x00bc}
0x135f6…13604 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x00cc}
0x13604…1363e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c6, t01=0x00da}
0x1363e…13678 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c6, t01=0x0114}
0x13678…136b2 Head {h00=0x0036, h01=0x0050, text=»* RDBLK - READ ONE CASSETTE BLOCK *«, t00=0x00c6, t01=0x014e}
0x136b2…136ec Head {h00=0x0036, h01=0x0050, text=»* =============================== *«, t00=0x00c6, t01=0x0188}
0x136ec…13726 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c7, t01=0x0032}
0x13726…13760 Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: SYSLOD *«, t00=0x00c7, t01=0x006c}
0x13760…1379a Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c7, t01=0x00a6}
0x1379a…137d4 Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A9 - CASSETTE BUFFER POINTER *«, t00=0x00c7, t01=0x00e0}
0x137d4…1380e Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c7, t01=0x011a}
0x1380e…13848 Head {h00=0x0036, h01=0x0050, text=»* EXIT: A2 - NUMBER OF CHARACTERS IN BLOCK *«, t00=0x00c7, t01=0x0154}
0x13848…13882 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c7, t01=0x018e}
0x13882…138c0 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A5 * «, t00=0x00c8, t01=0x0038}
0x138c0…138fa Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x00c8, t01=0x0076}
0x138fa…13934 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00c8, t01=0x00b0}
0x13934…1396e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c8, t01=0x00ea}
0x1396e…13982 Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x00c8, t01=0x0124}
0x13982…13994 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x00c8, t01=0x0138}
0x13994…139a8 Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x00c8, t01=0x014a}
0x139a8…139ca Head {h00=0x001e, h01=0x0050, text=» LDR A3,A9 START OF BUFFER«, t00=0x00c8, t01=0x015e}
0x139ca…139f4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x00c8, t01=0x0180}
0x139f4…13a1c Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE START OF BUFFER «, t00=0x00c9, t01=0x001a}
0x13a1c…13a40 Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x00c9, t01=0x0042}
0x13a40…13a52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x00c9, t01=0x0066}
0x13a52…13a74 Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x00c9, t01=0x0078}
0x13a74…13a8a Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x00c9, t01=0x009a}
0x13a8a…13a9e Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x00c9, t01=0x00b0}
0x13a9e…13ab4 Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x00c9, t01=0x00c4}
0x13ab4…13aca Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x00c9, t01=0x00da}
0x13aca…13aec Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x00c9, t01=0x00f0}
0x13aec…13b06 Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x00c9, t01=0x0112}
0x13b06…13b28 Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x00c9, t01=0x012c}
0x13b28…13b56 Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x00c9, t01=0x014e}
0x13b56…13b80 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00c9, t01=0x017c}
0x13b80…13b94 Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x00ca, t01=0x0016}
0x13b94…13baa Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR «, t00=0x00ca, t01=0x002a}
0x13baa…13bc0 Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x00ca, t01=0x0040}
0x13bc0…13be4 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x00ca, t01=0x0056}
0x13be4…13c02 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x00ca, t01=0x007a}
0x13c02…13c1a Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x00ca, t01=0x0098}
0x13c1a…13c3e Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x00ca, t01=0x00b0}
0x13c3e…13c62 Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x00ca, t01=0x00d4}
0x13c62…13c76 Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x00ca, t01=0x00f8}
0x13c76…13c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x010c}
0x13c80…13cc0 Head {h00=0x003c, h01=0x0050, text=»* READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x00ca, t01=0x0116}
0x13cc0…13d02 Head {h00=0x003e, h01=0x0050, text=»* THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x00ca, t01=0x0156}
0x13d02…13d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0008}
0x13d0c…13d2a Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x00cb, t01=0x0012}
0x13d2a…13d4a Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x00cb, t01=0x0030}
0x13d4a…13d6e Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x00cb, t01=0x0050}
0x13d6e…13d92 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x00cb, t01=0x0074}
0x13d92…13db6 Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x00cb, t01=0x0098}
0x13db6…13dde Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x00cb, t01=0x00bc}
0x13dde…13df0 Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x00cb, t01=0x00e4}
0x13df0…13e04 Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x00cb, t01=0x00f6}
0x13e04…13e1a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00cb, t01=0x010a}
0x13e1a…13e2e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cb, t01=0x0120}
0x13e2e…13e42 Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x00cb, t01=0x0134}
0x13e42…13e52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00cb, t01=0x0148}
0x13e52…13e5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x0158}
0x13e5e…13e72 Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00cb, t01=0x0164}
0x13e72…13e80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x0178}
0x13e80…13eac Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cb, t01=0x0186}
0x13eac…13ed8 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cc, t01=0x0022}
0x13ed8…13f04 Head {h00=0x0028, h01=0x0050, text=»* DUINIT - INITIALIZE DISC UNIT * «, t00=0x00cc, t01=0x004e}
0x13f04…13f30 Head {h00=0x0028, h01=0x0050, text=»* ============================= * «, t00=0x00cc, t01=0x007a}
0x13f30…13f5c Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cc, t01=0x00a6}
0x13f5c…13f88 Head {h00=0x0028, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL * «, t00=0x00cc, t01=0x00d2}
0x13f88…13fb4 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cc, t01=0x00fe}
0x13fb4…13fe0 Head {h00=0x0028, h01=0x0050, text=»* ENTRY: A1 - DEVICE ADDRESS * «, t00=0x00cc, t01=0x012a}
0x13fe0…1400c Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cc, t01=0x0156}
0x1400c…14038 Head {h00=0x0028, h01=0x0050, text=»* EXIT: * «, t00=0x00cc, t01=0x0182}
0x14038…14064 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cd, t01=0x001e}
0x14064…14092 Head {h00=0x002a, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x00cd, t01=0x004a}
0x14092…140be Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cd, t01=0x0078}
0x140be…140ea Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x00cd, t01=0x00a4}
0x140ea…14116 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00cd, t01=0x00d0}
0x14116…14142 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cd, t01=0x00fc}
0x14142…1414a Head {h00=0x0004, h01=0x0050, t00=0x00cd, t01=0x0128}
0x1414a…1415e Head {h00=0x0010, h01=0x0050, text=»DUINIT EQU *«, t00=0x00cd, t01=0x0130}
0x1415e…1418c Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x00cd, t01=0x0144}
0x1418c…141ae Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 SAVE FILE CODE «, t00=0x00cd, t01=0x0172}
0x141ae…141bc (206, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0004}
0x141bc…141c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0012}
0x141c6…141ee Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x00ce, t01=0x001c}
0x141ee…141f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0044}
0x141f8…14228 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. «, t00=0x00ce, t01=0x004e}
0x14228…1423e Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK20 «, t00=0x00ce, t01=0x007e}
0x1423e…1426a Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00ce, t01=0x0094}
0x1426a…14280 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK21 «, t00=0x00ce, t01=0x00c0}
0x14280…142ae Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00ce, t01=0x00d6}
0x142ae…142c4 Head {h00=0x0012, h01=0x0050, text=» ST A1,READ21 «, t00=0x00ce, t01=0x0104}
0x142c4…142ee Head {h00=0x0026, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR«, t00=0x00ce, t01=0x011a}
0x142ee…14304 Head {h00=0x0012, h01=0x0050, text=» ST A1,READ22 «, t00=0x00ce, t01=0x0144}
0x14304…14332 Head {h00=0x002a, h01=0x0050, text=» ST A2,READ INIT SUBROUTINE ADDRESSES «, t00=0x00ce, t01=0x015a}
0x14332…14346 Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ce, t01=0x0188}
0x14346…14358 Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x000c}
0x14358…14380 Head {h00=0x0024, h01=0x0050, text=» XRS A2,CRCCHK DISCARD CRC CHECK«, t00=0x00cf, t01=0x001e}
0x14380…143a8 Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00cf, t01=0x0046}
0x143a8…143ba Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x006e}
0x143ba…143de Head {h00=0x0020, h01=0x0050, text=» ORS A2,CRCCHK SET CRC CHECK«, t00=0x00cf, t01=0x0080}
0x143de…14402 Head {h00=0x0020, h01=0x0050, text=» LC A2,FORDEV,A9 GET FORMAT «, t00=0x00cf, t01=0x00a4}
0x14402…14414 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x00cf, t01=0x00c8}
0x14414…14434 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:50 FORMAT A2 «, t00=0x00cf, t01=0x00da}
0x14434…1443e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x00fa}
0x1443e…14464 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESTORE FILE CODE «, t00=0x00cf, t01=0x0104}
0x14464…14492 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x00cf, t01=0x012a}
0x14492…1449c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0158}
0x1449c…144c4 Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x00cf, t01=0x0162}
0x144c4…144ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x018a}
0x144ce…144fe (208, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x00d0, t01=0x0004}
0x144fe…1452c Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON BUFFER LENGTH VERSION A3«, t00=0x00d0, t01=0x0034}
0x1452c…14542 Head {h00=0x0012, h01=0x0050, text=» ORKL A1,CIO+8«, t00=0x00d0, t01=0x0062}
0x14542…14572 Head {h00=0x002c, h01=0x0050, text=» XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR.«, t00=0x00d0, t01=0x0078}
0x14572…14588 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK30 «, t00=0x00d0, t01=0x00a8}
0x14588…145b4 Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A4,XX INSTR. «, t00=0x00d0, t01=0x00be}
0x145b4…145ca Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK31 «, t00=0x00d0, t01=0x00ea}
0x145ca…145f8 Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/E00 FORM CIO A2,1,XX INSTR. «, t00=0x00d0, t01=0x0100}
0x145f8…1460e Head {h00=0x0012, h01=0x0050, text=» ST A1,READ30 «, t00=0x00d0, t01=0x012e}
0x1460e…1463a Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00d0, t01=0x0144}
0x1463a…14650 Head {h00=0x0012, h01=0x0050, text=» ST A1,READ31 «, t00=0x00d0, t01=0x0170}
0x14650…1465a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0186}
0x1465a…1467e Head {h00=0x0020, h01=0x0050, text=»* INIT SUBROUTINE ADDRESSES«, t00=0x00d0, t01=0x0190}
0x1467e…14688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0024}
0x14688…146ae Head {h00=0x0022, h01=0x0050, text=»DUI:40 ST A2,READ READ PROGRAM«, t00=0x00d1, t01=0x002e}
0x146ae…146da Head {h00=0x0028, h01=0x0050, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x00d1, t01=0x0054}
0x146da…146ee Head {h00=0x0010, h01=0x0050, text=»DUI:50 EQU *«, t00=0x00d1, t01=0x0080}
0x146ee…146fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d1, t01=0x0094}
0x146fe…1470c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x00a4}
0x1470c…14744 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d1, t01=0x00b2}
0x14744…1477c Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d1, t01=0x00ea}
0x1477c…147b4 Head {h00=0x0034, h01=0x0050, text=»* RDSEC - READ ONE SECTOR FROM DISC * «, t00=0x00d1, t01=0x0122}
0x147b4…147ec Head {h00=0x0034, h01=0x0050, text=»* ================================= * «, t00=0x00d1, t01=0x015a}
0x147ec…14824 (210, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d2, t01=0x0004}
0x14824…1485c Head {h00=0x0034, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x00d2, t01=0x003c}
0x1485c…14894 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d2, t01=0x0074}
0x14894…148ba Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS«, t00=0x00d2, t01=0x00ac}
0x148ba…148f2 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d2, t01=0x00d2}
0x148f2…1492a Head {h00=0x0034, h01=0x0050, text=»* A11 - SECTOR NUMBER * «, t00=0x00d2, t01=0x010a}
0x1492a…14962 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d2, t01=0x0142}
0x14962…1499a Head {h00=0x0034, h01=0x0050, text=»* EXIT: * «, t00=0x00d2, t01=0x017a}
0x1499a…149d2 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d3, t01=0x0022}
0x149d2…149fe Head {h00=0x0028, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A7 «, t00=0x00d3, t01=0x005a}
0x149fe…14a36 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d3, t01=0x0086}
0x14a36…14a6e Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINES: ERROR * «, t00=0x00d3, t01=0x00be}
0x14a6e…14aa6 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00d3, t01=0x00f6}
0x14aa6…14ade Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d3, t01=0x012e}
0x14ade…14ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0166}
0x14ae8…14af6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x0170}
0x14af6…14b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x017e}
0x14b00…14b26 Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x00d3, t01=0x0188}
0x14b26…14b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x001e}
0x14b30…14b44 Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x00d4, t01=0x0028}
0x14b44…14b56 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d4, t01=0x003c}
0x14b56…14b84 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d4, t01=0x004e}
0x14b84…14b98 Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x00d4, t01=0x007c}
0x14b98…14baa Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x00d4, t01=0x0090}
0x14baa…14bbc Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d4, t01=0x00a2}
0x14bbc…14be8 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x00d4, t01=0x00b4}
0x14be8…14bfa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d4, t01=0x00e0}
0x14bfa…14c10 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x00d4, t01=0x00f2}
0x14c10…14c22 Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x00d4, t01=0x0108}
0x14c22…14c34 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x00d4, t01=0x011a}
0x14c34…14c48 Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x00d4, t01=0x012c}
0x14c48…14c5a Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x00d4, t01=0x0140}
0x14c5a…14c88 Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x00d4, t01=0x0152}
0x14c88…14c9a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d4, t01=0x0180}
0x14c9a…14cae (213, 0, 398) Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x00d5, t01=0x0004}
0x14cae…14ce0 Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x00d5, t01=0x0018}
0x14ce0…14d00 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x00d5, t01=0x004a}
0x14d00…14d12 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d5, t01=0x006a}
0x14d12…14d26 Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x00d5, t01=0x007c}
0x14d26…14d5e Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x00d5, t01=0x0090}
0x14d5e…14d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00c8}
0x14d68…14d7a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d5, t01=0x00d2}
0x14d7a…14d8c Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d5, t01=0x00e4}
0x14d8c…14da2 Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x00d5, t01=0x00f6}
0x14da2…14dcc Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x00d5, t01=0x010c}
0x14dcc…14de2 Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x00d5, t01=0x0136}
0x14de2…14df4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x00d5, t01=0x014c}
0x14df4…14e10 Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x00d5, t01=0x015e}
0x14e10…14e1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x017a}
0x14e1e…14e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0188}
0x14e28…14e40 (214, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00d6, t01=0x0004}
0x14e40…14e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x001c}
0x14e4a…14e64 Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x00d6, t01=0x0026}
0x14e64…14e7a Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x00d6, t01=0x0040}
0x14e7a…14e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0056}
0x14e84…14e9c Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x00d6, t01=0x0060}
0x14e9c…14eb2 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x00d6, t01=0x0078}
0x14eb2…14ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x008e}
0x14ebc…14ed2 Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00d6, t01=0x0098}
0x14ed2…14edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00ae}
0x14edc…14ef0 Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x00d6, t01=0x00b8}
0x14ef0…14f02 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d6, t01=0x00cc}
0x14f02…14f14 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d6, t01=0x00de}
0x14f14…14f3c Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x00d6, t01=0x00f0}
0x14f3c…14f50 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d6, t01=0x0118}
0x14f50…14f7a Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x00d6, t01=0x012c}
0x14f7a…14f8c Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00d6, t01=0x0156}
0x14f8c…14fb0 Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x00d6, t01=0x0168}
0x14fb0…14fc2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x00d6, t01=0x018c}
0x14fc2…14fd6 Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x00d7, t01=0x000e}
0x14fd6…14fea Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d7, t01=0x0022}
0x14fea…1501a Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x00d7, t01=0x0036}
0x1501a…15030 Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x00d7, t01=0x0066}
0x15030…1503e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x007c}
0x1503e…15048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x008a}
0x15048…1505e Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00d7, t01=0x0094}
0x1505e…15068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00aa}
0x15068…1508a Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x00d7, t01=0x00b4}
0x1508a…150b6 Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00d7, t01=0x00d6}
0x150b6…150e6 Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00d7, t01=0x0102}
0x150e6…1510e Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x00d7, t01=0x0132}
0x1510e…15134 Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x00d7, t01=0x015a}
0x15134…1515e Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x00d7, t01=0x0180}
0x1515e…1517c Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x00d8, t01=0x001a}
0x1517c…151a6 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x00d8, t01=0x0038}
0x151a6…151ba Head {h00=0x0010, h01=0x0050, text=»CRCCHK EQU *«, t00=0x00d8, t01=0x0062}
0x151ba…151d4 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00d8, t01=0x0076}
0x151d4…151f8 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00d8, t01=0x0090}
0x151f8…15224 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x00d8, t01=0x00b4}
0x15224…15234 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d8, t01=0x00e0}
0x15234…15242 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x00f0}
0x15242…1524c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00fe}
0x1524c…15272 Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x00d8, t01=0x0108}
0x15272…1527c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x012e}
0x1527c…15290 Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x00d8, t01=0x0138}
0x15290…152a2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d8, t01=0x014c}
0x152a2…152d0 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d8, t01=0x015e}
0x152d0…152e6 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x00d8, t01=0x018c}
0x152e6…152fc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x00d9, t01=0x0012}
0x152fc…15310 Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x00d9, t01=0x0028}
0x15310…15322 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00d9, t01=0x003c}
0x15322…15338 Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x00d9, t01=0x004e}
0x15338…1534a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x00d9, t01=0x0064}
0x1534a…1535c Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x00d9, t01=0x0076}
0x1535c…15370 Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x00d9, t01=0x0088}
0x15370…15392 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x00d9, t01=0x009c}
0x15392…153a4 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x00d9, t01=0x00be}
0x153a4…153b6 Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x00d9, t01=0x00d0}
0x153b6…153cc Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x00d9, t01=0x00e2}
0x153cc…153de Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d9, t01=0x00f8}
0x153de…153e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x010a}
0x153e8…153fa Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x0114}
0x153fa…15410 Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x00d9, t01=0x0126}
0x15410…1544a Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX , , OR , XX,XX , «, t00=0x00d9, t01=0x013c}
0x1544a…1546c Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 , , XXXX, «, t00=0x00d9, t01=0x0176}
0x1546c…15480 Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x00da, t01=0x0008}
0x15480…15492 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00da, t01=0x001c}
0x15492…154a4 Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00da, t01=0x002e}
0x154a4…154ba Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x00da, t01=0x0040}
0x154ba…154d0 Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x00da, t01=0x0056}
0x154d0…15500 Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x00da, t01=0x006c}
0x15500…15512 Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x00da, t01=0x009c}
0x15512…1552e Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x00da, t01=0x00ae}
0x1552e…1553c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x00ca}
0x1553c…15546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00d8}
0x15546…1555e Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00da, t01=0x00e2}
0x1555e…15568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00fa}
0x15568…15582 Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x00da, t01=0x0104}
0x15582…15598 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x00da, t01=0x011e}
0x15598…155a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0134}
0x155a2…155c4 Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x00da, t01=0x013e}
0x155c4…155da Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x00da, t01=0x0160}
0x155da…155e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0176}
0x155e4…155fa Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00da, t01=0x0180}
0x155fa…15604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0008}
0x15604…15618 Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x00db, t01=0x0012}
0x15618…1562a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00db, t01=0x0026}
0x1562a…1563c Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00db, t01=0x0038}
0x1563c…15664 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x00db, t01=0x004a}
0x15664…15678 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x0072}
0x15678…156a2 Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x00db, t01=0x0086}
0x156a2…156b4 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00db, t01=0x00b0}
0x156b4…156de Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x00db, t01=0x00c2}
0x156de…15704 Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x00db, t01=0x00ec}
0x15704…1570e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0112}
0x1570e…15722 Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x00db, t01=0x011c}
0x15722…15736 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x0130}
0x15736…15760 Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x00db, t01=0x0144}
0x15760…15792 Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x00db, t01=0x016e}
0x15792…157a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0010}
0x157a0…157aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x001e}
0x157aa…157c0 Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00dc, t01=0x0028}
0x157c0…157ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x003e}
0x157ca…157ec Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00dc, t01=0x0048}
0x157ec…1581a Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x00dc, t01=0x006a}
0x1581a…1584a Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00dc, t01=0x0098}
0x1584a…15872 Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x00dc, t01=0x00c8}
0x15872…1587c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00f0}
0x1587c…158a2 Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x00dc, t01=0x00fa}
0x158a2…158cc Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0120}
0x158cc…158d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x014a}
0x158d6…158f8 Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x00dc, t01=0x0154}
0x158f8…15922 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0176}
0x15922…1593c Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00dd, t01=0x0010}
0x1593c…15960 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00dd, t01=0x002a}
0x15960…15982 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x00dd, t01=0x004e}
0x15982…15994 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00dd, t01=0x0070}
0x15994…159ba Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX , , «, t00=0x00dd, t01=0x0082}
0x159ba…159e0 Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 , , XXXX, «, t00=0x00dd, t01=0x00a8}
0x159e0…15a04 Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x00dd, t01=0x00ce}
0x15a04…15a2e Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x00dd, t01=0x00f2}
0x15a2e…15a52 Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * , XX,XX ,«, t00=0x00dd, t01=0x011c}
0x15a52…15a66 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x00dd, t01=0x0140}
0x15a66…15a78 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x00dd, t01=0x0154}
0x15a78…15a8a Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00dd, t01=0x0166}
0x15a8a…15a9c Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00dd, t01=0x0178}
0x15a9c…15aae Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x00dd, t01=0x018a}
0x15aae…15ad4 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x00de, t01=0x000c}
0x15ad4…15aea Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x00de, t01=0x0032}
0x15aea…15b00 Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x00de, t01=0x0048}
0x15b00…15b2c Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x00de, t01=0x005e}
0x15b2c…15b52 Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x00de, t01=0x008a}
0x15b52…15b66 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x00de, t01=0x00b0}
0x15b66…15b78 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00de, t01=0x00c4}
0x15b78…15b8a Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x00de, t01=0x00d6}
0x15b8a…15b98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x00e8}
0x15b98…15bac Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x00de, t01=0x00f6}
0x15bac…15bce Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x00de, t01=0x010a}
0x15bce…15bfa Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x00de, t01=0x012c}
0x15bfa…15c0c Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x00de, t01=0x0158}
0x15c0c…15c3e Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00de, t01=0x016a}
0x15c3e…15c4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00df, t01=0x000c}
0x15c4e…15c56 Head {h00=0x0004, h01=0x0050, t00=0x00df, t01=0x001c}
0x15c56…15c6a Head {h00=0x0010, h01=0x0050, text=»DUERR EQU * «, t00=0x00df, t01=0x0024}
0x15c6a…15c80 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00df, t01=0x0038}
0x15c80…15c94 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00df, t01=0x004e}
0x15c94…15ca0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x0062}
0x15ca0…15cb6 Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00df, t01=0x006e}
0x15cb6…15cc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00df, t01=0x0084}
0x15cc4…15d04 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00df, t01=0x0092}
0x15d04…15d44 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00df, t01=0x00d2}
0x15d44…15d84 Head {h00=0x003c, h01=0x0050, text=»* MDINIT - INITIALIZE MINI FIXED DISC UNIT *«, t00=0x00df, t01=0x0112}
0x15d84…15dc4 Head {h00=0x003c, h01=0x0050, text=»* ======================================= *«, t00=0x00df, t01=0x0152}
0x15dc4…15e04 (224, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0004}
0x15e04…15e44 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL *«, t00=0x00e0, t01=0x0044}
0x15e44…15e84 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0084}
0x15e84…15ec4 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: A1 = DEVICE ADDRESS *«, t00=0x00e0, t01=0x00c4}
0x15ec4…15f04 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0104}
0x15f04…15f44 Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x00e0, t01=0x0144}
0x15f44…15f84 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0184}
0x15f84…15fc4 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: *«, t00=0x00e1, t01=0x0034}
0x15fc4…16004 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x0074}
0x16004…16044 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: ERROR *«, t00=0x00e1, t01=0x00b4}
0x16044…16084 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x00f4}
0x16084…160c4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e1, t01=0x0134}
0x160c4…160d8 Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x00e1, t01=0x0174}
0x160d8…160e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0188}
0x160e2…1610a (226, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x00e2, t01=0x0004}
0x1610a…16114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x002c}
0x16114…16128 Head {h00=0x0010, h01=0x0050, text=»MDI:00 EQU *«, t00=0x00e2, t01=0x0036}
0x16128…16158 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. «, t00=0x00e2, t01=0x004a}
0x16158…1616e Head {h00=0x0012, h01=0x0050, text=» ST A1,READM2 «, t00=0x00e2, t01=0x007a}
0x1616e…1619a Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00e2, t01=0x0090}
0x1619a…161b0 Head {h00=0x0012, h01=0x0050, text=» ST A1,READM3 «, t00=0x00e2, t01=0x00bc}
0x161b0…161de Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00e2, t01=0x00d2}
0x161de…161f4 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM1 «, t00=0x00e2, t01=0x0100}
0x161f4…16220 Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00e2, t01=0x0116}
0x16220…16236 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM2 «, t00=0x00e2, t01=0x0142}
0x16236…16244 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x0158}
0x16244…1624e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0166}
0x1624e…1627c Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x00e2, t01=0x0170}
0x1627c…16290 Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00e3, t01=0x000e}
0x16290…162a4 Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00e3, t01=0x0022}
0x162a4…162b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e3, t01=0x0036}
0x162b4…162c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x0046}
0x162c2…16300 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00e3, t01=0x0054}
0x16300…1633e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e3, t01=0x0092}
0x1633e…1637c Head {h00=0x003a, h01=0x0050, text=»* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *«, t00=0x00e3, t01=0x00d0}
0x1637c…163ba Head {h00=0x003a, h01=0x0050, text=»* ============================================= *«, t00=0x00e3, t01=0x010e}
0x163ba…163f8 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e3, t01=0x014c}
0x163f8…16436 Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: SYSLOD *«, t00=0x00e3, t01=0x018a}
0x16436…16474 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e4, t01=0x0038}
0x16474…164b2 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS *«, t00=0x00e4, t01=0x0076}
0x164b2…164f0 Head {h00=0x003a, h01=0x0050, text=»* A11 = SECTOR NUMBER *«, t00=0x00e4, t01=0x00b4}
0x164f0…1652e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e4, t01=0x00f2}
0x1652e…1656c Head {h00=0x003a, h01=0x0050, text=»* EXIT: *«, t00=0x00e4, t01=0x0130}
0x1656c…165aa Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e4, t01=0x016e}
0x165aa…165e8 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: *«, t00=0x00e5, t01=0x001c}
0x165e8…16626 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e5, t01=0x005a}
0x16626…16664 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00e5, t01=0x0098}
0x16664…166a2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x00e5, t01=0x00d6}
0x166a2…166e0 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e5, t01=0x0114}
0x166e0…166f4 Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x00e5, t01=0x0152}
0x166f4…1671a Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e5, t01=0x0166}
0x1671a…16748 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00e5, t01=0x018c}
0x16748…16766 Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x00e6, t01=0x002a}
0x16766…16778 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00e6, t01=0x0048}
0x16778…1679c Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x00e6, t01=0x005a}
0x1679c…167a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x007e}
0x167a6…167cc Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x00e6, t01=0x0088}
0x167cc…167e8 Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x00e6, t01=0x00ae}
0x167e8…167f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00ca}
0x167f2…1681c Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x00e6, t01=0x00d4}
0x1681c…16832 Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x00e6, t01=0x00fe}
0x16832…1685c Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x00e6, t01=0x0114}
0x1685c…16888 Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x00e6, t01=0x013e}
0x16888…16896 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x016a}
0x16896…168a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0178}
0x168a0…168b8 Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00e6, t01=0x0182}
0x168b8…168c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x000a}
0x168c2…168e8 Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x00e7, t01=0x0014}
0x168e8…16912 Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x00e7, t01=0x003a}
0x16912…1691c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0064}
0x1691c…1693e Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x00e7, t01=0x006e}
0x1693e…16968 Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x00e7, t01=0x0090}
0x16968…16972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00ba}
0x16972…16988 Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00e7, t01=0x00c4}
0x16988…16992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00da}
0x16992…169a6 Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x00e7, t01=0x00e4}
0x169a6…169b8 Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x00e7, t01=0x00f8}
0x169b8…169da Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x00e7, t01=0x010a}
0x169da…169fa Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x00e7, t01=0x012c}
0x169fa…16a0e Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x00e7, t01=0x014c}
0x16a0e…16a20 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00e7, t01=0x0160}
0x16a20…16a46 Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x00e7, t01=0x0172}
0x16a46…16a6c Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e8, t01=0x0008}
0x16a6c…16a7c Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x00e8, t01=0x002e}
0x16a7c…16aac Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x00e8, t01=0x003e}
0x16aac…16ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x006e}
0x16ab6…16adc Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x00e8, t01=0x0078}
0x16adc…16ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x009e}
0x16ae6…16b10 Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x00e8, t01=0x00a8}
0x16b10…16b22 Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x00e8, t01=0x00d2}
0x16b22…16b4e Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x00e8, t01=0x00e4}
0x16b4e…16b70 Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x00e8, t01=0x0110}
0x16b70…16b86 Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x00e8, t01=0x0132}
0x16b86…16b98 Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x00e8, t01=0x0148}
0x16b98…16bac Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x00e8, t01=0x015a}
0x16bac…16bbe Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00e8, t01=0x016e}
0x16bbe…16bf8 Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x00e8, t01=0x0180}
0x16bf8…16c0a Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x00e9, t01=0x002a}
0x16c0a…16c2e Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x00e9, t01=0x003c}
0x16c2e…16c52 Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x00e9, t01=0x0060}
0x16c52…16c66 Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00e9, t01=0x0084}
0x16c66…16c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0098}
0x16c70…16c86 Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00e9, t01=0x00a2}
0x16c86…16c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00b8}
0x16c90…16ca4 Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00e9, t01=0x00c2}
0x16ca4…16cca Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00e9, t01=0x00d6}
0x16cca…16cec Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00e9, t01=0x00fc}
0x16cec…16cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x011e}
0x16cf6…16d24 Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00e9, t01=0x0128}
0x16d24…16d4a Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00e9, t01=0x0156}
0x16d4a…16d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x017c}
0x16d54…16d7a Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00e9, t01=0x0186}
0x16d7a…16da4 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x001c}
0x16da4…16dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0046}
0x16dae…16dd0 Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00ea, t01=0x0050}
0x16dd0…16dfa Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x0072}
0x16dfa…16e14 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00ea, t01=0x009c}
0x16e14…16e38 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) MFDERR READING ERROR«, t00=0x00ea, t01=0x00b6}
0x16e38…16e64 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00ea, t01=0x00da}
0x16e64…16e74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ea, t01=0x0106}
0x16e74…16e7c Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0116}
0x16e7c…16e90 Head {h00=0x0010, h01=0x0050, text=»MFDERR EQU *«, t00=0x00ea, t01=0x011e}
0x16e90…16ea6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ea, t01=0x0132}
0x16ea6…16eba Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ea, t01=0x0148}
0x16eba…16ec6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x015c}
0x16ec6…16edc Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00ea, t01=0x0168}
0x16edc…16eea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x017e}
0x16eea…16f22 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ea, t01=0x018c}
0x16f22…16f5a Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00eb, t01=0x0034}
0x16f5a…16f92 Head {h00=0x0034, h01=0x0050, text=»* FDINIT - INITIALIZE FLEXIBLE DISC *«, t00=0x00eb, t01=0x006c}
0x16f92…16fca Head {h00=0x0034, h01=0x0050, text=»* ================================= *«, t00=0x00eb, t01=0x00a4}
0x16fca…17002 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00eb, t01=0x00dc}
0x17002…1703a Head {h00=0x0034, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL *«, t00=0x00eb, t01=0x0114}
0x1703a…17072 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00eb, t01=0x014c}
0x17072…170aa Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A1 - DEVICE ADDRESS *«, t00=0x00eb, t01=0x0184}
0x170aa…170e2 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00ec, t01=0x002c}
0x170e2…1711a Head {h00=0x0034, h01=0x0050, text=»* EXIT: *«, t00=0x00ec, t01=0x0064}
0x1711a…17152 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00ec, t01=0x009c}
0x17152…1718a Head {h00=0x0034, h01=0x0050, text=»* WORK REGISTERS: *«, t00=0x00ec, t01=0x00d4}
0x1718a…171c2 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00ec, t01=0x010c}
0x171c2…171fa Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00ec, t01=0x0144}
0x171fa…17232 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00ec, t01=0x017c}
0x17232…1726a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ed, t01=0x0024}
0x1726a…1727e Head {h00=0x0010, h01=0x0050, text=»FDINIT EQU *«, t00=0x00ed, t01=0x005c}
0x1727e…17292 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x0070}
0x17292…172c6 Head {h00=0x0030, h01=0x0050, text=» ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. «, t00=0x00ed, t01=0x0084}
0x172c6…172dc Head {h00=0x0012, h01=0x0050, text=» ST A1,FRD:10 «, t00=0x00ed, t01=0x00b8}
0x172dc…1731c Head {h00=0x003c, h01=0x0050, text=» LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE«, t00=0x00ed, t01=0x00ce}
0x1731c…17338 Head {h00=0x0018, h01=0x0050, text=» LDK A1,3 SEEK ORDER«, t00=0x00ed, t01=0x010e}
0x17338…17358 Head {h00=0x001c, h01=0x0050, text=» EX FRD:10 SEEK TO ZERO «, t00=0x00ed, t01=0x012a}
0x17358…1736c Head {h00=0x0010, h01=0x0050, text=»FDI:05 EQU *«, t00=0x00ed, t01=0x014a}
0x1736c…1737e Head {h00=0x000e, h01=0x0050, text=» EX SEKSST«, t00=0x00ed, t01=0x015e}
0x1737e…17394 Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDI:05«, t00=0x00ed, t01=0x0170}
0x17394…1739e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0186}
0x1739e…173b2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x0190}
0x173b2…173de Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE«, t00=0x00ee, t01=0x0014}
0x173de…173e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0040}
0x173e8…1741a Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00ee, t01=0x004a}
0x1741a…17446 Head {h00=0x0028, h01=0x0050, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00ee, t01=0x007c}
0x17446…1745c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/41F «, t00=0x00ee, t01=0x00a8}
0x1745c…17482 Head {h00=0x0022, h01=0x0050, text=» ST A1,FRD:42 MODIFY SST MASK «, t00=0x00ee, t01=0x00be}
0x17482…17498 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C00 «, t00=0x00ee, t01=0x00e4}
0x17498…174c2 Head {h00=0x0026, h01=0x0050, text=» ST A1,RELEAS MODIFY RELEAS ORDER «, t00=0x00ee, t01=0x00fa}
0x174c2…17500 Head {h00=0x003a, h01=0x0050, text=» LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE «, t00=0x00ee, t01=0x0124}
0x17500…17514 Head {h00=0x0010, h01=0x0050, text=»FDI:10 EQU *«, t00=0x00ee, t01=0x0162}
0x17514…17528 Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ee, t01=0x0176}
0x17528…1753c Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ee, t01=0x018a}
0x1753c…17564 Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00ef, t01=0x000e}
0x17564…17588 Head {h00=0x0020, h01=0x0050, text=» LD A1,FORDEV,A9 GET FORMAT «, t00=0x00ef, t01=0x0036}
0x17588…175a4 Head {h00=0x0018, h01=0x0050, text=» ST A1,DEVTYP+STKEND«, t00=0x00ef, t01=0x005a}
0x175a4…175b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ef, t01=0x0076}
0x175b4…175c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0086}
0x175c2…175f6 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00ef, t01=0x0094}
0x175f6…1762a Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x00ef, t01=0x00c8}
0x1762a…1765e Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x00ef, t01=0x00fc}
0x1765e…17692 Head {h00=0x0030, h01=0x0050, text=»* UNLOCK - UNLOCK FLEXIBLE DISC *«, t00=0x00ef, t01=0x0130}
0x17692…176c6 Head {h00=0x0030, h01=0x0050, text=»* ============================= *«, t00=0x00ef, t01=0x0164}
0x176c6…176fa Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x00f0, t01=0x0008}
0x176fa…1772e Head {h00=0x0030, h01=0x0050, text=»* ON ENTRY: A1 = DEVICE ADDRESS *«, t00=0x00f0, t01=0x003c}
0x1772e…17762 Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x00f0, t01=0x0070}
0x17762…17796 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f0, t01=0x00a4}
0x17796…1779e Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00d8}
0x1779e…177a6 Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00e0}
0x177a6…177ba Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x00f0, t01=0x00e8}
0x177ba…177e2 Head {h00=0x0024, h01=0x0050, text=» CF A14,FDINIT INIT UNLOCK ORDER«, t00=0x00f0, t01=0x00fc}
0x177e2…177f8 Head {h00=0x0012, h01=0x0050, text=»RELEAS EQU *+2«, t00=0x00f0, t01=0x0124}
0x177f8…1780c Head {h00=0x0010, h01=0x0050, text=» LDKL A1,/C «, t00=0x00f0, t01=0x013a}
0x1780c…17836 Head {h00=0x0026, h01=0x0050, text=» EX FRD:10 EXECUTE UNLOCK COMMAND «, t00=0x00f0, t01=0x014e}
0x17836…1785e Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f0, t01=0x0178}
0x1785e…17868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0010}
0x17868…17888 Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x00f1, t01=0x001a}
0x17888…178b0 Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f1, t01=0x003a}
0x178b0…178c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f1, t01=0x0062}
0x178c0…178ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0072}
0x178ce…17912 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f1, t01=0x0080}
0x17912…17956 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f1, t01=0x00c4}
0x17956…1799a Head {h00=0x0040, h01=0x0050, text=»* FRDSEC - READ SECTOR FROM FLEXIBLE DISC * «, t00=0x00f1, t01=0x0108}
0x1799a…179de Head {h00=0x0040, h01=0x0050, text=»* ======================================= * «, t00=0x00f1, t01=0x014c}
0x179de…17a22 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f1, t01=0x0190}
0x17a22…17a66 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x00f2, t01=0x0044}
0x17a66…17aaa Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f2, t01=0x0088}
0x17aaa…17aee Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x00f2, t01=0x00cc}
0x17aee…17b32 Head {h00=0x0040, h01=0x0050, text=»* A11 - SECTOR NUMBER * «, t00=0x00f2, t01=0x0110}
0x17b32…17b76 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f2, t01=0x0154}
0x17b76…17bba Head {h00=0x0040, h01=0x0050, text=»* EXIT: * «, t00=0x00f3, t01=0x0008}
0x17bba…17bfe Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f3, t01=0x004c}
0x17bfe…17c42 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3 * «, t00=0x00f3, t01=0x0090}
0x17c42…17c86 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f3, t01=0x00d4}
0x17c86…17cca Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: ERROR * «, t00=0x00f3, t01=0x0118}
0x17cca…17d0e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x00f3, t01=0x015c}
0x17d0e…17d52 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f4, t01=0x0010}
0x17d52…17d66 Head {h00=0x0010, h01=0x0050, text=»FRDSEC EQU *«, t00=0x00f4, t01=0x0054}
0x17d66…17d8c Head {h00=0x0022, h01=0x0050, text=» LDR A2,A11 GET SECTOR NUMBER «, t00=0x00f4, t01=0x0068}
0x17d8c…17dba Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/340 26 SHIFTED 10 STEPS LEFT«, t00=0x00f4, t01=0x008e}
0x17dba…17de2 Head {h00=0x0024, h01=0x0050, text=» LD A1,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f4, t01=0x00bc}
0x17de2…17df4 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00f4, t01=0x00e4}
0x17df4…17e1e Head {h00=0x0026, h01=0x0050, text=» RF(Z) SNHEAD 0,25 MEG FLOPPY DISC«, t00=0x00f4, t01=0x00f6}
0x17e1e…17e30 Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x00f4, t01=0x0120}
0x17e30…17e56 Head {h00=0x0022, h01=0x0050, text=» RF(NL) NOTCY0 NOT CYLINDER 0 «, t00=0x00f4, t01=0x0132}
0x17e56…17e6a Head {h00=0x0010, h01=0x0050, text=»SNHEAD EQU *«, t00=0x00f4, t01=0x0158}
0x17e6a…17e98 Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR «, t00=0x00f4, t01=0x016c}
0x17e98…17eaa Head {h00=0x000e, h01=0x0050, text=» RF DVK26 «, t00=0x00f5, t01=0x000a}
0x17eaa…17ebe Head {h00=0x0010, h01=0x0050, text=»NOTCY0 EQU *«, t00=0x00f5, t01=0x001c}
0x17ebe…17ed0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x00f5, t01=0x0030}
0x17ed0…17ede Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x0042}
0x17ede…17ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0050}
0x17ee8…17f0c Head {h00=0x0020, h01=0x0050, text=»* A2=PHYSICAL SECTOR NUMBER «, t00=0x00f5, t01=0x005a}
0x17f0c…17f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x007e}
0x17f16…17f2a Head {h00=0x0010, h01=0x0050, text=»DVK26 EQU * «, t00=0x00f5, t01=0x0088}
0x17f2a…17f3c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00f5, t01=0x009c}
0x17f3c…17f50 Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x00f5, t01=0x00ae}
0x17f50…17f62 Head {h00=0x000e, h01=0x0050, text=» SLL A1,5 «, t00=0x00f5, t01=0x00c2}
0x17f62…17f76 Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x00f5, t01=0x00d4}
0x17f76…17f88 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x00f5, t01=0x00e8}
0x17f88…17f9e Head {h00=0x0012, h01=0x0050, text=» RF(N) DVK26C «, t00=0x00f5, t01=0x00fa}
0x17f9e…17fb0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x00f5, t01=0x0110}
0x17fb0…17fc2 Head {h00=0x000e, h01=0x0050, text=» RB DVK26B«, t00=0x00f5, t01=0x0122}
0x17fc2…17fd6 Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x00f5, t01=0x0134}
0x17fd6…17fe8 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x00f5, t01=0x0148}
0x17fe8…17ffa Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00f5, t01=0x015a}
0x17ffa…18020 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DVK26A NEXT FIVE BITS «, t00=0x00f5, t01=0x016c}
0x18020…1802e (246, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0004}
0x1802e…18038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0012}
0x18038…18052 Head {h00=0x0016, h01=0x0050, text=»* A2=SECTOR NUMBER«, t00=0x00f6, t01=0x001c}
0x18052…1806e Head {h00=0x0018, h01=0x0050, text=»* A1=CYLINDER NUMBER«, t00=0x00f6, t01=0x0036}
0x1806e…18078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0052}
0x18078…180a0 Head {h00=0x0024, h01=0x0050, text=» LD A4,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f6, t01=0x005c}
0x180a0…180b2 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x0084}
0x180b2…180e2 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD «, t00=0x00f6, t01=0x0096}
0x180e2…18102 Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 ONLY ONE HEAD «, t00=0x00f6, t01=0x00c6}
0x18102…18116 Head {h00=0x0010, h01=0x0050, text=»DBHEAD EQU *«, t00=0x00f6, t01=0x00e6}
0x18116…18128 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x00f6, t01=0x00fa}
0x18128…1813a Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x010c}
0x1813a…1816c Head {h00=0x002e, h01=0x0050, text=» SRC A4,2 HEAD NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x011e}
0x1816c…181a0 Head {h00=0x0030, h01=0x0050, text=» SLL A2,2 SECTOR NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x0150}
0x181a0…181c8 Head {h00=0x0024, h01=0x0050, text=» ORR A2,A4 A2=CIO READ REGISTER «, t00=0x00f6, t01=0x0184}
0x181c8…181fe Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION «, t00=0x00f7, t01=0x001c}
0x181fe…18224 Head {h00=0x0022, h01=0x0050, text=» ORK A1,3 A1=CIO SEEK REGISTER«, t00=0x00f7, t01=0x0052}
0x18224…1825c Head {h00=0x0034, h01=0x0050, text=» CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER«, t00=0x00f7, t01=0x0078}
0x1825c…18280 Head {h00=0x0020, h01=0x0050, text=» RF(E) NOSEEK NO SEEK NEEDED«, t00=0x00f7, t01=0x00b0}
0x18280…182aa Head {h00=0x0026, h01=0x0050, text=» ST A1,CYLNBR SAVE CYLINDER NUMBER«, t00=0x00f7, t01=0x00d4}
0x182aa…182cc Head {h00=0x001e, h01=0x0050, text=»FDSEEK EX FRD:10 CIO START«, t00=0x00f7, t01=0x00fe}
0x182cc…182e2 Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDSEEK«, t00=0x00f7, t01=0x0120}
0x182e2…182fc Head {h00=0x0016, h01=0x0050, text=»SEKSST SST A1,FDCU«, t00=0x00f7, t01=0x0136}
0x182fc…18312 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEKSST«, t00=0x00f7, t01=0x0150}
0x18312…18328 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/611 «, t00=0x00f7, t01=0x0166}
0x18328…1834a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FRD:50 SEEK ERROR «, t00=0x00f7, t01=0x017c}
0x1834a…1835e Head {h00=0x0010, h01=0x0050, text=»NOSEEK EQU *«, t00=0x00f8, t01=0x000e}
0x1835e…18370 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00f8, t01=0x0022}
0x18370…18382 Head {h00=0x000e, h01=0x0050, text=» RF FRD:05«, t00=0x00f8, t01=0x0034}
0x18382…18390 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x0046}
0x18390…183a4 Head {h00=0x0010, h01=0x0050, text=»FRDS25 EQU *«, t00=0x00f8, t01=0x0054}
0x183a4…183c2 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A11 SECTOR NO «, t00=0x00f8, t01=0x0068}
0x183c2…183d4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00f8, t01=0x0086}
0x183d4…18410 Head {h00=0x0038, h01=0x0050, text=» ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) «, t00=0x00f8, t01=0x0098}
0x18410…18424 Head {h00=0x0010, h01=0x0050, text=»FRD:05 EQU *«, t00=0x00f8, t01=0x00d4}
0x18424…1843a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MUXCC«, t00=0x00f8, t01=0x00e8}
0x1843a…1845e Head {h00=0x0020, h01=0x0050, text=» LD A3,MXBUF BUFFER ADDRESS «, t00=0x00f8, t01=0x00fe}
0x1845e…1847c Head {h00=0x001a, h01=0x0050, text=» WER A2,FDIOP 1:ST WER«, t00=0x00f8, t01=0x0122}
0x1847c…1849e Head {h00=0x001e, h01=0x0050, text=» WER A3,FDIOP+1 SECOND WER«, t00=0x00f8, t01=0x0140}
0x1849e…184a6 Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0162}
0x184a6…184ce Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00f8, t01=0x016a}
0x184ce…184f6 (249, 0, 400) Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00f9, t01=0x0004}
0x184f6…18500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x002c}
0x18500…18528 Head {h00=0x0024, h01=0x0050, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00f9, t01=0x0036}
0x18528…1853e Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:10«, t00=0x00f9, t01=0x005e}
0x1853e…18548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0074}
0x18548…1855e Head {h00=0x0012, h01=0x0050, text=» EJECT CRVOL«, t00=0x00f9, t01=0x007e}
0x1855e…18568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0094}
0x18568…18572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x009e}
0x18572…1858e Head {h00=0x0018, h01=0x0050, text=»FRD:20 INR A1,0,FDCU«, t00=0x00f9, t01=0x00a8}
0x1858e…185a8 Head {h00=0x0016, h01=0x0050, text=» RF(NA) FRD:40 =4«, t00=0x00f9, t01=0x00c4}
0x185a8…185ba Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x00f9, t01=0x00de}
0x185ba…185cc Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00f9, t01=0x00f0}
0x185cc…185de Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00f9, t01=0x0102}
0x185de…185f4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00f9, t01=0x0114}
0x185f4…185fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x012a}
0x185fe…18624 Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00f9, t01=0x0134}
0x18624…18636 Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00f9, t01=0x015a}
0x18636…18650 Head {h00=0x0016, h01=0x0050, text=»FRD:40 SST A1,FDCU«, t00=0x00f9, t01=0x016c}
0x18650…18666 Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:20«, t00=0x00f9, t01=0x0186}
0x18666…1867c Head {h00=0x0012, h01=0x0050, text=»FRD:42 EQU *+2«, t00=0x00fa, t01=0x000c}
0x1867c…186a0 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR ?«, t00=0x00fa, t01=0x0022}
0x186a0…186bc Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FRD:50 YES! «, t00=0x00fa, t01=0x0046}
0x186bc…186d8 Head {h00=0x0018, h01=0x0050, text=»FRD:43 CWR A3,A2 =4«, t00=0x00fa, t01=0x0062}
0x186d8…18704 Head {h00=0x0028, h01=0x0050, text=» RF(E) FRD:44 PROGRAMMED CHANNEL =4 «, t00=0x00fa, t01=0x007e}
0x18704…18736 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00fa, t01=0x00aa}
0x18736…18760 Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:20 UPDATE INR ISTR. =4 «, t00=0x00fa, t01=0x00dc}
0x18760…18778 Head {h00=0x0014, h01=0x0050, text=»FRD:44 EQU * =4«, t00=0x00fa, t01=0x0106}
0x18778…187aa Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 «, t00=0x00fa, t01=0x011e}
0x187aa…187d4 Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:43 UPDATE CWR INSTR. =4«, t00=0x00fa, t01=0x0150}
0x187d4…187f4 Head {h00=0x001c, h01=0x0050, text=» ABI READ READ AGAIN =4 «, t00=0x00fa, t01=0x017a}
0x187f4…18808 Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00fb, t01=0x000a}
0x18808…18834 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCRMENT SECTOR ADDRESS «, t00=0x00fb, t01=0x001e}
0x18834…1884a Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:48«, t00=0x00fb, t01=0x004a}
0x1884a…1887e Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 RESET LEAST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x0060}
0x1887e…188b4 Head {h00=0x0032, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x0094}
0x188b4…188dc Head {h00=0x0024, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR«, t00=0x00fb, t01=0x00ca}
0x188dc…188f0 Head {h00=0x0010, h01=0x0050, text=»FRD:48 EQU *«, t00=0x00fb, t01=0x00f2}
0x188f0…18900 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fb, t01=0x0106}
0x18900…18914 Head {h00=0x0010, h01=0x0050, text=»FRD:50 EQU *«, t00=0x00fb, t01=0x0116}
0x18914…1892a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00fb, t01=0x012a}
0x1892a…1893e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00fb, t01=0x0140}
0x1893e…18964 Head {h00=0x0022, h01=0x0050, text=»FRD:B1 EQU FRD:40-FRD:20-2 =4«, t00=0x00fb, t01=0x0154}
0x18964…1898a Head {h00=0x0022, h01=0x0050, text=»FRD:B2 EQU FRD:45-FRD:43-2 =4«, t00=0x00fb, t01=0x017a}
0x1898a…18996 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0010}
0x18996…189ac Head {h00=0x0012, h01=0x0050, text=» IFT CDDISC=1 «, t00=0x00fc, t01=0x001c}
0x189ac…189c6 Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0 =9 «, t00=0x00fc, t01=0x0032}
0x189c6…189d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x004c}
0x189d4…18a00 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fc, t01=0x005a}
0x18a00…18a2c Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fc, t01=0x0086}
0x18a2c…18a58 Head {h00=0x0028, h01=0x0050, text=»* CDINIT - INITIALIZE DISC UNIT * «, t00=0x00fc, t01=0x00b2}
0x18a58…18a84 Head {h00=0x0028, h01=0x0050, text=»* ============================= * «, t00=0x00fc, t01=0x00de}
0x18a84…18ab0 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fc, t01=0x010a}
0x18ab0…18adc Head {h00=0x0028, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL * «, t00=0x00fc, t01=0x0136}
0x18adc…18b08 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fc, t01=0x0162}
0x18b08…18b34 Head {h00=0x0028, h01=0x0050, text=»* ENTRY: A1 - DEVICE ADDRESS * «, t00=0x00fc, t01=0x018e}
0x18b34…18b60 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fd, t01=0x002a}
0x18b60…18b8c Head {h00=0x0028, h01=0x0050, text=»* EXIT: * «, t00=0x00fd, t01=0x0056}
0x18b8c…18bb8 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fd, t01=0x0082}
0x18bb8…18be4 Head {h00=0x0028, h01=0x0050, text=»* WORK REGISTERS: A1,A2 *«, t00=0x00fd, t01=0x00ae}
0x18be4…18c10 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fd, t01=0x00da}
0x18c10…18c3c Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x00fd, t01=0x0106}
0x18c3c…18c68 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00fd, t01=0x0132}
0x18c68…18c94 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fd, t01=0x015e}
0x18c94…18c9c Head {h00=0x0004, h01=0x0050, t00=0x00fd, t01=0x018a}
0x18c9c…18cb0 (254, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x00fe, t01=0x0004}
0x18cb0…18cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0018}
0x18cba…18cde Head {h00=0x0020, h01=0x0050, text=»* INIT 80M CDC DISC COMMANDS«, t00=0x00fe, t01=0x0022}
0x18cde…18ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0046}
0x18ce8…18d18 Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. «, t00=0x00fe, t01=0x0050}
0x18d18…18d2e Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x00fe, t01=0x0080}
0x18d2e…18d5a Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR.«, t00=0x00fe, t01=0x0096}
0x18d5a…18d70 Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x00fe, t01=0x00c2}
0x18d70…18d9e Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR.«, t00=0x00fe, t01=0x00d8}
0x18d9e…18db4 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x00fe, t01=0x0106}
0x18db4…18de0 Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR.«, t00=0x00fe, t01=0x011c}
0x18de0…18df6 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x00fe, t01=0x0148}
0x18df6…18e0a Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00fe, t01=0x015e}
0x18e0a…18e40 Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x00fe, t01=0x0172}
0x18e40…18e6a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x00ff, t01=0x0018}
0x18e6a…18e8c Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x00ff, t01=0x0042}
0x18e8c…18ec4 Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x00ff, t01=0x0064}
0x18ec4…18ed8 Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ff, t01=0x009c}
0x18ed8…18eec Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ff, t01=0x00b0}
0x18eec…18efc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ff, t01=0x00c4}
0x18efc…18f0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ff, t01=0x00d4}
0x18f0a…18f42 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00ff, t01=0x00e2}
0x18f42…18f7a Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x00ff, t01=0x011a}
0x18f7a…18fb2 Head {h00=0x0034, h01=0x0050, text=»* CRDSEC- READ ONE SECTOR FROM DISC * «, t00=0x00ff, t01=0x0152}
0x18fb2…18fea Head {h00=0x0034, h01=0x0050, text=»* ================================= * «, t00=0x00ff, t01=0x018a}
0x18fea…19022 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0100, t01=0x0032}
0x19022…1905a Head {h00=0x0034, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x0100, t01=0x006a}
0x1905a…19092 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0100, t01=0x00a2}
0x19092…190ca Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS * «, t00=0x0100, t01=0x00da}
0x190ca…19102 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0100, t01=0x0112}
0x19102…1913a Head {h00=0x0034, h01=0x0050, text=»* A11 - SECTOR NBR LEAST SIGNIFICANT * «, t00=0x0100, t01=0x014a}
0x1913a…19172 Head {h00=0x0034, h01=0x0050, text=»* A12 - SECTOR NBR MOST SIGNIFICANT * «, t00=0x0100, t01=0x0182}
0x19172…191aa Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0101, t01=0x002a}
0x191aa…191e2 Head {h00=0x0034, h01=0x0050, text=»* EXIT: A12,A11 = A12,A11 + 1 * «, t00=0x0101, t01=0x0062}
0x191e2…1921a Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0101, t01=0x009a}
0x1921a…19252 Head {h00=0x0034, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A6 * «, t00=0x0101, t01=0x00d2}
0x19252…1928a Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0101, t01=0x010a}
0x1928a…192c2 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINES: ERROR * «, t00=0x0101, t01=0x0142}
0x192c2…192fa Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0101, t01=0x017a}
0x192fa…19332 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0102, t01=0x0022}
0x19332…1933c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x005a}
0x1933c…19350 Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0102, t01=0x0064}
0x19350…1935a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0078}
0x1935a…19376 Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0102, t01=0x0082}
0x19376…19380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x009e}
0x19380…193a2 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0102, t01=0x00a8}
0x193a2…193b6 Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x00ca}
0x193b6…193d6 Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0102, t01=0x00de}
0x193d6…193ea Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x00fe}
0x193ea…1940a Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0102, t01=0x0112}
0x1940a…19420 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0102, t01=0x0132}
0x19420…19442 Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0102, t01=0x0148}
0x19442…19464 Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0102, t01=0x016a}
0x19464…19496 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0102, t01=0x018c}
0x19496…194ca Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0103, t01=0x002e}
0x194ca…194d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x0062}
0x194d8…194e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0070}
0x194e2…19502 Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0103, t01=0x007a}
0x19502…1950c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x009a}
0x1950c…1951e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0103, t01=0x00a4}
0x1951e…19532 Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0103, t01=0x00b6}
0x19532…19544 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0103, t01=0x00ca}
0x19544…19556 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0103, t01=0x00dc}
0x19556…1956c Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0103, t01=0x00ee}
0x1956c…1957e Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0103, t01=0x0104}
0x1957e…19590 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0103, t01=0x0116}
0x19590…1959e Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0103, t01=0x0128}
0x1959e…195b4 Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0103, t01=0x0136}
0x195b4…195f2 Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0103, t01=0x014c}
0x195f2…1960e Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0103, t01=0x018a}
0x1960e…1963e Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0016}
0x1963e…1965a Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0104, t01=0x0046}
0x1965a…1968a Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0062}
0x1968a…196a6 Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0104, t01=0x0092}
0x196a6…196d0 Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0104, t01=0x00ae}
0x196d0…19702 Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0104, t01=0x00d8}
0x19702…19716 Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0104, t01=0x010a}
0x19716…19736 Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0104, t01=0x011e}
0x19736…19762 Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0104, t01=0x013e}
0x19762…19774 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0104, t01=0x016a}
0x19774…19784 Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0104, t01=0x017c}
0x19784…19792 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x018c}
0x19792…197b4 Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0105, t01=0x000a}
0x197b4…197ce Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0105, t01=0x002c}
0x197ce…197e0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0105, t01=0x0046}
0x197e0…197f2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x0058}
0x197f2…19804 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0105, t01=0x006a}
0x19804…19814 Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0105, t01=0x007c}
0x19814…1982c Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0105, t01=0x008c}
0x1982c…19842 Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0105, t01=0x00a4}
0x19842…1986a Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0105, t01=0x00ba}
0x1986a…19890 Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0105, t01=0x00e2}
0x19890…1989e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x0108}
0x1989e…198a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0116}
0x198a8…198be Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0105, t01=0x0120}
0x198be…198c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0136}
0x198c8…198da Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x0140}
0x198da…198f6 Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0105, t01=0x0152}
0x198f6…19908 Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0105, t01=0x016e}
0x19908…19934 Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0105, t01=0x0180}
0x19934…19952 Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0106, t01=0x001c}
0x19952…19966 Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0106, t01=0x003a}
0x19966…19976 Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0106, t01=0x004e}
0x19976…19994 Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0106, t01=0x005e}
0x19994…199bc Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x0106, t01=0x007c}
0x199bc…199d8 Head {h00=0x0018, h01=0x0050, text=» SRC A3,1 RESTORE A3«, t00=0x0106, t01=0x00a4}
0x199d8…199ee Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x0106, t01=0x00c0}
0x199ee…19a18 Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x0106, t01=0x00d6}
0x19a18…19a26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0100}
0x19a26…19a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x010e}
0x19a30…19a3e Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x0106, t01=0x0118}
0x19a3e…19a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0126}
0x19a48…19a70 Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x0106, t01=0x0130}
0x19a70…19a94 Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x0106, t01=0x0158}
0x19a94…19aaa Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x0106, t01=0x017c}
0x19aaa…19ac2 (263, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x0107, t01=0x0004}
0x19ac2…19ad6 Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x0107, t01=0x001c}
0x19ad6…19aee Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x0107, t01=0x0030}
0x19aee…19b04 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x0107, t01=0x0048}
0x19b04…19b18 Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x0107, t01=0x005e}
0x19b18…19b2a Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x0107, t01=0x0072}
0x19b2a…19b40 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x0107, t01=0x0084}
0x19b40…19b4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x009a}
0x19b4e…19b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00a8}
0x19b58…19b6a Head {h00=0x000e, h01=0x0050, text=»* READ «, t00=0x0107, t01=0x00b2}
0x19b6a…19b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00c4}
0x19b74…19b88 Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x0107, t01=0x00ce}
0x19b88…19bac Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x0107, t01=0x00e2}
0x19bac…19bc0 Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x0107, t01=0x0106}
0x19bc0…19bec Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x0107, t01=0x011a}
0x19bec…19c0a Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x0107, t01=0x0146}
0x19c0a…19c34 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x0107, t01=0x0164}
0x19c34…19c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x018e}
0x19c3e…19c5c Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x0108, t01=0x0008}
0x19c5c…19c86 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x0108, t01=0x0026}
0x19c86…19ca4 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x0108, t01=0x0050}
0x19ca4…19cc8 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x0108, t01=0x006e}
0x19cc8…19d0a Head {h00=0x003e, h01=0x0050, text=» LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 «, t00=0x0108, t01=0x0092}
0x19d0a…19d3e Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 «, t00=0x0108, t01=0x00d4}
0x19d3e…19d46 Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x0108}
0x19d46…19d58 Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x0108, t01=0x0110}
0x19d58…19d8c Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x0108, t01=0x0122}
0x19d8c…19daa Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x0108, t01=0x0156}
0x19daa…19dbc Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x0108, t01=0x0174}
0x19dbc…19dd0 Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x0108, t01=0x0186}
0x19dd0…19dee Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x0109, t01=0x000a}
0x19dee…19e02 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0109, t01=0x0028}
0x19e02…19e16 Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x0109, t01=0x003c}
0x19e16…19e26 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0109, t01=0x0050}
0x19e26…19e34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x0060}
0x19e34…19e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x006e}
0x19e3e…19e64 Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x0109, t01=0x0078}
0x19e64…19e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x009e}
0x19e6e…19e82 Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x0109, t01=0x00a8}
0x19e82…19ebc Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x0109, t01=0x00bc}
0x19ebc…19edc Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 INDEX TO TABLE«, t00=0x0109, t01=0x00f6}
0x19edc…19f04 Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x0109, t01=0x0116}
0x19f04…19f2a Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x0109, t01=0x013e}
0x19f2a…19f4e Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x0109, t01=0x0164}
0x19f4e…19f62 Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x0109, t01=0x0188}
0x19f62…19f76 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x010a, t01=0x000c}
0x19f76…19f88 Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x010a, t01=0x0020}
0x19f88…19f9a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x010a, t01=0x0032}
0x19f9a…19fac Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x010a, t01=0x0044}
0x19fac…19fbe Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x010a, t01=0x0056}
0x19fbe…19fde Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x010a, t01=0x0068}
0x19fde…19fee Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x010a, t01=0x0088}
0x19fee…19ff6 Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x0098}
0x19ff6…19ffe Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00a0}
0x19ffe…1a006 Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00a8}
0x1a006…1a01a Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x010a, t01=0x00b0}
0x1a01a…1a030 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x010a, t01=0x00c4}
0x1a030…1a05a Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x010a, t01=0x00da}
0x1a05a…1a068 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0104}
0x1a068…1a072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0112}
0x1a072…1a090 Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x010a, t01=0x011c}
0x1a090…1a09a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x013a}
0x1a09a…1a0ae Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x010a, t01=0x0144}
0x1a0ae…1a0c0 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x010a, t01=0x0158}
0x1a0c0…1a0de Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x010a, t01=0x016a}
0x1a0de…1a0f4 Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x010a, t01=0x0188}
0x1a0f4…1a108 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010b, t01=0x000e}
0x1a108…1a140 Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x010b, t01=0x0022}
0x1a140…1a156 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010b, t01=0x005a}
0x1a156…1a18a Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x010b, t01=0x0070}
0x1a18a…1a19c Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x00a4}
0x1a19c…1a1b0 Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x010b, t01=0x00b6}
0x1a1b0…1a1c4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010b, t01=0x00ca}
0x1a1c4…1a1fa Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x010b, t01=0x00de}
0x1a1fa…1a210 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010b, t01=0x0114}
0x1a210…1a244 Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x010b, t01=0x012a}
0x1a244…1a256 Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x015e}
0x1a256…1a26a Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x010b, t01=0x0170}
0x1a26a…1a280 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x010b, t01=0x0184}
0x1a280…1a2ae Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x010c, t01=0x000a}
0x1a2ae…1a2c4 Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x010c, t01=0x0038}
0x1a2c4…1a2d8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010c, t01=0x004e}
0x1a2d8…1a310 Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x010c, t01=0x0062}
0x1a310…1a326 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010c, t01=0x009a}
0x1a326…1a352 Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x010c, t01=0x00b0}
0x1a352…1a364 Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x00dc}
0x1a364…1a378 Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x010c, t01=0x00ee}
0x1a378…1a38c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010c, t01=0x0102}
0x1a38c…1a3b0 Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x010c, t01=0x0116}
0x1a3b0…1a3c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010c, t01=0x013a}
0x1a3c6…1a3f8 Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x010c, t01=0x0150}
0x1a3f8…1a40a Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x0182}
0x1a40a…1a418 (269, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010d, t01=0x0004}
0x1a418…1a422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0012}
0x1a422…1a436 Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x010d, t01=0x001c}
0x1a436…1a440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0030}
0x1a440…1a454 Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x010d, t01=0x003a}
0x1a454…1a464 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x010d, t01=0x004e}
0x1a464…1a46e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x005e}
0x1a46e…1a482 Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x010d, t01=0x0068}
0x1a482…1a48c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x007c}
0x1a48c…1a4a0 Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x010d, t01=0x0086}
0x1a4a0…1a4ca Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x010d, t01=0x009a}
0x1a4ca…1a4de Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x010d, t01=0x00c4}
0x1a4de…1a518 Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x010d, t01=0x00d8}
0x1a518…1a52c Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x010d, t01=0x0112}
0x1a52c…1a566 Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x010d, t01=0x0126}
0x1a566…1a57a Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x010d, t01=0x0160}
0x1a57a…1a594 Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x010d, t01=0x0174}
0x1a594…1a5a8 Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x010d, t01=0x018e}
0x1a5a8…1a5c0 Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x010e, t01=0x0012}
0x1a5c0…1a5d4 Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x010e, t01=0x002a}
0x1a5d4…1a5ee Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x010e, t01=0x003e}
0x1a5ee…1a602 Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x010e, t01=0x0058}
0x1a602…1a614 Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x010e, t01=0x006c}
0x1a614…1a628 Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x010e, t01=0x007e}
0x1a628…1a642 Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x010e, t01=0x0092}
0x1a642…1a64e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010e, t01=0x00ac}
0x1a64e…1a668 Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=1 =9 «, t00=0x010e, t01=0x00b8}
0x1a668…1a676 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x00d2}
0x1a676…1a6a2 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x010e, t01=0x00e0}
0x1a6a2…1a6ce Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010e, t01=0x010c}
0x1a6ce…1a6fa Head {h00=0x0028, h01=0x0050, text=»* CDINIT - INITIALIZE DISC UNIT * «, t00=0x010e, t01=0x0138}
0x1a6fa…1a726 Head {h00=0x0028, h01=0x0050, text=»* ============================= * «, t00=0x010e, t01=0x0164}
0x1a726…1a752 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010e, t01=0x0190}
0x1a752…1a77e Head {h00=0x0028, h01=0x0050, text=»* REFERENCED IN: SYSLOD,GETFIL * «, t00=0x010f, t01=0x002c}
0x1a77e…1a7aa Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010f, t01=0x0058}
0x1a7aa…1a7d6 Head {h00=0x0028, h01=0x0050, text=»* ENTRY: A1 - DEVICE ADDRESS * «, t00=0x010f, t01=0x0084}
0x1a7d6…1a802 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010f, t01=0x00b0}
0x1a802…1a82e Head {h00=0x0028, h01=0x0050, text=»* EXIT: * «, t00=0x010f, t01=0x00dc}
0x1a82e…1a85a Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010f, t01=0x0108}
0x1a85a…1a886 Head {h00=0x0028, h01=0x0050, text=»* WORK REGISTERS: A1,A2 *«, t00=0x010f, t01=0x0134}
0x1a886…1a8b2 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x010f, t01=0x0160}
0x1a8b2…1a8de Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x010f, t01=0x018c}
0x1a8de…1a90a Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x0110, t01=0x0028}
0x1a90a…1a936 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0110, t01=0x0054}
0x1a936…1a93e Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x0080}
0x1a93e…1a952 Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0110, t01=0x0088}
0x1a952…1a95c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x009c}
0x1a95c…1a988 Head {h00=0x0028, h01=0x0050, text=»* INIT 16M OR 80M CDC DISC COMMANDS «, t00=0x0110, t01=0x00a6}
0x1a988…1a992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00d2}
0x1a992…1a9a8 Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1 =9«, t00=0x0110, t01=0x00dc}
0x1a9a8…1a9d2 Head {h00=0x0026, h01=0x0050, text=» ANK A1,/3F MASK DEVICE ADDRESS =9«, t00=0x0110, t01=0x00f2}
0x1a9d2…1aa04 Head {h00=0x002e, h01=0x0050, text=» SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 «, t00=0x0110, t01=0x011c}
0x1aa04…1aa1c Head {h00=0x0014, h01=0x0050, text=» ANK A2,/10 =9 «, t00=0x0110, t01=0x014e}
0x1aa1c…1aa5c Head {h00=0x003c, h01=0x0050, text=» ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 «, t00=0x0110, t01=0x0166}
0x1aa5c…1aa8c Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. «, t00=0x0111, t01=0x0016}
0x1aa8c…1aaa2 Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0111, t01=0x0046}
0x1aaa2…1aace Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR.«, t00=0x0111, t01=0x005c}
0x1aace…1aae4 Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0111, t01=0x0088}
0x1aae4…1ab12 Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR.«, t00=0x0111, t01=0x009e}
0x1ab12…1ab28 Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0111, t01=0x00cc}
0x1ab28…1ab54 Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR.«, t00=0x0111, t01=0x00e2}
0x1ab54…1ab6a Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0111, t01=0x010e}
0x1ab6a…1ab7e Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0111, t01=0x0124}
0x1ab7e…1abb4 Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0111, t01=0x0138}
0x1abb4…1abde Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0111, t01=0x016e}
0x1abde…1ac00 Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0112, t01=0x0008}
0x1ac00…1ac38 Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0112, t01=0x002a}
0x1ac38…1ac4c Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0112, t01=0x0062}
0x1ac4c…1ac60 Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0112, t01=0x0076}
0x1ac60…1ac8a Head {h00=0x0026, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL =9«, t00=0x0112, t01=0x008a}
0x1ac8a…1acb2 Head {h00=0x0024, h01=0x0050, text=» LC A2,FORDEV+1,A9 GET FORMAT =9«, t00=0x0112, t01=0x00b4}
0x1acb2…1acd4 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 FORMAT 4 OR 5 =9«, t00=0x0112, t01=0x00dc}
0x1acd4…1ad00 Head {h00=0x0028, h01=0x0050, text=» LDK A2,23 CONSTANT FOR 16M DISC =9 «, t00=0x0112, t01=0x00fe}
0x1ad00…1ad22 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CDI:10 16M DISC =9«, t00=0x0112, t01=0x012a}
0x1ad22…1ad4e Head {h00=0x0028, h01=0x0050, text=» LDK A2,115 CONSTANT FOR 80M DISC =9«, t00=0x0112, t01=0x014c}
0x1ad4e…1ad66 Head {h00=0x0014, h01=0x0050, text=»CDI:10 EQU * =9«, t00=0x0112, t01=0x0178}
0x1ad66…1ad92 Head {h00=0x0028, h01=0x0050, text=» ST A2,DIVCON SET DIVIDE CONSTANT =9«, t00=0x0112, t01=0x0190}
0x1ad92…1ada2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x002c}
0x1ada2…1adb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0113, t01=0x003c}
0x1adb0…1ade8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0113, t01=0x004a}
0x1ade8…1ae20 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0113, t01=0x0082}
0x1ae20…1ae58 Head {h00=0x0034, h01=0x0050, text=»* CRDSEC- READ ONE SECTOR FROM DISC * «, t00=0x0113, t01=0x00ba}
0x1ae58…1ae90 Head {h00=0x0034, h01=0x0050, text=»* ================================= * «, t00=0x0113, t01=0x00f2}
0x1ae90…1aec8 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0113, t01=0x012a}
0x1aec8…1af00 Head {h00=0x0034, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x0113, t01=0x0162}
0x1af00…1af38 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0114, t01=0x000a}
0x1af38…1af70 Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A9 = BUFFER ADDRESS * «, t00=0x0114, t01=0x0042}
0x1af70…1afa8 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0114, t01=0x007a}
0x1afa8…1afe0 Head {h00=0x0034, h01=0x0050, text=»* A11 - SECTOR NBR LEAST SIGNIFICANT * «, t00=0x0114, t01=0x00b2}
0x1afe0…1b018 Head {h00=0x0034, h01=0x0050, text=»* A12 - SECTOR NBR MOST SIGNIFICANT * «, t00=0x0114, t01=0x00ea}
0x1b018…1b050 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0114, t01=0x0122}
0x1b050…1b088 Head {h00=0x0034, h01=0x0050, text=»* EXIT: A12,A11 = A12,A11 + 1 * «, t00=0x0114, t01=0x015a}
0x1b088…1b0c0 (277, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0115, t01=0x0004}
0x1b0c0…1b0f8 Head {h00=0x0034, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A6 * «, t00=0x0115, t01=0x003c}
0x1b0f8…1b130 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0115, t01=0x0074}
0x1b130…1b168 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINES: ERROR * «, t00=0x0115, t01=0x00ac}
0x1b168…1b1a0 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0115, t01=0x00e4}
0x1b1a0…1b1d8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0115, t01=0x011c}
0x1b1d8…1b1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0154}
0x1b1e2…1b1f6 Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0115, t01=0x015e}
0x1b1f6…1b200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0172}
0x1b200…1b21c Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0115, t01=0x017c}
0x1b21c…1b226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0008}
0x1b226…1b248 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0116, t01=0x0012}
0x1b248…1b25c Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x0034}
0x1b25c…1b27c Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0116, t01=0x0048}
0x1b27c…1b290 Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x0068}
0x1b290…1b2b0 Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0116, t01=0x007c}
0x1b2b0…1b2c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0116, t01=0x009c}
0x1b2c6…1b2e8 Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0116, t01=0x00b2}
0x1b2e8…1b30a Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0116, t01=0x00d4}
0x1b30a…1b33c Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0116, t01=0x00f6}
0x1b33c…1b370 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0116, t01=0x0128}
0x1b370…1b37e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x015c}
0x1b37e…1b388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x016a}
0x1b388…1b3a8 Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0116, t01=0x0174}
0x1b3a8…1b3b2 (279, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0004}
0x1b3b2…1b3c4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0117, t01=0x000e}
0x1b3c4…1b3d8 Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0117, t01=0x0020}
0x1b3d8…1b3ea Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0117, t01=0x0034}
0x1b3ea…1b3fc Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0117, t01=0x0046}
0x1b3fc…1b412 Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0117, t01=0x0058}
0x1b412…1b424 Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0117, t01=0x006e}
0x1b424…1b436 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0117, t01=0x0080}
0x1b436…1b444 Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0117, t01=0x0092}
0x1b444…1b45a Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0117, t01=0x00a0}
0x1b45a…1b498 Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0117, t01=0x00b6}
0x1b498…1b4b4 Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0117, t01=0x00f4}
0x1b4b4…1b4e4 Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x0110}
0x1b4e4…1b500 Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0117, t01=0x0140}
0x1b500…1b530 Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x015c}
0x1b530…1b54c Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0117, t01=0x018c}
0x1b54c…1b576 Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0118, t01=0x0018}
0x1b576…1b5a8 Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0118, t01=0x0042}
0x1b5a8…1b5bc Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0118, t01=0x0074}
0x1b5bc…1b5dc Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0118, t01=0x0088}
0x1b5dc…1b608 Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0118, t01=0x00a8}
0x1b608…1b61a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0118, t01=0x00d4}
0x1b61a…1b634 Head {h00=0x0016, h01=0x0050, text=»DIVCON EQU *+2 =9«, t00=0x0118, t01=0x00e6}
0x1b634…1b648 Head {h00=0x0010, h01=0x0050, text=» DVK 23 =9 «, t00=0x0118, t01=0x0100}
0x1b648…1b656 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0118, t01=0x0114}
0x1b656…1b678 Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0118, t01=0x0122}
0x1b678…1b692 Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0118, t01=0x0144}
0x1b692…1b6a4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0118, t01=0x015e}
0x1b6a4…1b6b6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0118, t01=0x0170}
0x1b6b6…1b6c8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0118, t01=0x0182}
0x1b6c8…1b6d8 (281, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0119, t01=0x0004}
0x1b6d8…1b6f0 Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0119, t01=0x0014}
0x1b6f0…1b706 Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0119, t01=0x002c}
0x1b706…1b72e Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0119, t01=0x0042}
0x1b72e…1b75e Head {h00=0x002c, h01=0x0050, text=» OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9«, t00=0x0119, t01=0x006a}
0x1b75e…1b784 Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0119, t01=0x009a}
0x1b784…1b792 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x00c0}
0x1b792…1b79c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ce}
0x1b79c…1b7b2 Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0119, t01=0x00d8}
0x1b7b2…1b7bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ee}
0x1b7bc…1b7ce Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0119, t01=0x00f8}
0x1b7ce…1b7ea Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0119, t01=0x010a}
0x1b7ea…1b800 Head {h00=0x0012, h01=0x0050, text=» SRC A3,1 =9 «, t00=0x0119, t01=0x0126}
0x1b800…1b82c Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0119, t01=0x013c}
0x1b82c…1b84a Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0119, t01=0x0168}
0x1b84a…1b85e Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0119, t01=0x0186}
0x1b85e…1b86e Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011a, t01=0x000a}
0x1b86e…1b88c Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x011a, t01=0x001a}
0x1b88c…1b8b4 Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x011a, t01=0x0038}
0x1b8b4…1b8d4 Head {h00=0x001c, h01=0x0050, text=» SLC A3,1 RESTORE A3 =9 «, t00=0x011a, t01=0x0060}
0x1b8d4…1b8ea Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x011a, t01=0x0080}
0x1b8ea…1b914 Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x011a, t01=0x0096}
0x1b914…1b922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x00c0}
0x1b922…1b92c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00ce}
0x1b92c…1b93a Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x011a, t01=0x00d8}
0x1b93a…1b944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00e6}
0x1b944…1b96c Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x011a, t01=0x00f0}
0x1b96c…1b990 Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x011a, t01=0x0118}
0x1b990…1b9a6 Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x011a, t01=0x013c}
0x1b9a6…1b9be Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x011a, t01=0x0152}
0x1b9be…1b9d2 Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x011a, t01=0x016a}
0x1b9d2…1b9ea Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x011a, t01=0x017e}
0x1b9ea…1ba00 Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x011b, t01=0x0008}
0x1ba00…1ba14 Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x011b, t01=0x001e}
0x1ba14…1ba26 Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x011b, t01=0x0032}
0x1ba26…1ba3c Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x011b, t01=0x0044}
0x1ba3c…1ba4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x005a}
0x1ba4a…1ba54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0068}
0x1ba54…1ba66 Head {h00=0x000e, h01=0x0050, text=»* READ «, t00=0x011b, t01=0x0072}
0x1ba66…1ba70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0084}
0x1ba70…1ba84 Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x011b, t01=0x008e}
0x1ba84…1baa8 Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x011b, t01=0x00a2}
0x1baa8…1babc Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x011b, t01=0x00c6}
0x1babc…1bae8 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x011b, t01=0x00da}
0x1bae8…1bb06 Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x011b, t01=0x0106}
0x1bb06…1bb30 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x0124}
0x1bb30…1bb3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x014e}
0x1bb3a…1bb58 Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x011b, t01=0x0158}
0x1bb58…1bb82 Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x0176}
0x1bb82…1bba0 Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x011c, t01=0x0010}
0x1bba0…1bbc4 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x011c, t01=0x002e}
0x1bbc4…1bc02 Head {h00=0x003a, h01=0x0050, text=» LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0052}
0x1bc02…1bc40 Head {h00=0x003a, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0090}
0x1bc40…1bc48 Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x00ce}
0x1bc48…1bc5a Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x011c, t01=0x00d6}
0x1bc5a…1bc8e Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x011c, t01=0x00e8}
0x1bc8e…1bcac Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x011c, t01=0x011c}
0x1bcac…1bcbe Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x011c, t01=0x013a}
0x1bcbe…1bcd2 Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x011c, t01=0x014c}
0x1bcd2…1bcf0 Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x011c, t01=0x0160}
0x1bcf0…1bd04 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x011c, t01=0x017e}
0x1bd04…1bd18 (285, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x011d, t01=0x0004}
0x1bd18…1bd28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011d, t01=0x0018}
0x1bd28…1bd36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0028}
0x1bd36…1bd40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0036}
0x1bd40…1bd66 Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x011d, t01=0x0040}
0x1bd66…1bd70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0066}
0x1bd70…1bd84 Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x011d, t01=0x0070}
0x1bd84…1bdbe Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x011d, t01=0x0084}
0x1bdbe…1bdd4 Head {h00=0x0012, h01=0x0050, text=» SLL A1,1 =9 «, t00=0x011d, t01=0x00be}
0x1bdd4…1bdea Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1 =9«, t00=0x011d, t01=0x00d4}
0x1bdea…1be00 Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1 =9«, t00=0x011d, t01=0x00ea}
0x1be00…1be2a Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 A1 MULTIPIED WITH 6 =9 «, t00=0x011d, t01=0x0100}
0x1be2a…1be52 Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x011d, t01=0x012a}
0x1be52…1be78 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x011d, t01=0x0152}
0x1be78…1be9c Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x011d, t01=0x0178}
0x1be9c…1beb0 Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x011e, t01=0x000c}
0x1beb0…1bec4 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x011e, t01=0x0020}
0x1bec4…1bed6 Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x011e, t01=0x0034}
0x1bed6…1bee8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011e, t01=0x0046}
0x1bee8…1befa Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x011e, t01=0x0058}
0x1befa…1bf0c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x011e, t01=0x006a}
0x1bf0c…1bf2c Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x011e, t01=0x007c}
0x1bf2c…1bf3c Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x011e, t01=0x009c}
0x1bf3c…1bf44 Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00ac}
0x1bf44…1bf4c Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00b4}
0x1bf4c…1bf54 Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00bc}
0x1bf54…1bf68 Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x011e, t01=0x00c4}
0x1bf68…1bf7e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x011e, t01=0x00d8}
0x1bf7e…1bfa8 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x011e, t01=0x00ee}
0x1bfa8…1bfb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x0118}
0x1bfb6…1bfc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0126}
0x1bfc0…1bfde Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x011e, t01=0x0130}
0x1bfde…1bfe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x014e}
0x1bfe8…1bffc Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x011e, t01=0x0158}
0x1bffc…1c00e Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x011e, t01=0x016c}
0x1c00e…1c02c Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x011e, t01=0x017e}
0x1c02c…1c042 Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x011f, t01=0x000c}
0x1c042…1c056 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x011f, t01=0x0022}
0x1c056…1c08e Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x011f, t01=0x0036}
0x1c08e…1c0a4 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x011f, t01=0x006e}
0x1c0a4…1c0d8 Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x011f, t01=0x0084}
0x1c0d8…1c0ea Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x00b8}
0x1c0ea…1c0fe Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x011f, t01=0x00ca}
0x1c0fe…1c112 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x011f, t01=0x00de}
0x1c112…1c148 Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x011f, t01=0x00f2}
0x1c148…1c15e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x011f, t01=0x0128}
0x1c15e…1c192 Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x011f, t01=0x013e}
0x1c192…1c1a4 Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x0172}
0x1c1a4…1c1b8 Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x011f, t01=0x0184}
0x1c1b8…1c1ce Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0120, t01=0x0008}
0x1c1ce…1c1fc Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0120, t01=0x001e}
0x1c1fc…1c212 Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0120, t01=0x004c}
0x1c212…1c226 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0120, t01=0x0062}
0x1c226…1c25e Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0120, t01=0x0076}
0x1c25e…1c274 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0120, t01=0x00ae}
0x1c274…1c2a0 Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0120, t01=0x00c4}
0x1c2a0…1c2b2 Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0120, t01=0x00f0}
0x1c2b2…1c2c6 Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0120, t01=0x0102}
0x1c2c6…1c2da Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0120, t01=0x0116}
0x1c2da…1c2fe Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0120, t01=0x012a}
0x1c2fe…1c314 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0120, t01=0x014e}
0x1c314…1c346 Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0120, t01=0x0164}
0x1c346…1c358 Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0121, t01=0x0008}
0x1c358…1c366 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x001a}
0x1c366…1c370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0028}
0x1c370…1c384 Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0121, t01=0x0032}
0x1c384…1c38e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0046}
0x1c38e…1c3a2 Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0121, t01=0x0050}
0x1c3a2…1c3b2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0121, t01=0x0064}
0x1c3b2…1c3bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0074}
0x1c3bc…1c3d0 Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0121, t01=0x007e}
0x1c3d0…1c3da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0092}
0x1c3da…1c3ee Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0121, t01=0x009c}
0x1c3ee…1c418 Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0121, t01=0x00b0}
0x1c418…1c42c Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0121, t01=0x00da}
0x1c42c…1c466 Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0121, t01=0x00ee}
0x1c466…1c47a Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0121, t01=0x0128}
0x1c47a…1c4b4 Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0121, t01=0x013c}
0x1c4b4…1c4da Head {h00=0x0022, h01=0x0050, text=» DATA 0 ADDRESS1 MOST SIGN. =9«, t00=0x0121, t01=0x0176}
0x1c4da…1c4ee Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0122, t01=0x000c}
0x1c4ee…1c508 Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0122, t01=0x0020}
0x1c508…1c51c Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0122, t01=0x003a}
0x1c51c…1c534 Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0122, t01=0x004e}
0x1c534…1c55c Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 2 MOST SIGN. =9 «, t00=0x0122, t01=0x0066}
0x1c55c…1c570 Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0122, t01=0x008e}
0x1c570…1c58a Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0122, t01=0x00a2}
0x1c58a…1c59e Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0122, t01=0x00bc}
0x1c59e…1c5b0 Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0122, t01=0x00d0}
0x1c5b0…1c5d8 Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 3 MOST SIGN. =9 «, t00=0x0122, t01=0x00e2}
0x1c5d8…1c5ec Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0122, t01=0x010a}
0x1c5ec…1c606 Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0122, t01=0x011e}
0x1c606…1c612 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0138}
0x1c612…1c620 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0144}
0x1c620…1c65c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0122, t01=0x0152}
0x1c65c…1c698 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0122, t01=0x018e}
0x1c698…1c6d4 Head {h00=0x0038, h01=0x0050, text=»* GETFIL - GET CONFIGURATION FILE * «, t00=0x0123, t01=0x003a}
0x1c6d4…1c710 Head {h00=0x0038, h01=0x0050, text=»* =============================== * «, t00=0x0123, t01=0x0076}
0x1c710…1c74c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0123, t01=0x00b2}
0x1c74c…1c788 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLOD * «, t00=0x0123, t01=0x00ee}
0x1c788…1c7c4 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0123, t01=0x012a}
0x1c7c4…1c800 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x0123, t01=0x0166}
0x1c800…1c83c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0124, t01=0x0012}
0x1c83c…1c878 Head {h00=0x0038, h01=0x0050, text=»* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * «, t00=0x0124, t01=0x004e}
0x1c878…1c8b4 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0124, t01=0x008a}
0x1c8b4…1c8ee Head {h00=0x0036, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 *«, t00=0x0124, t01=0x00c6}
0x1c8ee…1c92a Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0124, t01=0x0100}
0x1c92a…1c966 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: READVL,READCF * «, t00=0x0124, t01=0x013c}
0x1c966…1c9a2 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0124, t01=0x0178}
0x1c9a2…1c9de Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0125, t01=0x0024}
0x1c9de…1c9f2 Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0125, t01=0x0060}
0x1c9f2…1ca08 Head {h00=0x0012, h01=0x0050, text=» CF A14,GETVLB«, t00=0x0125, t01=0x0074}
0x1ca08…1ca1c Head {h00=0x0010, h01=0x0050, text=»GET:10 EQU *«, t00=0x0125, t01=0x008a}
0x1ca1c…1ca42 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0125, t01=0x009e}
0x1ca42…1ca6e Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0125, t01=0x00c4}
0x1ca6e…1ca94 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0125, t01=0x00f0}
0x1ca94…1caa8 Head {h00=0x0010, h01=0x0050, text=»GET:20 EQU *«, t00=0x0125, t01=0x0116}
0x1caa8…1cac6 Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0125, t01=0x012a}
0x1cac6…1cae6 Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x0125, t01=0x0148}
0x1cae6…1cb00 Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0125, t01=0x0168}
0x1cb00…1cb22 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 START OF RECORD«, t00=0x0125, t01=0x0182}
0x1cb22…1cb4e Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x0126, t01=0x0014}
0x1cb4e…1cb72 Head {h00=0x0020, h01=0x0050, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x0126, t01=0x0040}
0x1cb72…1cb8c Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x0064}
0x1cb8c…1cbba Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x0126, t01=0x007e}
0x1cbba…1cbe0 Head {h00=0x0022, h01=0x0050, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x0126, t01=0x00ac}
0x1cbe0…1cbfa Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x00d2}
0x1cbfa…1cc30 Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0126, t01=0x00ec}
0x1cc30…1cc5c Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0126, t01=0x0122}
0x1cc5c…1cc76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x0126, t01=0x014e}
0x1cc76…1cc98 Head {h00=0x001e, h01=0x0050, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x0126, t01=0x0168}
0x1cc98…1ccc8 Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x0126, t01=0x018a}
0x1ccc8…1ccf4 Head {h00=0x0028, h01=0x0050, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x0127, t01=0x002a}
0x1ccf4…1cd0e Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:40 YES!«, t00=0x0127, t01=0x0056}
0x1cd0e…1cd32 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x0127, t01=0x0070}
0x1cd32…1cd54 Head {h00=0x001e, h01=0x0050, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x0127, t01=0x0094}
0x1cd54…1cd6e Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0127, t01=0x00b6}
0x1cd6e…1cd80 Head {h00=0x000e, h01=0x0050, text=» RB GET:30«, t00=0x0127, t01=0x00d0}
0x1cd80…1cd94 Head {h00=0x0010, h01=0x0050, text=»GET:40 EQU *«, t00=0x0127, t01=0x00e2}
0x1cd94…1cd9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x00f6}
0x1cd9e…1cdc2 Head {h00=0x0020, h01=0x0050, text=»* CHECK APPLICATION NUMBER «, t00=0x0127, t01=0x0100}
0x1cdc2…1cdcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0124}
0x1cdcc…1cdee Head {h00=0x001e, h01=0x0050, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x0127, t01=0x012e}
0x1cdee…1ce12 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x0127, t01=0x0150}
0x1ce12…1ce36 Head {h00=0x0020, h01=0x0050, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x0127, t01=0x0174}
0x1ce36…1ce5c Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0128, t01=0x0008}
0x1ce5c…1ce8c Head {h00=0x002c, h01=0x0050, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x0128, t01=0x002e}
0x1ce8c…1cea2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) GET:50«, t00=0x0128, t01=0x005e}
0x1cea2…1ceac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0074}
0x1ceac…1ced0 Head {h00=0x0020, h01=0x0050, text=»* CONFIGURATION FILE FOUND «, t00=0x0128, t01=0x007e}
0x1ced0…1ceda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00a2}
0x1ceda…1cf02 Head {h00=0x0024, h01=0x0050, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x0128, t01=0x00ac}
0x1cf02…1cf24 Head {h00=0x001e, h01=0x0050, text=» ST A1,LSTREC+STKEND SAVE «, t00=0x0128, t01=0x00d4}
0x1cf24…1cf3e Head {h00=0x0016, h01=0x0050, text=» LD A12,16,A6 GET «, t00=0x0128, t01=0x00f6}
0x1cf3e…1cf62 Head {h00=0x0020, h01=0x0050, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x0128, t01=0x0110}
0x1cf62…1cf72 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0134}
0x1cf72…1cf7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0144}
0x1cf7c…1cf90 Head {h00=0x0010, h01=0x0050, text=»GET:50 EQU *«, t00=0x0128, t01=0x014e}
0x1cf90…1cfb4 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x0128, t01=0x0162}
0x1cfb4…1cfde Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x0128, t01=0x0186}
0x1cfde…1d00e Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x0129, t01=0x0020}
0x1d00e…1d028 Head {h00=0x0016, h01=0x0050, text=» RB(P) GET:20 YES!«, t00=0x0129, t01=0x0050}
0x1d028…1d04e Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0129, t01=0x006a}
0x1d04e…1d068 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:10 NO!«, t00=0x0129, t01=0x0090}
0x1d068…1d09e Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0129, t01=0x00aa}
0x1d09e…1d0ca Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0129, t01=0x00e0}
0x1d0ca…1d0e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0129, t01=0x010c}
0x1d0e4…1d0ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0126}
0x1d0ee…1d12c Head {h00=0x003a, h01=0x0050, text=»* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x0129, t01=0x0130}
0x1d12c…1d15a Head {h00=0x002a, h01=0x0050, text=»* LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x0129, t01=0x016e}
0x1d15a…1d164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x000c}
0x1d164…1d16e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0016}
0x1d16e…1d184 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7F8 «, t00=0x012a, t01=0x0020}
0x1d184…1d1ae Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x012a, t01=0x0036}
0x1d1ae…1d1c2 Head {h00=0x0010, h01=0x0050, text=»GET:70 EQU *«, t00=0x012a, t01=0x0060}
0x1d1c2…1d1d8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SOPIN «, t00=0x012a, t01=0x0074}
0x1d1d8…1d1fe Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/7FC ALLOWED SWITCH? «, t00=0x012a, t01=0x008a}
0x1d1fe…1d218 Head {h00=0x0016, h01=0x0050, text=» RB(Z) GET:70 NO! «, t00=0x012a, t01=0x00b0}
0x1d218…1d22e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,LMP1 «, t00=0x012a, t01=0x00ca}
0x1d22e…1d258 Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x012a, t01=0x00e0}
0x1d258…1d26a Head {h00=0x000e, h01=0x0050, text=» SRN A1,A2«, t00=0x012a, t01=0x010a}
0x1d26a…1d296 Head {h00=0x0028, h01=0x0050, text=» LC A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x012a, t01=0x011c}
0x1d296…1d2aa Head {h00=0x0010, h01=0x0050, text=»GET:75 EQU *«, t00=0x012a, t01=0x0148}
0x1d2aa…1d2e4 Head {h00=0x0036, h01=0x0050, text=» SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE«, t00=0x012a, t01=0x015c}
0x1d2e4…1d310 Head {h00=0x0028, h01=0x0050, text=» CF A14,CONFLD CONFIGURE LOAD DEVICE«, t00=0x012b, t01=0x0008}
0x1d310…1d322 Head {h00=0x000e, h01=0x0050, text=» RB GETFIL«, t00=0x012b, t01=0x0034}
0x1d322…1d336 Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x012b, t01=0x0046}
0x1d336…1d35e Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x012b, t01=0x005a}
0x1d35e…1d378 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012b, t01=0x0082}
0x1d378…1d3a2 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x012b, t01=0x009c}
0x1d3a2…1d3d0 Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x012b, t01=0x00c6}
0x1d3d0…1d402 Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x012b, t01=0x00f4}
0x1d402…1d41c Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x012b, t01=0x0126}
0x1d41c…1d43c Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x012b, t01=0x0140}
0x1d43c…1d46a Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x012b, t01=0x0160}
0x1d46a…1d494 Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x012b, t01=0x018e}
0x1d494…1d4ae Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x012c, t01=0x0028}
0x1d4ae…1d4b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0042}
0x1d4b8…1d4f6 Head {h00=0x003a, h01=0x0050, text=»* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x012c, t01=0x004c}
0x1d4f6…1d526 Head {h00=0x002c, h01=0x0050, text=»* TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x012c, t01=0x008a}
0x1d526…1d530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ba}
0x1d530…1d55a Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x012c, t01=0x00c4}
0x1d55a…1d584 Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x012c, t01=0x00ee}
0x1d584…1d5a6 Head {h00=0x001e, h01=0x0050, text=» ST A1,SWBFSA+STKCOM SAVE «, t00=0x012c, t01=0x0118}
0x1d5a6…1d5ca Head {h00=0x0020, h01=0x0050, text=» ST A2,SWBFSA+STKCOM+2 SAVE «, t00=0x012c, t01=0x013a}
0x1d5ca…1d5fa Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x012c, t01=0x015e}
0x1d5fa…1d62c Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x012c, t01=0x018e}
0x1d62c…1d658 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x012d, t01=0x0030}
0x1d658…1d686 Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x012d, t01=0x005c}
0x1d686…1d6b0 Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x012d, t01=0x008a}
0x1d6b0…1d6c2 Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x012d, t01=0x00b4}
0x1d6c2…1d6e4 Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x012d, t01=0x00c6}
0x1d6e4…1d70a Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x012d, t01=0x00e8}
0x1d70a…1d744 Head {h00=0x0036, h01=0x0050, text=»GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. «, t00=0x012d, t01=0x010e}
0x1d744…1d778 Head {h00=0x0030, h01=0x0050, text=» ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A.«, t00=0x012d, t01=0x0148}
0x1d778…1d7aa Head {h00=0x002e, h01=0x0050, text=» IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND «, t00=0x012d, t01=0x017c}
0x1d7aa…1d7c0 Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x012e, t01=0x001e}
0x1d7c0…1d7ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012e, t01=0x0034}
0x1d7ce…1d80c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012e, t01=0x0042}
0x1d80c…1d84a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x012e, t01=0x0080}
0x1d84a…1d888 Head {h00=0x003a, h01=0x0050, text=»* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * «, t00=0x012e, t01=0x00be}
0x1d888…1d8c6 Head {h00=0x003a, h01=0x0050, text=»* =============================================== * «, t00=0x012e, t01=0x00fc}
0x1d8c6…1d904 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x012e, t01=0x013a}
0x1d904…1d942 Head {h00=0x003a, h01=0x0050, text=»* LODSEG - LOAD ONE SEGMENT * «, t00=0x012e, t01=0x0178}
0x1d942…1d980 Head {h00=0x003a, h01=0x0050, text=»* ========================= * «, t00=0x012f, t01=0x0026}
0x1d980…1d9be Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x012f, t01=0x0064}
0x1d9be…1d9fc Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A8 - RELOCATION BASE * «, t00=0x012f, t01=0x00a2}
0x1d9fc…1da3a Head {h00=0x003a, h01=0x0050, text=»* A10 - EFFECTIVE LENGTH * «, t00=0x012f, t01=0x00e0}
0x1da3a…1da78 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x012f, t01=0x011e}
0x1da78…1dab6 Head {h00=0x003a, h01=0x0050, text=»* EXIT: * «, t00=0x012f, t01=0x015c}
0x1dab6…1daf4 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0130, t01=0x000a}
0x1daf4…1db32 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4,A7 * «, t00=0x0130, t01=0x0048}
0x1db32…1db70 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0130, t01=0x0086}
0x1db70…1dbae Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: MOVE,READ * «, t00=0x0130, t01=0x00c4}
0x1dbae…1dbec Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0130, t01=0x0102}
0x1dbec…1dc2a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0140}
0x1dc2a…1dc3e Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x0130, t01=0x017e}
0x1dc3e…1dc6e (305, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A9,MXBUF GET ADDRESS TO READ BUFFER «, t00=0x0131, t01=0x0004}
0x1dc6e…1dc94 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 GET START OF BUFFER«, t00=0x0131, t01=0x0034}
0x1dc94…1dcac Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0131, t01=0x005a}
0x1dcac…1dcd6 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x0131, t01=0x0072}
0x1dcd6…1dcec Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x0131, t01=0x009c}
0x1dcec…1dd0c Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x0131, t01=0x00b2}
0x1dd0c…1dd26 Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x0131, t01=0x00d2}
0x1dd26…1dd46 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x0131, t01=0x00ec}
0x1dd46…1dd58 Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x0131, t01=0x010c}
0x1dd58…1dd6c Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x0131, t01=0x011e}
0x1dd6c…1dd9e Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x0131, t01=0x0132}
0x1dd9e…1ddbc Head {h00=0x001a, h01=0x0050, text=» RF(P) LOD:50 NO YET! «, t00=0x0131, t01=0x0164}
0x1ddbc…1dde2 Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0131, t01=0x0182}
0x1dde2…1ddfc Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x0132, t01=0x0018}
0x1ddfc…1de2c Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x0132, t01=0x0032}
0x1de2c…1de58 Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x0062}
0x1de58…1de6a Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x0132, t01=0x008e}
0x1de6a…1de7e Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x0132, t01=0x00a0}
0x1de7e…1deb4 Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x0132, t01=0x00b4}
0x1deb4…1dee0 Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x00ea}
0x1dee0…1df18 Head {h00=0x0034, h01=0x0050, text=» LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK «, t00=0x0132, t01=0x0116}
0x1df18…1df32 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:50 NO!«, t00=0x0132, t01=0x014e}
0x1df32…1df3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0168}
0x1df3c…1df72 Head {h00=0x0032, h01=0x0050, text=» ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER «, t00=0x0132, t01=0x0172}
0x1df72…1dfb0 Head {h00=0x003a, h01=0x0050, text=» CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK «, t00=0x0133, t01=0x0018}
0x1dfb0…1dfca Head {h00=0x0016, h01=0x0050, text=» RF(L) LOD:50 NO! «, t00=0x0133, t01=0x0056}
0x1dfca…1dfd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0070}
0x1dfd4…1e000 Head {h00=0x0028, h01=0x0050, text=» SUK A7,240 YES, GET WORDS REMAINING«, t00=0x0133, t01=0x007a}
0x1e000…1e01c Head {h00=0x0018, h01=0x0050, text=» LDR A10,A7 AND SAVE«, t00=0x0133, t01=0x00a6}
0x1e01c…1e048 Head {h00=0x0028, h01=0x0050, text=» LDK A7,240 START OF RELOCATION BITS«, t00=0x0133, t01=0x00c2}
0x1e048…1e05c Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x0133, t01=0x00ee}
0x1e05c…1e082 Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0133, t01=0x0102}
0x1e082…1e09c Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x0133, t01=0x0128}
0x1e09c…1e0c8 Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x0133, t01=0x0142}
0x1e0c8…1e0e6 Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x0133, t01=0x016e}
0x1e0e6…1e0fa Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x0133, t01=0x018c}
0x1e0fa…1e120 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x0134, t01=0x0010}
0x1e120…1e150 Head {h00=0x002c, h01=0x0050, text=» LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK?«, t00=0x0134, t01=0x0036}
0x1e150…1e16a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x0134, t01=0x0066}
0x1e16a…1e1a4 Head {h00=0x0036, h01=0x0050, text=» IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK «, t00=0x0134, t01=0x0080}
0x1e1a4…1e1d8 Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x0134, t01=0x00ba}
0x1e1d8…1e20c Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x0134, t01=0x00ee}
0x1e20c…1e22e Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x0134, t01=0x0122}
0x1e22e…1e266 Head {h00=0x0034, h01=0x0050, text=» RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK«, t00=0x0134, t01=0x0144}
0x1e266…1e270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x017c}
0x1e270…1e2a4 Head {h00=0x0030, h01=0x0050, text=» CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x0134, t01=0x0186}
0x1e2a4…1e2c0 Head {h00=0x0018, h01=0x0050, text=» RF(NG) LOD:55 YES! «, t00=0x0135, t01=0x002a}
0x1e2c0…1e2ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0046}
0x1e2ca…1e2e4 Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x0135, t01=0x0050}
0x1e2e4…1e2f8 Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x0135, t01=0x006a}
0x1e2f8…1e328 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x0135, t01=0x007e}
0x1e328…1e354 Head {h00=0x0028, h01=0x0050, text=» LD A2,LLDADR+STKEND GET TO-ADDRESS «, t00=0x0135, t01=0x00ae}
0x1e354…1e388 Head {h00=0x0030, h01=0x0050, text=» ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS «, t00=0x0135, t01=0x00da}
0x1e388…1e39e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0135, t01=0x010e}
0x1e39e…1e3c6 Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x0135, t01=0x0124}
0x1e3c6…1e3d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x014c}
0x1e3d2…1e3e8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0135, t01=0x0158}
0x1e3e8…1e3fa Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0135, t01=0x016e}
0x1e3fa…1e406 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x0180}
0x1e406…1e42a Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x0135, t01=0x018c}
0x1e42a…1e440 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x0136, t01=0x0020}
0x1e440…1e456 Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x0136, t01=0x0036}
0x1e456…1e46a Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x0136, t01=0x004c}
0x1e46a…1e496 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x0136, t01=0x0060}
0x1e496…1e4be Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x0136, t01=0x008c}
0x1e4be…1e4d2 Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x0136, t01=0x00b4}
0x1e4d2…1e4e6 Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0136, t01=0x00c8}
0x1e4e6…1e4fa Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x0136, t01=0x00dc}
0x1e4fa…1e50c Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x0136, t01=0x00f0}
0x1e50c…1e51a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x0102}
0x1e51a…1e554 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0136, t01=0x0110}
0x1e554…1e58e Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0136, t01=0x014a}
0x1e58e…1e5c8 Head {h00=0x0036, h01=0x0050, text=»* REBUF - RELOCATE BUFFER ROUTINE * «, t00=0x0136, t01=0x0184}
0x1e5c8…1e602 Head {h00=0x0036, h01=0x0050, text=»* =============================== * «, t00=0x0137, t01=0x002e}
0x1e602…1e63c Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0137, t01=0x0068}
0x1e63c…1e676 Head {h00=0x0036, h01=0x0050, text=»* REFERENCED IN: LODCOM/LODSEG * «, t00=0x0137, t01=0x00a2}
0x1e676…1e6b0 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0137, t01=0x00dc}
0x1e6b0…1e6ea Head {h00=0x0036, h01=0x0050, text=»* ENTRY: A3 - START OF BUFFER * «, t00=0x0137, t01=0x0116}
0x1e6ea…1e724 Head {h00=0x0036, h01=0x0050, text=»* A2 - START OF RELOCATION TABLE * «, t00=0x0137, t01=0x0150}
0x1e724…1e75e Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0137, t01=0x018a}
0x1e75e…1e798 Head {h00=0x0036, h01=0x0050, text=»* EXIT: * «, t00=0x0138, t01=0x0034}
0x1e798…1e7d2 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0138, t01=0x006e}
0x1e7d2…1e80c Head {h00=0x0036, h01=0x0050, text=»* WORK REGISTERS: A1,A4,A5,A6 * «, t00=0x0138, t01=0x00a8}
0x1e80c…1e846 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0138, t01=0x00e2}
0x1e846…1e880 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0138, t01=0x011c}
0x1e880…1e8ba Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0138, t01=0x0156}
0x1e8ba…1e8f4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0138, t01=0x0190}
0x1e8f4…1e908 Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x0139, t01=0x003a}
0x1e908…1e93a Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET START OPF RELOCATION TABLE «, t00=0x0139, t01=0x004e}
0x1e93a…1e94c Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0139, t01=0x0080}
0x1e94c…1e960 Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x0139, t01=0x0092}
0x1e960…1e986 Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x0139, t01=0x00a6}
0x1e986…1e9b2 Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x0139, t01=0x00cc}
0x1e9b2…1e9da Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x0139, t01=0x00f8}
0x1e9da…1e9ee Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x0139, t01=0x0120}
0x1e9ee…1ea1e Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x0139, t01=0x0134}
0x1ea1e…1ea40 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x0139, t01=0x0164}
0x1ea40…1ea5c Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x0139, t01=0x0186}
0x1ea5c…1ea7c Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x013a, t01=0x0012}
0x1ea7c…1ea90 Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x013a, t01=0x0032}
0x1ea90…1eab0 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x013a, t01=0x0046}
0x1eab0…1eada Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x013a, t01=0x0066}
0x1eada…1eaf4 Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x013a, t01=0x0090}
0x1eaf4…1eb1c Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x013a, t01=0x00aa}
0x1eb1c…1eb36 Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x013a, t01=0x00d2}
0x1eb36…1eb5c Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x013a, t01=0x00ec}
0x1eb5c…1eb6e Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x013a, t01=0x0112}
0x1eb6e…1eb82 Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x013a, t01=0x0124}
0x1eb82…1eb92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0138}
0x1eb92…1eba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x0148}
0x1eba0…1ebd2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013a, t01=0x0156}
0x1ebd2…1ec04 Head {h00=0x002e, h01=0x0050, text=»* GETCON - GET CONTENT IN MEMORY WORD * «, t00=0x013a, t01=0x0188}
0x1ec04…1ec36 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013b, t01=0x002a}
0x1ec36…1ec40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x005c}
0x1ec40…1ec62 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: SEGGEN «, t00=0x013b, t01=0x0066}
0x1ec62…1ec6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0088}
0x1ec6c…1ec92 Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A2 - MEMORY ADDRESS«, t00=0x013b, t01=0x0092}
0x1ec92…1ecc4 Head {h00=0x002e, h01=0x0050, text=»* MMUOPT - MMU OPTION SWITCH (X) «, t00=0x013b, t01=0x00b8}
0x1ecc4…1ecce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00ea}
0x1ecce…1ecfe Head {h00=0x002c, h01=0x0050, text=»* EXIT: A1 - CONTENT OF MEMORY ADDRESS«, t00=0x013b, t01=0x00f4}
0x1ecfe…1ed08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0124}
0x1ed08…1ed22 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTER: «, t00=0x013b, t01=0x012e}
0x1ed22…1ed2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0148}
0x1ed2c…1ed44 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013b, t01=0x0152}
0x1ed44…1ed4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x016a}
0x1ed4e…1ed62 Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x013b, t01=0x0174}
0x1ed62…1ed88 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x013b, t01=0x0188}
0x1ed88…1eda4 Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x013c, t01=0x001e}
0x1eda4…1edc0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x013c, t01=0x003a}
0x1edc0…1edd2 Head {h00=0x000e, h01=0x0050, text=» ELR A1,A2«, t00=0x013c, t01=0x0056}
0x1edd2…1ede4 Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x013c, t01=0x0068}
0x1ede4…1edf8 Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x013c, t01=0x007a}
0x1edf8…1ee0c Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x013c, t01=0x008e}
0x1ee0c…1ee20 Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x013c, t01=0x00a2}
0x1ee20…1ee38 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x013c, t01=0x00b6}
0x1ee38…1ee46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00ce}
0x1ee46…1ee7c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013c, t01=0x00dc}
0x1ee7c…1eeb2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013c, t01=0x0112}
0x1eeb2…1eee8 Head {h00=0x0032, h01=0x0050, text=»* SCNCON * «, t00=0x013c, t01=0x0148}
0x1eee8…1ef1e Head {h00=0x0032, h01=0x0050, text=»* ====== * «, t00=0x013c, t01=0x017e}
0x1ef1e…1ef54 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013d, t01=0x0024}
0x1ef54…1ef8a Head {h00=0x0032, h01=0x0050, text=»* SCAN CONFIGURATION FILE FOR POSSIBLE * «, t00=0x013d, t01=0x005a}
0x1ef8a…1efc0 Head {h00=0x0032, h01=0x0050, text=»* APPLICATION DEFINITION BLOCKS. IF * «, t00=0x013d, t01=0x0090}
0x1efc0…1effc Head {h00=0x0038, h01=0x0050, text=»* FOUND APLTAB+STKCOM IS UPDATED WITH DISC *«, t00=0x013d, t01=0x00c6}
0x1effc…1f032 Head {h00=0x0032, h01=0x0050, text=»* ADDRESSES. * «, t00=0x013d, t01=0x0102}
0x1f032…1f068 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013d, t01=0x0138}
0x1f068…1f09e Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A9 INPUT BUFFER ADDRESS * «, t00=0x013d, t01=0x016e}
0x1f09e…1f0d4 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013e, t01=0x0014}
0x1f0d4…1f10a Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS A1-A8,A10 * «, t00=0x013e, t01=0x004a}
0x1f10a…1f140 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013e, t01=0x0080}
0x1f140…1f176 Head {h00=0x0032, h01=0x0050, text=»* ROUTINES REFERENCED: GETFIL, APLID * «, t00=0x013e, t01=0x00b6}
0x1f176…1f1ac Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013e, t01=0x00ec}
0x1f1ac…1f1e2 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN SYSLOD * «, t00=0x013e, t01=0x0122}
0x1f1e2…1f218 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x013e, t01=0x0158}
0x1f218…1f24e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013e, t01=0x018e}
0x1f24e…1f258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0034}
0x1f258…1f262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x003e}
0x1f262…1f276 Head {h00=0x0010, h01=0x0050, text=»SCNCON EQU *«, t00=0x013f, t01=0x0048}
0x1f276…1f2a4 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x013f, t01=0x005c}
0x1f2a4…1f2de Head {h00=0x0036, h01=0x0050, text=» ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS«, t00=0x013f, t01=0x008a}
0x1f2de…1f30e Head {h00=0x002c, h01=0x0050, text=» ST A12,CONDAD+2+STKEND MOST SIGN. PART «, t00=0x013f, t01=0x00c4}
0x1f30e…1f334 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x013f, t01=0x00f4}
0x1f334…1f364 Head {h00=0x002c, h01=0x0050, text=» ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED«, t00=0x013f, t01=0x011a}
0x1f364…1f394 Head {h00=0x002c, h01=0x0050, text=» ST A8,ECNFBF+STKEND AND SAVE BUFFER END«, t00=0x013f, t01=0x014a}
0x1f394…1f39e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x017a}
0x1f39e…1f3c6 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x013f, t01=0x0184}
0x1f3c6…1f3fc Head {h00=0x0032, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS«, t00=0x0140, t01=0x001c}
0x1f3fc…1f42a Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0140, t01=0x0052}
0x1f42a…1f452 Head {h00=0x0024, h01=0x0050, text=» CF A14,RDSEC READ FIRST SECTOR «, t00=0x0140, t01=0x0080}
0x1f452…1f478 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0140, t01=0x00a8}
0x1f478…1f49c Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 SAVE RECORD START«, t00=0x0140, t01=0x00ce}
0x1f49c…1f4a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x00f2}
0x1f4a6…1f4ba Head {h00=0x0010, h01=0x0050, text=»SCAN00 EQU *«, t00=0x0140, t01=0x00fc}
0x1f4ba…1f4e6 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A4 GET FIRST WORD IN RECORD«, t00=0x0140, t01=0x0110}
0x1f4e6…1f518 Head {h00=0x002e, h01=0x0050, text=» CWK A1,'A;' APPLICATION DEFINITION BLOCK?«, t00=0x0140, t01=0x013c}
0x1f518…1f532 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN10 NO!«, t00=0x0140, t01=0x016e}
0x1f532…1f53c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0188}
0x1f53c…1f56a (321, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CF A14,APLID YES GET APPLICATION NAME«, t00=0x0141, t01=0x0004}
0x1f56a…1f57e Head {h00=0x0010, h01=0x0050, text=»SCAN10 EQU *«, t00=0x0141, t01=0x0032}
0x1f57e…1f5aa Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0141, t01=0x0046}
0x1f5aa…1f5d4 Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD?«, t00=0x0141, t01=0x0072}
0x1f5d4…1f5ee Head {h00=0x0016, h01=0x0050, text=» RF(E) SCNEND YES!«, t00=0x0141, t01=0x009c}
0x1f5ee…1f5f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x00b6}
0x1f5f8…1f62a Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0141, t01=0x00c0}
0x1f62a…1f656 Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0141, t01=0x00f2}
0x1f656…1f670 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN20 NO!«, t00=0x0141, t01=0x011e}
0x1f670…1f67a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0138}
0x1f67a…1f6a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0141, t01=0x0142}
0x1f6a0…1f6c8 Head {h00=0x0024, h01=0x0050, text=» LDR A8,A9 RESET RECORD ADDRESS «, t00=0x0141, t01=0x0168}
0x1f6c8…1f6dc Head {h00=0x0010, h01=0x0050, text=»SCAN20 EQU *«, t00=0x0141, t01=0x0190}
0x1f6dc…1f700 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A8 GET RECORD START «, t00=0x0142, t01=0x0014}
0x1f700…1f728 Head {h00=0x0024, h01=0x0050, text=» RB SCAN00 CONTINUE SCAN PROCESS«, t00=0x0142, t01=0x0038}
0x1f728…1f732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0060}
0x1f732…1f75a Head {h00=0x0024, h01=0x0050, text=»* THE WHOLE CONFIGURATION FILE «, t00=0x0142, t01=0x006a}
0x1f75a…1f782 Head {h00=0x0024, h01=0x0050, text=»* IS PROCESSED. SEARCH VTOC FOR«, t00=0x0142, t01=0x0092}
0x1f782…1f7a8 Head {h00=0x0022, h01=0x0050, text=»* GIVEN FILE NAMES AND UPDATE«, t00=0x0142, t01=0x00ba}
0x1f7a8…1f7d4 Head {h00=0x0028, h01=0x0050, text=»* APLTAB+STKCOM WITH CORRESPONDING «, t00=0x0142, t01=0x00e0}
0x1f7d4…1f7ee Head {h00=0x0016, h01=0x0050, text=»* DISC ADDRESSES.«, t00=0x0142, t01=0x010c}
0x1f7ee…1f7f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0126}
0x1f7f8…1f80c Head {h00=0x0010, h01=0x0050, text=»SCNEND EQU *«, t00=0x0142, t01=0x0130}
0x1f80c…1f840 Head {h00=0x0030, h01=0x0050, text=» LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV.«, t00=0x0142, t01=0x0144}
0x1f840…1f856 Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0142, t01=0x0178}
0x1f856…1f892 Head {h00=0x0038, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS«, t00=0x0142, t01=0x018e}
0x1f892…1f8c0 Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0143, t01=0x003a}
0x1f8c0…1f8f4 Head {h00=0x0030, h01=0x0050, text=» LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS«, t00=0x0143, t01=0x0068}
0x1f8f4…1f910 Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 DECREMENT «, t00=0x0143, t01=0x009c}
0x1f910…1f938 Head {h00=0x0024, h01=0x0050, text=» RF(Z) RTRN ONLY ONE APPLICATION«, t00=0x0143, t01=0x00b8}
0x1f938…1f952 Head {h00=0x0016, h01=0x0050, text=» NGR A1,A1 NEGATE «, t00=0x0143, t01=0x00e0}
0x1f952…1f988 Head {h00=0x0032, h01=0x0050, text=» ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER«, t00=0x0143, t01=0x00fa}
0x1f988…1f9b8 Head {h00=0x002c, h01=0x0050, text=» CF A14,GETAPL UPDATE APPLIC. DISC ADDR.«, t00=0x0143, t01=0x0130}
0x1f9b8…1f9c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0160}
0x1f9c2…1f9d4 Head {h00=0x000e, h01=0x0050, text=»RTRN EQU *«, t00=0x0143, t01=0x016a}
0x1f9d4…1f9f2 Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF SCNCON«, t00=0x0143, t01=0x017c}
0x1f9f2…1fa00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0144, t01=0x000a}
0x1fa00…1fa36 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0144, t01=0x0018}
0x1fa36…1fa6c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0144, t01=0x004e}
0x1fa6c…1faa2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0084}
0x1faa2…1fad8 Head {h00=0x0032, h01=0x0050, text=»* APLID * «, t00=0x0144, t01=0x00ba}
0x1fad8…1fb0e Head {h00=0x0032, h01=0x0050, text=»* ===== * «, t00=0x0144, t01=0x00f0}
0x1fb0e…1fb44 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0126}
0x1fb44…1fb7a Head {h00=0x0032, h01=0x0050, text=»* APLID TAKES THE NAME OF APPLICATION * «, t00=0x0144, t01=0x015c}
0x1fb7a…1fbb0 (325, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* AND MOVES IT FROM CONF. FILE TO * «, t00=0x0145, t01=0x0004}
0x1fbb0…1fbec Head {h00=0x0038, h01=0x0050, text=»* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY *«, t00=0x0145, t01=0x003a}
0x1fbec…1fc28 Head {h00=0x0038, h01=0x0050, text=»* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: *«, t00=0x0145, t01=0x0076}
0x1fc28…1fc5e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0145, t01=0x00b2}
0x1fc5e…1fc94 Head {h00=0x0032, h01=0x0050, text=»* LENGTH OF NAME (BYTES) * «, t00=0x0145, t01=0x00e8}
0x1fc94…1fcca Head {h00=0x0032, h01=0x0050, text=»* NAME * «, t00=0x0145, t01=0x011e}
0x1fcca…1fd00 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0145, t01=0x0154}
0x1fd00…1fd36 Head {h00=0x0032, h01=0x0050, text=»* THE NAME ENTRY CONSISTS OF 1-4 WORDS * «, t00=0x0145, t01=0x018a}
0x1fd36…1fd6c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0146, t01=0x0030}
0x1fd6c…1fda8 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A6 POINTER INTO APLTAB+STKCOM *«, t00=0x0146, t01=0x0066}
0x1fda8…1fdde Head {h00=0x0032, h01=0x0050, text=»* A8 RECORD POINTER * «, t00=0x0146, t01=0x00a2}
0x1fdde…1fe14 Head {h00=0x0032, h01=0x0050, text=»* A10 RECORD COUNTER * «, t00=0x0146, t01=0x00d8}
0x1fe14…1fe4a Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0146, t01=0x010e}
0x1fe4a…1fe80 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1-A5 * «, t00=0x0146, t01=0x0144}
0x1fe80…1feb6 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0146, t01=0x017a}
0x1feb6…1feec Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0147, t01=0x0020}
0x1feec…1fef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0056}
0x1fef6…1ff00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0060}
0x1ff00…1ff14 Head {h00=0x0010, h01=0x0050, text=»APLID EQU * «, t00=0x0147, t01=0x006a}
0x1ff14…1ff40 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0147, t01=0x007e}
0x1ff40…1ff6a Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0147, t01=0x00aa}
0x1ff6a…1ffa2 Head {h00=0x0034, h01=0x0050, text=» ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE «, t00=0x0147, t01=0x00d4}
0x1ffa2…1ffac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x010c}
0x1ffac…1ffde Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0147, t01=0x0116}
0x1ffde…2000a Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0147, t01=0x0148}
0x2000a…20024 Head {h00=0x0016, h01=0x0050, text=» RF(NE) APLID0 NO!«, t00=0x0147, t01=0x0174}
0x20024…2002e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x018e}
0x2002e…20054 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0148, t01=0x0008}
0x20054…20078 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 GET RECORD START «, t00=0x0148, t01=0x002e}
0x20078…2008c Head {h00=0x0010, h01=0x0050, text=»APLID0 EQU *«, t00=0x0148, t01=0x0052}
0x2008c…200ac Head {h00=0x001c, h01=0x0050, text=» LDR A4,A8 RECORD START «, t00=0x0148, t01=0x0066}
0x200ac…200d6 Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x0148, t01=0x0086}
0x200d6…200ea Head {h00=0x0010, h01=0x0050, text=»APLID2 EQU *«, t00=0x0148, t01=0x00b0}
0x200ea…2010a Head {h00=0x001c, h01=0x0050, text=» LCR A1,A4 GET CHARACTER«, t00=0x0148, t01=0x00c4}
0x2010a…20134 Head {h00=0x0026, h01=0x0050, text=» CCK A1,';;' DELIMITER CHARACTER? «, t00=0x0148, t01=0x00e4}
0x20134…2015a Head {h00=0x0022, h01=0x0050, text=» RF(E) APLID4 YES! END OF NAME«, t00=0x0148, t01=0x010e}
0x2015a…20164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0134}
0x20164…20192 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER POINTER «, t00=0x0148, t01=0x013e}
0x20192…201be Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x0148, t01=0x016c}
0x201be…201e8 Head {h00=0x0026, h01=0x0050, text=» CWK A5,NCHAID END OF THIS RECORD?«, t00=0x0149, t01=0x0008}
0x201e8…20214 Head {h00=0x0028, h01=0x0050, text=» RB(NE) APLID2 NO GET NEXT CHARACTER«, t00=0x0149, t01=0x0032}
0x20214…2021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x005e}
0x2021e…20244 Head {h00=0x0022, h01=0x0050, text=»* END OF NAME RECORD, LOOK IF«, t00=0x0149, t01=0x0068}
0x20244…2026c Head {h00=0x0024, h01=0x0050, text=»* NEXT CHARACTER IS A DELIMITER«, t00=0x0149, t01=0x008e}
0x2026c…20276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00b6}
0x20276…20288 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x0149, t01=0x00c0}
0x20288…2029c Head {h00=0x0010, h01=0x0050, text=» CCK A1,';;'«, t00=0x0149, t01=0x00d2}
0x2029c…202d6 Head {h00=0x0036, h01=0x0050, text=» ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE «, t00=0x0149, t01=0x00e6}
0x202d6…202e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0120}
0x202e0…202f4 Head {h00=0x0010, h01=0x0050, text=»APLID4 EQU *«, t00=0x0149, t01=0x012a}
0x202f4…20306 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0149, t01=0x013e}
0x20306…20338 Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONERR NO LEGAL CHARACTER IN NAME «, t00=0x0149, t01=0x0150}
0x20338…20342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0182}
0x20342…20366 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A6 SAVE BLOCK START «, t00=0x0149, t01=0x018c}
0x20366…2039a Head {h00=0x0030, h01=0x0050, text=» STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM«, t00=0x014a, t01=0x0020}
0x2039a…203cc Head {h00=0x002e, h01=0x0050, text=» IM* APLTAB+STKCOM INCREMENT NO OF APPLIC.«, t00=0x014a, t01=0x0054}
0x203cc…203f8 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A8 GET START OF NAME RECORD «, t00=0x014a, t01=0x0086}
0x203f8…20424 Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014a, t01=0x00b2}
0x20424…2044a Head {h00=0x0022, h01=0x0050, text=» SRA A5,1 AND MAKE WORD COUNT «, t00=0x014a, t01=0x00de}
0x2044a…20454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0104}
0x20454…20468 Head {h00=0x0010, h01=0x0050, text=»APLID6 EQU *«, t00=0x014a, t01=0x010e}
0x20468…20490 Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 ADVANCE TABLE POINTER «, t00=0x014a, t01=0x0122}
0x20490…204be Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A4 MOVE 2 CHARACTERS OF NAME «, t00=0x014a, t01=0x014a}
0x204be…204e2 Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 TO APLTAB+STKCOM «, t00=0x014a, t01=0x0178}
0x204e2…2050e Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 ADVANCE CHARACTER POINTER «, t00=0x014b, t01=0x000c}
0x2050e…20534 Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 DECREMENT WORD COUNT«, t00=0x014b, t01=0x0038}
0x20534…20562 Head {h00=0x002a, h01=0x0050, text=» RB(P) APLID6 MORE CHARACTERS TO MOVE «, t00=0x014b, t01=0x005e}
0x20562…2056c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x008c}
0x2056c…205a0 Head {h00=0x0030, h01=0x0050, text=» ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY «, t00=0x014b, t01=0x0096}
0x205a0…205bc Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x014b, t01=0x00ca}
0x205bc…205ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014b, t01=0x00e6}
0x205ca…20600 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014b, t01=0x00f4}
0x20600…20636 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x014b, t01=0x012a}
0x20636…2066c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x014b, t01=0x0160}
0x2066c…206a2 Head {h00=0x0032, h01=0x0050, text=»* GETAPL * «, t00=0x014c, t01=0x0008}
0x206a2…206d8 Head {h00=0x0032, h01=0x0050, text=»* ====== * «, t00=0x014c, t01=0x003e}
0x206d8…2070e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x014c, t01=0x0074}
0x2070e…20744 Head {h00=0x0032, h01=0x0050, text=»* SCANS VTOC FOR FILE NAMES LISTED IN * «, t00=0x014c, t01=0x00aa}
0x20744…20788 Head {h00=0x0040, h01=0x0050, text=»* APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE- * «, t00=0x014c, t01=0x00e0}
0x20788…207be Head {h00=0x0032, h01=0x0050, text=»* SPONDING DISC ADDRESSE AND THE LENGTH * «, t00=0x014c, t01=0x0124}
0x207be…207fa Head {h00=0x0038, h01=0x0050, text=»* OF APLTAB+STKCOM IS THEN USED TO CALCULATE *«, t00=0x014c, t01=0x015a}
0x207fa…20830 Head {h00=0x0032, h01=0x0050, text=»* START OF FREE AREA. * «, t00=0x014d, t01=0x0008}
0x20830…20866 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x014d, t01=0x003e}
0x20866…208a2 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM *«, t00=0x014d, t01=0x0074}
0x208a2…208e6 Head {h00=0x0040, h01=0x0050, text=»* APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM * «, t00=0x014d, t01=0x00b0}
0x208e6…2091c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x014d, t01=0x00f4}
0x2091c…20952 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014d, t01=0x012a}
0x20952…2095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0160}
0x2095c…20966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x016a}
0x20966…2097a Head {h00=0x0010, h01=0x0050, text=»GETAPL EQU *«, t00=0x014d, t01=0x0174}
0x2097a…209a2 Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x014d, t01=0x0188}
0x209a2…209b6 Head {h00=0x0010, h01=0x0050, text=»GETAP0 EQU *«, t00=0x014e, t01=0x0020}
0x209b6…209d8 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x014e, t01=0x0034}
0x209d8…20a04 Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x014e, t01=0x0056}
0x20a04…20a2a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x014e, t01=0x0082}
0x20a2a…20a3e Head {h00=0x0010, h01=0x0050, text=»GETAP2 EQU *«, t00=0x014e, t01=0x00a8}
0x20a3e…20a6a Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A6 GET LENGTH OF APPL. NAME«, t00=0x014e, t01=0x00bc}
0x20a6a…20a8e Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE RECORD START«, t00=0x014e, t01=0x00e8}
0x20a8e…20ab2 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 AND TABLE POINTER«, t00=0x014e, t01=0x010c}
0x20ab2…20ada Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 SKIP NO OF CHAR. ENTRY«, t00=0x014e, t01=0x0130}
0x20ada…20b0c Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x014e, t01=0x0158}
0x20b0c…20b2a Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x014e, t01=0x018a}
0x20b2a…20b44 Head {h00=0x0016, h01=0x0050, text=» RF(E) GETAP4 YES!«, t00=0x014f, t01=0x0018}
0x20b44…20b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0032}
0x20b4e…20b74 Head {h00=0x0022, h01=0x0050, text=» CF A14,CMPSYM COMPARE SYMBOLS«, t00=0x014f, t01=0x003c}
0x20b74…20b86 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x014f, t01=0x0062}
0x20b86…20ba0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FOUND EQUAL«, t00=0x014f, t01=0x0074}
0x20ba0…20baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x008e}
0x20baa…20bd2 Head {h00=0x0024, h01=0x0050, text=»* NO MATCH, TRY NEXT VTOC ENTRY«, t00=0x014f, t01=0x0098}
0x20bd2…20bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00c0}
0x20bdc…20bf0 Head {h00=0x0010, h01=0x0050, text=»GETAP4 EQU *«, t00=0x014f, t01=0x00ca}
0x20bf0…20c12 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x014f, t01=0x00de}
0x20c12…20c3c Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x014f, t01=0x0100}
0x20c3c…20c6a Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR «, t00=0x014f, t01=0x012a}
0x20c6a…20c84 Head {h00=0x0016, h01=0x0050, text=» RB(P) GETAP2 YES!«, t00=0x014f, t01=0x0158}
0x20c84…20c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0172}
0x20c8e…20cb4 Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x014f, t01=0x017c}
0x20cb4…20cde Head {h00=0x0026, h01=0x0050, text=» ABL(E) CONERR ERROR IN CONF. FILE«, t00=0x0150, t01=0x0012}
0x20cde…20ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x003c}
0x20ce8…20cfa Head {h00=0x000e, h01=0x0050, text=» RB GETAP0«, t00=0x0150, t01=0x0046}
0x20cfa…20d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0058}
0x20d04…20d18 Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0150, t01=0x0062}
0x20d18…20d40 Head {h00=0x0024, h01=0x0050, text=» LDK A2,'L' LOAD FILE CHARACTER «, t00=0x0150, t01=0x0076}
0x20d40…20d60 Head {h00=0x001c, h01=0x0050, text=» CC A2,27,A4 LOAD FILE? «, t00=0x0150, t01=0x009e}
0x20d60…20d8e Head {h00=0x002a, h01=0x0050, text=» ABL(NE) CONERR NO ERROR IN CONF. FILE«, t00=0x0150, t01=0x00be}
0x20d8e…20d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00ec}
0x20d98…20dca Head {h00=0x002e, h01=0x0050, text=» LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) «, t00=0x0150, t01=0x00f6}
0x20dca…20df8 Head {h00=0x002a, h01=0x0050, text=» ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0128}
0x20df8…20e2a Head {h00=0x002e, h01=0x0050, text=» LD A2,18,A4 GET DISC ADDRESS (BITS 16-31)«, t00=0x0150, t01=0x0156}
0x20e2a…20e5e Head {h00=0x0030, h01=0x0050, text=» ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0188}
0x20e5e…20e90 Head {h00=0x002e, h01=0x0050, text=» ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK«, t00=0x0151, t01=0x002c}
0x20e90…20e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x005e}
0x20e9a…20ed0 Head {h00=0x0032, h01=0x0050, text=» IM APLCNT+STKEND INCREMENT APPLICATION COUNT «, t00=0x0151, t01=0x0068}
0x20ed0…20ef2 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) GETAPL MORE TO DO!«, t00=0x0151, t01=0x009e}
0x20ef2…20efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00c0}
0x20efc…20f1a Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETAPL«, t00=0x0151, t01=0x00ca}
0x20f1a…20f28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x00e8}
0x20f28…20f5e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0151, t01=0x00f6}
0x20f5e…20f94 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0151, t01=0x012c}
0x20f94…20fca Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0151, t01=0x0162}
0x20fca…21000 Head {h00=0x0032, h01=0x0050, text=»* CMPSYM * «, t00=0x0152, t01=0x0008}
0x21000…21036 Head {h00=0x0032, h01=0x0050, text=»* ====== * «, t00=0x0152, t01=0x003e}
0x21036…2106c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0152, t01=0x0074}
0x2106c…210a2 Head {h00=0x0032, h01=0x0050, text=»* COMPARE TWO SYMBOLS WITH EACH OTHER * «, t00=0x0152, t01=0x00aa}
0x210a2…210d8 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0152, t01=0x00e0}
0x210d8…2110e Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A3 - START OF SYMBOL 1 * «, t00=0x0152, t01=0x0116}
0x2110e…21144 Head {h00=0x0032, h01=0x0050, text=»* A1 - START OF SYMBOL 2 * «, t00=0x0152, t01=0x014c}
0x21144…2117a Head {h00=0x0032, h01=0x0050, text=»* A5 - LENGTH OF SYMBOL 2 * «, t00=0x0152, t01=0x0182}
0x2117a…211b0 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0153, t01=0x0028}
0x211b0…211e6 Head {h00=0x0032, h01=0x0050, text=»* EXIT: A5 = 0 IF SYMBOLS EQUAL * «, t00=0x0153, t01=0x005e}
0x211e6…2121c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0153, t01=0x0094}
0x2121c…21252 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0153, t01=0x00ca}
0x21252…2125c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0100}
0x2125c…21266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x010a}
0x21266…2127a Head {h00=0x0010, h01=0x0050, text=»CMPSYM EQU *«, t00=0x0153, t01=0x0114}
0x2127a…212a6 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 GET CHARACTER IN SYMBOL 1«, t00=0x0153, t01=0x0128}
0x212a6…212dc Head {h00=0x0032, h01=0x0050, text=» CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 «, t00=0x0153, t01=0x0154}
0x212dc…21308 Head {h00=0x0028, h01=0x0050, text=» RF(NE) CMPEND IF NOT EQUAL, RETURN «, t00=0x0153, t01=0x018a}
0x21308…21312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0026}
0x21312…2133e Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 ADVANCE CHARACTER POINTERS«, t00=0x0154, t01=0x0030}
0x2133e…21350 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0154, t01=0x005c}
0x21350…2137c Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT CHARACTER COUNT «, t00=0x0154, t01=0x006e}
0x2137c…213ac Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CMPSYM CONTINUE THE COMPARISION «, t00=0x0154, t01=0x009a}
0x213ac…213b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00ca}
0x213b6…213de Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A6 RESTORE NAME LENGTH «, t00=0x0154, t01=0x00d4}
0x213de…21404 Head {h00=0x0022, h01=0x0050, text=» CWK A2,8 LOOK IF MAX. LENGTH «, t00=0x0154, t01=0x00fc}
0x21404…21428 Head {h00=0x0020, h01=0x0050, text=» RF(E) CMPEND YES! FINISHED «, t00=0x0154, t01=0x0122}
0x21428…21432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0146}
0x21432…21464 Head {h00=0x002e, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER IN FILE NAME«, t00=0x0154, t01=0x0150}
0x21464…2148c Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 END OF FILE NAME? «, t00=0x0154, t01=0x0182}
0x2148c…214a6 Head {h00=0x0016, h01=0x0050, text=» RF(E) CMPEND YES!«, t00=0x0155, t01=0x001a}
0x214a6…214b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0034}
0x214b0…214d0 Head {h00=0x001c, h01=0x0050, text=» LDK A5,1 NO, NOT EQUAL!«, t00=0x0155, t01=0x003e}
0x214d0…214e4 Head {h00=0x0010, h01=0x0050, text=»CMPEND EQU *«, t00=0x0155, t01=0x005e}
0x214e4…21502 Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF CMPSYM«, t00=0x0155, t01=0x0072}
0x21502…21510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0090}
0x21510…21546 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0155, t01=0x009e}
0x21546…2157c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0155, t01=0x00d4}
0x2157c…215b2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0155, t01=0x010a}
0x215b2…215e8 Head {h00=0x0032, h01=0x0050, text=»* GETVLB * «, t00=0x0155, t01=0x0140}
0x215e8…2161e Head {h00=0x0032, h01=0x0050, text=»* ====== * «, t00=0x0155, t01=0x0176}
0x2161e…21654 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0156, t01=0x001c}
0x21654…2168a Head {h00=0x0032, h01=0x0050, text=»* READ SECTOR CONTAINIG VOLUME LABEL * «, t00=0x0156, t01=0x0052}
0x2168a…216c0 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0156, t01=0x0088}
0x216c0…216f6 Head {h00=0x0032, h01=0x0050, text=»* EXIT: A10 - LAST VTOC SECTOR * «, t00=0x0156, t01=0x00be}
0x216f6…2172c Head {h00=0x0032, h01=0x0050, text=»* A11 - FIRST VTOC SECTOR * «, t00=0x0156, t01=0x00f4}
0x2172c…21762 Head {h00=0x0032, h01=0x0050, text=»* A8 - VTOC RECORD LENGTH * «, t00=0x0156, t01=0x012a}
0x21762…21798 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0156, t01=0x0160}
0x21798…217ce Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0157, t01=0x0008}
0x217ce…217d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x003e}
0x217d8…217e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0048}
0x217e2…217f6 Head {h00=0x0010, h01=0x0050, text=»GETVLB EQU *«, t00=0x0157, t01=0x0052}
0x217f6…21818 Head {h00=0x001e, h01=0x0050, text=» SUR A11,A11 VOLUME LABEL «, t00=0x0157, t01=0x0066}
0x21818…2182c Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0157, t01=0x0088}
0x2182c…21852 Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0157, t01=0x009c}
0x21852…21876 Head {h00=0x0020, h01=0x0050, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x0157, t01=0x00c2}
0x21876…21890 Head {h00=0x0016, h01=0x0050, text=» LDR A11,A10 SAVE «, t00=0x0157, t01=0x00e6}
0x21890…218b6 Head {h00=0x0022, h01=0x0050, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x0157, t01=0x0100}
0x218b6…218e2 Head {h00=0x0028, h01=0x0050, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x0157, t01=0x0126}
0x218e2…21914 Head {h00=0x002e, h01=0x0050, text=» AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7«, t00=0x0157, t01=0x0152}
0x21914…21932 Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETVLB«, t00=0x0157, t01=0x0184}
0x21932…2193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0012}
0x2193c…2194a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x001c}
0x2194a…21980 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0158, t01=0x002a}
0x21980…219b6 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0158, t01=0x0060}
0x219b6…219ec Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0158, t01=0x0096}
0x219ec…21a22 Head {h00=0x0032, h01=0x0050, text=»* RDSEC * «, t00=0x0158, t01=0x00cc}
0x21a22…21a58 Head {h00=0x0032, h01=0x0050, text=»* ===== * «, t00=0x0158, t01=0x0102}
0x21a58…21a8e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0158, t01=0x0138}
0x21a8e…21ac4 Head {h00=0x0032, h01=0x0050, text=»* READS A SECTOR FROM INPUT DISC. * «, t00=0x0158, t01=0x016e}
0x21ac4…21afa Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0159, t01=0x0014}
0x21afa…21b30 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A9 - BUFFER ADDRESS * «, t00=0x0159, t01=0x004a}
0x21b30…21b66 Head {h00=0x0032, h01=0x0050, text=»* A11- SECTOR ADDRESS * «, t00=0x0159, t01=0x0080}
0x21b66…21b9c Head {h00=0x0032, h01=0x0050, text=»* A12- SECTOR ADDRESS * «, t00=0x0159, t01=0x00b6}
0x21b9c…21bd2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0159, t01=0x00ec}
0x21bd2…21c08 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0159, t01=0x0122}
0x21c08…21c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0158}
0x21c12…21c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0162}
0x21c1c…21c30 Head {h00=0x0010, h01=0x0050, text=»RDSEC EQU * «, t00=0x0159, t01=0x016c}
0x21c30…21c56 Head {h00=0x0022, h01=0x0050, text=» CF A14,READS MODIFIED ADDRESS«, t00=0x0159, t01=0x0180}
0x21c56…21c6c Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x015a, t01=0x0016}
0x21c6c…21c7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015a, t01=0x002c}
0x21c7c…21c8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015a, t01=0x003c}
0x21c8a…21c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x004a}
0x21c94…21cb4 Head {h00=0x001c, h01=0x0050, text=»* DATA AREA DEFINITION «, t00=0x015a, t01=0x0054}
0x21cb4…21cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0074}
0x21cbe…21cd2 Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x015a, t01=0x007e}
0x21cd2…21cec Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x015a, t01=0x0092}
0x21cec…21d22 Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x015a, t01=0x00ac}
0x21d22…21d42 Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x015a, t01=0x00e2}
0x21d42…21d6c Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x015a, t01=0x0102}
0x21d6c…21d98 Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x015a, t01=0x012c}
0x21d98…21db2 Head {h00=0x0016, h01=0x0050, text=» IFT CDDISC=1 =9 «, t00=0x015a, t01=0x0158}
0x21db2…21dcc Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0 =9 «, t00=0x015a, t01=0x0172}
0x21dcc…21dfa Head {h00=0x002a, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/1404 «, t00=0x015a, t01=0x018c}
0x21dfa…21e0c Head {h00=0x000e, h01=0x0050, text=» XIF =9 «, t00=0x015b, t01=0x002a}
0x21e0c…21e2c Head {h00=0x001c, h01=0x0050, text=» IFF CDDISC-CDDI16=1 =9«, t00=0x015b, t01=0x003c}
0x21e2c…21e5c Head {h00=0x002c, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9«, t00=0x015b, t01=0x005c}
0x21e5c…21e6e Head {h00=0x000e, h01=0x0050, text=» XIF =9 «, t00=0x015b, t01=0x008c}
0x21e6e…21e96 Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ',' ' «, t00=0x015b, t01=0x009e}
0x21e96…21eac Head {h00=0x0012, h01=0x0050, text=»FCTAB EQU * =5«, t00=0x015b, t01=0x00c6}
0x21eac…21eca Head {h00=0x001a, h01=0x0050, text=» DATA /F1F3,/F0F2 =5 «, t00=0x015b, t01=0x00dc}
0x21eca…21ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x00fa}
0x21ed4…21ee8 Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x015b, t01=0x0104}
0x21ee8…21eec Head {h00=0x4004, h01=0x0000}
0x21eec…21ef0 01 5b 01 18 ┆ [ ┆
0x21ef0…21ef8 (348, 1, 8) 20 04 00 00 01 5c 00 04 ┆ ┆