|
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: 17314 (0x43a2)
Notes: pts_type(SC)
Names: »DRCR01.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRCR01.SC«
IDENT DRCR01 REL 9.2 79-11-16 870105040920
=1, INTERFACE UNKNOWN HANG-UP
REL 9.1 79-05-23
*
*
************************************************************
*
* PHILIPS TERMINAL SYSTEM PTS
*
* DRCR01 = DRIVER CARD READER
*
*
*
*
*
************************************************************
*
*
* THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED
* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL
*
*
************************************************************
EJECT DRCR01
*****************
* ENTRIES *
*****************
ENTRY CRADR ADDRESS TABLE
ENTRY ACCR ACTIVATION PART
ENTRY CRON RECOVERY ROUTINE
ENTRY IHCR INTERRUPT HANDLER
ENTRY DWCR01 DWT FOR CARD READER
**************************************
* EXTERNAL TOSS MODULE ENTRIES *
**************************************
EXTRN TDISP DISPATCHER
EXTRN SAVE8 SAVE 8 REGISTERS ON A15-STACK
EXTRN RETUR8 LOAD 8 REGISTErS FROM A15-STACK
EXTRN TENDIO END I/O
EXTRN DISIOE REQUEST ERROR
EXTRN INTSAV SAVE AREA, LAST INTERRUPT
EXTRN DWTST STATUS
EXTRN DWTECB ECB ADDRESS
EXTRN DWTA2 SAVE AREA A2
EXTRN DWTA4 SAVE AREA A4
EXTRN DWTA5 SAVE AREA A5
*******************
* CONSTANTS *
*******************
DEVICE EQU /0D
MUX EQU DEVICE+DEVICE
REQLEN EQU 4
BUFFER EQU 2
EFFLEN EQU 6
EJECT DRCR01
*
**************************
* CONDITIONAL ASSEMBLY *
**************************
* PROGRAMMED CHANNEL MAY BE USED INSTEAD
* OF MULTIPLEX CHANNEL BY SETTING X:A=1
*
X:A EQU 0
CHAN EQU X:A
*
*
* MMU BUFFER SIZE
*
X:B EQU 40
DVBLEN EQU X:B
*
*
* MMU DEVICE INDEX
*
DEVIND EQU 2 CARD READER DEVICE INDEX
*
*
* A PROGRAM VERSION USING TOSS MMU PAGING
* IS OBTAINED BY SETTING MMUPAG EQU 1.
*
MMUPAG EQU 0
*
*
* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
* SET IS OBTAINED BY SETTING CPU852 EQU 0.
*
CPU852 EQU 1
*
EJECT DRCR01 DRCR01
STATUS
********************
-HARDWARE:
BIT 10: INPUT HOPPER EMPTY OR OUTPUT
STACKER FULL
14: THROUGHPUT ERROR
15: NOT OPERABLE
-SOFTWARE:
BIT 0: REQUEST ERROR
3: :EOF DETECTED
12: INCORRECT LENGTH
13: DATA FAULT
ORDER
********************
/02 STANDARD READ
-THE CARDS ARE READ IN HOLLERITH CODE, ON 12 BITS,
CONVERTED INTO ASCII CODE ON 8 BITS, AND STORED
UNTIL REQUESTED LENGTH IS REACHED
EJECT DRCR01
***********************
*NORMAL REGISTER USAGE*
***********************
A1=RETURN CODE
A2=WORK REGISTER
A3=WORK REGISTER
A4=BUFFER ADDRESS
A5=STACK BASE
A6=DWT-ADDRESS
A7=ORDER
A8=ECB-ADDRESS
*****************************************************
* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED *
* CARD COLUMNES: 1,2,3,4.......80 *
* CARD ROWS : 12,11,0,1,2,3.....9 *
*****************************************************
* ADDRESS TABLE
* *************
DATA DVBLEN+DVBLEN MMU BUFFER LENGTH
DATA DEVIND MMU DEVICE INDEX
CRADR DATA ACCR
DATA 0 ABORT ROUTINE ADDRESS
IFT CHAN=0
*
**********
* BUFFER *
**********
MUXBUF EQU *
RES 80
XIF
EJECT DRCR01
*************************
* *
* ACTIVATION PART *
* *
*************************
ACCR EQU *
SUK A7,2 ORDER 2?
RF(Z) ORDER2 YES!
ABL DISIOE NO! REQEST ERROR
ORDER2 LD A3,REQLEN,A8
CWK A3,80
RF(NG) AC.1
LDK A1,8 REQ. LENGTH IS TOO LONG!
RF ENDIO SET "INCORRECT LENGTH" BIT 12
AC.1 EQU *
CM STATUS,A6
CM FLAG RESET RECOVERY INDICATOR
CF A5,READ READ ONE CARD
ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12
OR A1,STATUS,A6
ENDIO CF A15,TENDIO END REQUEST
EXIT ABL TDISP
EJECT DRCR01
******************************
* SUBROUTIN TO READ ONE CARD *
******************************
READ EQU *
ST A5,DWTA5,A6 SAVE A5
LD A4,BUFFER,A8
SUK A4,1
ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1
LDK A2,1
ST A2,DWTA2,A6 SAVE "COLUMN TO BE EXAMINED"
IFT CHAN=0
LDKL A4,/8050 DEFINE CONDITIONS
WER A4,MUX
LDKL A4,MUXBUF DEFINE BUFFER ADDRESS
WER A4,MUX+1
XIF
CIO A3,1,DEVICE CIO START
RB(Z) EXIT ACCEPTED =1
LDK A1,1 ERROR
RB ENDIO
********************
* RECOVERY ROUTINE *
********************
CRON EQU *
IFT CPU852=1
CF A15,SAVE8 SAVE A1-A8 ON STACK
XIF
*
IFT CPU852=0
MSR 8,A15 SAVE A1-A8 ON STACK
XIF
*
LDKL A6,DWCR01 DWT ADDRESS
LD A3,DWTST,A6 REQUEST ON?
RB(N) EXIT NO!
LDK A1,2 SET "THROUGHPUT ERROR" BIT 14
IFT CHAN=0
IM FLAG INDICATE RECOVERY
XIF
RB ENDIO
EJECT DRCR01
*********************
* INTERRUPT HANDLER *
*********************
IHCR EQU *
ST P,INTSAVE SAVE LAST INTERRUPT
IFT CPU852=1
CF A15,SAVE8 SAVE A1-A8 ON STACK
XIF
*
IFT CPU852=0
MSR 8,A15 SAVE A1-A8 ON STACK
XIF
*
LDKL A6,DWCR01 DWT ADDRESS
LD A2,DWTA2,A6 CARD-COLUMN
LD A8,DWTECB,A6 ECB ADDRESS
IFT CHAN=1
INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER
RF(A) CONV
XIF
IFT CHAN=0
LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION
ENB
IHCR10 EQU *
LDR* A3,A5 GET WORD FROM BUFFER
ADK A5,2
RF CONV CONVERT
IHCR20 EQU *
* READY *
XIF
SST A1,DEVICE NOT ACCEPTED
LD A5,DWTA5,A6
RTN A5
EJECT DRCR01
*******************
* CODE CONVERSION *
*******************
A3=RECIEVED CHARACTER IN HOLERITH-CODE
A2=COLUMN TO BE EXAMINED
A4=BUFFER ADDRESS - 1
CONV LDK A1,0
SLL A3,4 SKIP INSIGNIFICANT BITS
RF(N) FIRST
RF(P) SCAN1
LDK A3,/20 CHARACTER IS A SPACE
CW A2,REQLEN,A8 BUFFER FILLED?
ABL(NG) PUTCHA NO!
ABL TEST
*
HOLE1 DATA 0
HOLE2 DATA 0
EJECT DRCR01
*=======================================================================
0NE HOLE
SCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE
SLL A3,1
RB(P) SCAN1
FIRST CW A2,REQLEN,A8 BUFFER FILLED?
RF(NG) IH.1 NO!
LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12
ORS A3,STATUS,A6
ABL READY
IH.1 ST A2,EFFLEN,A8 STORE EFFECTIV LENGTH
ANKL A3,/7FFF
RF(NZ) SCAN2 THE ONLY HOLE IN THIS COLUMN?
SUK A1,1 YES!
CONVERSION IS MADE DIRECTLY
***************************
RF(P) *+12
RF(Z) *+6
LDK A3,/26 & (ROW 12)
RF PUTCHA
LDK A3,/2D - (ROW 11)
RF PUTCHA
LDR A3,A1
ADK A3,/2F DIGIT 0 - 9 (ROW 0 - 9)
RF PUTCHA
ONE HOLE
*=======================================================================
TWO HOLES
EJECT DRCR01
SCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION
ADK A1,1 SCAN FOR SECOND HOLE
SLL A3,1
RB(P) *-4
ST A1,HOLE2 2:ND HOLE FOUND! SAVE POSITION
ANKL A3,/7FFF LAST HOLE IN THIS COLUMN?
RF(P) SCAN3 NO!
LD A1,HOLE1 YES!
CWK A1,3
RF(NL) SPEC SPECIAL CHARACTER?
ADR A1,A1 NO! LETTER OR /
LD A1,TABLE1,A1 CHOOSE TABLE
LD A3,HOLE2
SUK A3,3
RF(N) FAULT DATA FAULT?
ADR A1,A3 NO!
LCR A3,A1 CHOOSE LETTER IN TABLE
RF PUTCHA
EJECT DRCR01
* CONVERSION TABLE 1 ASCII /41 - 5A, 2F
*************************************
TABLE1 DATA TAB.1
DATA TAB.2
DATA TAB.3
ROWS ON CARD
------------
TAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9
TAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9
TAB.3 DATA '/STUVWXYZ ' 0,1 - 0,9
*************************************
EJECT DRCR01
SPEC RF(E) FAULT DATA FAULT?
-THE FIRST HOLE MUST NOT BE IN ROW 1!
SUK A1,4 NO!
CWK A1,5 A1=FIRST HOLE
RF(G) FAULT DATA FAULT?
-THE FIRST HOLE MUST NOT BE IN ROW 8!
LD A3,HOLE2
SUK A3,10
RF(NZ) FAULT DATA FAULT?
-THE SECOND HOLE MUST BE IN ROW 8!
LC A3,TABLE2,A1 CHOOSE CHARACTER IN TABLE2
RF PUTCHA
CONVERSION TABLE 2
*************************************
ROWS ON CARD
------------
TABLE2 DATA ':#' 2,8 3,8
DATA /4027 4,8 5,8
DATA '="' 6,8 7,8
*************************************
TWO HOLES
*=======================================================================
THREE HOLES
EJECT DRCR01
*
SCAN3 LD A1,HOLE1
SUK A1,2
RF(P) FAULT DATA FAULT?
-THE FIRST HOLE MUST BE WITHIN THE FIRST
THREE ROWS (12, 11, 0)
LD A1,HOLE2
SUK A1,4
RF(N) FAULT DATA FAULT?
SUK A1,5
RF(P) FAULT
-THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7!
ADK A1,9
ADK A1,1 SCAN FOR THE 3:RD HOLE
SLL A3,1
RB(P) *-4
SUK A1,10 3:RD HOLE FOUND!
RF(NZ) FAULT DATA FAULT?
-THE 3:RD HOLE MUST BE IN ROW 8
SLL A3,1
RF(NZ) FAULT DATA FAULT?
-NO MORE THEN 3 HOLES!
LD A3,HOLE1
ADR A3,A3
LD A3,TABLE3,A3 CHOOSE TABLE
AD A3,HOLE2
SUK A3,4
LCR A1,A3
LDR A3,A1
RF PUTCHA
EJECT DRCR01
*
*
CONVERSION TABLE 3
*************************************
TABLE3 DATA TAB.4
DATA TAB.5
DATA TAB.6
ROWS ON CARD
-------------------
TAB.4 DATA '[.' 12,2,8 12,3,8
DATA '<(' 12,4,8 12,5,8
DATA /2B5E 12,6,8 12,7,8
TAB.5 DATA '!$' 11,2,8 11,3,8
DATA '*)' 11,4,8 11,5,8
DATA ';]' 11,6,8 11,7,8
TAB.6 DATA /5C2C 0,2,8 0,3,8
DATA /255F 0,4,8 0,5,8
DATA '>?' 0,6,8 0,7,8
*************************************
THREE HOLES
*=======================================================================
EJECT DRCR01
SET DATA FAULT
**************
FAULT EQU *
LDK A1,4 SET DATA FAULT,BIT 13, IN STATUS
ST A1,STATUS,A6
LDK A3,/3F REPLACE CHARACTER BY "?"
PUT CHARACTER (ASCII) IN USER BUFFER
************************************
PUTCHA EQU *
IFT CHAN=0
LD A4,FLAG
RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED!
XIF
LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED
ADR A4,A2 A3=ASCII CHARACTER
SCR A3,A4 A4=BUFFER ADDRESS - 1
TEST CWK A2,80 THE WHOLE CARD SCANNED?
RF(L) NEXT NO!
IFT CHAN=1
READY CIO A3,0,DEVICE CIO HALT
XIF
IFT CHAN=0
READY EQU *
XIF
LDK A2,4 CHECK IF :EOF
CW A2,EFFLEN,A8
RF(NE) NEXT00 EFF.LENGTH #4
LD A4,DWTA4,A6 GET BUFFER-ADDRESS
ADK A4,1
LDR* A2,A4 GET FIRST WORD IN BUFFER
CWK A2,':E' A2 = :E ?
RF(NE) NEXT00 NO!
LD A2,2,A4 YES, GET NEXT WORD
CWK A2,'OF' A2 = OF ?
RF(NE) NEXT00 NO!
LDKL A2,/1000 YES! :EOF DETECTED
ORS A2,STATUS,A6 SET BIT 3 IN R.C.
EJECT DRCR01
NEXT00 EQU *
IFT CHAN=1
NEXT ADK A2,1
ST A2,DWTA2,A6 SAVE A2
XIF
IFT CHAN=0
ABL IHCR20 READY
NEXT EQU *
ADK A2,1
ST A2,DWTA2,A6
ABL IHCR10 TAKE NEXT CHARACTER
NEXT10 EQU *
XIF
ABL RETUR8 LOAD A1 - A8 AND RETURN A15
EJECT DRCR01
*************************************
* DEVICE WORK TABLE FOR CARD READER *
*************************************
DWCR01 EQU *
DATA 0 CHANNEL PARAMETER
DATA /8000 STATUS
DATA 0 ECB ADDRESS
DATA 0 LAST OUTPUT, ORDER
DATA CRADR POINTER TO DEVICE DRIVER
DATA 0 POINTER TO TTAB
DATA 0 WAIT/ACTIVATE INDICATOR
DATA 0 TERMINAL QUEUE
IFT MMUPAG=1
DATA 0 SAVE AREA USER ECB ADDRESS
DATA DEVECB MMU ECB ADDRESS
XIF
DATA 0 OUTPUT QUEUE LINK
DATA 0 SAVEAREA FOR A2
DATA 0 SAVEAREA FOR A4
DATA 0 SAVEAREA FOR A5
RES 4 DWT STACK
STATUS EQU *-DWCR01
DATA 0 SOFTWARE STATUS SAVEAREA
FLAG DATA 0 RECOVERY INDICATOR
*
IFT MMUPAG=1
DEVECB EQU *
DATA 0
DATA CR:BUF
DATA 0,0,0,0
CR:BUF RES DVBLEN+1
XIF
*
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRCR01 REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0066 Head {h00=0x0024, h01=0x0050, text=» =1, INTERFACE UNKNOWN HANG-UP«, t00=0x0000, t01=0x0042}
0x0066…0082 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x006a}
0x0082…008a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0086}
0x008a…0092 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x008e}
0x0092…009c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a0}
0x00a6…00ea Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x00aa}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…011a Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00f8}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…014a Head {h00=0x0022, h01=0x0050, text=»* DRCR01 = DRIVER CARD READER«, t00=0x0000, t01=0x0128}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…01c0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0180}
0x01c0…01ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…01d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d4…0218 Head {h00=0x0040, h01=0x0050, text=»* THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED «, t00=0x0001, t01=0x0048}
0x0218…0258 Head {h00=0x003c, h01=0x0050, text=»* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL «, t00=0x0001, t01=0x008c}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…02b0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x00e0}
0x02b0…02c8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0001, t01=0x0124}
0x02c8…02e2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x013c}
0x02e2…02fc Head {h00=0x0016, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0156}
0x02fc…0316 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0170}
0x0316…0338 Head {h00=0x001e, h01=0x0050, text=» ENTRY CRADR ADDRESS TABLE«, t00=0x0001, t01=0x018a}
0x0338…035c Head {h00=0x0020, h01=0x0050, text=» ENTRY ACCR ACTIVATION PART «, t00=0x0002, t01=0x001c}
0x035c…0380 Head {h00=0x0020, h01=0x0050, text=» ENTRY CRON RECOVERY ROUTINE«, t00=0x0002, t01=0x0040}
0x0380…03a6 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCR INTERRUPT HANDLER «, t00=0x0002, t01=0x0064}
0x03a6…03d0 Head {h00=0x0026, h01=0x0050, text=» ENTRY DWCR01 DWT FOR CARD READER «, t00=0x0002, t01=0x008a}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x00b4}
0x03da…0408 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x00be}
0x0408…0436 Head {h00=0x002a, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0002, t01=0x00ec}
0x0436…0464 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x011a}
0x0464…0484 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0148}
0x0484…04b6 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15-STACK«, t00=0x0002, t01=0x0168}
0x04b6…04ec Head {h00=0x0032, h01=0x0050, text=» EXTRN RETUR8 LOAD 8 REGISTErS FROM A15-STACK «, t00=0x0003, t01=0x000a}
0x04ec…050a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x0040}
0x050a…052e Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x005e}
0x052e…055e Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSAV SAVE AREA, LAST INTERRUPT «, t00=0x0003, t01=0x0082}
0x055e…0568 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0003, t01=0x00b2}
0x0568…0584 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0003, t01=0x00bc}
0x0584…05a6 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0003, t01=0x00d8}
0x05a6…05c8 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0003, t01=0x00fa}
0x05c8…05ea Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0003, t01=0x011c}
0x05ea…060c Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0003, t01=0x013e}
0x060c…0628 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x0160}
0x0628…0644 Head {h00=0x0018, h01=0x0050, text=»* CONSTANTS * «, t00=0x0003, t01=0x017c}
0x0644…0660 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0004, t01=0x0008}
0x0660…0676 Head {h00=0x0012, h01=0x0050, text=»DEVICE EQU /0D«, t00=0x0004, t01=0x0024}
0x0676…0694 Head {h00=0x001a, h01=0x0050, text=»MUX EQU DEVICE+DEVICE «, t00=0x0004, t01=0x003a}
0x0694…06a8 Head {h00=0x0010, h01=0x0050, text=»REQLEN EQU 4«, t00=0x0004, t01=0x0058}
0x06a8…06bc Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU 2«, t00=0x0004, t01=0x006c}
0x06bc…06d0 Head {h00=0x0010, h01=0x0050, text=»EFFLEN EQU 6«, t00=0x0004, t01=0x0080}
0x06d0…06e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0004, t01=0x0094}
0x06e8…06f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x06f2…0714 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x00b6}
0x0714…0736 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0004, t01=0x00d8}
0x0736…0758 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x00fa}
0x0758…078a Head {h00=0x002e, h01=0x0050, text=»* PROGRAMMED CHANNEL MAY BE USED INSTEAD «, t00=0x0004, t01=0x011c}
0x078a…07ba Head {h00=0x002c, h01=0x0050, text=»* OF MULTIPLEX CHANNEL BY SETTING X:A=1«, t00=0x0004, t01=0x014e}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c4…07d6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0004, t01=0x0188}
0x07d6…07ea Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0005, t01=0x000a}
0x07ea…07f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001e}
0x07f4…07fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0028}
0x07fe…081a Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0005, t01=0x0032}
0x081a…0824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x0824…0836 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 40«, t00=0x0005, t01=0x0058}
0x0836…084c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0005, t01=0x006a}
0x084c…0856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0080}
0x0856…0860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x0005, t01=0x0094}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b0}
0x0886…08b4 Head {h00=0x002a, h01=0x0050, text=»DEVIND EQU 2 CARD READER DEVICE INDEX «, t00=0x0005, t01=0x00ba}
0x08b4…08be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e8}
0x08be…08c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f2}
0x08c8…08fa Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0005, t01=0x00fc}
0x08fa…0928 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0005, t01=0x012e}
0x0928…0932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015c}
0x0932…0946 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0005, t01=0x0166}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x0950…095a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x095a…0994 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0005, t01=0x018e}
0x0994…09c6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x0038}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006a}
0x09d0…09e4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0006, t01=0x0074}
0x09e4…09ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0088}
0x09ee…0a0e Head {h00=0x001c, h01=0x0050, text=» EJECT DRCR01 DRCR01 «, t00=0x0006, t01=0x0092}
0x0a0e…0a20 Head {h00=0x000e, h01=0x0050, text=» STATUS «, t00=0x0006, t01=0x00b2}
0x0a20…0a40 Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0006, t01=0x00c4}
0x0a40…0a56 Head {h00=0x0012, h01=0x0050, text=» -HARDWARE: «, t00=0x0006, t01=0x00e4}
0x0a56…0a88 Head {h00=0x002e, h01=0x0050, text=» BIT 10: INPUT HOPPER EMPTY OR OUTPUT«, t00=0x0006, t01=0x00fa}
0x0a88…0aa2 Head {h00=0x0016, h01=0x0050, text=» STACKER FULL«, t00=0x0006, t01=0x012c}
0x0aa2…0ac0 Head {h00=0x001a, h01=0x0050, text=» 14: THROUGHPUT ERROR«, t00=0x0006, t01=0x0146}
0x0ac0…0ada Head {h00=0x0016, h01=0x0050, text=» 15: NOT OPERABLE«, t00=0x0006, t01=0x0164}
0x0ada…0ae4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x017e}
0x0ae4…0afa Head {h00=0x0012, h01=0x0050, text=» -SOFTWARE: «, t00=0x0006, t01=0x0188}
0x0afa…0b1e Head {h00=0x0020, h01=0x0050, text=» BIT 0: REQUEST ERROR «, t00=0x0007, t01=0x000e}
0x0b1e…0b42 Head {h00=0x0020, h01=0x0050, text=» 3: :EOF DETECTED «, t00=0x0007, t01=0x0032}
0x0b42…0b68 Head {h00=0x0022, h01=0x0050, text=» 12: INCORRECT LENGTH«, t00=0x0007, t01=0x0056}
0x0b68…0b88 Head {h00=0x001c, h01=0x0050, text=» 13: DATA FAULT«, t00=0x0007, t01=0x007c}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x009c}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00a6}
0x0b9c…0ba6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00b0}
0x0ba6…0bb6 Head {h00=0x000c, h01=0x0050, text=» ORDER«, t00=0x0007, t01=0x00ba}
0x0bb6…0bd6 Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0007, t01=0x00ca}
0x0bd6…0be0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00ea}
0x0be0…0c04 Head {h00=0x0020, h01=0x0050, text=» /02 STANDARD READ «, t00=0x0007, t01=0x00f4}
0x0c04…0c44 Head {h00=0x003c, h01=0x0050, text=» -THE CARDS ARE READ IN HOLLERITH CODE, ON 12 BITS,«, t00=0x0007, t01=0x0118}
0x0c44…0c82 Head {h00=0x003a, h01=0x0050, text=» CONVERTED INTO ASCII CODE ON 8 BITS, AND STORED«, t00=0x0007, t01=0x0158}
0x0c82…0cb2 Head {h00=0x002c, h01=0x0050, text=» UNTIL REQUESTED LENGTH IS REACHED«, t00=0x0008, t01=0x0008}
0x0cb2…0cca Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0008, t01=0x0038}
0x0cca…0cec Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0008, t01=0x0050}
0x0cec…0d0e Head {h00=0x001e, h01=0x0050, text=» *NORMAL REGISTER USAGE*«, t00=0x0008, t01=0x0072}
0x0d0e…0d30 Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0008, t01=0x0094}
0x0d30…0d48 Head {h00=0x0014, h01=0x0050, text=» A1=RETURN CODE«, t00=0x0008, t01=0x00b6}
0x0d48…0d62 Head {h00=0x0016, h01=0x0050, text=» A2=WORK REGISTER«, t00=0x0008, t01=0x00ce}
0x0d62…0d7c Head {h00=0x0016, h01=0x0050, text=» A3=WORK REGISTER«, t00=0x0008, t01=0x00e8}
0x0d7c…0d98 Head {h00=0x0018, h01=0x0050, text=» A4=BUFFER ADDRESS «, t00=0x0008, t01=0x0102}
0x0d98…0db0 Head {h00=0x0014, h01=0x0050, text=» A5=STACK BASE «, t00=0x0008, t01=0x011e}
0x0db0…0dc8 Head {h00=0x0014, h01=0x0050, text=» A6=DWT-ADDRESS«, t00=0x0008, t01=0x0136}
0x0dc8…0dda Head {h00=0x000e, h01=0x0050, text=» A7=ORDER«, t00=0x0008, t01=0x014e}
0x0dda…0df2 Head {h00=0x0014, h01=0x0050, text=» A8=ECB-ADDRESS«, t00=0x0008, t01=0x0160}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x0178}
0x0dfc…0e3a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0008, t01=0x0182}
0x0e3a…0e78 Head {h00=0x003a, h01=0x0050, text=»* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED * «, t00=0x0009, t01=0x0030}
0x0e78…0eb6 Head {h00=0x003a, h01=0x0050, text=»* CARD COLUMNES: 1,2,3,4.......80 * «, t00=0x0009, t01=0x006e}
0x0eb6…0ef4 Head {h00=0x003a, h01=0x0050, text=»* CARD ROWS : 12,11,0,1,2,3.....9 * «, t00=0x0009, t01=0x00ac}
0x0ef4…0f32 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0009, t01=0x00ea}
0x0f32…0f3c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x0128}
0x0f3c…0f46 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x0132}
0x0f46…0f50 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x013c}
0x0f50…0f74 Head {h00=0x0020, h01=0x0050, text=»* ADDRESS TABLE «, t00=0x0009, t01=0x0146}
0x0f74…0f98 Head {h00=0x0020, h01=0x0050, text=»* ************* «, t00=0x0009, t01=0x016a}
0x0f98…0fa2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x018e}
0x0fa2…0fd0 Head {h00=0x002a, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER LENGTH «, t00=0x000a, t01=0x0008}
0x0fd0…0ff6 Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND MMU DEVICE INDEX «, t00=0x000a, t01=0x0036}
0x0ff6…100e Head {h00=0x0014, h01=0x0050, text=»CRADR DATA ACCR «, t00=0x000a, t01=0x005c}
0x100e…1034 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x0074}
0x1034…1048 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000a, t01=0x009a}
0x1048…1052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x1052…1064 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00b8}
0x1064…1076 Head {h00=0x000e, h01=0x0050, text=»* BUFFER *«, t00=0x000a, t01=0x00ca}
0x1076…1088 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00dc}
0x1088…109c Head {h00=0x0010, h01=0x0050, text=»MUXBUF EQU *«, t00=0x000a, t01=0x00ee}
0x109c…10ac Head {h00=0x000c, h01=0x0050, text=» RES 80 «, t00=0x000a, t01=0x0102}
0x10ac…10b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0112}
0x10b8…10d0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000a, t01=0x011e}
0x10d0…10f2 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000a, t01=0x0136}
0x10f2…1114 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0158}
0x1114…1136 Head {h00=0x001e, h01=0x0050, text=»* ACTIVATION PART * «, t00=0x000a, t01=0x017a}
0x1136…1158 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x000b, t01=0x000c}
0x1158…117a Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x002e}
0x117a…1184 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x0050}
0x1184…1196 Head {h00=0x000e, h01=0x0050, text=»ACCR EQU *«, t00=0x000b, t01=0x005a}
0x1196…11b0 Head {h00=0x0016, h01=0x0050, text=» SUK A7,2 ORDER 2?«, t00=0x000b, t01=0x006c}
0x11b0…11ca Head {h00=0x0016, h01=0x0050, text=» RF(Z) ORDER2 YES!«, t00=0x000b, t01=0x0086}
0x11ca…11ee Head {h00=0x0020, h01=0x0050, text=» ABL DISIOE NO! REQEST ERROR«, t00=0x000b, t01=0x00a0}
0x11ee…120c Head {h00=0x001a, h01=0x0050, text=»ORDER2 LD A3,REQLEN,A8«, t00=0x000b, t01=0x00c4}
0x120c…121e Head {h00=0x000e, h01=0x0050, text=» CWK A3,80«, t00=0x000b, t01=0x00e2}
0x121e…1232 Head {h00=0x0010, h01=0x0050, text=» RF(NG) AC.1«, t00=0x000b, t01=0x00f4}
0x1232…125c Head {h00=0x0026, h01=0x0050, text=» LDK A1,8 REQ. LENGTH IS TOO LONG!«, t00=0x000b, t01=0x0108}
0x125c…128c Head {h00=0x002c, h01=0x0050, text=» RF ENDIO SET "INCORRECT LENGTH" BIT 12 «, t00=0x000b, t01=0x0132}
0x128c…129e Head {h00=0x000e, h01=0x0050, text=»AC.1 EQU *«, t00=0x000b, t01=0x0162}
0x129e…12b4 Head {h00=0x0012, h01=0x0050, text=» CM STATUS,A6 «, t00=0x000b, t01=0x0174}
0x12b4…12de Head {h00=0x0026, h01=0x0050, text=» CM FLAG RESET RECOVERY INDICATOR «, t00=0x000b, t01=0x018a}
0x12de…1300 Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ ONE CARD «, t00=0x000c, t01=0x0024}
0x1300…1336 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12«, t00=0x000c, t01=0x0046}
0x1336…134e Head {h00=0x0014, h01=0x0050, text=» OR A1,STATUS,A6«, t00=0x000c, t01=0x007c}
0x134e…1376 Head {h00=0x0024, h01=0x0050, text=»ENDIO CF A15,TENDIO END REQUEST «, t00=0x000c, t01=0x0094}
0x1376…138c Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000c, t01=0x00bc}
0x138c…13a4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000c, t01=0x00d2}
0x13a4…13ca Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x00ea}
0x13ca…13f0 Head {h00=0x0022, h01=0x0050, text=»* SUBROUTIN TO READ ONE CARD *«, t00=0x000c, t01=0x0110}
0x13f0…1416 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000c, t01=0x0136}
0x1416…1428 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000c, t01=0x015c}
0x1428…1448 Head {h00=0x001c, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE A5 «, t00=0x000c, t01=0x016e}
0x1448…1460 Head {h00=0x0014, h01=0x0050, text=» LD A4,BUFFER,A8«, t00=0x000c, t01=0x018e}
0x1460…1472 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000d, t01=0x0016}
0x1472…14a2 Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1 «, t00=0x000d, t01=0x0028}
0x14a2…14b4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000d, t01=0x0058}
0x14b4…14e8 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE "COLUMN TO BE EXAMINED"«, t00=0x000d, t01=0x006a}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x009e}
0x14fc…1524 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/8050 DEFINE CONDITIONS«, t00=0x000d, t01=0x00b2}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=» WER A4,MUX «, t00=0x000d, t01=0x00da}
0x1538…1566 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,MUXBUF DEFINE BUFFER ADDRESS «, t00=0x000d, t01=0x00ee}
0x1566…157c Head {h00=0x0012, h01=0x0050, text=» WER A4,MUX+1 «, t00=0x000d, t01=0x011c}
0x157c…1588 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0132}
0x1588…15aa Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,DEVICE CIO START«, t00=0x000d, t01=0x013e}
0x15aa…15ca Head {h00=0x001c, h01=0x0050, text=» RB(Z) EXIT ACCEPTED =1 «, t00=0x000d, t01=0x0160}
0x15ca…15e2 Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 ERROR «, t00=0x000d, t01=0x0180}
0x15e2…15f4 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x000e, t01=0x0008}
0x15f4…15fe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000e, t01=0x001a}
0x15fe…161a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0024}
0x161a…1636 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x000e, t01=0x0040}
0x1636…1652 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x005c}
0x1652…1664 Head {h00=0x000e, h01=0x0050, text=»CRON EQU *«, t00=0x000e, t01=0x0078}
0x1664…167a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000e, t01=0x008a}
0x167a…16a4 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000e, t01=0x00a0}
0x16a4…16b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00ca}
0x16b0…16ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d6}
0x16ba…16d0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000e, t01=0x00e0}
0x16d0…16f6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000e, t01=0x00f6}
0x16f6…1702 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x011c}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0128}
0x170c…1730 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x000e, t01=0x0132}
0x1730…1754 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 REQUEST ON? «, t00=0x000e, t01=0x0156}
0x1754…176c Head {h00=0x0014, h01=0x0050, text=» RB(N) EXIT NO! «, t00=0x000e, t01=0x017a}
0x176c…179c (15, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDK A1,2 SET "THROUGHPUT ERROR" BIT 14 «, t00=0x000f, t01=0x0004}
0x179c…17b0 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000f, t01=0x0034}
0x17b0…17d2 Head {h00=0x001e, h01=0x0050, text=» IM FLAG INDICATE RECOVERY«, t00=0x000f, t01=0x0048}
0x17d2…17de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x006a}
0x17de…17f0 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x000f, t01=0x0076}
0x17f0…1808 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x000f, t01=0x0088}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00a0}
0x1812…181c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00aa}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00b4}
0x1826…1844 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x00be}
0x1844…1862 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x000f, t01=0x00dc}
0x1862…1880 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x00fa}
0x1880…1892 Head {h00=0x000e, h01=0x0050, text=»IHCR EQU *«, t00=0x000f, t01=0x0118}
0x1892…18bc Head {h00=0x0026, h01=0x0050, text=» ST P,INTSAVE SAVE LAST INTERRUPT «, t00=0x000f, t01=0x012a}
0x18bc…18d2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x0154}
0x18d2…18fc Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000f, t01=0x016a}
0x18fc…1908 (16, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0004}
0x1908…1912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0010}
0x1912…1928 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0010, t01=0x001a}
0x1928…194e Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0010, t01=0x0030}
0x194e…195a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0056}
0x195a…1964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0062}
0x1964…1988 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x0010, t01=0x006c}
0x1988…19ac Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTA2,A6 CARD-COLUMN «, t00=0x0010, t01=0x0090}
0x19ac…19d0 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0010, t01=0x00b4}
0x19d0…19e4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0010, t01=0x00d8}
0x19e4…1a22 Head {h00=0x003a, h01=0x0050, text=» INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER«, t00=0x0010, t01=0x00ec}
0x1a22…1a36 Head {h00=0x0010, h01=0x0050, text=» RF(A) CONV «, t00=0x0010, t01=0x012a}
0x1a36…1a42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x013e}
0x1a42…1a56 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x014a}
0x1a56…1a94 Head {h00=0x003a, h01=0x0050, text=» LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION«, t00=0x0010, t01=0x015e}
0x1a94…1aa0 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0011, t01=0x000c}
0x1aa0…1ab4 Head {h00=0x0010, h01=0x0050, text=»IHCR10 EQU *«, t00=0x0011, t01=0x0018}
0x1ab4…1adc Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A5 GET WORD FROM BUFFER«, t00=0x0011, t01=0x002c}
0x1adc…1aee Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0011, t01=0x0054}
0x1aee…1b06 Head {h00=0x0014, h01=0x0050, text=» RF CONV CONVERT«, t00=0x0011, t01=0x0066}
0x1b06…1b1a Head {h00=0x0010, h01=0x0050, text=»IHCR20 EQU *«, t00=0x0011, t01=0x007e}
0x1b1a…1b30 Head {h00=0x0012, h01=0x0050, text=»* READY * «, t00=0x0011, t01=0x0092}
0x1b30…1b3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00a8}
0x1b3c…1b60 Head {h00=0x0020, h01=0x0050, text=» SST A1,DEVICE NOT ACCEPTED «, t00=0x0011, t01=0x00b4}
0x1b60…1b78 Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTA5,A6 «, t00=0x0011, t01=0x00d8}
0x1b78…1b88 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0011, t01=0x00f0}
0x1b88…1ba0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0011, t01=0x0100}
0x1ba0…1baa Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0011, t01=0x0118}
0x1baa…1bc6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0011, t01=0x0122}
0x1bc6…1be2 Head {h00=0x0018, h01=0x0050, text=»* CODE CONVERSION * «, t00=0x0011, t01=0x013e}
0x1be2…1bfe Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0011, t01=0x015a}
0x1bfe…1c08 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0011, t01=0x0176}
0x1c08…1c3a Head {h00=0x002e, h01=0x0050, text=» A3=RECIEVED CHARACTER IN HOLERITH-CODE «, t00=0x0011, t01=0x0180}
0x1c3a…1c5e Head {h00=0x0020, h01=0x0050, text=» A2=COLUMN TO BE EXAMINED «, t00=0x0012, t01=0x0022}
0x1c5e…1c7e Head {h00=0x001c, h01=0x0050, text=» A4=BUFFER ADDRESS - 1«, t00=0x0012, t01=0x0046}
0x1c7e…1c88 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x0066}
0x1c88…1c92 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x0070}
0x1c92…1c9c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x007a}
0x1c9c…1cb2 Head {h00=0x0012, h01=0x0050, text=»CONV LDK A1,0 «, t00=0x0012, t01=0x0084}
0x1cb2…1cdc Head {h00=0x0026, h01=0x0050, text=» SLL A3,4 SKIP INSIGNIFICANT BITS «, t00=0x0012, t01=0x009a}
0x1cdc…1cf0 Head {h00=0x0010, h01=0x0050, text=» RF(N) FIRST«, t00=0x0012, t01=0x00c4}
0x1cf0…1d04 Head {h00=0x0010, h01=0x0050, text=» RF(P) SCAN1«, t00=0x0012, t01=0x00d8}
0x1d04…1d2c Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 CHARACTER IS A SPACE«, t00=0x0012, t01=0x00ec}
0x1d2c…1d54 Head {h00=0x0024, h01=0x0050, text=» CW A2,REQLEN,A8 BUFFER FILLED? «, t00=0x0012, t01=0x0114}
0x1d54…1d70 Head {h00=0x0018, h01=0x0050, text=» ABL(NG) PUTCHA NO! «, t00=0x0012, t01=0x013c}
0x1d70…1d82 Head {h00=0x000e, h01=0x0050, text=» ABL TEST «, t00=0x0012, t01=0x0158}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d8c…1da0 Head {h00=0x0010, h01=0x0050, text=»HOLE1 DATA 0«, t00=0x0012, t01=0x0174}
0x1da0…1db4 Head {h00=0x0010, h01=0x0050, text=»HOLE2 DATA 0«, t00=0x0012, t01=0x0188}
0x1db4…1dcc Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0013, t01=0x000c}
0x1dcc…1e1c Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0013, t01=0x0024}
0x1e1c…1e64 Head {h00=0x0044, h01=0x0050, text=» 0NE HOLE «, t00=0x0013, t01=0x0074}
0x1e64…1e92 Head {h00=0x002a, h01=0x0050, text=»SCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE«, t00=0x0013, t01=0x00bc}
0x1e92…1ea4 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0013, t01=0x00ea}
0x1ea4…1eb8 Head {h00=0x0010, h01=0x0050, text=» RB(P) SCAN1«, t00=0x0013, t01=0x00fc}
0x1eb8…1ee4 Head {h00=0x0028, h01=0x0050, text=»FIRST CW A2,REQLEN,A8 BUFFER FILLED?«, t00=0x0013, t01=0x0110}
0x1ee4…1efc Head {h00=0x0014, h01=0x0050, text=» RF(NG) IH.1 NO!«, t00=0x0013, t01=0x013c}
0x1efc…1f30 Head {h00=0x0030, h01=0x0050, text=» LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12«, t00=0x0013, t01=0x0154}
0x1f30…1f4a Head {h00=0x0016, h01=0x0050, text=» ORS A3,STATUS,A6 «, t00=0x0013, t01=0x0188}
0x1f4a…1f5c Head {h00=0x000e, h01=0x0050, text=» ABL READY«, t00=0x0014, t01=0x0012}
0x1f5c…1f8e Head {h00=0x002e, h01=0x0050, text=»IH.1 ST A2,EFFLEN,A8 STORE EFFECTIV LENGTH«, t00=0x0014, t01=0x0024}
0x1f8e…1fa4 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/7FFF«, t00=0x0014, t01=0x0056}
0x1fa4…1fd8 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) SCAN2 THE ONLY HOLE IN THIS COLUMN? «, t00=0x0014, t01=0x006c}
0x1fd8…1fee Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 YES!«, t00=0x0014, t01=0x00a0}
0x1fee…2014 Head {h00=0x0022, h01=0x0050, text=» CONVERSION IS MADE DIRECTLY«, t00=0x0014, t01=0x00b6}
0x2014…203a Head {h00=0x0022, h01=0x0050, text=» ***************************«, t00=0x0014, t01=0x00dc}
0x203a…204e Head {h00=0x0010, h01=0x0050, text=» RF(P) *+12 «, t00=0x0014, t01=0x0102}
0x204e…2060 Head {h00=0x000e, h01=0x0050, text=» RF(Z) *+6«, t00=0x0014, t01=0x0116}
0x2060…207e Head {h00=0x001a, h01=0x0050, text=» LDK A3,/26 & (ROW 12)«, t00=0x0014, t01=0x0128}
0x207e…2090 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0014, t01=0x0146}
0x2090…20ae Head {h00=0x001a, h01=0x0050, text=» LDK A3,/2D - (ROW 11)«, t00=0x0014, t01=0x0158}
0x20ae…20c0 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0014, t01=0x0176}
0x20c0…20d2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0014, t01=0x0188}
0x20d2…20fe Head {h00=0x0028, h01=0x0050, text=» ADK A3,/2F DIGIT 0 - 9 (ROW 0 - 9) «, t00=0x0015, t01=0x000a}
0x20fe…2110 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0015, t01=0x0036}
0x2110…213a Head {h00=0x0026, h01=0x0050, text=» ONE HOLE«, t00=0x0015, t01=0x0048}
0x213a…218a Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0015, t01=0x0072}
0x218a…21d2 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x0015, t01=0x00c2}
0x21d2…21ea Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0015, t01=0x010a}
0x21ea…221c Head {h00=0x002e, h01=0x0050, text=»SCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION«, t00=0x0015, t01=0x0122}
0x221c…2242 Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 SCAN FOR SECOND HOLE«, t00=0x0015, t01=0x0154}
0x2242…2254 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0015, t01=0x017a}
0x2254…2266 Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x0015, t01=0x018c}
0x2266…229a Head {h00=0x0030, h01=0x0050, text=» ST A1,HOLE2 2:ND HOLE FOUND! SAVE POSITION «, t00=0x0016, t01=0x000e}
0x229a…22ca Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/7FFF LAST HOLE IN THIS COLUMN?«, t00=0x0016, t01=0x0042}
0x22ca…22e2 Head {h00=0x0014, h01=0x0050, text=» RF(P) SCAN3 NO!«, t00=0x0016, t01=0x0072}
0x22e2…22fc Head {h00=0x0016, h01=0x0050, text=» LD A1,HOLE1 YES! «, t00=0x0016, t01=0x008a}
0x22fc…230e Head {h00=0x000e, h01=0x0050, text=» CWK A1,3 «, t00=0x0016, t01=0x00a4}
0x230e…2336 Head {h00=0x0024, h01=0x0050, text=» RF(NL) SPEC SPECIAL CHARACTER? «, t00=0x0016, t01=0x00b6}
0x2336…2358 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A1 NO! LETTER OR /«, t00=0x0016, t01=0x00de}
0x2358…237e Head {h00=0x0022, h01=0x0050, text=» LD A1,TABLE1,A1 CHOOSE TABLE «, t00=0x0016, t01=0x0100}
0x237e…2392 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0016, t01=0x0126}
0x2392…23a4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0016, t01=0x013a}
0x23a4…23c4 Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x0016, t01=0x014c}
0x23c4…23da Head {h00=0x0012, h01=0x0050, text=» ADR A1,A3 NO!«, t00=0x0016, t01=0x016c}
0x23da…2404 Head {h00=0x0026, h01=0x0050, text=» LCR A3,A1 CHOOSE LETTER IN TABLE «, t00=0x0016, t01=0x0182}
0x2404…2416 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0017, t01=0x001c}
0x2416…242e Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0017, t01=0x002e}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x0046}
0x2438…2442 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x0050}
0x2442…247c Head {h00=0x0036, h01=0x0050, text=»* CONVERSION TABLE 1 ASCII /41 - 5A, 2F «, t00=0x0017, t01=0x005a}
0x247c…24b6 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0017, t01=0x0094}
0x24b6…24d0 Head {h00=0x0016, h01=0x0050, text=»TABLE1 DATA TAB.1 «, t00=0x0017, t01=0x00ce}
0x24d0…24e4 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.2 «, t00=0x0017, t01=0x00e8}
0x24e4…24f8 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.3 «, t00=0x0017, t01=0x00fc}
0x24f8…2510 Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x0017, t01=0x0110}
0x2510…2528 Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x0017, t01=0x0128}
0x2528…2554 Head {h00=0x0028, h01=0x0050, text=»TAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9 «, t00=0x0017, t01=0x0140}
0x2554…2580 Head {h00=0x0028, h01=0x0050, text=»TAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9 «, t00=0x0017, t01=0x016c}
0x2580…25aa Head {h00=0x0026, h01=0x0050, text=»TAB.3 DATA '/STUVWXYZ ' 0,1 - 0,9 «, t00=0x0018, t01=0x0008}
0x25aa…25e4 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0018, t01=0x0032}
0x25e4…25fc Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0018, t01=0x006c}
0x25fc…2606 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0018, t01=0x0084}
0x2606…2610 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0018, t01=0x008e}
0x2610…2634 Head {h00=0x0020, h01=0x0050, text=»SPEC RF(E) FAULT DATA FAULT?«, t00=0x0018, t01=0x0098}
0x2634…2664 Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 1!«, t00=0x0018, t01=0x00bc}
0x2664…267a Head {h00=0x0012, h01=0x0050, text=» SUK A1,4 NO! «, t00=0x0018, t01=0x00ec}
0x267a…269a Head {h00=0x001c, h01=0x0050, text=» CWK A1,5 A1=FIRST HOLE «, t00=0x0018, t01=0x0102}
0x269a…26ba Head {h00=0x001c, h01=0x0050, text=» RF(G) FAULT DATA FAULT?«, t00=0x0018, t01=0x0122}
0x26ba…26ea Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 8!«, t00=0x0018, t01=0x0142}
0x26ea…26fe Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0018, t01=0x0172}
0x26fe…2710 Head {h00=0x000e, h01=0x0050, text=» SUK A3,10«, t00=0x0018, t01=0x0186}
0x2710…2732 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x0019, t01=0x0008}
0x2732…2760 Head {h00=0x002a, h01=0x0050, text=» -THE SECOND HOLE MUST BE IN ROW 8! «, t00=0x0019, t01=0x002a}
0x2760…2794 Head {h00=0x0030, h01=0x0050, text=» LC A3,TABLE2,A1 CHOOSE CHARACTER IN TABLE2 «, t00=0x0019, t01=0x0058}
0x2794…27a6 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0019, t01=0x008c}
0x27a6…27b0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x009e}
0x27b0…27ba Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x00a8}
0x27ba…27e0 Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 2«, t00=0x0019, t01=0x00b2}
0x27e0…2810 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x0019, t01=0x00d8}
0x2810…2828 Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x0019, t01=0x0108}
0x2828…2840 Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x0019, t01=0x0120}
0x2840…2862 Head {h00=0x001e, h01=0x0050, text=»TABLE2 DATA ':#' 2,8 3,8 «, t00=0x0019, t01=0x0138}
0x2862…287e Head {h00=0x0018, h01=0x0050, text=» DATA /4027 4,8 5,8«, t00=0x0019, t01=0x015a}
0x287e…289a Head {h00=0x0018, h01=0x0050, text=» DATA '="' 6,8 7,8 «, t00=0x0019, t01=0x0176}
0x289a…28ca (26, 0, 400) Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001a, t01=0x0004}
0x28ca…2912 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x001a, t01=0x0034}
0x2912…2962 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x001a, t01=0x007c}
0x2962…29ac Head {h00=0x0046, h01=0x0050, text=» THREE HOLES«, t00=0x001a, t01=0x00cc}
0x29ac…29c4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001a, t01=0x0116}
0x29c4…29ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29ce…29e8 Head {h00=0x0016, h01=0x0050, text=»SCAN3 LD A1,HOLE1 «, t00=0x001a, t01=0x0138}
0x29e8…29fa Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x001a, t01=0x0152}
0x29fa…2a1a Head {h00=0x001c, h01=0x0050, text=» RF(P) FAULT DATA FAULT?«, t00=0x001a, t01=0x0164}
0x2a1a…2a4e Head {h00=0x0030, h01=0x0050, text=» -THE FIRST HOLE MUST BE WITHIN THE FIRST «, t00=0x001a, t01=0x0184}
0x2a4e…2a70 Head {h00=0x001e, h01=0x0050, text=» THREE ROWS (12, 11, 0)«, t00=0x001b, t01=0x0028}
0x2a70…2a84 Head {h00=0x0010, h01=0x0050, text=» LD A1,HOLE2«, t00=0x001b, t01=0x004a}
0x2a84…2a96 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x001b, t01=0x005e}
0x2a96…2ab6 Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x001b, t01=0x0070}
0x2ab6…2ac8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x001b, t01=0x0090}
0x2ac8…2adc Head {h00=0x0010, h01=0x0050, text=» RF(P) FAULT«, t00=0x001b, t01=0x00a2}
0x2adc…2b10 Head {h00=0x0030, h01=0x0050, text=» -THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7!«, t00=0x001b, t01=0x00b6}
0x2b10…2b22 Head {h00=0x000e, h01=0x0050, text=» ADK A1,9 «, t00=0x001b, t01=0x00ea}
0x2b22…2b4a Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 SCAN FOR THE 3:RD HOLE«, t00=0x001b, t01=0x00fc}
0x2b4a…2b5c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x001b, t01=0x0124}
0x2b5c…2b6e Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x001b, t01=0x0136}
0x2b6e…2b92 Head {h00=0x0020, h01=0x0050, text=» SUK A1,10 3:RD HOLE FOUND! «, t00=0x001b, t01=0x0148}
0x2b92…2bb4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x001b, t01=0x016c}
0x2bb4…2bde Head {h00=0x0026, h01=0x0050, text=» -THE 3:RD HOLE MUST BE IN ROW 8«, t00=0x001b, t01=0x018e}
0x2bde…2bf0 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x001c, t01=0x0028}
0x2bf0…2c12 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x001c, t01=0x003a}
0x2c12…2c34 Head {h00=0x001e, h01=0x0050, text=» -NO MORE THEN 3 HOLES! «, t00=0x001c, t01=0x005c}
0x2c34…2c48 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE1«, t00=0x001c, t01=0x007e}
0x2c48…2c5a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x001c, t01=0x0092}
0x2c5a…2c80 Head {h00=0x0022, h01=0x0050, text=» LD A3,TABLE3,A3 CHOOSE TABLE «, t00=0x001c, t01=0x00a4}
0x2c80…2c94 Head {h00=0x0010, h01=0x0050, text=» AD A3,HOLE2«, t00=0x001c, t01=0x00ca}
0x2c94…2ca6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001c, t01=0x00de}
0x2ca6…2cb8 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001c, t01=0x00f0}
0x2cb8…2cca Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001c, t01=0x0102}
0x2cca…2cdc Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x001c, t01=0x0114}
0x2cdc…2cf4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001c, t01=0x0126}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013e}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d08…2d2e Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 3«, t00=0x001c, t01=0x0152}
0x2d2e…2d5e Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001c, t01=0x0178}
0x2d5e…2d78 Head {h00=0x0016, h01=0x0050, text=»TABLE3 DATA TAB.4 «, t00=0x001d, t01=0x0018}
0x2d78…2d8c Head {h00=0x0010, h01=0x0050, text=» DATA TAB.5 «, t00=0x001d, t01=0x0032}
0x2d8c…2da0 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.6 «, t00=0x001d, t01=0x0046}
0x2da0…2dd6 Head {h00=0x0032, h01=0x0050, text=» ROWS ON CARD «, t00=0x001d, t01=0x005a}
0x2dd6…2e12 Head {h00=0x0038, h01=0x0050, text=» ------------------- «, t00=0x001d, t01=0x0090}
0x2e12…2e38 Head {h00=0x0022, h01=0x0050, text=»TAB.4 DATA '[.' 12,2,8 12,3,8«, t00=0x001d, t01=0x00cc}
0x2e38…2e5a Head {h00=0x001e, h01=0x0050, text=» DATA '<(' 12,4,8 12,5,8 «, t00=0x001d, t01=0x00f2}
0x2e5a…2e7c Head {h00=0x001e, h01=0x0050, text=» DATA /2B5E 12,6,8 12,7,8«, t00=0x001d, t01=0x0114}
0x2e7c…2ea2 Head {h00=0x0022, h01=0x0050, text=»TAB.5 DATA '!$' 11,2,8 11,3,8«, t00=0x001d, t01=0x0136}
0x2ea2…2ec4 Head {h00=0x001e, h01=0x0050, text=» DATA '*)' 11,4,8 11,5,8 «, t00=0x001d, t01=0x015c}
0x2ec4…2ee6 Head {h00=0x001e, h01=0x0050, text=» DATA ';]' 11,6,8 11,7,8 «, t00=0x001d, t01=0x017e}
0x2ee6…2f0c Head {h00=0x0022, h01=0x0050, text=»TAB.6 DATA /5C2C 0,2,8 0,3,8«, t00=0x001e, t01=0x0010}
0x2f0c…2f2e Head {h00=0x001e, h01=0x0050, text=» DATA /255F 0,4,8 0,5,8 «, t00=0x001e, t01=0x0036}
0x2f2e…2f4e Head {h00=0x001c, h01=0x0050, text=» DATA '>?' 0,6,8 0,7,8«, t00=0x001e, t01=0x0058}
0x2f4e…2f7e Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001e, t01=0x0078}
0x2f7e…2fc8 Head {h00=0x0046, h01=0x0050, text=» THREE HOLES «, t00=0x001e, t01=0x00a8}
0x2fc8…3018 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x001e, t01=0x00f2}
0x3018…3030 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x001e, t01=0x0142}
0x3030…303a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001e, t01=0x015a}
0x303a…3056 Head {h00=0x0018, h01=0x0050, text=» SET DATA FAULT«, t00=0x001e, t01=0x0164}
0x3056…3072 Head {h00=0x0018, h01=0x0050, text=» **************«, t00=0x001e, t01=0x0180}
0x3072…3086 Head {h00=0x0010, h01=0x0050, text=»FAULT EQU * «, t00=0x001f, t01=0x000c}
0x3086…30b8 Head {h00=0x002e, h01=0x0050, text=» LDK A1,4 SET DATA FAULT,BIT 13, IN STATUS«, t00=0x001f, t01=0x0020}
0x30b8…30d0 Head {h00=0x0014, h01=0x0050, text=» ST A1,STATUS,A6«, t00=0x001f, t01=0x0052}
0x30d0…30fc Head {h00=0x0028, h01=0x0050, text=» LDK A3,/3F REPLACE CHARACTER BY "?"«, t00=0x001f, t01=0x006a}
0x30fc…3106 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x0096}
0x3106…3110 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x00a0}
0x3110…3142 Head {h00=0x002e, h01=0x0050, text=» PUT CHARACTER (ASCII) IN USER BUFFER«, t00=0x001f, t01=0x00aa}
0x3142…3174 Head {h00=0x002e, h01=0x0050, text=» ************************************«, t00=0x001f, t01=0x00dc}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x001f, t01=0x010e}
0x3188…319c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001f, t01=0x0122}
0x319c…31b0 Head {h00=0x0010, h01=0x0050, text=» LD A4,FLAG «, t00=0x001f, t01=0x0136}
0x31b0…31e4 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED! «, t00=0x001f, t01=0x014a}
0x31e4…31f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x017e}
0x31f0…3220 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED«, t00=0x001f, t01=0x018a}
0x3220…3246 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A2 A3=ASCII CHARACTER «, t00=0x0020, t01=0x002a}
0x3246…326e Head {h00=0x0024, h01=0x0050, text=» SCR A3,A4 A4=BUFFER ADDRESS - 1«, t00=0x0020, t01=0x0050}
0x326e…329c Head {h00=0x002a, h01=0x0050, text=»TEST CWK A2,80 THE WHOLE CARD SCANNED?«, t00=0x0020, t01=0x0078}
0x329c…32b4 Head {h00=0x0014, h01=0x0050, text=» RF(L) NEXT NO! «, t00=0x0020, t01=0x00a6}
0x32b4…32c8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0020, t01=0x00be}
0x32c8…32ee Head {h00=0x0022, h01=0x0050, text=»READY CIO A3,0,DEVICE CIO HALT«, t00=0x0020, t01=0x00d2}
0x32ee…32fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00f8}
0x32fa…330e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0020, t01=0x0104}
0x330e…3322 Head {h00=0x0010, h01=0x0050, text=»READY EQU * «, t00=0x0020, t01=0x0118}
0x3322…332e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x012c}
0x332e…334e Head {h00=0x001c, h01=0x0050, text=» LDK A2,4 CHECK IF :EOF «, t00=0x0020, t01=0x0138}
0x334e…3366 Head {h00=0x0014, h01=0x0050, text=» CW A2,EFFLEN,A8«, t00=0x0020, t01=0x0158}
0x3366…338a Head {h00=0x0020, h01=0x0050, text=» RF(NE) NEXT00 EFF.LENGTH #4«, t00=0x0020, t01=0x0170}
0x338a…33b4 (33, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET BUFFER-ADDRESS«, t00=0x0021, t01=0x0004}
0x33b4…33c6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x002e}
0x33c6…33f2 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 GET FIRST WORD IN BUFFER«, t00=0x0021, t01=0x0040}
0x33f2…3410 Head {h00=0x001a, h01=0x0050, text=» CWK A2,':E' A2 = :E ?«, t00=0x0021, t01=0x006c}
0x3410…342a Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x0021, t01=0x008a}
0x342a…3450 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A4 YES, GET NEXT WORD«, t00=0x0021, t01=0x00a4}
0x3450…346e Head {h00=0x001a, h01=0x0050, text=» CWK A2,'OF' A2 = OF ?«, t00=0x0021, t01=0x00ca}
0x346e…3488 Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x0021, t01=0x00e8}
0x3488…34b2 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/1000 YES! :EOF DETECTED «, t00=0x0021, t01=0x0102}
0x34b2…34de Head {h00=0x0028, h01=0x0050, text=» ORS A2,STATUS,A6 SET BIT 3 IN R.C. «, t00=0x0021, t01=0x012c}
0x34de…34f6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0021, t01=0x0158}
0x34f6…350a Head {h00=0x0010, h01=0x0050, text=»NEXT00 EQU *«, t00=0x0021, t01=0x0170}
0x350a…351e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0021, t01=0x0184}
0x351e…3534 Head {h00=0x0012, h01=0x0050, text=»NEXT ADK A2,1 «, t00=0x0022, t01=0x0008}
0x3534…3554 Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE A2 «, t00=0x0022, t01=0x001e}
0x3554…3560 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x003e}
0x3560…3574 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0022, t01=0x004a}
0x3574…358e Head {h00=0x0016, h01=0x0050, text=» ABL IHCR20 READY «, t00=0x0022, t01=0x005e}
0x358e…35a0 Head {h00=0x000e, h01=0x0050, text=»NEXT EQU *«, t00=0x0022, t01=0x0078}
0x35a0…35b2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0022, t01=0x008a}
0x35b2…35ca Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTA2,A6 «, t00=0x0022, t01=0x009c}
0x35ca…35f2 Head {h00=0x0024, h01=0x0050, text=» ABL IHCR10 TAKE NEXT CHARACTER «, t00=0x0022, t01=0x00b4}
0x35f2…3606 Head {h00=0x0010, h01=0x0050, text=»NEXT10 EQU *«, t00=0x0022, t01=0x00dc}
0x3606…3612 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00f0}
0x3612…3642 Head {h00=0x002c, h01=0x0050, text=» ABL RETUR8 LOAD A1 - A8 AND RETURN A15 «, t00=0x0022, t01=0x00fc}
0x3642…365a Head {h00=0x0014, h01=0x0050, text=» EJECT DRCR01 «, t00=0x0022, t01=0x012c}
0x365a…3664 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0022, t01=0x0144}
0x3664…3692 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0022, t01=0x014e}
0x3692…36c0 Head {h00=0x002a, h01=0x0050, text=»* DEVICE WORK TABLE FOR CARD READER * «, t00=0x0022, t01=0x017c}
0x36c0…36ee Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0023, t01=0x001a}
0x36ee…36f8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0023, t01=0x0048}
0x36f8…370c Head {h00=0x0010, h01=0x0050, text=»DWCR01 EQU *«, t00=0x0023, t01=0x0052}
0x370c…372e Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0023, t01=0x0066}
0x372e…3748 Head {h00=0x0016, h01=0x0050, text=» DATA /8000 STATUS«, t00=0x0023, t01=0x0088}
0x3748…3764 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0023, t01=0x00a2}
0x3764…3786 Head {h00=0x001e, h01=0x0050, text=» DATA 0 LAST OUTPUT, ORDER«, t00=0x0023, t01=0x00be}
0x3786…37b2 Head {h00=0x0028, h01=0x0050, text=» DATA CRADR POINTER TO DEVICE DRIVER«, t00=0x0023, t01=0x00e0}
0x37b2…37d2 Head {h00=0x001c, h01=0x0050, text=» DATA 0 POINTER TO TTAB «, t00=0x0023, t01=0x010c}
0x37d2…37fa Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0023, t01=0x012c}
0x37fa…3818 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0023, t01=0x0154}
0x3818…382e Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x0172}
0x382e…3858 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0023, t01=0x0188}
0x3858…387c Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0024, t01=0x0022}
0x387c…3888 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0024, t01=0x0046}
0x3888…38aa Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0024, t01=0x0052}
0x38aa…38ca Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A2 «, t00=0x0024, t01=0x0074}
0x38ca…38ea Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A4 «, t00=0x0024, t01=0x0094}
0x38ea…390a Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A5 «, t00=0x0024, t01=0x00b4}
0x390a…3922 Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT STACK«, t00=0x0024, t01=0x00d4}
0x3922…393e Head {h00=0x0018, h01=0x0050, text=»STATUS EQU *-DWCR01 «, t00=0x0024, t01=0x00ec}
0x393e…3966 Head {h00=0x0024, h01=0x0050, text=» DATA 0 SOFTWARE STATUS SAVEAREA«, t00=0x0024, t01=0x0108}
0x3966…398c Head {h00=0x0022, h01=0x0050, text=»FLAG DATA 0 RECOVERY INDICATOR«, t00=0x0024, t01=0x0130}
0x398c…3996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0156}
0x3996…39ac Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0024, t01=0x0160}
0x39ac…39c0 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0024, t01=0x0176}
0x39c0…39d0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0024, t01=0x018a}
0x39d0…39e4 Head {h00=0x0010, h01=0x0050, text=» DATA CR:BUF«, t00=0x0025, t01=0x000a}
0x39e4…39fa Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0025, t01=0x001e}
0x39fa…3a16 Head {h00=0x0018, h01=0x0050, text=»CR:BUF RES DVBLEN+1 «, t00=0x0025, t01=0x0034}
0x3a16…3a22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0050}
0x3a22…3a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x005c}
0x3a2c…3a38 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0025, t01=0x0066}
0x3a38…3a3c Head {h00=0x4004, h01=0x0000}
0x3a3c…3a40 00 25 00 72 ┆ % r┆
0x3a40…3a48 (38, 1, 8) 20 04 00 00 00 26 00 04 ┆ & ┆
0x3a48…3a98 (39, 0, 400) 00 06 00 50 2a 20 00 37 00 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 37 00 0e 00 06 00 50 2a 20 00 37 00 26 00 06 00 50 2a 20 00 37 00 30 00 2c 00 50 44 55 4e 41 31 30 5c 4c 44 4b 4c 5c 41 33 2c 42 55 46 2b 32 5c 47 ┆ P* 7 P EJECT DRDU01 7 P* 7 & P* 7 0 , PDUNA10 LDKL A3,BUF+2 G┆
0x3a98…3ae8 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 37 00 3a 00 26 00 50 5c 53 54 5c 41 34 2c 44 57 54 41 34 2c 41 36 5c 53 41 56 45 20 52 45 54 52 59 20 43 4f 55 4e 54 45 52 00 37 00 6a 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 36 20 00 37 ┆ET BUFFER ADDRESS 7 : & P ST A4,DWTA4,A6 SAVE RETRY COUNTER 7 j P LDK A4,6 7┆
0x3ae8…3b38 00 94 00 06 00 50 2a 20 00 37 00 a6 00 26 00 50 44 55 4e 41 32 30 5c 4c 44 52 2a 5c 41 37 2c 41 33 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 37 00 b0 00 2e 00 50 5c 43 57 52 2a 5c 41 37 2c 41 32 5c 43 4f 4d 50 41 52 45 20 57 49 ┆ P* 7 & PDUNA20 LDR* A7,A3 GET VOLUME NAME 7 . P CWR* A7,A2 COMPARE WI┆
0x3b38…3b88 54 48 20 4c 41 53 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 37 00 da 00 1c 00 50 5c 52 46 28 45 29 5c 44 55 4e 41 33 30 5c 53 41 4d 45 20 44 49 53 43 20 00 37 01 0c 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 2f 38 30 5c 4e 45 57 20 44 49 53 43 ┆TH LAST VOLUME NAME 7 P RF(E) DUNA30 SAME DISC 7 P LDK A1,/80 NEW DISC┆
0x3b88…3bd8 20 4c 4f 41 44 45 44 20 00 37 01 2c 00 06 00 50 2a 20 00 37 01 50 00 24 00 50 44 55 4e 41 33 30 5c 53 54 52 5c 41 37 2c 41 32 5c 53 41 56 45 20 44 49 53 43 20 4e 41 4d 45 20 00 37 01 5a 00 20 00 50 5c 41 44 4b 5c 41 32 2c 32 5c 49 4e 43 52 ┆ LOADED 7 , P* 7 P $ PDUNA30 STR A7,A2 SAVE DISC NAME 7 Z P ADK A2,2 INCR┆
0x3bd8…3c28 (40, 0, 400) 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 53 00 37 01 82 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 32 20 00 38 00 16 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 32 20 00 38 00 28 00 20 00 50 5c 52 42 28 4e 5a 29 5c 44 55 4e 41 32 30 5c 47 45 54 20 4e 45 58 ┆EMENT POINTERS 7 P ADK A3,2 8 P SUK A4,2 8 ( P RB(NZ) DUNA20 GET NEX┆
0x3c28…3c78 54 20 57 4f 52 44 00 38 00 3a 00 14 00 50 5c 41 44 4b 5c 41 31 2c 30 5c 53 45 54 20 43 52 00 38 00 5e 00 1e 00 50 5c 52 46 28 5a 29 5c 44 55 4e 41 34 30 5c 56 4f 4c 55 4d 45 20 4d 41 54 43 48 00 38 00 76 00 2c 00 50 5c 4c 44 5c 41 34 2c 49 ┆T WORD 8 : P ADK A1,0 SET CR 8 ^ P RF(Z) DUNA40 VOLUME MATCH 8 v , P LD A4,I┆
0x3c78…3cc8 4e 49 46 4c 47 5c 43 48 45 43 4b 20 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 46 4c 41 47 20 00 38 00 98 00 20 00 50 5c 52 46 28 4e 5a 29 5c 44 55 4e 41 34 30 5c 4e 4f 54 20 50 4f 57 45 52 20 55 50 3f 00 38 00 c8 00 1a 00 50 5c 4c 43 5c ┆NIFLG CHECK INITIALIZATION FLAG 8 P RF(NZ) DUNA40 NOT POWER UP? 8 P LC ┆
0x3cc8…3d18 41 34 2c 44 57 54 4f 52 2c 41 36 5c 49 4e 44 45 58 20 00 38 00 ec 00 0e 00 50 5c 41 44 52 5c 41 34 2c 41 34 00 38 01 0a 00 0e 00 50 5c 41 44 52 5c 41 34 2c 41 36 00 38 01 1c 00 26 00 50 5c 53 54 5c 41 31 2c 44 57 54 42 53 59 2c 41 34 5c 4e ┆A4,DWTOR,A6 INDEX 8 P ADR A4,A4 8 P ADR A4,A6 8 & P ST A1,DWTBSY,A4 N┆
0x3d18…3d68 45 57 20 56 4f 4c 55 4d 45 20 4c 4f 41 44 45 44 00 38 01 2e 00 06 00 50 2a 20 00 38 01 58 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 38 01 62 00 06 00 50 2a 20 00 38 01 7a 00 06 00 50 2a 20 00 38 01 84 00 10 00 50 44 55 ┆EW VOLUME LOADED 8 . P* 8 X P EJECT DRDU01 8 b P* 8 z P* 8 PDU┆
0x3d68…3db8 (41, 0, 398) 4e 41 34 30 5c 45 51 55 5c 2a 00 38 01 8e 00 2a 00 50 5c 4c 44 5c 41 34 2c 44 57 54 41 34 2c 41 36 5c 52 45 53 54 4f 52 45 20 52 45 54 52 59 20 43 4f 55 4e 54 45 52 20 00 39 00 12 00 1a 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4f 52 2c 41 36 5c ┆NA40 EQU * 8 * P LD A4,DWTA4,A6 RESTORE RETRY COUNTER 9 P LD A1,DWTOR,A6 ┆
0x3db8…3e08 4f 52 44 45 52 20 00 39 00 40 00 12 00 50 5c 52 46 28 4e 5a 29 5c 56 4f 3a 4e 41 36 00 39 00 5e 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 31 20 00 39 00 74 00 1c 00 50 5c 53 43 5c 41 31 2c 44 57 54 4f 52 2c 41 36 5c 49 4e 44 45 58 3d 31 20 00 39 ┆ORDER 9 @ P RF(NZ) VO:NA6 9 ^ P LDK A1,1 9 t P SC A1,DWTOR,A6 INDEX=1 9┆
0x3e08…3e58 00 86 00 0e 00 50 5c 52 42 5c 56 4f 3a 4e 41 35 00 39 00 a6 00 06 00 50 2a 20 00 39 00 b8 00 26 00 50 56 4f 3a 4e 41 36 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 39 00 c2 00 06 00 50 2a 20 00 39 ┆ P RB VO:NA5 9 P* 9 & PVO:NA6 LDK A1,0 RESET RETURN CODE 9 P* 9┆
0x3e58…3ea8 00 ec 00 10 00 50 56 4f 3a 4e 41 38 5c 45 51 55 5c 2a 00 39 00 f6 00 10 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2d 31 20 00 39 01 0a 00 14 00 50 5c 53 54 5c 41 32 2c 44 57 54 53 41 56 2c 41 36 00 39 01 1e 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 39 ┆ PVO:NA8 EQU * 9 P LDKL A2,-1 9 P ST A2,DWTSAV,A6 9 P RTN A5 9┆
0x3ea8…3ef6 01 36 00 06 00 50 2a 20 00 39 01 46 00 16 00 50 2a 20 20 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 39 01 50 00 06 00 50 2a 20 00 39 01 6a 00 1e 00 50 54 49 4d 45 52 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 ┆ 6 P* 9 F P* TIMER POINTER 9 P P* 9 j PTIMER DATA 0 TIMER POINTER┆
0x3ef6…3f46 (42, 0, 398) 00 39 01 74 00 06 00 50 2a 20 00 3a 00 08 00 1c 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 5c 5c 5c 44 52 44 55 30 31 00 3a 00 12 00 06 00 50 2a 20 00 3a 00 32 00 06 00 50 2a 20 00 3a 00 3c 00 2a 00 50 2a 20 20 20 44 45 56 49 43 45 ┆ 9 t P* : P EJECT DRDU01 DRDU01 : P* : 2 P* : < * P* DEVICE┆
0x3f46…3f96 20 57 4f 52 4b 20 54 41 42 4c 45 20 44 49 53 43 20 55 4e 49 54 20 4e 4f 2e 20 32 20 00 3a 00 46 00 06 00 50 2a 20 00 3a 00 74 00 06 00 50 2a 20 00 3a 00 7e 00 10 00 50 44 57 44 55 30 32 5c 45 51 55 5c 2a 00 3a 00 88 00 12 00 50 5c 49 46 54 ┆ WORK TABLE DISC UNIT NO. 2 : F P* : t P* : ~ PDWDU02 EQU * : P IFT┆
0x3f96…3fe6 5c 4e 55 4e 49 54 53 3d 32 20 00 3a 00 9c 00 26 00 50 5c 44 41 54 41 5c 44 57 44 55 30 31 5c 50 4f 49 4e 54 45 52 20 54 4f 20 4f 54 48 45 52 20 44 57 54 20 00 3a 00 b2 00 1a 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 44 57 54 20 53 54 41 54 ┆ NUNITS=2 : & P DATA DWDU01 POINTER TO OTHER DWT : P DATA /8000 DWT STAT┆
0x3fe6…4036 55 53 00 3a 00 dc 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 3a 00 fa 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 3a 01 16 00 22 00 50 5c 44 41 54 41 5c 44 55 41 44 52 5c 41 43 54 49 56 41 54 49 ┆US : P DATA 0 ECB ADDRESS : P DATA 0 ORDER : " P DATA DUADR ACTIVATI┆
0x4036…4084 4f 4e 20 41 44 44 52 45 53 53 00 3a 01 2c 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 3a 01 52 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 ┆ON ADDRESS : , P DATA 0 TTAB ADDRESS : R $ P DATA 0 WAIT/ACTIVATE INDICATOR ┆
0x4084…40d4 (43, 0, 400) 00 3a 01 6e 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 52 4d 49 4e 41 4c 20 51 55 45 55 45 00 3b 00 08 00 12 00 0d 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 3b 00 26 00 26 00 22 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 55 53 ┆ : n P DATA 0 TERMINAL QUEUE ; IFT MMUPAG=1 ; & & " DATA 0 SAVE AREA US┆
0x40d4…4124 45 52 20 45 43 42 20 41 44 44 52 45 53 53 00 3b 00 3c 00 20 00 50 5c 44 41 54 41 5c 45 43 42 44 55 32 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 53 53 00 3b 00 66 00 08 00 04 5c 58 49 46 00 3b 00 8a 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 ┆ER ECB ADDRESS ; < P DATA ECBDU2 MMU ECB ADDRESS ; f XIF ; P IFT NUNIT┆
0x4124…4174 53 3d 32 20 00 3b 00 96 00 28 00 50 5c 44 41 54 41 5c 2f 30 30 46 46 5c 4c 45 46 54 20 42 59 54 45 3d 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 3b 00 ac 00 28 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f ┆S=2 ; ( P DATA /00FF LEFT BYTE=SECTOR NUMBER ; ( P DATA 0,0,0 SAVE AREA FO┆
0x4174…41c4 52 20 52 45 47 49 53 54 45 52 53 20 00 3b 00 d8 00 14 00 50 5c 44 41 54 41 5c 30 2c 30 5c 53 54 41 43 4b 20 00 3b 01 04 00 0e 00 50 5c 44 41 54 41 5c 30 2c 30 20 00 3b 01 1c 00 24 00 50 5c 44 41 54 41 5c 30 5c 44 49 53 43 20 55 4e 49 54 20 ┆R REGISTERS ; P DATA 0,0 STACK ; P DATA 0,0 ; $ P DATA 0 DISC UNIT ┆
0x41c4…4214 42 55 53 59 20 49 4e 44 49 43 41 54 4f 52 00 3b 01 2e 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 3b 01 56 00 24 00 50 5c 5c 5c 52 49 47 48 54 20 42 59 54 45 20 3d 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 20 00 3b 01 66 00 28 00 50 5c 43 ┆BUSY INDICATOR ; . P DATA 0 ; V $ P RIGHT BYTE = CYLINDER NUMBER ; f ( P C┆
0x4214…4264 (44, 0, 398) 49 4f 5c 41 32 2c 31 2c 44 41 46 32 5c 43 49 4f 2d 53 54 41 52 54 20 46 49 58 45 44 20 44 49 53 43 20 00 3b 01 8e 00 2c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 41 43 32 5c 43 49 4f 2d 53 54 41 52 54 20 43 41 52 54 52 49 44 47 45 20 44 49 53 ┆IO A2,1,DAF2 CIO-START FIXED DISC ; , P CIO A2,1,DAC2 CIO-START CARTRIDGE DIS┆
0x4264…42b4 43 20 00 3c 00 2a 00 06 00 50 2a 20 00 3c 00 5a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 3c 00 64 00 06 00 50 2a 20 00 3c 00 7c 00 06 00 50 2a 20 00 3c 00 86 00 10 00 50 5c 57 45 52 5c 41 32 2c 57 45 52 31 00 3c 00 90 ┆C < * P* < Z P EJECT DRDU01 < d P* < | P* < P WER A2,WER1 < ┆
0x42b4…4304 00 12 00 50 5c 57 45 52 5c 41 33 2c 57 45 52 31 2b 31 00 3c 00 a4 00 26 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 46 49 58 45 44 20 44 49 53 43 00 3c 00 ba 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 5c ┆ P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 ┆
0x4304…4354 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 43 41 52 54 52 49 44 47 45 20 44 49 53 43 00 3c 00 e4 00 0c 00 50 5c 44 41 54 41 5c 2d 31 00 3c 01 12 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 3c 01 22 00 1c 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 5c 43 59 ┆VOLUME NAME CARTRIDGE DISC < P DATA -1 < P DATA 0 < " P DATA /FFFF CY┆
0x4354…43a2 4c 49 4e 44 45 52 20 4e 4f 2e 00 3c 01 32 00 10 00 50 5c 49 46 54 5c 54 59 50 45 32 3d 30 00 3c 01 52 00 20 00 50 5c 44 41 54 41 5c 4d 41 58 43 59 35 5c 4d 41 58 20 43 59 4c 49 4e 44 45 52 20 4e 4f 00 3c 01 66 00 08 00 50 5c 58 49 46 ┆LINDER NO. < 2 P IFT TYPE2=0 < R P DATA MAXCY5 MAX CYLINDER NO < f P XIF┆