|
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: 11144 (0x2b88)
Notes: pts_type(SC)
Names: »INTVMO.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/INTVMO.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/INTVMO.SC«
IDENT INTVMO REL=7.2 DATE=77-09-09
UPDATE #0 77-09-09
*
***************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* INTVMO = INTERRUPT VECTORS AND SYSTEM START
* MONITOR AND APPLICATION ON SEP CAS
*
* LEVEL #2 77-09-09
*
* RELEASE #7 77-09-09
*
***************************************************
*
*
* THIS MODULE CONTAINS HARDWARE INTERRUPT VECTORS,
* COMMUNICATION VECTOR TABLE,STACK AREA
* AND MONITOR INITIALIZATION.
*
*
EJECT
ENTRY CVTMSZ MEMORY SIZE
ENTRY CVTSTB STACK BASE
ENTRY CVTSBA ADDRESS TO START OF BUFFER POOL
ENTRY CVTEBA ADDRESS TO END OF BUFFER POOL
ENTRY CVTINP INTERPRETER ADDRESS TABLE
ENTRY CVTDK START UP DISC
ENTRY CVTAPA APPLICATION ADDRESS
ENTRY CVTAPS APPLICATION START ADDRESS
ENTRY CVTCLK REAL TIME CLOCK
ENTRY LOOP IDLE LOOP
ENTRY INIM40 MONCON ENTRY
ENTRY CVTLSB SEGMENT LOAD BLOCK TABLE ADDRESS
ENTRY FREPAR FREE PARTITION POINTER
ENTRY PARLEN PARTITION LENGTH
ENTRY NUMPAR NUMBER OF PARTITIONS
EXTRN IHPFAR POWER FAIL / AUTO RESTART
EXTRN IHLKM LKM INTERRUPT
EXTRN IHRTC REAL TIME CLOCK
EXTRN IHTC CASSETTE TAPE
EXTRN IHSOP SYSTEM OPERATORS PANEL
EXTRN IHLCUT LINE COMMUNICATION OUTPUT
EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1
EXTRN IHSLCU TRUNKLINJE INT.ADR.
EXTRN ILLINT ILLEGAL INTERRUPT
EXTRN TCTAB
EXTRN TTB:ID TASK IDENTIFICATION
EXTRN TTB:ST TASK STATUS AND LEVEL
EXTRN PRUN TTAB FOR RUNNING PROGRAM
EXTRN INIMON MONITOR INITIALIZATION ROUTINE
EXTRN BUG BUGGER
EXTRN PFINIT INIT AFTER MASTER CLEAR
EXTRN IH1501 INTERRUPT TRUNK LINE INPUT
EXTRN IH1502 INTERRUPT TRUNK LINE OUTPUT
EXTRN IHMI01,IHMI02,IHMI03,IHMI04,IHMI05,IHMI06,IHMI07,IHMI08,IHMI09
EXTRN IHMU01,IHMU02,IHMU03,IHMU04,IHMU05,IHMU06,IHMU07,IHMU08,IHMU09
EXTRN IHMI10,IHMU10,IHMI11,IHMU11
*
CHCR EQU /0E CHCR DEVICE ADDRESS
SOP EQU /2E SOP DEVICE ADDRESS
X:A EQU 0
SEGLEN EQU X:A SEGMENT LENGTH IN BYTES
X:B EQU 0
NUMPAR EQU X:B NUMBER OF PARTITIONS
* BY SETTING X:A NOT EQUAL TO ZERO, UNLOAD IS NOT
* PERFORMED ON CASSETTE AFTER THE APPLICATION LOADING
*
X:C EQU 0
UNLOAD EQU 0
REL0 EQU *
EJECT
*
* INTERRUPT VECTORS
*
DATA IHPFAR 0
DATA IHLKM 1
DATA IHRTC 2
DATA ILLINT 3
DATA ILLINT 4
DATA ILLINT 5
DATA ILLINT 6
DATA ILLINT
DATA IHTC 8
DATA IHSOP 9
DATA ILLINT 10
DATA ILLINT 11
DATA IH1501 12
DATA IH1502 13
DATA IHMI01
DATA IHMU01
DATA IHMI02
DATA IHMU02
DATA IHMI03
DATA IHMU03
DATA IHMI04
DATA IHMU04
DATA IHMI05
DATA IHMU05
DATA CHLT1 24
DATA ILLINT
DATA ILLINT 26
DATA ILLINT
DATA IHMI06
DATA IHMU06
DATA IHMI07
DATA IHMU07
DATA IHMI08
DATA IHMU08
DATA IHMI09
DATA IHMU09
DATA IHMI10 36
DATA IHMU10 37
DATA IHMI11 38
DATA IHMU11 39
DATA ILLINT
DATA ILLINT
DATA ILLINT 42
DATA ILLINT 43
DATA ILLINT
DATA ILLINT 45
DATA IHSLCU 46
DATA ILLINT 47
DATA ILLINT 48
DATA ILLINT 49
DATA ILLINT 50
DATA ILLINT 51
DATA ILLINT 52
DATA ILLINT 53
DATA ILLINT 54
DATA ILLINT 55
DATA ILLINT 56
DATA ILLINT 57
DATA ILLINT 58
DATA ILLINT 59
DATA ILLINT 60
DATA ILLINT 61
DATA ILLINT 62
DATA TRAP TRAP ROUTINE
HLT
EJECT
*
* SYSTEM HALTS
*
HLT
TRAP HLT TRAPPED INSTRUCTION
*
* COMMUNICATION VECTOR TABLE
*
CVTMSZ DATA 0 MEMORY SIZE
CVTSTB DATA STB STACK BASE
CVTSBA DATA 0 START OF BUFFER AREA
CVTEBA DATA 0 END OF BUFFER AREA
CVTINP DATA 0 INTERPPRETER TABLE ADDRESS
RF INIT
RF BUGG
CVTAPA DATA 0 APPLICATION ADDRESS
CVTAPS DATA 0 APPLICATON START ADDRESS
CVTCLK DATA 0 REAL TIME CLOCK
CVTLSB EQU *
CVTDK EQU *
FREPAR EQU *
PARLEN EQU *
EJECT
*
* INIMON AND BUGGER ENTRIES
*
INIT LDKL A1,INIMON INITIALIZE AND START APPL
RF BRANCH
BUGG LDKL A13,/90 START BUGGER
LDKL A14,-8
AD A14,CVTAPA
LDKL A1,BUG
BRANCH ABR(NZ) A1
HLT
EJECT
*
* SUBROUTINE TO EXECUTE CHCR COMMAND
*
CHCREX CIO A1,1,CHCR
SST A3,CHCR
RB(NA) *-2
RTN A8
EJECT
*
* INITIALIZATION ENTRY
*
INIM LDK A6,CHCREX-REL0 LOAD CHCREX SUBR ADDRESS
LDR A8,P AND STACK BASE
ST A9,CVTAPA SAVE APPL ADDRESS
ADR A14,A9 CALC APPL LINK BASE
*
* COMPUTE MEMORY SIZE
*
LDKL A1,/5555
LDKL A2,4094
INIM30 SUKL A2,4096
LDR* A3,A2 SAVE CONTENTS
STR A1,A2 CHECK IF MEMORY
CWR* A1,A2
RB(NE) INIM30
STR A3,A2 RESTORE CONTENTS
ADK A2,2
ST A2,CVTMSZ MEMORY SIZE TO CVT
SUK A2,2
ST A2,CVTEBA END OF BUFFER POOL
EJECT
*
* UNLOAD MONITOR CAS AND SELECT APPL CAS
*
LDK A1,/F UNLOAD
CFR A8,A6
INIM10 CIO A1,1,SOP READ SOP SWITCHES
INR A1,0,SOP
RB(NA) *-2
SRL A1,8
ANK A1,3
RB(Z) INIM10 ILLEGAL SWITCH
ANK A1,1 SELECT
CFR A8,A6
LDK A1,2 LOCK
CFR A8,A6
ANK A3,1
RB(NZ) INIM10 NO CASSETTE
LDK A1,8 SEARCH BOT
CFR A8,A6
LDK A1,/C SEARCH TAPE MARK
CFR A8,A6
EJECT
*
* LOAD APPLICATION
*
LDKL A1,/0400 IND LOAD ON SOP
OTR A1,0,SOP
LDKL A12,INIM20 INSTRUCTION AFTER APL
ABR A2 PERFORM APL
INIM20 LDK A1,/F UNLOAD CASSETTE
CFR A8,A6
ST A9,CVTSBA SET ADDRESS TO BEGINNING OF BUFFER POOL
ST A13,CVTAPS SAVE START ADDRESS
*
* CHECK IF BUGGER IN CORE
*
LDKL A13,INIM40
LDKL A1,BUG
ABR(NZ) A1 START BUGGER
EJECT
*
* INITIALIZE STACK
*
INIM40 LD A15,CVTSTB LOAD STACK BASE
LDKL A1,LOOP
STR A1,A15
LDKL A1,/FC00
STR A1,A15 ADJUST STACK FOR LOOP
SUKL A15,28
LDK A1,0
STR A1,A15
EJECT
*
* FIND FIRST USER TASK
*
LD A1,TCTAB TCTAB ADDRESS
LDR* A4,A1 TCTAB LENGTH
INIM50 ADK A1,2
SUK A4,2
RF(NZ) INIM60
HLT NO USER TASK FOUND
INIM60 LDR* A5,A1 TTAB ADDRESS
LD A2,TTB:ID,A5 TASK IDENTIFICATION
RB(N) INIM50 MONITOR TASK
ST A5,PRUN SET TTAB FOR RUNNING PROGRAM
CMR A5
LD A7,TTB:ST,A5 GET USER LEVEL
SRC A7,6
EJECT
*
* START SYSTEM
*
LDKL A13,WAITIS
STR A13,A15 STORE USER START ADDRESS
STR A7,A15 AND LEVEL ON STACK
ABL PFINIT INITIALIZE DEVICES
RES 57
STB EQU *-2 STACK BASE
*
* IDLE LOOP
*
LOOP RB *
WAITIS EQU *
LDKL A8,10
LKM
DATA 6
ABI CVTAPS
END INIM
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT INTVMO REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0096 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x005e}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00c8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a4}
0x00c8…00d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x00d2…010a Head {h00=0x0034, h01=0x0050, text=»* INTVMO = INTERRUPT VECTORS AND SYSTEM START «, t00=0x0000, t01=0x00d6}
0x010a…0142 Head {h00=0x0034, h01=0x0050, text=»* MONITOR AND APPLICATION ON SEP CAS «, t00=0x0000, t01=0x010e}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…016e Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0150}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…019a Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x017c}
0x019a…01a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01e0 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0001, t01=0x0018}
0x01e0…01e8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0054}
0x01e8…01f0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x005c}
0x01f0…01f8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0064}
0x01f8…0202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006c}
0x0202…020c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0248 Head {h00=0x0038, h01=0x0050, text=»* THIS MODULE CONTAINS HARDWARE INTERRUPT VECTORS,«, t00=0x0001, t01=0x0080}
0x0248…027a Head {h00=0x002e, h01=0x0050, text=»* COMMUNICATION VECTOR TABLE,STACK AREA «, t00=0x0001, t01=0x00bc}
0x027a…02a2 Head {h00=0x0024, h01=0x0050, text=»* AND MONITOR INITIALIZATION. «, t00=0x0001, t01=0x00ee}
0x02a2…02ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02be Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x012a}
0x02be…02c6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0132}
0x02c6…02ce Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x013a}
0x02ce…02d6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0142}
0x02d6…02de Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x014a}
0x02de…02e6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0152}
0x02e6…02ee Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x015a}
0x02ee…02f6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0162}
0x02f6…02fe Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x016a}
0x02fe…030c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0172}
0x030c…0314 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0180}
0x0314…031c Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0188}
0x031c…033e Head {h00=0x001e, h01=0x0050, text=» ENTRY CVTMSZ MEMORY SIZE «, t00=0x0001, t01=0x0190}
0x033e…035e Head {h00=0x001c, h01=0x0050, text=» ENTRY CVTSTB STACK BASE«, t00=0x0002, t01=0x0022}
0x035e…0394 Head {h00=0x0032, h01=0x0050, text=» ENTRY CVTSBA ADDRESS TO START OF BUFFER POOL «, t00=0x0002, t01=0x0042}
0x0394…03c8 Head {h00=0x0030, h01=0x0050, text=» ENTRY CVTEBA ADDRESS TO END OF BUFFER POOL «, t00=0x0002, t01=0x0078}
0x03c8…03f8 Head {h00=0x002c, h01=0x0050, text=» ENTRY CVTINP INTERPRETER ADDRESS TABLE «, t00=0x0002, t01=0x00ac}
0x03f8…041a Head {h00=0x001e, h01=0x0050, text=» ENTRY CVTDK START UP DISC«, t00=0x0002, t01=0x00dc}
0x041a…0444 Head {h00=0x0026, h01=0x0050, text=» ENTRY CVTAPA APPLICATION ADDRESS «, t00=0x0002, t01=0x00fe}
0x0444…0474 Head {h00=0x002c, h01=0x0050, text=» ENTRY CVTAPS APPLICATION START ADDRESS «, t00=0x0002, t01=0x0128}
0x0474…049a Head {h00=0x0022, h01=0x0050, text=» ENTRY CVTCLK REAL TIME CLOCK «, t00=0x0002, t01=0x0158}
0x049a…04b8 Head {h00=0x001a, h01=0x0050, text=» ENTRY LOOP IDLE LOOP «, t00=0x0002, t01=0x017e}
0x04b8…04da Head {h00=0x001e, h01=0x0050, text=» ENTRY INIM40 MONCON ENTRY«, t00=0x0003, t01=0x000c}
0x04da…0510 Head {h00=0x0032, h01=0x0050, text=» ENTRY CVTLSB SEGMENT LOAD BLOCK TABLE ADDRESS«, t00=0x0003, t01=0x002e}
0x0510…053c Head {h00=0x0028, h01=0x0050, text=» ENTRY FREPAR FREE PARTITION POINTER«, t00=0x0003, t01=0x0064}
0x053c…0562 Head {h00=0x0022, h01=0x0050, text=» ENTRY PARLEN PARTITION LENGTH«, t00=0x0003, t01=0x0090}
0x0562…058c Head {h00=0x0026, h01=0x0050, text=» ENTRY NUMPAR NUMBER OF PARTITIONS«, t00=0x0003, t01=0x00b6}
0x058c…0594 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00e0}
0x0594…05c4 Head {h00=0x002c, h01=0x0050, text=» EXTRN IHPFAR POWER FAIL / AUTO RESTART «, t00=0x0003, t01=0x00e8}
0x05c4…05e6 Head {h00=0x001e, h01=0x0050, text=» EXTRN IHLKM LKM INTERRUPT«, t00=0x0003, t01=0x0118}
0x05e6…060a Head {h00=0x0020, h01=0x0050, text=» EXTRN IHRTC REAL TIME CLOCK«, t00=0x0003, t01=0x013a}
0x060a…062c Head {h00=0x001e, h01=0x0050, text=» EXTRN IHTC CASSETTE TAPE «, t00=0x0003, t01=0x015e}
0x062c…0658 Head {h00=0x0028, h01=0x0050, text=» EXTRN IHSOP SYSTEM OPERATORS PANEL «, t00=0x0003, t01=0x0180}
0x0658…0688 Head {h00=0x002c, h01=0x0050, text=» EXTRN IHLCUT LINE COMMUNICATION OUTPUT «, t00=0x0004, t01=0x001c}
0x0688…06b6 Head {h00=0x002a, h01=0x0050, text=» EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 «, t00=0x0004, t01=0x004c}
0x06b6…06e0 Head {h00=0x0026, h01=0x0050, text=» EXTRN IHSLCU TRUNKLINJE INT.ADR. «, t00=0x0004, t01=0x007a}
0x06e0…0708 Head {h00=0x0024, h01=0x0050, text=» EXTRN ILLINT ILLEGAL INTERRUPT «, t00=0x0004, t01=0x00a4}
0x0708…0710 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00cc}
0x0710…0718 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d4}
0x0718…072c Head {h00=0x0010, h01=0x0050, text=» EXTRN TCTAB«, t00=0x0004, t01=0x00dc}
0x072c…0756 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:ID TASK IDENTIFICATION «, t00=0x0004, t01=0x00f0}
0x0756…0782 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:ST TASK STATUS AND LEVEL «, t00=0x0004, t01=0x011a}
0x0782…07ae Head {h00=0x0028, h01=0x0050, text=» EXTRN PRUN TTAB FOR RUNNING PROGRAM«, t00=0x0004, t01=0x0146}
0x07ae…07e2 Head {h00=0x0030, h01=0x0050, text=» EXTRN INIMON MONITOR INITIALIZATION ROUTINE«, t00=0x0004, t01=0x0172}
0x07e2…07fc Head {h00=0x0016, h01=0x0050, text=» EXTRN BUG BUGGER «, t00=0x0005, t01=0x0016}
0x07fc…082a Head {h00=0x002a, h01=0x0050, text=» EXTRN PFINIT INIT AFTER MASTER CLEAR «, t00=0x0005, t01=0x0030}
0x082a…085a Head {h00=0x002c, h01=0x0050, text=» EXTRN IH1501 INTERRUPT TRUNK LINE INPUT«, t00=0x0005, t01=0x005e}
0x085a…088c Head {h00=0x002e, h01=0x0050, text=» EXTRN IH1502 INTERRUPT TRUNK LINE OUTPUT «, t00=0x0005, t01=0x008e}
0x088c…0894 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00c0}
0x0894…08e2 Head {h00=0x004a, h01=0x0050, text=» EXTRN IHMI01,IHMI02,IHMI03,IHMI04,IHMI05,IHMI06,IHMI07,IHMI08,IHMI09 «, t00=0x0005, t01=0x00c8}
0x08e2…0930 Head {h00=0x004a, h01=0x0050, text=» EXTRN IHMU01,IHMU02,IHMU03,IHMU04,IHMU05,IHMU06,IHMU07,IHMU08,IHMU09 «, t00=0x0005, t01=0x0116}
0x0930…095a Head {h00=0x0026, h01=0x0050, text=» EXTRN IHMI10,IHMU10,IHMI11,IHMU11«, t00=0x0005, t01=0x0164}
0x095a…0964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018e}
0x0964…096c Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0008}
0x096c…0974 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0010}
0x0974…099c Head {h00=0x0024, h01=0x0050, text=»CHCR EQU /0E CHCR DEVICE ADDRESS«, t00=0x0006, t01=0x0018}
0x099c…09c2 Head {h00=0x0022, h01=0x0050, text=»SOP EQU /2E SOP DEVICE ADDRESS«, t00=0x0006, t01=0x0040}
0x09c2…09d4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0006, t01=0x0066}
0x09d4…0a02 Head {h00=0x002a, h01=0x0050, text=»SEGLEN EQU X:A SEGMENT LENGTH IN BYTES«, t00=0x0006, t01=0x0078}
0x0a02…0a14 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x00a6}
0x0a14…0a40 Head {h00=0x0028, h01=0x0050, text=»NUMPAR EQU X:B NUMBER OF PARTITIONS «, t00=0x0006, t01=0x00b8}
0x0a40…0a7c Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:A NOT EQUAL TO ZERO, UNLOAD IS NOT«, t00=0x0006, t01=0x00e4}
0x0a7c…0abc Head {h00=0x003c, h01=0x0050, text=»* PERFORMED ON CASSETTE AFTER THE APPLICATION LOADING«, t00=0x0006, t01=0x0120}
0x0abc…0ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac6…0ad8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0006, t01=0x016a}
0x0ad8…0aec Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU 0«, t00=0x0006, t01=0x017c}
0x0aec…0af4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0190}
0x0af4…0b06 Head {h00=0x000e, h01=0x0050, text=»REL0 EQU *«, t00=0x0007, t01=0x0008}
0x0b06…0b14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x001a}
0x0b14…0b1c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0028}
0x0b1c…0b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b26…0b42 Head {h00=0x0018, h01=0x0050, text=»* INTERRUPT VECTORS «, t00=0x0007, t01=0x003a}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4c…0b54 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0060}
0x0b54…0b70 Head {h00=0x0018, h01=0x0050, text=» DATA IHPFAR 0«, t00=0x0007, t01=0x0068}
0x0b70…0b8c Head {h00=0x0018, h01=0x0050, text=» DATA IHLKM 1 «, t00=0x0007, t01=0x0084}
0x0b8c…0ba8 Head {h00=0x0018, h01=0x0050, text=» DATA IHRTC 2 «, t00=0x0007, t01=0x00a0}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 3«, t00=0x0007, t01=0x00bc}
0x0bc4…0be0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 4«, t00=0x0007, t01=0x00d8}
0x0be0…0bfc Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 5«, t00=0x0007, t01=0x00f4}
0x0bfc…0c18 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 6«, t00=0x0007, t01=0x0110}
0x0c18…0c38 Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x0007, t01=0x012c}
0x0c38…0c52 Head {h00=0x0016, h01=0x0050, text=» DATA IHTC 8«, t00=0x0007, t01=0x014c}
0x0c52…0c6e Head {h00=0x0018, h01=0x0050, text=» DATA IHSOP 9 «, t00=0x0007, t01=0x0166}
0x0c6e…0c8a Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 10«, t00=0x0007, t01=0x0182}
0x0c8a…0ca6 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 11«, t00=0x0008, t01=0x000e}
0x0ca6…0cc2 Head {h00=0x0018, h01=0x0050, text=» DATA IH1501 12«, t00=0x0008, t01=0x002a}
0x0cc2…0cde Head {h00=0x0018, h01=0x0050, text=» DATA IH1502 13«, t00=0x0008, t01=0x0046}
0x0cde…0cf2 Head {h00=0x0010, h01=0x0050, text=» DATA IHMI01«, t00=0x0008, t01=0x0062}
0x0cf2…0d06 Head {h00=0x0010, h01=0x0050, text=» DATA IHMU01«, t00=0x0008, t01=0x0076}
0x0d06…0d1a Head {h00=0x0010, h01=0x0050, text=» DATA IHMI02«, t00=0x0008, t01=0x008a}
0x0d1a…0d2e Head {h00=0x0010, h01=0x0050, text=» DATA IHMU02«, t00=0x0008, t01=0x009e}
0x0d2e…0d42 Head {h00=0x0010, h01=0x0050, text=» DATA IHMI03«, t00=0x0008, t01=0x00b2}
0x0d42…0d56 Head {h00=0x0010, h01=0x0050, text=» DATA IHMU03«, t00=0x0008, t01=0x00c6}
0x0d56…0d6a Head {h00=0x0010, h01=0x0050, text=» DATA IHMI04«, t00=0x0008, t01=0x00da}
0x0d6a…0d7e Head {h00=0x0010, h01=0x0050, text=» DATA IHMU04«, t00=0x0008, t01=0x00ee}
0x0d7e…0d92 Head {h00=0x0010, h01=0x0050, text=» DATA IHMI05«, t00=0x0008, t01=0x0102}
0x0d92…0da6 Head {h00=0x0010, h01=0x0050, text=» DATA IHMU05«, t00=0x0008, t01=0x0116}
0x0da6…0dc2 Head {h00=0x0018, h01=0x0050, text=» DATA CHLT1 24 «, t00=0x0008, t01=0x012a}
0x0dc2…0de2 Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x0008, t01=0x0146}
0x0de2…0dfe Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 26«, t00=0x0008, t01=0x0166}
0x0dfe…0e1e Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x0008, t01=0x0182}
0x0e1e…0e32 Head {h00=0x0010, h01=0x0050, text=» DATA IHMI06«, t00=0x0009, t01=0x0012}
0x0e32…0e46 Head {h00=0x0010, h01=0x0050, text=» DATA IHMU06«, t00=0x0009, t01=0x0026}
0x0e46…0e5a Head {h00=0x0010, h01=0x0050, text=» DATA IHMI07«, t00=0x0009, t01=0x003a}
0x0e5a…0e6e Head {h00=0x0010, h01=0x0050, text=» DATA IHMU07«, t00=0x0009, t01=0x004e}
0x0e6e…0e82 Head {h00=0x0010, h01=0x0050, text=» DATA IHMI08«, t00=0x0009, t01=0x0062}
0x0e82…0e96 Head {h00=0x0010, h01=0x0050, text=» DATA IHMU08«, t00=0x0009, t01=0x0076}
0x0e96…0eaa Head {h00=0x0010, h01=0x0050, text=» DATA IHMI09«, t00=0x0009, t01=0x008a}
0x0eaa…0ebe Head {h00=0x0010, h01=0x0050, text=» DATA IHMU09«, t00=0x0009, t01=0x009e}
0x0ebe…0eda Head {h00=0x0018, h01=0x0050, text=» DATA IHMI10 36«, t00=0x0009, t01=0x00b2}
0x0eda…0ef6 Head {h00=0x0018, h01=0x0050, text=» DATA IHMU10 37«, t00=0x0009, t01=0x00ce}
0x0ef6…0f12 Head {h00=0x0018, h01=0x0050, text=» DATA IHMI11 38«, t00=0x0009, t01=0x00ea}
0x0f12…0f2e Head {h00=0x0018, h01=0x0050, text=» DATA IHMU11 39«, t00=0x0009, t01=0x0106}
0x0f2e…0f4e Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x0009, t01=0x0122}
0x0f4e…0f6e Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x0009, t01=0x0142}
0x0f6e…0f8a Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 42«, t00=0x0009, t01=0x0162}
0x0f8a…0fa6 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 43«, t00=0x0009, t01=0x017e}
0x0fa6…0fc6 Head {h00=0x001c, h01=0x0050, text=» DATA ILLINT«, t00=0x000a, t01=0x000a}
0x0fc6…0fe2 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 45«, t00=0x000a, t01=0x002a}
0x0fe2…0ffe Head {h00=0x0018, h01=0x0050, text=» DATA IHSLCU 46«, t00=0x000a, t01=0x0046}
0x0ffe…101a Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 47«, t00=0x000a, t01=0x0062}
0x101a…1036 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 48«, t00=0x000a, t01=0x007e}
0x1036…1052 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 49«, t00=0x000a, t01=0x009a}
0x1052…106e Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 50«, t00=0x000a, t01=0x00b6}
0x106e…108a Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 51«, t00=0x000a, t01=0x00d2}
0x108a…10a6 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 52«, t00=0x000a, t01=0x00ee}
0x10a6…10c2 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 53«, t00=0x000a, t01=0x010a}
0x10c2…10de Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 54«, t00=0x000a, t01=0x0126}
0x10de…10fa Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 55«, t00=0x000a, t01=0x0142}
0x10fa…1116 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 56«, t00=0x000a, t01=0x015e}
0x1116…1132 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 57«, t00=0x000a, t01=0x017a}
0x1132…114e Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 58«, t00=0x000b, t01=0x0008}
0x114e…116a Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 59«, t00=0x000b, t01=0x0024}
0x116a…1186 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 60«, t00=0x000b, t01=0x0040}
0x1186…11a2 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 61«, t00=0x000b, t01=0x005c}
0x11a2…11be Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 62«, t00=0x000b, t01=0x0078}
0x11be…11de Head {h00=0x001c, h01=0x0050, text=» DATA TRAP TRAP ROUTINE «, t00=0x000b, t01=0x0094}
0x11de…11ea Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x000b, t01=0x00b4}
0x11ea…11f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00c0}
0x11f8…1200 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00ce}
0x1200…120a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d6}
0x120a…1220 Head {h00=0x0012, h01=0x0050, text=»* SYSTEM HALTS«, t00=0x000b, t01=0x00e0}
0x1220…122a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f6}
0x122a…1232 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0100}
0x1232…123e Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x000b, t01=0x0108}
0x123e…1264 Head {h00=0x0022, h01=0x0050, text=»TRAP HLT TRAPPED INSTRUCTION «, t00=0x000b, t01=0x0114}
0x1264…126c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x013a}
0x126c…1274 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0142}
0x1274…127c Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x014a}
0x127c…1284 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0152}
0x1284…128e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015a}
0x128e…12b2 Head {h00=0x0020, h01=0x0050, text=»* COMMUNICATION VECTOR TABLE«, t00=0x000b, t01=0x0164}
0x12b2…12bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0188}
0x12bc…12c4 (12, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0004}
0x12c4…12e6 Head {h00=0x001e, h01=0x0050, text=»CVTMSZ DATA 0 MEMORY SIZE «, t00=0x000c, t01=0x000c}
0x12e6…1308 Head {h00=0x001e, h01=0x0050, text=»CVTSTB DATA STB STACK BASE«, t00=0x000c, t01=0x002e}
0x1308…1332 Head {h00=0x0026, h01=0x0050, text=»CVTSBA DATA 0 START OF BUFFER AREA«, t00=0x000c, t01=0x0050}
0x1332…135a Head {h00=0x0024, h01=0x0050, text=»CVTEBA DATA 0 END OF BUFFER AREA«, t00=0x000c, t01=0x007a}
0x135a…138a Head {h00=0x002c, h01=0x0050, text=»CVTINP DATA 0 INTERPPRETER TABLE ADDRESS«, t00=0x000c, t01=0x00a2}
0x138a…139a Head {h00=0x000c, h01=0x0050, text=» RF INIT«, t00=0x000c, t01=0x00d2}
0x139a…13aa Head {h00=0x000c, h01=0x0050, text=» RF BUGG«, t00=0x000c, t01=0x00e2}
0x13aa…13d4 Head {h00=0x0026, h01=0x0050, text=»CVTAPA DATA 0 APPLICATION ADDRESS «, t00=0x000c, t01=0x00f2}
0x13d4…1402 Head {h00=0x002a, h01=0x0050, text=»CVTAPS DATA 0 APPLICATON START ADDRESS«, t00=0x000c, t01=0x011c}
0x1402…1428 Head {h00=0x0022, h01=0x0050, text=»CVTCLK DATA 0 REAL TIME CLOCK «, t00=0x000c, t01=0x014a}
0x1428…143c Head {h00=0x0010, h01=0x0050, text=»CVTLSB EQU *«, t00=0x000c, t01=0x0170}
0x143c…1450 Head {h00=0x0010, h01=0x0050, text=»CVTDK EQU * «, t00=0x000c, t01=0x0184}
0x1450…1464 Head {h00=0x0010, h01=0x0050, text=»FREPAR EQU *«, t00=0x000d, t01=0x0008}
0x1464…1478 Head {h00=0x0010, h01=0x0050, text=»PARLEN EQU *«, t00=0x000d, t01=0x001c}
0x1478…1486 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0030}
0x1486…148e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x003e}
0x148e…1498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x1498…14bc Head {h00=0x0020, h01=0x0050, text=»* INIMON AND BUGGER ENTRIES «, t00=0x000d, t01=0x0050}
0x14bc…14c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0074}
0x14c6…14ce Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x007e}
0x14ce…1504 Head {h00=0x0032, h01=0x0050, text=»INIT LDKL A1,INIMON INITIALIZE AND START APPL «, t00=0x000d, t01=0x0086}
0x1504…1516 Head {h00=0x000e, h01=0x0050, text=» RF BRANCH«, t00=0x000d, t01=0x00bc}
0x1516…151e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00ce}
0x151e…1544 Head {h00=0x0022, h01=0x0050, text=»BUGG LDKL A13,/90 START BUGGER«, t00=0x000d, t01=0x00d6}
0x1544…1558 Head {h00=0x0010, h01=0x0050, text=» LDKL A14,-8«, t00=0x000d, t01=0x00fc}
0x1558…156e Head {h00=0x0012, h01=0x0050, text=» AD A14,CVTAPA«, t00=0x000d, t01=0x0110}
0x156e…1582 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,BUG«, t00=0x000d, t01=0x0126}
0x1582…159c Head {h00=0x0016, h01=0x0050, text=»BRANCH ABR(NZ) A1 «, t00=0x000d, t01=0x013a}
0x159c…15a8 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x000d, t01=0x0154}
0x15a8…15b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0160}
0x15b6…15be Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x016e}
0x15be…15c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15c8…15f4 Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE TO EXECUTE CHCR COMMAND«, t00=0x000d, t01=0x0180}
0x15f4…15fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15fe…1606 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0026}
0x1606…1622 Head {h00=0x0018, h01=0x0050, text=»CHCREX CIO A1,1,CHCR«, t00=0x000e, t01=0x002e}
0x1622…1636 Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x000e, t01=0x004a}
0x1636…164a Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x000e, t01=0x005e}
0x164a…165a Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x000e, t01=0x0072}
0x165a…1668 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0082}
0x1668…1670 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0090}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0098}
0x167a…1698 Head {h00=0x001a, h01=0x0050, text=»* INITIALIZATION ENTRY«, t00=0x000e, t01=0x00a2}
0x1698…16a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x16a2…16aa Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00ca}
0x16aa…16e2 Head {h00=0x0034, h01=0x0050, text=»INIM LDK A6,CHCREX-REL0 LOAD CHCREX SUBR ADDRESS«, t00=0x000e, t01=0x00d2}
0x16e2…1702 Head {h00=0x001c, h01=0x0050, text=» LDR A8,P AND STACK BASE«, t00=0x000e, t01=0x010a}
0x1702…172a Head {h00=0x0024, h01=0x0050, text=» ST A9,CVTAPA SAVE APPL ADDRESS «, t00=0x000e, t01=0x012a}
0x172a…1752 Head {h00=0x0024, h01=0x0050, text=» ADR A14,A9 CALC APPL LINK BASE «, t00=0x000e, t01=0x0152}
0x1752…175a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x017a}
0x175a…1762 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0182}
0x1762…176a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x018a}
0x176a…1774 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1774…1792 Head {h00=0x001a, h01=0x0050, text=»* COMPUTE MEMORY SIZE «, t00=0x000f, t01=0x000e}
0x1792…179c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x179c…17a4 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0036}
0x17a4…17ba Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/5555«, t00=0x000f, t01=0x003e}
0x17ba…17d0 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,4094 «, t00=0x000f, t01=0x0054}
0x17d0…17ec Head {h00=0x0018, h01=0x0050, text=»INIM30 SUKL A2,4096 «, t00=0x000f, t01=0x006a}
0x17ec…180e Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A2 SAVE CONTENTS «, t00=0x000f, t01=0x0086}
0x180e…1830 Head {h00=0x001e, h01=0x0050, text=» STR A1,A2 CHECK IF MEMORY«, t00=0x000f, t01=0x00a8}
0x1830…1844 Head {h00=0x0010, h01=0x0050, text=» CWR* A1,A2 «, t00=0x000f, t01=0x00ca}
0x1844…185a Head {h00=0x0012, h01=0x0050, text=» RB(NE) INIM30«, t00=0x000f, t01=0x00de}
0x185a…1862 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00f4}
0x1862…1886 Head {h00=0x0020, h01=0x0050, text=» STR A3,A2 RESTORE CONTENTS «, t00=0x000f, t01=0x00fc}
0x1886…1898 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000f, t01=0x0120}
0x1898…18c0 Head {h00=0x0024, h01=0x0050, text=» ST A2,CVTMSZ MEMORY SIZE TO CVT«, t00=0x000f, t01=0x0132}
0x18c0…18d2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x000f, t01=0x015a}
0x18d2…18fa Head {h00=0x0024, h01=0x0050, text=» ST A2,CVTEBA END OF BUFFER POOL«, t00=0x000f, t01=0x016c}
0x18fa…1908 (16, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0004}
0x1908…1910 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0012}
0x1910…191a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001a}
0x191a…194a Head {h00=0x002c, h01=0x0050, text=»* UNLOAD MONITOR CAS AND SELECT APPL CAS«, t00=0x0010, t01=0x0024}
0x194a…1954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1954…195c Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x005e}
0x195c…1976 Head {h00=0x0016, h01=0x0050, text=» LDK A1,/F UNLOAD «, t00=0x0010, t01=0x0066}
0x1976…1988 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0010, t01=0x0080}
0x1988…1990 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0092}
0x1990…19be Head {h00=0x002a, h01=0x0050, text=»INIM10 CIO A1,1,SOP READ SOP SWITCHES «, t00=0x0010, t01=0x009a}
0x19be…19d4 Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x0010, t01=0x00c8}
0x19d4…19e8 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0010, t01=0x00de}
0x19e8…19f0 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00f2}
0x19f0…1a02 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x0010, t01=0x00fa}
0x1a02…1a14 Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0010, t01=0x010c}
0x1a14…1a38 Head {h00=0x0020, h01=0x0050, text=» RB(Z) INIM10 ILLEGAL SWITCH«, t00=0x0010, t01=0x011e}
0x1a38…1a50 Head {h00=0x0014, h01=0x0050, text=» ANK A1,1 SELECT«, t00=0x0010, t01=0x0142}
0x1a50…1a62 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0010, t01=0x015a}
0x1a62…1a78 Head {h00=0x0012, h01=0x0050, text=» LDK A1,2 LOCK«, t00=0x0010, t01=0x016c}
0x1a78…1a8a Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0010, t01=0x0182}
0x1a8a…1a9c (17, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0011, t01=0x0004}
0x1a9c…1abe Head {h00=0x001e, h01=0x0050, text=» RB(NZ) INIM10 NO CASSETTE«, t00=0x0011, t01=0x0016}
0x1abe…1ada Head {h00=0x0018, h01=0x0050, text=» LDK A1,8 SEARCH BOT«, t00=0x0011, t01=0x0038}
0x1ada…1aec Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0011, t01=0x0054}
0x1aec…1b10 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/C SEARCH TAPE MARK «, t00=0x0011, t01=0x0066}
0x1b10…1b22 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0011, t01=0x008a}
0x1b22…1b30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x009c}
0x1b30…1b38 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00aa}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b2}
0x1b42…1b5c Head {h00=0x0016, h01=0x0050, text=»* LOAD APPLICATION«, t00=0x0011, t01=0x00bc}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b66…1b6e Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e0}
0x1b6e…1b94 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0400 IND LOAD ON SOP«, t00=0x0011, t01=0x00e8}
0x1b94…1baa Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0011, t01=0x010e}
0x1baa…1bd8 Head {h00=0x002a, h01=0x0050, text=» LDKL A12,INIM20 INSTRUCTION AFTER APL«, t00=0x0011, t01=0x0124}
0x1bd8…1bf4 Head {h00=0x0018, h01=0x0050, text=» ABR A2 PERFORM APL «, t00=0x0011, t01=0x0152}
0x1bf4…1bfc Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x016e}
0x1bfc…1c24 Head {h00=0x0024, h01=0x0050, text=»INIM20 LDK A1,/F UNLOAD CASSETTE«, t00=0x0011, t01=0x0176}
0x1c24…1c36 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A6«, t00=0x0012, t01=0x000e}
0x1c36…1c3e Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0020}
0x1c3e…1c7c Head {h00=0x003a, h01=0x0050, text=» ST A9,CVTSBA SET ADDRESS TO BEGINNING OF BUFFER POOL «, t00=0x0012, t01=0x0028}
0x1c7c…1ca6 Head {h00=0x0026, h01=0x0050, text=» ST A13,CVTAPS SAVE START ADDRESS «, t00=0x0012, t01=0x0066}
0x1ca6…1cae Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0090}
0x1cae…1cb6 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0098}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc0…1ce2 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF BUGGER IN CORE «, t00=0x0012, t01=0x00aa}
0x1ce2…1cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cec…1cf4 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00d6}
0x1cf4…1d0c Head {h00=0x0014, h01=0x0050, text=» LDKL A13,INIM40«, t00=0x0012, t01=0x00de}
0x1d0c…1d20 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,BUG«, t00=0x0012, t01=0x00f6}
0x1d20…1d40 Head {h00=0x001c, h01=0x0050, text=» ABR(NZ) A1 START BUGGER«, t00=0x0012, t01=0x010a}
0x1d40…1d4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x012a}
0x1d4e…1d56 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0138}
0x1d56…1d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d60…1d7a Head {h00=0x0016, h01=0x0050, text=»* INITIALIZE STACK«, t00=0x0012, t01=0x014a}
0x1d7a…1d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0164}
0x1d84…1d8c Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x016e}
0x1d8c…1db8 Head {h00=0x0028, h01=0x0050, text=»INIM40 LD A15,CVTSTB LOAD STACK BASE«, t00=0x0012, t01=0x0176}
0x1db8…1dce Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LOOP «, t00=0x0013, t01=0x0012}
0x1dce…1de2 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0013, t01=0x0028}
0x1de2…1df8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0013, t01=0x003c}
0x1df8…1e22 Head {h00=0x0026, h01=0x0050, text=» STR A1,A15 ADJUST STACK FOR LOOP «, t00=0x0013, t01=0x0052}
0x1e22…1e36 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,28«, t00=0x0013, t01=0x007c}
0x1e36…1e48 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0013, t01=0x0090}
0x1e48…1e5c Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0013, t01=0x00a2}
0x1e5c…1e6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00b6}
0x1e6a…1e72 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00c4}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00cc}
0x1e7c…1e9a Head {h00=0x001a, h01=0x0050, text=»* FIND FIRST USER TASK«, t00=0x0013, t01=0x00d6}
0x1e9a…1ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea4…1eac Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00fe}
0x1eac…1ece Head {h00=0x001e, h01=0x0050, text=» LD A1,TCTAB TCTAB ADDRESS«, t00=0x0013, t01=0x0106}
0x1ece…1eee Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A1 TCTAB LENGTH«, t00=0x0013, t01=0x0128}
0x1eee…1f06 Head {h00=0x0014, h01=0x0050, text=»INIM50 ADK A1,2 «, t00=0x0013, t01=0x0148}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0013, t01=0x0160}
0x1f18…1f2e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) INIM60«, t00=0x0013, t01=0x0172}
0x1f2e…1f4e Head {h00=0x001c, h01=0x0050, text=» HLT NO USER TASK FOUND«, t00=0x0013, t01=0x0188}
0x1f4e…1f56 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0018}
0x1f56…1f7c Head {h00=0x0022, h01=0x0050, text=»INIM60 LDR* A5,A1 TTAB ADDRESS«, t00=0x0014, t01=0x0020}
0x1f7c…1fa8 Head {h00=0x0028, h01=0x0050, text=» LD A2,TTB:ID,A5 TASK IDENTIFICATION«, t00=0x0014, t01=0x0046}
0x1fa8…1fca Head {h00=0x001e, h01=0x0050, text=» RB(N) INIM50 MONITOR TASK«, t00=0x0014, t01=0x0072}
0x1fca…1ffa Head {h00=0x002c, h01=0x0050, text=» ST A5,PRUN SET TTAB FOR RUNNING PROGRAM«, t00=0x0014, t01=0x0094}
0x1ffa…200a Head {h00=0x000c, h01=0x0050, text=» CMR A5 «, t00=0x0014, t01=0x00c4}
0x200a…2032 Head {h00=0x0024, h01=0x0050, text=» LD A7,TTB:ST,A5 GET USER LEVEL «, t00=0x0014, t01=0x00d4}
0x2032…2044 Head {h00=0x000e, h01=0x0050, text=» SRC A7,6 «, t00=0x0014, t01=0x00fc}
0x2044…2052 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x010e}
0x2052…205a Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x011c}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2064…207a Head {h00=0x0012, h01=0x0050, text=»* START SYSTEM«, t00=0x0014, t01=0x012e}
0x207a…2084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0144}
0x2084…208c Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x014e}
0x208c…20a4 Head {h00=0x0014, h01=0x0050, text=» LDKL A13,WAITIS«, t00=0x0014, t01=0x0156}
0x20a4…20d2 Head {h00=0x002a, h01=0x0050, text=» STR A13,A15 STORE USER START ADDRESS «, t00=0x0014, t01=0x016e}
0x20d2…20f8 Head {h00=0x0022, h01=0x0050, text=» STR A7,A15 AND LEVEL ON STACK«, t00=0x0015, t01=0x000c}
0x20f8…211e Head {h00=0x0022, h01=0x0050, text=» ABL PFINIT INITIALIZE DEVICES«, t00=0x0015, t01=0x0032}
0x211e…212e Head {h00=0x000c, h01=0x0050, text=» RES 57 «, t00=0x0015, t01=0x0058}
0x212e…214c Head {h00=0x001a, h01=0x0050, text=»STB EQU *-2 STACK BASE«, t00=0x0015, t01=0x0068}
0x214c…2154 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0086}
0x2154…215c Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x008e}
0x215c…2164 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0096}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009e}
0x216e…2182 Head {h00=0x0010, h01=0x0050, text=»* IDLE LOOP «, t00=0x0015, t01=0x00a8}
0x2182…218c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00bc}
0x218c…2194 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00c6}
0x2194…21a6 Head {h00=0x000e, h01=0x0050, text=»LOOP RB * «, t00=0x0015, t01=0x00ce}
0x21a6…21ba Head {h00=0x0010, h01=0x0050, text=»WAITIS EQU *«, t00=0x0015, t01=0x00e0}
0x21ba…21ce Head {h00=0x0010, h01=0x0050, text=» LDKL A8,10 «, t00=0x0015, t01=0x00f4}
0x21ce…21da Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0015, t01=0x0108}
0x21da…21ea Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0015, t01=0x0114}
0x21ea…21fe Head {h00=0x0010, h01=0x0050, text=» ABI CVTAPS «, t00=0x0015, t01=0x0124}
0x21fe…2206 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0138}
0x2206…2218 Head {h00=0x000e, h01=0x0050, text=» END INIM «, t00=0x0015, t01=0x0140}
0x2218…221c Head {h00=0x4004, h01=0x0000}
0x221c…2220 00 15 01 52 ┆ R┆
0x2220…2228 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x2228…2278 (23, 0, 400) 52 41 43 54 45 52 00 6e 01 78 00 10 00 50 5c 53 55 4b 5c 41 33 2c 2f 33 30 20 00 6f 00 0e 00 24 00 50 5c 52 46 28 4e 5a 29 5c 54 52 54 30 35 30 5c 4e 4f 54 20 54 45 53 54 20 52 45 51 55 45 53 54 20 00 6f 00 22 00 10 00 50 5c 4c 44 4b 5c 41 ┆RACTER n x P SUK A3,/30 o $ P RF(NZ) TRT050 NOT TEST REQUEST o " P LDK A┆
0x2278…22c8 32 2c 53 4f 48 20 00 6f 00 4a 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 5c 53 45 4e 44 20 53 4f 48 20 00 6f 00 5e 00 18 00 50 5c 4c 44 4b 5c 41 37 2c 30 5c 52 45 53 45 54 20 42 43 43 20 00 6f 00 7c 00 10 00 50 5c 4c 44 4b 5c 41 32 2c ┆2,SOH o J P CF A5,WRITE SEND SOH o ^ P LDK A7,0 RESET BCC o | P LDK A2,┆
0x22c8…2318 27 25 27 20 00 6f 00 98 00 18 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 5c 53 45 4e 44 20 25 20 00 6f 00 ac 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 27 2f 27 20 00 6f 00 c8 00 18 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 5c 53 45 4e 44 20 2f 20 ┆'%' o P CF A5,WRITE SEND % o P LDK A2,'/' o P CF A5,WRITE SEND / ┆
0x2318…2368 00 6f 00 dc 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 53 54 58 20 00 6f 00 f8 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 5c 53 45 4e 44 20 53 54 58 20 00 6f 01 0c 00 28 00 50 5c 53 54 5c 41 34 2c 46 42 4c 53 54 5c 52 45 4d 45 4d 42 45 52 20 ┆ o P LDK A2,STX o P CF A5,WRITE SEND STX o ( P ST A4,FBLST REMEMBER ┆
0x2368…23b8 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 00 6f 01 2a 00 28 00 50 5c 41 44 4b 5c 41 34 2c 35 5c 53 4b 49 50 20 41 49 44 20 2b 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 20 00 6f 01 56 00 1c 00 50 5c 4c 44 4b 5c 41 33 2c 35 5c 41 44 4a 55 ┆START OF BLOCK o * ( P ADK A4,5 SKIP AID + CURSOR ADDRESS o V P LDK A3,5 ADJU┆
0x23b8…2408 (24, 0, 400) 53 54 20 4c 45 4e 47 54 48 20 00 6f 01 82 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 33 20 00 70 00 12 00 10 00 50 5c 53 54 5c 41 32 2c 46 42 41 58 20 00 70 00 24 00 0e 00 50 5c 52 46 5c 54 52 54 31 30 30 00 70 00 38 00 10 00 50 54 52 54 30 35 30 ┆ST LENGTH o P LDK A2,3 p P ST A2,FBAX p $ P RF TRT100 p 8 PTRT050┆
0x2408…2458 5c 45 51 55 5c 2a 00 70 00 4a 00 06 00 50 2a 20 00 70 00 5e 00 06 00 50 2a 20 00 70 00 68 00 06 00 50 2a 20 00 70 00 72 00 08 00 50 5c 58 49 46 00 70 00 7c 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 53 54 58 20 00 70 00 88 00 1a 00 50 5c 43 46 5c ┆ EQU * p J P* p ^ P* p h P* p r P XIF p | P LDK A2,STX p P CF ┆
0x2458…24a8 41 35 2c 57 52 49 54 45 5c 53 45 4e 44 20 53 54 58 20 00 70 00 9c 00 18 00 50 5c 4c 44 4b 5c 41 37 2c 30 5c 52 45 53 45 54 20 4c 52 43 20 00 70 00 ba 00 24 00 50 5c 4c 44 5c 41 34 2c 46 45 43 42 42 41 5c 47 45 54 20 42 55 46 46 45 52 20 41 ┆A5,WRITE SEND STX p P LDK A7,0 RESET LRC p $ P LD A4,FECBBA GET BUFFER A┆
0x24a8…24f8 44 44 52 45 53 53 00 70 00 d6 00 20 00 50 5c 41 44 5c 41 34 2c 46 42 41 58 5c 41 44 44 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 70 00 fe 00 28 00 50 5c 53 54 5c 41 34 2c 46 42 4c 53 54 5c 52 45 4d 45 4d 42 45 52 20 53 54 41 52 54 20 4f 46 ┆DDRESS p P AD A4,FBAX ADD BUFFER INDEX p ( P ST A4,FBLST REMEMBER START OF┆
0x24f8…2548 20 42 4c 4f 43 4b 00 70 01 22 00 28 00 50 5c 41 44 4b 5c 41 34 2c 32 5c 53 4b 49 50 20 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 42 55 46 46 45 52 20 00 70 01 4e 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 52 45 53 45 54 20 43 48 41 52 41 43 ┆ BLOCK p " ( P ADK A4,2 SKIP FIRST WORD OF BUFFER p N & P LDK A3,0 RESET CHARAC┆
0x2548…2598 (25, 0, 400) 54 45 52 20 43 4f 55 4e 54 45 52 20 00 70 01 7a 00 20 00 50 5c 4c 44 5c 41 31 2c 46 42 41 58 5c 47 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 71 00 14 00 22 00 50 5c 52 46 28 4e 5a 29 5c 54 52 54 31 30 30 5c 4e 4f 54 20 46 49 52 53 54 ┆TER COUNTER p z P LD A1,FBAX GET BUFFER INDEX q " P RF(NZ) TRT100 NOT FIRST┆
0x2598…25e8 20 42 4c 4f 43 4b 00 71 00 38 00 1c 00 50 5c 4c 43 5c 41 32 2c 44 57 31 35 30 30 2b 31 5c 47 45 54 20 54 43 41 20 00 71 00 5e 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 54 43 41 00 71 00 7e 00 18 00 50 5c 4c 44 52 ┆ BLOCK q 8 P LC A2,DW1500+1 GET TCA q ^ P CF A5,WRITEP SEND TCA q ~ P LDR┆
0x25e8…2638 2a 5c 41 32 2c 41 36 5c 47 45 54 20 53 54 41 20 00 71 00 9c 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 53 54 41 00 71 00 b8 00 12 00 50 5c 49 46 54 5c 49 42 4d 43 48 52 3d 31 20 00 71 00 d6 00 10 00 50 5c 49 46 46 ┆* A2,A6 GET STA q P CF A5,WRITEP SEND STA q P IFT IBMCHR=1 q P IFF┆
0x2638…2688 5c 52 43 4f 4d 3d 31 20 00 71 00 ec 00 22 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 37 5c 53 45 4e 44 20 45 4e 54 45 52 20 41 53 20 41 49 44 20 00 71 01 00 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 20 00 71 01 26 00 22 00 50 5c 4c 44 4b ┆ RCOM=1 q " P LDK A2,/27 SEND ENTER AS AID q P CF A5,WRITEP q & " P LDK┆
0x2688…26d8 5c 41 32 2c 2f 32 30 5c 41 4e 44 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 71 01 3c 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 20 00 71 01 62 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 30 20 00 71 01 78 00 12 00 50 5c 43 46 5c ┆ A2,/20 AND CURSOR ADDRESS q < P CF A5,WRITEP q b P LDK A2,/20 q x P CF ┆
0x26d8…2728 (26, 0, 400) 41 35 2c 57 52 49 54 45 50 20 00 71 01 8c 00 08 00 50 5c 58 49 46 00 72 00 12 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 72 00 1e 00 04 00 50 00 72 00 32 00 26 00 50 5c 4c 44 5c 41 31 2c 58 52 42 5c 52 45 41 44 20 42 55 46 46 45 52 ┆A5,WRITEP q P XIF r P IFT RCOM=1 r P r 2 & P LD A1,XRB READ BUFFER┆
0x2728…2778 20 43 4f 4d 4d 41 4e 44 20 3f 3f 3f 00 72 00 3a 00 16 00 50 5c 52 46 28 5a 29 5c 54 52 54 30 37 30 5c 4e 4f 21 21 00 72 00 64 00 04 00 50 00 72 00 7e 00 1c 00 50 5c 5c 5c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 72 ┆ COMMAND ??? r : P RF(Z) TRT070 NO!! r d P r ~ P ******************** r┆
0x2778…27c8 00 86 00 22 00 50 5c 4c 44 4b 5c 41 32 2c 58 27 32 44 27 5c 41 49 44 20 46 4f 52 20 44 49 53 50 4c 41 59 20 00 72 00 a6 00 20 00 50 54 52 54 30 36 30 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 41 49 44 00 72 00 cc 00 04 00 50 ┆ " P LDK A2,X'2D' AID FOR DISPLAY r PTRT060 CF A5,WRITEP SEND AID r P┆
0x27c8…2818 00 72 00 f0 00 24 00 50 5c 4c 44 2a 5c 41 33 2c 44 57 54 43 55 52 2c 41 36 5c 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 72 00 f8 00 2e 00 50 5c 43 46 5c 41 35 2c 4c 49 4e 43 4f 4c 5c 53 45 4e 44 20 4c 49 4e 45 20 41 4e 44 20 43 4f 4c 55 ┆ r $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS r . P CF A5,LINCOL SEND LINE AND COLU┆
0x2818…2868 4d 4e 20 4e 55 4d 42 45 52 20 00 72 01 20 00 1e 00 50 5c 4c 44 4b 5c 41 33 2c 35 5c 53 45 54 20 42 4c 4f 43 4b 20 43 4f 55 4e 54 20 00 72 01 52 00 0e 00 50 5c 52 46 5c 54 52 54 31 30 30 00 72 01 74 00 10 00 50 54 52 54 30 37 30 5c 45 51 55 ┆MN NUMBER r P LDK A3,5 SET BLOCK COUNT r R P RF TRT100 r t PTRT070 EQU┆
0x2868…28b8 (27, 0, 400) 5c 2a 00 72 01 86 00 08 00 50 5c 58 49 46 00 73 00 0a 00 04 00 50 00 73 00 16 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 32 20 00 73 00 1e 00 10 00 50 54 52 54 31 30 30 5c 45 51 55 5c 2a 00 73 00 30 00 20 00 50 5c 4c 43 52 5c 41 32 2c 41 34 5c 47 ┆ * r P XIF s P s P LDK A3,2 s PTRT100 EQU * s 0 P LCR A2,A4 G┆
0x28b8…2908 45 54 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 00 73 00 44 00 20 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 73 00 68 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 73 00 8c 00 10 00 50 ┆ET ONE CHARACTER s D P ADK A4,1 INCREMENT POINTER s h P ANK A2,/7F s P┆
0x2908…2958 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 73 00 a0 00 26 00 50 5c 4c 44 5c 41 31 2c 58 52 42 5c 52 45 41 44 20 42 55 46 46 45 52 20 43 4f 4d 4d 41 4e 44 20 3f 3f 3f 00 73 00 b4 00 16 00 50 5c 52 46 28 5a 29 5c 54 52 54 31 30 35 5c 4e 4f 21 21 ┆ IFT RCOM=1 s & P LD A1,XRB READ BUFFER COMMAND ??? s P RF(Z) TRT105 NO!!┆
0x2958…29a8 00 73 00 de 00 04 00 50 00 73 00 f8 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 73 01 00 ┆ s P s @ P************************************************************ s ┆
0x29a8…29f8 00 06 00 50 2a 20 00 73 01 44 00 2c 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 41 54 54 52 49 42 55 54 45 20 43 48 41 52 41 43 54 45 52 20 4f 52 20 4e 55 4c 4c 00 73 01 4e 00 06 00 50 2a 20 00 73 01 7e 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* s D , P* CHECK IF ATTRIBUTE CHARACTER OR NULL s N P* s ~ 4 P********┆
0x29f8…2a48 (28, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 73 01 88 00 04 00 50 00 74 00 30 00 26 00 50 5c 43 57 4b 5c 41 32 2c 58 27 32 30 27 5c 41 54 54 52 49 42 55 54 45 20 ┆*************************************** s P t 0 & P CWK A2,X'20' ATTRIBUTE ┆
0x2a48…2a98 43 48 41 52 41 43 54 45 52 20 00 74 00 38 00 18 00 50 5c 52 46 28 4c 29 5c 54 52 54 31 30 31 5c 59 45 53 21 21 21 00 74 00 62 00 08 00 50 5c 58 49 46 00 74 00 7e 00 10 00 50 5c 49 46 54 5c 44 4d 52 4b 3d 31 20 00 74 00 8a 00 1c 00 50 5c 43 ┆CHARACTER t 8 P RF(L) TRT101 YES!!! t b P XIF t ~ P IFT DMRK=1 t P C┆
0x2a98…2ae8 57 4b 5c 41 32 2c 2f 37 45 5c 4c 49 4e 45 20 46 45 45 44 20 3f 20 00 74 00 9e 00 22 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 32 5c 4e 4f 2c 47 4f 20 54 4f 20 54 52 54 31 30 32 00 74 00 be 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 30 41 20 ┆WK A2,/7E LINE FEED ? t " P RF(NE) TRT102 NO,GO TO TRT102 t P LDK A2,/0A ┆
0x2ae8…2b38 00 74 00 e4 00 10 00 50 54 52 54 31 30 32 5c 45 51 55 5c 2a 00 74 00 f8 00 20 00 50 5c 43 57 4b 5c 41 32 2c 2f 37 44 5c 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 20 3f 00 74 01 0c 00 22 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 33 5c 4e ┆ t PTRT102 EQU * t P CWK A2,/7D END OF MESSAGE ? t " P RF(NE) TRT103 N┆
0x2b38…2b88 4f 2c 47 4f 20 54 4f 20 54 52 54 31 30 33 00 74 01 30 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 39 20 00 74 01 56 00 10 00 50 54 52 54 31 30 33 5c 45 51 55 5c 2a 00 74 01 6a 00 1a 00 50 5c 43 57 4b 5c 41 32 2c 58 27 37 46 27 5c 4e 55 4c 4c ┆O,GO TO TRT103 t 0 P LDK A2,/19 t V PTRT103 EQU * t j P CWK A2,X'7F' NULL┆