|
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: 13864 (0x3628)
Notes: pts_type(SC)
Names: »DRCR01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRCR01.SC«
IDENT DRCR01 REL 8.2 78-09-15 870105040820
************************************************************
*
* 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
*****************
* 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
******************************
* DISPLACEMENTS IN DWT *
******************************
DWTST EQU 2
ECB EQU 4
DWTA2 EQU 18
DWTA4 EQU 20
DWTA5 EQU 22
STATUS EQU 32
*******************
* CONSTANTS *
*******************
DEVICE EQU /0D
MUX EQU DEVICE+DEVICE
REQLEN EQU 4
BUFFER EQU 2
EFFLEN EQU 6
EJECT
*
**************************
* CONDITIONAL ASSEMBLY *
**************************
* PROGRAMMED CHANNEL MAY BE USED INSTEAD
* OF MULTIPLEX CHANNEL BY SETTING X:A=1
*
X:A EQU 0
CHAN EQU X:A
*
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
***********************
*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
* *************
CRADR DATA ACCR
IFT CHAN=0
*
**********
* BUFFER *
**********
MUXBUF EQU *
RES 80
XIF
EJECT
*************************
* *
* 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
******************************
* 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 EXIT
********************
* RECOVERY ROUTINE *
********************
CRON EQU *
CF A15,SAVE8
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
*********************
* INTERRUPT HANDLER *
*********************
IHCR EQU *
ST P,INTSAVE SAVE LAST INTERRUPT
CF A15,SAVE8 SAVE A1 - A8
LDKL A6,DWCR01 DWT ADDRESS
LD A2,DWTA2,A6 CARD-COLUMN
LD A8,ECB,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
*******************
* 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
*=======================================================================
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
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
* 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
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
*
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
*
*
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
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
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
*************************************
* 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
DATA 0 OUTPUT QUEUE LINK
DATA 0 SAVEAREA FOR A2
DATA 0 SAVEAREA FOR A4
DATA 0 SAVEAREA FOR A5
RES 4 DWT STACK
DATA 0 SOFTWARE STATUS SAVEAREA
FLAG DATA 0 RECOVERY INDICATOR
END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRCR01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0000, t01=0x004c}
0x0052…0096 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x0056}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00c6 Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00a4}
0x00c6…00d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00f6 Head {h00=0x0022, h01=0x0050, text=»* DRCR01 = DRIVER CARD READER«, t00=0x0000, t01=0x00d4}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…016c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x012c}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…0180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…01c4 Head {h00=0x0040, h01=0x0050, text=»* THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED «, t00=0x0000, t01=0x0184}
0x01c4…0204 Head {h00=0x003c, h01=0x0050, text=»* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL «, t00=0x0001, t01=0x0038}
0x0204…020e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x020e…0218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x0218…025c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x008c}
0x025c…026a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00d0}
0x026a…0284 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x00de}
0x0284…029e Head {h00=0x0016, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x00f8}
0x029e…02b8 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0112}
0x02b8…02da Head {h00=0x001e, h01=0x0050, text=» ENTRY CRADR ADDRESS TABLE«, t00=0x0001, t01=0x012c}
0x02da…02fe Head {h00=0x0020, h01=0x0050, text=» ENTRY ACCR ACTIVATION PART «, t00=0x0001, t01=0x014e}
0x02fe…0322 Head {h00=0x0020, h01=0x0050, text=» ENTRY CRON RECOVERY ROUTINE«, t00=0x0001, t01=0x0172}
0x0322…0348 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCR INTERRUPT HANDLER «, t00=0x0002, t01=0x0008}
0x0348…0372 Head {h00=0x0026, h01=0x0050, text=» ENTRY DWCR01 DWT FOR CARD READER «, t00=0x0002, t01=0x002e}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x0058}
0x037c…03aa Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x0062}
0x03aa…03d8 Head {h00=0x002a, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0002, t01=0x0090}
0x03d8…0406 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x00be}
0x0406…0426 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x00ec}
0x0426…0458 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15-STACK«, t00=0x0002, t01=0x010c}
0x0458…048e Head {h00=0x0032, h01=0x0050, text=» EXTRN RETUR8 LOAD 8 REGISTErS FROM A15-STACK «, t00=0x0002, t01=0x013e}
0x048e…04ac Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x0174}
0x04ac…04d0 (3, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x0004}
0x04d0…0500 Head {h00=0x002c, h01=0x0050, text=» EXTRN INTSAV SAVE AREA, LAST INTERRUPT «, t00=0x0003, t01=0x0028}
0x0500…050a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0003, t01=0x0058}
0x050a…0530 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0003, t01=0x0062}
0x0530…0556 Head {h00=0x0022, h01=0x0050, text=»* DISPLACEMENTS IN DWT *«, t00=0x0003, t01=0x0088}
0x0556…057c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0003, t01=0x00ae}
0x057c…0590 Head {h00=0x0010, h01=0x0050, text=»DWTST EQU 2 «, t00=0x0003, t01=0x00d4}
0x0590…05a2 Head {h00=0x000e, h01=0x0050, text=»ECB EQU 4 «, t00=0x0003, t01=0x00e8}
0x05a2…05b6 Head {h00=0x0010, h01=0x0050, text=»DWTA2 EQU 18«, t00=0x0003, t01=0x00fa}
0x05b6…05ca Head {h00=0x0010, h01=0x0050, text=»DWTA4 EQU 20«, t00=0x0003, t01=0x010e}
0x05ca…05de Head {h00=0x0010, h01=0x0050, text=»DWTA5 EQU 22«, t00=0x0003, t01=0x0122}
0x05de…05f4 Head {h00=0x0012, h01=0x0050, text=»STATUS EQU 32 «, t00=0x0003, t01=0x0136}
0x05f4…05fe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0003, t01=0x014c}
0x05fe…061a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x0156}
0x061a…0636 Head {h00=0x0018, h01=0x0050, text=»* CONSTANTS * «, t00=0x0003, t01=0x0172}
0x0636…0652 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x018e}
0x0652…0668 Head {h00=0x0012, h01=0x0050, text=»DEVICE EQU /0D«, t00=0x0004, t01=0x001a}
0x0668…0686 Head {h00=0x001a, h01=0x0050, text=»MUX EQU DEVICE+DEVICE «, t00=0x0004, t01=0x0030}
0x0686…069a Head {h00=0x0010, h01=0x0050, text=»REQLEN EQU 4«, t00=0x0004, t01=0x004e}
0x069a…06ae Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU 2«, t00=0x0004, t01=0x0062}
0x06ae…06c2 Head {h00=0x0010, h01=0x0050, text=»EFFLEN EQU 6«, t00=0x0004, t01=0x0076}
0x06c2…06d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x008a}
0x06d0…06da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06da…06fc Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x00a2}
0x06fc…071e Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0004, t01=0x00c4}
0x071e…0740 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x00e6}
0x0740…0772 Head {h00=0x002e, h01=0x0050, text=»* PROGRAMMED CHANNEL MAY BE USED INSTEAD «, t00=0x0004, t01=0x0108}
0x0772…07a2 Head {h00=0x002c, h01=0x0050, text=»* OF MULTIPLEX CHANNEL BY SETTING X:A=1«, t00=0x0004, t01=0x013a}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016a}
0x07ac…07be Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0004, t01=0x0174}
0x07be…07d2 Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0004, t01=0x0186}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07dc…07ee Head {h00=0x000e, h01=0x0050, text=» STATUS «, t00=0x0005, t01=0x0014}
0x07ee…080e Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0005, t01=0x0026}
0x080e…0824 Head {h00=0x0012, h01=0x0050, text=» -HARDWARE: «, t00=0x0005, t01=0x0046}
0x0824…0856 Head {h00=0x002e, h01=0x0050, text=» BIT 10: INPUT HOPPER EMPTY OR OUTPUT«, t00=0x0005, t01=0x005c}
0x0856…0870 Head {h00=0x0016, h01=0x0050, text=» STACKER FULL«, t00=0x0005, t01=0x008e}
0x0870…088e Head {h00=0x001a, h01=0x0050, text=» 14: THROUGHPUT ERROR«, t00=0x0005, t01=0x00a8}
0x088e…08a8 Head {h00=0x0016, h01=0x0050, text=» 15: NOT OPERABLE«, t00=0x0005, t01=0x00c6}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0005, t01=0x00e0}
0x08b2…08c8 Head {h00=0x0012, h01=0x0050, text=» -SOFTWARE: «, t00=0x0005, t01=0x00ea}
0x08c8…08ec Head {h00=0x0020, h01=0x0050, text=» BIT 0: REQUEST ERROR «, t00=0x0005, t01=0x0100}
0x08ec…0910 Head {h00=0x0020, h01=0x0050, text=» 3: :EOF DETECTED «, t00=0x0005, t01=0x0124}
0x0910…0936 Head {h00=0x0022, h01=0x0050, text=» 12: INCORRECT LENGTH«, t00=0x0005, t01=0x0148}
0x0936…0956 Head {h00=0x001c, h01=0x0050, text=» 13: DATA FAULT«, t00=0x0005, t01=0x016e}
0x0956…0960 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0005, t01=0x018e}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x0008}
0x096a…0974 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x0012}
0x0974…0984 Head {h00=0x000c, h01=0x0050, text=» ORDER«, t00=0x0006, t01=0x001c}
0x0984…09a4 Head {h00=0x001c, h01=0x0050, text=» ******************** «, t00=0x0006, t01=0x002c}
0x09a4…09ae Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x004c}
0x09ae…09d2 Head {h00=0x0020, h01=0x0050, text=» /02 STANDARD READ «, t00=0x0006, t01=0x0056}
0x09d2…0a12 Head {h00=0x003c, h01=0x0050, text=» -THE CARDS ARE READ IN HOLLERITH CODE, ON 12 BITS,«, t00=0x0006, t01=0x007a}
0x0a12…0a50 Head {h00=0x003a, h01=0x0050, text=» CONVERTED INTO ASCII CODE ON 8 BITS, AND STORED«, t00=0x0006, t01=0x00ba}
0x0a50…0a80 Head {h00=0x002c, h01=0x0050, text=» UNTIL REQUESTED LENGTH IS REACHED«, t00=0x0006, t01=0x00f8}
0x0a80…0a8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0128}
0x0a8e…0ab0 Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0006, t01=0x0136}
0x0ab0…0ad2 Head {h00=0x001e, h01=0x0050, text=» *NORMAL REGISTER USAGE*«, t00=0x0006, t01=0x0158}
0x0ad2…0af4 Head {h00=0x001e, h01=0x0050, text=» ***********************«, t00=0x0006, t01=0x017a}
0x0af4…0b0c Head {h00=0x0014, h01=0x0050, text=» A1=RETURN CODE«, t00=0x0007, t01=0x000c}
0x0b0c…0b26 Head {h00=0x0016, h01=0x0050, text=» A2=WORK REGISTER«, t00=0x0007, t01=0x0024}
0x0b26…0b40 Head {h00=0x0016, h01=0x0050, text=» A3=WORK REGISTER«, t00=0x0007, t01=0x003e}
0x0b40…0b5c Head {h00=0x0018, h01=0x0050, text=» A4=BUFFER ADDRESS «, t00=0x0007, t01=0x0058}
0x0b5c…0b74 Head {h00=0x0014, h01=0x0050, text=» A5=STACK BASE «, t00=0x0007, t01=0x0074}
0x0b74…0b8c Head {h00=0x0014, h01=0x0050, text=» A6=DWT-ADDRESS«, t00=0x0007, t01=0x008c}
0x0b8c…0b9e Head {h00=0x000e, h01=0x0050, text=» A7=ORDER«, t00=0x0007, t01=0x00a4}
0x0b9e…0bb6 Head {h00=0x0014, h01=0x0050, text=» A8=ECB-ADDRESS«, t00=0x0007, t01=0x00b6}
0x0bb6…0bc0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x00ce}
0x0bc0…0bfe Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0007, t01=0x00d8}
0x0bfe…0c3c Head {h00=0x003a, h01=0x0050, text=»* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED * «, t00=0x0007, t01=0x0116}
0x0c3c…0c7a Head {h00=0x003a, h01=0x0050, text=»* CARD COLUMNES: 1,2,3,4.......80 * «, t00=0x0007, t01=0x0154}
0x0c7a…0cb8 (8, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* CARD ROWS : 12,11,0,1,2,3.....9 * «, t00=0x0008, t01=0x0004}
0x0cb8…0cf6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0008, t01=0x0042}
0x0cf6…0d00 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x0080}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x008a}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x0094}
0x0d14…0d38 Head {h00=0x0020, h01=0x0050, text=»* ADDRESS TABLE «, t00=0x0008, t01=0x009e}
0x0d38…0d5c Head {h00=0x0020, h01=0x0050, text=»* ************* «, t00=0x0008, t01=0x00c2}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0008, t01=0x00e6}
0x0d66…0d7e Head {h00=0x0014, h01=0x0050, text=»CRADR DATA ACCR «, t00=0x0008, t01=0x00f0}
0x0d7e…0d92 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0008, t01=0x0108}
0x0d92…0d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0d9c…0dae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x0126}
0x0dae…0dc0 Head {h00=0x000e, h01=0x0050, text=»* BUFFER *«, t00=0x0008, t01=0x0138}
0x0dc0…0dd2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x014a}
0x0dd2…0de6 Head {h00=0x0010, h01=0x0050, text=»MUXBUF EQU *«, t00=0x0008, t01=0x015c}
0x0de6…0df6 Head {h00=0x000c, h01=0x0050, text=» RES 80 «, t00=0x0008, t01=0x0170}
0x0df6…0e02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0180}
0x0e02…0e10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x018c}
0x0e10…0e32 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0009, t01=0x000a}
0x0e32…0e54 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x002c}
0x0e54…0e76 Head {h00=0x001e, h01=0x0050, text=»* ACTIVATION PART * «, t00=0x0009, t01=0x004e}
0x0e76…0e98 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0070}
0x0e98…0eba Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0009, t01=0x0092}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x00b4}
0x0ec4…0ed6 Head {h00=0x000e, h01=0x0050, text=»ACCR EQU *«, t00=0x0009, t01=0x00be}
0x0ed6…0ef0 Head {h00=0x0016, h01=0x0050, text=» SUK A7,2 ORDER 2?«, t00=0x0009, t01=0x00d0}
0x0ef0…0f0a Head {h00=0x0016, h01=0x0050, text=» RF(Z) ORDER2 YES!«, t00=0x0009, t01=0x00ea}
0x0f0a…0f2e Head {h00=0x0020, h01=0x0050, text=» ABL DISIOE NO! REQEST ERROR«, t00=0x0009, t01=0x0104}
0x0f2e…0f4c Head {h00=0x001a, h01=0x0050, text=»ORDER2 LD A3,REQLEN,A8«, t00=0x0009, t01=0x0128}
0x0f4c…0f5e Head {h00=0x000e, h01=0x0050, text=» CWK A3,80«, t00=0x0009, t01=0x0146}
0x0f5e…0f72 Head {h00=0x0010, h01=0x0050, text=» RF(NG) AC.1«, t00=0x0009, t01=0x0158}
0x0f72…0f9c Head {h00=0x0026, h01=0x0050, text=» LDK A1,8 REQ. LENGTH IS TOO LONG!«, t00=0x0009, t01=0x016c}
0x0f9c…0fcc Head {h00=0x002c, h01=0x0050, text=» RF ENDIO SET "INCORRECT LENGTH" BIT 12 «, t00=0x000a, t01=0x0008}
0x0fcc…0fde Head {h00=0x000e, h01=0x0050, text=»AC.1 EQU *«, t00=0x000a, t01=0x0038}
0x0fde…0ff4 Head {h00=0x0012, h01=0x0050, text=» CM STATUS,A6 «, t00=0x000a, t01=0x004a}
0x0ff4…101e Head {h00=0x0026, h01=0x0050, text=» CM FLAG RESET RECOVERY INDICATOR «, t00=0x000a, t01=0x0060}
0x101e…1040 Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ ONE CARD «, t00=0x000a, t01=0x008a}
0x1040…1076 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12«, t00=0x000a, t01=0x00ac}
0x1076…108e Head {h00=0x0014, h01=0x0050, text=» OR A1,STATUS,A6«, t00=0x000a, t01=0x00e2}
0x108e…10b6 Head {h00=0x0024, h01=0x0050, text=»ENDIO CF A15,TENDIO END REQUEST «, t00=0x000a, t01=0x00fa}
0x10b6…10cc Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000a, t01=0x0122}
0x10cc…10da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0138}
0x10da…1100 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x0146}
0x1100…1126 Head {h00=0x0022, h01=0x0050, text=»* SUBROUTIN TO READ ONE CARD *«, t00=0x000a, t01=0x016c}
0x1126…114c (11, 0, 400) Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000b, t01=0x0004}
0x114c…115e Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000b, t01=0x002a}
0x115e…117e Head {h00=0x001c, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE A5 «, t00=0x000b, t01=0x003c}
0x117e…1196 Head {h00=0x0014, h01=0x0050, text=» LD A4,BUFFER,A8«, t00=0x000b, t01=0x005c}
0x1196…11a8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000b, t01=0x0074}
0x11a8…11d8 Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1 «, t00=0x000b, t01=0x0086}
0x11d8…11ea Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000b, t01=0x00b6}
0x11ea…121e Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE "COLUMN TO BE EXAMINED"«, t00=0x000b, t01=0x00c8}
0x121e…1232 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x00fc}
0x1232…125a Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/8050 DEFINE CONDITIONS«, t00=0x000b, t01=0x0110}
0x125a…126e Head {h00=0x0010, h01=0x0050, text=» WER A4,MUX «, t00=0x000b, t01=0x0138}
0x126e…129c Head {h00=0x002a, h01=0x0050, text=» LDKL A4,MUXBUF DEFINE BUFFER ADDRESS «, t00=0x000b, t01=0x014c}
0x129c…12b2 Head {h00=0x0012, h01=0x0050, text=» WER A4,MUX+1 «, t00=0x000b, t01=0x017a}
0x12b2…12be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0190}
0x12be…12e0 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,DEVICE CIO START«, t00=0x000c, t01=0x000c}
0x12e0…12f0 Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x000c, t01=0x002e}
0x12f0…12fa Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x003e}
0x12fa…1316 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0048}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x000c, t01=0x0064}
0x1332…134e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0080}
0x134e…1360 Head {h00=0x000e, h01=0x0050, text=»CRON EQU *«, t00=0x000c, t01=0x009c}
0x1360…1376 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x000c, t01=0x00ae}
0x1376…139a Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x000c, t01=0x00c4}
0x139a…13be Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 REQUEST ON? «, t00=0x000c, t01=0x00e8}
0x13be…13d6 Head {h00=0x0014, h01=0x0050, text=» RB(N) EXIT NO! «, t00=0x000c, t01=0x010c}
0x13d6…1406 Head {h00=0x002c, h01=0x0050, text=» LDK A1,2 SET "THROUGHPUT ERROR" BIT 14 «, t00=0x000c, t01=0x0124}
0x1406…141a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000c, t01=0x0154}
0x141a…143c Head {h00=0x001e, h01=0x0050, text=» IM FLAG INDICATE RECOVERY«, t00=0x000c, t01=0x0168}
0x143c…1448 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x018a}
0x1448…145a Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x000d, t01=0x0008}
0x145a…1468 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x001a}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0028}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0032}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x003c}
0x1486…14a4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000d, t01=0x0046}
0x14a4…14c2 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x000d, t01=0x0064}
0x14c2…14e0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000d, t01=0x0082}
0x14e0…14f2 Head {h00=0x000e, h01=0x0050, text=»IHCR EQU *«, t00=0x000d, t01=0x00a0}
0x14f2…151c Head {h00=0x0026, h01=0x0050, text=» ST P,INTSAVE SAVE LAST INTERRUPT «, t00=0x000d, t01=0x00b2}
0x151c…153e Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8«, t00=0x000d, t01=0x00dc}
0x153e…1562 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCR01 DWT ADDRESS «, t00=0x000d, t01=0x00fe}
0x1562…1586 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTA2,A6 CARD-COLUMN «, t00=0x000d, t01=0x0122}
0x1586…15a8 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECB,A6 ECB ADDRESS «, t00=0x000d, t01=0x0146}
0x15a8…15bc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000d, t01=0x0168}
0x15bc…15fa Head {h00=0x003a, h01=0x0050, text=» INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER«, t00=0x000d, t01=0x017c}
0x15fa…160e Head {h00=0x0010, h01=0x0050, text=» RF(A) CONV «, t00=0x000e, t01=0x002a}
0x160e…161a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x003e}
0x161a…162e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000e, t01=0x004a}
0x162e…166c Head {h00=0x003a, h01=0x0050, text=» LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION«, t00=0x000e, t01=0x005e}
0x166c…1678 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x000e, t01=0x009c}
0x1678…168c Head {h00=0x0010, h01=0x0050, text=»IHCR10 EQU *«, t00=0x000e, t01=0x00a8}
0x168c…16b4 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A5 GET WORD FROM BUFFER«, t00=0x000e, t01=0x00bc}
0x16b4…16c6 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x000e, t01=0x00e4}
0x16c6…16de Head {h00=0x0014, h01=0x0050, text=» RF CONV CONVERT«, t00=0x000e, t01=0x00f6}
0x16de…16f2 Head {h00=0x0010, h01=0x0050, text=»IHCR20 EQU *«, t00=0x000e, t01=0x010e}
0x16f2…1708 Head {h00=0x0012, h01=0x0050, text=»* READY * «, t00=0x000e, t01=0x0122}
0x1708…1714 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0138}
0x1714…1738 Head {h00=0x0020, h01=0x0050, text=» SST A1,DEVICE NOT ACCEPTED «, t00=0x000e, t01=0x0144}
0x1738…1750 Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTA5,A6 «, t00=0x000e, t01=0x0168}
0x1750…1760 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x000e, t01=0x0180}
0x1760…176e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0190}
0x176e…1778 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x000e}
0x1778…1794 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000f, t01=0x0018}
0x1794…17b0 Head {h00=0x0018, h01=0x0050, text=»* CODE CONVERSION * «, t00=0x000f, t01=0x0034}
0x17b0…17cc Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000f, t01=0x0050}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x006c}
0x17d6…1808 Head {h00=0x002e, h01=0x0050, text=» A3=RECIEVED CHARACTER IN HOLERITH-CODE «, t00=0x000f, t01=0x0076}
0x1808…182c Head {h00=0x0020, h01=0x0050, text=» A2=COLUMN TO BE EXAMINED «, t00=0x000f, t01=0x00a8}
0x182c…184c Head {h00=0x001c, h01=0x0050, text=» A4=BUFFER ADDRESS - 1«, t00=0x000f, t01=0x00cc}
0x184c…1856 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00ec}
0x1856…1860 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00f6}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x0100}
0x186a…1880 Head {h00=0x0012, h01=0x0050, text=»CONV LDK A1,0 «, t00=0x000f, t01=0x010a}
0x1880…18aa Head {h00=0x0026, h01=0x0050, text=» SLL A3,4 SKIP INSIGNIFICANT BITS «, t00=0x000f, t01=0x0120}
0x18aa…18be Head {h00=0x0010, h01=0x0050, text=» RF(N) FIRST«, t00=0x000f, t01=0x014a}
0x18be…18d2 Head {h00=0x0010, h01=0x0050, text=» RF(P) SCAN1«, t00=0x000f, t01=0x015e}
0x18d2…18fa Head {h00=0x0024, h01=0x0050, text=» LDK A3,/20 CHARACTER IS A SPACE«, t00=0x000f, t01=0x0172}
0x18fa…1922 Head {h00=0x0024, h01=0x0050, text=» CW A2,REQLEN,A8 BUFFER FILLED? «, t00=0x0010, t01=0x000a}
0x1922…193e Head {h00=0x0018, h01=0x0050, text=» ABL(NG) PUTCHA NO! «, t00=0x0010, t01=0x0032}
0x193e…1950 Head {h00=0x000e, h01=0x0050, text=» ABL TEST «, t00=0x0010, t01=0x004e}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x195a…196e Head {h00=0x0010, h01=0x0050, text=»HOLE1 DATA 0«, t00=0x0010, t01=0x006a}
0x196e…1982 Head {h00=0x0010, h01=0x0050, text=»HOLE2 DATA 0«, t00=0x0010, t01=0x007e}
0x1982…1990 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0092}
0x1990…19e0 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0010, t01=0x00a0}
0x19e0…1a28 Head {h00=0x0044, h01=0x0050, text=» 0NE HOLE «, t00=0x0010, t01=0x00f0}
0x1a28…1a56 Head {h00=0x002a, h01=0x0050, text=»SCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE«, t00=0x0010, t01=0x0138}
0x1a56…1a68 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0010, t01=0x0166}
0x1a68…1a7c Head {h00=0x0010, h01=0x0050, text=» RB(P) SCAN1«, t00=0x0010, t01=0x0178}
0x1a7c…1aa8 Head {h00=0x0028, h01=0x0050, text=»FIRST CW A2,REQLEN,A8 BUFFER FILLED?«, t00=0x0010, t01=0x018c}
0x1aa8…1ac0 Head {h00=0x0014, h01=0x0050, text=» RF(NG) IH.1 NO!«, t00=0x0011, t01=0x0028}
0x1ac0…1af4 Head {h00=0x0030, h01=0x0050, text=» LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12«, t00=0x0011, t01=0x0040}
0x1af4…1b0e Head {h00=0x0016, h01=0x0050, text=» ORS A3,STATUS,A6 «, t00=0x0011, t01=0x0074}
0x1b0e…1b20 Head {h00=0x000e, h01=0x0050, text=» ABL READY«, t00=0x0011, t01=0x008e}
0x1b20…1b52 Head {h00=0x002e, h01=0x0050, text=»IH.1 ST A2,EFFLEN,A8 STORE EFFECTIV LENGTH«, t00=0x0011, t01=0x00a0}
0x1b52…1b68 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/7FFF«, t00=0x0011, t01=0x00d2}
0x1b68…1b9c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) SCAN2 THE ONLY HOLE IN THIS COLUMN? «, t00=0x0011, t01=0x00e8}
0x1b9c…1bb2 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 YES!«, t00=0x0011, t01=0x011c}
0x1bb2…1bd8 Head {h00=0x0022, h01=0x0050, text=» CONVERSION IS MADE DIRECTLY«, t00=0x0011, t01=0x0132}
0x1bd8…1bfe Head {h00=0x0022, h01=0x0050, text=» ***************************«, t00=0x0011, t01=0x0158}
0x1bfe…1c12 Head {h00=0x0010, h01=0x0050, text=» RF(P) *+12 «, t00=0x0011, t01=0x017e}
0x1c12…1c24 (18, 0, 398) Head {h00=0x000e, h01=0x0050, text=» RF(Z) *+6«, t00=0x0012, t01=0x0004}
0x1c24…1c42 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/26 & (ROW 12)«, t00=0x0012, t01=0x0016}
0x1c42…1c54 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0012, t01=0x0034}
0x1c54…1c72 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/2D - (ROW 11)«, t00=0x0012, t01=0x0046}
0x1c72…1c84 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0012, t01=0x0064}
0x1c84…1c96 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0012, t01=0x0076}
0x1c96…1cc2 Head {h00=0x0028, h01=0x0050, text=» ADK A3,/2F DIGIT 0 - 9 (ROW 0 - 9) «, t00=0x0012, t01=0x0088}
0x1cc2…1cd4 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0012, t01=0x00b4}
0x1cd4…1cfe Head {h00=0x0026, h01=0x0050, text=» ONE HOLE«, t00=0x0012, t01=0x00c6}
0x1cfe…1d4e Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0012, t01=0x00f0}
0x1d4e…1d96 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x0012, t01=0x0140}
0x1d96…1da4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0188}
0x1da4…1dd6 Head {h00=0x002e, h01=0x0050, text=»SCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION«, t00=0x0013, t01=0x0008}
0x1dd6…1dfc Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 SCAN FOR SECOND HOLE«, t00=0x0013, t01=0x003a}
0x1dfc…1e0e Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0013, t01=0x0060}
0x1e0e…1e20 Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x0013, t01=0x0072}
0x1e20…1e54 Head {h00=0x0030, h01=0x0050, text=» ST A1,HOLE2 2:ND HOLE FOUND! SAVE POSITION «, t00=0x0013, t01=0x0084}
0x1e54…1e84 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/7FFF LAST HOLE IN THIS COLUMN?«, t00=0x0013, t01=0x00b8}
0x1e84…1e9c Head {h00=0x0014, h01=0x0050, text=» RF(P) SCAN3 NO!«, t00=0x0013, t01=0x00e8}
0x1e9c…1eb6 Head {h00=0x0016, h01=0x0050, text=» LD A1,HOLE1 YES! «, t00=0x0013, t01=0x0100}
0x1eb6…1ec8 Head {h00=0x000e, h01=0x0050, text=» CWK A1,3 «, t00=0x0013, t01=0x011a}
0x1ec8…1ef0 Head {h00=0x0024, h01=0x0050, text=» RF(NL) SPEC SPECIAL CHARACTER? «, t00=0x0013, t01=0x012c}
0x1ef0…1f12 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A1 NO! LETTER OR /«, t00=0x0013, t01=0x0154}
0x1f12…1f38 Head {h00=0x0022, h01=0x0050, text=» LD A1,TABLE1,A1 CHOOSE TABLE «, t00=0x0013, t01=0x0176}
0x1f38…1f4c Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0014, t01=0x000c}
0x1f4c…1f5e Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0014, t01=0x0020}
0x1f5e…1f7e Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x0014, t01=0x0032}
0x1f7e…1f94 Head {h00=0x0012, h01=0x0050, text=» ADR A1,A3 NO!«, t00=0x0014, t01=0x0052}
0x1f94…1fbe Head {h00=0x0026, h01=0x0050, text=» LCR A3,A1 CHOOSE LETTER IN TABLE «, t00=0x0014, t01=0x0068}
0x1fbe…1fd0 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0014, t01=0x0092}
0x1fd0…1fde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00a4}
0x1fde…1fe8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x00b2}
0x1fe8…1ff2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x00bc}
0x1ff2…202c Head {h00=0x0036, h01=0x0050, text=»* CONVERSION TABLE 1 ASCII /41 - 5A, 2F «, t00=0x0014, t01=0x00c6}
0x202c…2066 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0014, t01=0x0100}
0x2066…2080 Head {h00=0x0016, h01=0x0050, text=»TABLE1 DATA TAB.1 «, t00=0x0014, t01=0x013a}
0x2080…2094 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.2 «, t00=0x0014, t01=0x0154}
0x2094…20a8 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.3 «, t00=0x0014, t01=0x0168}
0x20a8…20c0 Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x0014, t01=0x017c}
0x20c0…20d8 (21, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x0015, t01=0x0004}
0x20d8…2104 Head {h00=0x0028, h01=0x0050, text=»TAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9 «, t00=0x0015, t01=0x001c}
0x2104…2130 Head {h00=0x0028, h01=0x0050, text=»TAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9 «, t00=0x0015, t01=0x0048}
0x2130…215a Head {h00=0x0026, h01=0x0050, text=»TAB.3 DATA '/STUVWXYZ ' 0,1 - 0,9 «, t00=0x0015, t01=0x0074}
0x215a…2194 Head {h00=0x0036, h01=0x0050, text=» ************************************* «, t00=0x0015, t01=0x009e}
0x2194…21a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d8}
0x21a2…21ac Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0015, t01=0x00e6}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0015, t01=0x00f0}
0x21b6…21da Head {h00=0x0020, h01=0x0050, text=»SPEC RF(E) FAULT DATA FAULT?«, t00=0x0015, t01=0x00fa}
0x21da…220a Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 1!«, t00=0x0015, t01=0x011e}
0x220a…2220 Head {h00=0x0012, h01=0x0050, text=» SUK A1,4 NO! «, t00=0x0015, t01=0x014e}
0x2220…2240 Head {h00=0x001c, h01=0x0050, text=» CWK A1,5 A1=FIRST HOLE «, t00=0x0015, t01=0x0164}
0x2240…2260 Head {h00=0x001c, h01=0x0050, text=» RF(G) FAULT DATA FAULT?«, t00=0x0015, t01=0x0184}
0x2260…2290 Head {h00=0x002c, h01=0x0050, text=» -THE FIRST HOLE MUST NOT BE IN ROW 8!«, t00=0x0016, t01=0x0014}
0x2290…22a4 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE2«, t00=0x0016, t01=0x0044}
0x22a4…22b6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,10«, t00=0x0016, t01=0x0058}
0x22b6…22d8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x0016, t01=0x006a}
0x22d8…2306 Head {h00=0x002a, h01=0x0050, text=» -THE SECOND HOLE MUST BE IN ROW 8! «, t00=0x0016, t01=0x008c}
0x2306…233a Head {h00=0x0030, h01=0x0050, text=» LC A3,TABLE2,A1 CHOOSE CHARACTER IN TABLE2 «, t00=0x0016, t01=0x00ba}
0x233a…234c Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0016, t01=0x00ee}
0x234c…2356 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0016, t01=0x0100}
0x2356…2360 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0016, t01=0x010a}
0x2360…2386 Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 2«, t00=0x0016, t01=0x0114}
0x2386…23b6 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x0016, t01=0x013a}
0x23b6…23ce Head {h00=0x0014, h01=0x0050, text=» ROWS ON CARD «, t00=0x0016, t01=0x016a}
0x23ce…23e6 Head {h00=0x0014, h01=0x0050, text=» ------------ «, t00=0x0016, t01=0x0182}
0x23e6…2408 Head {h00=0x001e, h01=0x0050, text=»TABLE2 DATA ':#' 2,8 3,8 «, t00=0x0017, t01=0x000a}
0x2408…2424 Head {h00=0x0018, h01=0x0050, text=» DATA /4027 4,8 5,8«, t00=0x0017, t01=0x002c}
0x2424…2440 Head {h00=0x0018, h01=0x0050, text=» DATA '="' 6,8 7,8 «, t00=0x0017, t01=0x0048}
0x2440…2470 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x0017, t01=0x0064}
0x2470…24b8 Head {h00=0x0044, h01=0x0050, text=» TWO HOLES«, t00=0x0017, t01=0x0094}
0x24b8…2508 Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x0017, t01=0x00dc}
0x2508…2552 Head {h00=0x0046, h01=0x0050, text=» THREE HOLES«, t00=0x0017, t01=0x012c}
0x2552…2560 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0176}
0x2560…256a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x256a…2584 Head {h00=0x0016, h01=0x0050, text=»SCAN3 LD A1,HOLE1 «, t00=0x0017, t01=0x018e}
0x2584…2596 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0018, t01=0x0018}
0x2596…25b6 Head {h00=0x001c, h01=0x0050, text=» RF(P) FAULT DATA FAULT?«, t00=0x0018, t01=0x002a}
0x25b6…25ea Head {h00=0x0030, h01=0x0050, text=» -THE FIRST HOLE MUST BE WITHIN THE FIRST «, t00=0x0018, t01=0x004a}
0x25ea…260c Head {h00=0x001e, h01=0x0050, text=» THREE ROWS (12, 11, 0)«, t00=0x0018, t01=0x007e}
0x260c…2620 Head {h00=0x0010, h01=0x0050, text=» LD A1,HOLE2«, t00=0x0018, t01=0x00a0}
0x2620…2632 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0018, t01=0x00b4}
0x2632…2652 Head {h00=0x001c, h01=0x0050, text=» RF(N) FAULT DATA FAULT?«, t00=0x0018, t01=0x00c6}
0x2652…2664 Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x0018, t01=0x00e6}
0x2664…2678 Head {h00=0x0010, h01=0x0050, text=» RF(P) FAULT«, t00=0x0018, t01=0x00f8}
0x2678…26ac Head {h00=0x0030, h01=0x0050, text=» -THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7!«, t00=0x0018, t01=0x010c}
0x26ac…26be Head {h00=0x000e, h01=0x0050, text=» ADK A1,9 «, t00=0x0018, t01=0x0140}
0x26be…26e6 Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 SCAN FOR THE 3:RD HOLE«, t00=0x0018, t01=0x0152}
0x26e6…26f8 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0018, t01=0x017a}
0x26f8…270a Head {h00=0x000e, h01=0x0050, text=» RB(P) *-4«, t00=0x0018, t01=0x018c}
0x270a…272e Head {h00=0x0020, h01=0x0050, text=» SUK A1,10 3:RD HOLE FOUND! «, t00=0x0019, t01=0x000e}
0x272e…2750 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x0019, t01=0x0032}
0x2750…277a Head {h00=0x0026, h01=0x0050, text=» -THE 3:RD HOLE MUST BE IN ROW 8«, t00=0x0019, t01=0x0054}
0x277a…278c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0019, t01=0x007e}
0x278c…27ae Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FAULT DATA FAULT? «, t00=0x0019, t01=0x0090}
0x27ae…27d0 Head {h00=0x001e, h01=0x0050, text=» -NO MORE THEN 3 HOLES! «, t00=0x0019, t01=0x00b2}
0x27d0…27e4 Head {h00=0x0010, h01=0x0050, text=» LD A3,HOLE1«, t00=0x0019, t01=0x00d4}
0x27e4…27f6 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x0019, t01=0x00e8}
0x27f6…281c Head {h00=0x0022, h01=0x0050, text=» LD A3,TABLE3,A3 CHOOSE TABLE «, t00=0x0019, t01=0x00fa}
0x281c…2830 Head {h00=0x0010, h01=0x0050, text=» AD A3,HOLE2«, t00=0x0019, t01=0x0120}
0x2830…2842 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0019, t01=0x0134}
0x2842…2854 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0019, t01=0x0146}
0x2854…2866 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0019, t01=0x0158}
0x2866…2878 Head {h00=0x000e, h01=0x0050, text=» RF PUTCHA«, t00=0x0019, t01=0x016a}
0x2878…2886 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x017c}
0x2886…2890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018a}
0x2890…289a (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x289a…28c0 Head {h00=0x0022, h01=0x0050, text=» CONVERSION TABLE 3«, t00=0x001a, t01=0x000e}
0x28c0…28f0 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001a, t01=0x0034}
0x28f0…290a Head {h00=0x0016, h01=0x0050, text=»TABLE3 DATA TAB.4 «, t00=0x001a, t01=0x0064}
0x290a…291e Head {h00=0x0010, h01=0x0050, text=» DATA TAB.5 «, t00=0x001a, t01=0x007e}
0x291e…2932 Head {h00=0x0010, h01=0x0050, text=» DATA TAB.6 «, t00=0x001a, t01=0x0092}
0x2932…2968 Head {h00=0x0032, h01=0x0050, text=» ROWS ON CARD «, t00=0x001a, t01=0x00a6}
0x2968…29a4 Head {h00=0x0038, h01=0x0050, text=» ------------------- «, t00=0x001a, t01=0x00dc}
0x29a4…29ca Head {h00=0x0022, h01=0x0050, text=»TAB.4 DATA '[.' 12,2,8 12,3,8«, t00=0x001a, t01=0x0118}
0x29ca…29ec Head {h00=0x001e, h01=0x0050, text=» DATA '<(' 12,4,8 12,5,8 «, t00=0x001a, t01=0x013e}
0x29ec…2a0e Head {h00=0x001e, h01=0x0050, text=» DATA /2B5E 12,6,8 12,7,8«, t00=0x001a, t01=0x0160}
0x2a0e…2a34 Head {h00=0x0022, h01=0x0050, text=»TAB.5 DATA '!$' 11,2,8 11,3,8«, t00=0x001a, t01=0x0182}
0x2a34…2a56 Head {h00=0x001e, h01=0x0050, text=» DATA '*)' 11,4,8 11,5,8 «, t00=0x001b, t01=0x0018}
0x2a56…2a78 Head {h00=0x001e, h01=0x0050, text=» DATA ';]' 11,6,8 11,7,8 «, t00=0x001b, t01=0x003a}
0x2a78…2a9e Head {h00=0x0022, h01=0x0050, text=»TAB.6 DATA /5C2C 0,2,8 0,3,8«, t00=0x001b, t01=0x005c}
0x2a9e…2ac0 Head {h00=0x001e, h01=0x0050, text=» DATA /255F 0,4,8 0,5,8 «, t00=0x001b, t01=0x0082}
0x2ac0…2ae0 Head {h00=0x001c, h01=0x0050, text=» DATA '>?' 0,6,8 0,7,8«, t00=0x001b, t01=0x00a4}
0x2ae0…2b10 Head {h00=0x002c, h01=0x0050, text=» *************************************«, t00=0x001b, t01=0x00c4}
0x2b10…2b5a Head {h00=0x0046, h01=0x0050, text=» THREE HOLES «, t00=0x001b, t01=0x00f4}
0x2b5a…2baa Head {h00=0x004c, h01=0x0050, text=»*=======================================================================«, t00=0x001b, t01=0x013e}
0x2baa…2bb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x018e}
0x2bb8…2bc2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001c, t01=0x000c}
0x2bc2…2bde Head {h00=0x0018, h01=0x0050, text=» SET DATA FAULT«, t00=0x001c, t01=0x0016}
0x2bde…2bfa Head {h00=0x0018, h01=0x0050, text=» **************«, t00=0x001c, t01=0x0032}
0x2bfa…2c0e Head {h00=0x0010, h01=0x0050, text=»FAULT EQU * «, t00=0x001c, t01=0x004e}
0x2c0e…2c40 Head {h00=0x002e, h01=0x0050, text=» LDK A1,4 SET DATA FAULT,BIT 13, IN STATUS«, t00=0x001c, t01=0x0062}
0x2c40…2c58 Head {h00=0x0014, h01=0x0050, text=» ST A1,STATUS,A6«, t00=0x001c, t01=0x0094}
0x2c58…2c84 Head {h00=0x0028, h01=0x0050, text=» LDK A3,/3F REPLACE CHARACTER BY "?"«, t00=0x001c, t01=0x00ac}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001c, t01=0x00d8}
0x2c8e…2c98 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001c, t01=0x00e2}
0x2c98…2cca Head {h00=0x002e, h01=0x0050, text=» PUT CHARACTER (ASCII) IN USER BUFFER«, t00=0x001c, t01=0x00ec}
0x2cca…2cfc Head {h00=0x002e, h01=0x0050, text=» ************************************«, t00=0x001c, t01=0x011e}
0x2cfc…2d10 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x001c, t01=0x0150}
0x2d10…2d24 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x0164}
0x2d24…2d38 Head {h00=0x0010, h01=0x0050, text=» LD A4,FLAG «, t00=0x001c, t01=0x0178}
0x2d38…2d6c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED! «, t00=0x001c, t01=0x018c}
0x2d6c…2d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0030}
0x2d78…2da8 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED«, t00=0x001d, t01=0x003c}
0x2da8…2dce Head {h00=0x0022, h01=0x0050, text=» ADR A4,A2 A3=ASCII CHARACTER «, t00=0x001d, t01=0x006c}
0x2dce…2df6 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A4 A4=BUFFER ADDRESS - 1«, t00=0x001d, t01=0x0092}
0x2df6…2e24 Head {h00=0x002a, h01=0x0050, text=»TEST CWK A2,80 THE WHOLE CARD SCANNED?«, t00=0x001d, t01=0x00ba}
0x2e24…2e3c Head {h00=0x0014, h01=0x0050, text=» RF(L) NEXT NO! «, t00=0x001d, t01=0x00e8}
0x2e3c…2e50 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x001d, t01=0x0100}
0x2e50…2e76 Head {h00=0x0022, h01=0x0050, text=»READY CIO A3,0,DEVICE CIO HALT«, t00=0x001d, t01=0x0114}
0x2e76…2e82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x013a}
0x2e82…2e96 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001d, t01=0x0146}
0x2e96…2eaa Head {h00=0x0010, h01=0x0050, text=»READY EQU * «, t00=0x001d, t01=0x015a}
0x2eaa…2eb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x016e}
0x2eb6…2ed6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,4 CHECK IF :EOF «, t00=0x001d, t01=0x017a}
0x2ed6…2eee Head {h00=0x0014, h01=0x0050, text=» CW A2,EFFLEN,A8«, t00=0x001e, t01=0x000a}
0x2eee…2f12 Head {h00=0x0020, h01=0x0050, text=» RF(NE) NEXT00 EFF.LENGTH #4«, t00=0x001e, t01=0x0022}
0x2f12…2f3c Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET BUFFER-ADDRESS«, t00=0x001e, t01=0x0046}
0x2f3c…2f4e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001e, t01=0x0070}
0x2f4e…2f7a Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A4 GET FIRST WORD IN BUFFER«, t00=0x001e, t01=0x0082}
0x2f7a…2f98 Head {h00=0x001a, h01=0x0050, text=» CWK A2,':E' A2 = :E ?«, t00=0x001e, t01=0x00ae}
0x2f98…2fb2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x001e, t01=0x00cc}
0x2fb2…2fd8 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A4 YES, GET NEXT WORD«, t00=0x001e, t01=0x00e6}
0x2fd8…2ff6 Head {h00=0x001a, h01=0x0050, text=» CWK A2,'OF' A2 = OF ?«, t00=0x001e, t01=0x010c}
0x2ff6…3010 Head {h00=0x0016, h01=0x0050, text=» RF(NE) NEXT00 NO!«, t00=0x001e, t01=0x012a}
0x3010…303a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/1000 YES! :EOF DETECTED «, t00=0x001e, t01=0x0144}
0x303a…3066 Head {h00=0x0028, h01=0x0050, text=» ORS A2,STATUS,A6 SET BIT 3 IN R.C. «, t00=0x001e, t01=0x016e}
0x3066…3074 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x000a}
0x3074…3088 Head {h00=0x0010, h01=0x0050, text=»NEXT00 EQU *«, t00=0x001f, t01=0x0018}
0x3088…309c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x001f, t01=0x002c}
0x309c…30b2 Head {h00=0x0012, h01=0x0050, text=»NEXT ADK A2,1 «, t00=0x001f, t01=0x0040}
0x30b2…30d2 Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTA2,A6 SAVE A2 «, t00=0x001f, t01=0x0056}
0x30d2…30de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0076}
0x30de…30f2 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001f, t01=0x0082}
0x30f2…310c Head {h00=0x0016, h01=0x0050, text=» ABL IHCR20 READY «, t00=0x001f, t01=0x0096}
0x310c…311e Head {h00=0x000e, h01=0x0050, text=»NEXT EQU *«, t00=0x001f, t01=0x00b0}
0x311e…3130 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x001f, t01=0x00c2}
0x3130…3148 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTA2,A6 «, t00=0x001f, t01=0x00d4}
0x3148…3170 Head {h00=0x0024, h01=0x0050, text=» ABL IHCR10 TAKE NEXT CHARACTER «, t00=0x001f, t01=0x00ec}
0x3170…3184 Head {h00=0x0010, h01=0x0050, text=»NEXT10 EQU *«, t00=0x001f, t01=0x0114}
0x3184…3190 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0128}
0x3190…31c0 Head {h00=0x002c, h01=0x0050, text=» ABL RETUR8 LOAD A1 - A8 AND RETURN A15 «, t00=0x001f, t01=0x0134}
0x31c0…31ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0164}
0x31ce…31d8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001f, t01=0x0172}
0x31d8…3206 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001f, t01=0x017c}
0x3206…3234 Head {h00=0x002a, h01=0x0050, text=»* DEVICE WORK TABLE FOR CARD READER * «, t00=0x0020, t01=0x001a}
0x3234…3262 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0020, t01=0x0048}
0x3262…326c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0020, t01=0x0076}
0x326c…3280 Head {h00=0x0010, h01=0x0050, text=»DWCR01 EQU *«, t00=0x0020, t01=0x0080}
0x3280…32a2 Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0020, t01=0x0094}
0x32a2…32bc Head {h00=0x0016, h01=0x0050, text=» DATA /8000 STATUS«, t00=0x0020, t01=0x00b6}
0x32bc…32d8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0020, t01=0x00d0}
0x32d8…32fa Head {h00=0x001e, h01=0x0050, text=» DATA 0 LAST OUTPUT, ORDER«, t00=0x0020, t01=0x00ec}
0x32fa…3326 Head {h00=0x0028, h01=0x0050, text=» DATA CRADR POINTER TO DEVICE DRIVER«, t00=0x0020, t01=0x010e}
0x3326…3346 Head {h00=0x001c, h01=0x0050, text=» DATA 0 POINTER TO TTAB «, t00=0x0020, t01=0x013a}
0x3346…336e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0020, t01=0x015a}
0x336e…338c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0020, t01=0x0182}
0x338c…33ae Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0021, t01=0x0010}
0x33ae…33ce Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A2 «, t00=0x0021, t01=0x0032}
0x33ce…33ee Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A4 «, t00=0x0021, t01=0x0052}
0x33ee…340e Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVEAREA FOR A5 «, t00=0x0021, t01=0x0072}
0x340e…3426 Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT STACK«, t00=0x0021, t01=0x0092}
0x3426…344e Head {h00=0x0024, h01=0x0050, text=» DATA 0 SOFTWARE STATUS SAVEAREA«, t00=0x0021, t01=0x00aa}
0x344e…3474 Head {h00=0x0022, h01=0x0050, text=»FLAG DATA 0 RECOVERY INDICATOR«, t00=0x0021, t01=0x00d2}
0x3474…3480 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0021, t01=0x00f8}
0x3480…3484 Head {h00=0x4004, h01=0x0000}
0x3484…3488 00 21 01 04 ┆ ! ┆
0x3488…3490 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x3490…3498 (35, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x3498…34e8 (36, 0, 400) 03 6a 8f 20 4c 7a 80 00 00 00 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 86 20 03 90 8f 20 1d 56 80 00 00 00 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 86 20 03 b6 8f 20 1d c0 80 00 ff d8 ff d8 00 00 00 00 81 3f 82 3f 83 3f 84 3f ┆ j Lz ? ? ? ? ? ? ? V ? ? ? ? ? ? ? ? ? ? ?┆
0x34e8…3538 85 3f 86 3f 87 3f 80 bf 86 20 03 dc 8f 20 4e 62 06 42 04 02 04 28 00 00 00 00 00 00 00 00 00 00 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 86 20 06 40 8f 20 58 2c 80 00 04 4e 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 86 20 06 68 ┆ ? ? ? Nb B ( ? ? ? ? ? ? ? @ X, N ? ? ? ? ? ? ? h┆
0x3538…3588 8f 20 54 06 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T ┆
0x3588…35d8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x35d8…3628 00 00 00 00 00 00 00 00 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 86 20 04 74 8f 20 4f c0 80 00 04 9a 04 c0 04 e6 05 0c 81 3f 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f a0 02 80 0a 00 05 e0 00 54 01 40 00 00 00 00 00 00 00 00 00 00 05 78 08 ┆ ? ? ? ? ? ? ? t O ? ? ? ? ? ? ? T @ x ┆