|
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: 23338 (0x5b2a)
Notes: pts_type(SC)
Names: »QMISC.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/QMISC.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/QMISC.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/QMISC.SC«
IDENT QMISC MISCELANEOUS SUBROUTINES
DDUM DEMODDIV
PDIV
ENTRY QAFNKY
ENTRY QBSTKY
ENTRY QCGUWB
ENTRY QDFUWB
ENTRY QENTRS
ENTRY QFLTRS
ENTRY QGATYP
ENTRY QHSPKY
EXPROC XBFMT
************************************************************************
* *
* PROCEDURE: QAFNKY*
* PARAMETERS: *
* XWINDEX (UPDATE): INDEX IN THE KEYTABLE*
* XWADAPT (INPUT): ADAPTION VALUE FOR XWINDEX*
* XWKTBLNG (INPUT): LENGTH OF ONE HALF OF THE KEYTABLE*
* FUNCTIONAL DESCRIPTION:*
* QAFNKY CHECKS THE EOI-KEY ENTERED BY THE OPERATOR AFTER A*
* KI-INSTRUCTION.*
* UPON ENTRY XWINDEX CAN HAVE ONE OF THE FOLLOWING VALUES:*
* V: VALUE OF XWINDEX MEANS:*
* -8 =< V =< -1 KEYLOCK TURNED ON 6236/71/72-KB*
* V = 0 POWER FAILURE*
* 1 =< V =< XWKTBLNG 6234/31-KEYBOARD AND KEY 1 ON*
* OR 6236/71/72-KEYBOARD*
* XWKTBLNG+1 =< V =< 2*XWKTBLNG 6234/31-KEYBOARD AND KEY 2 ON*
* OTHER VALUES UNDEFINED KEY*
* *
* THE ROUTINE QBSTKY CHECKS WHETHER OR NOT KEYLOCK ON A*
* 6236/71/72-KB HAS BEEN TURNED AND IF SO WILL SET SBKEY1*
* AND SBKEY2 ACCORDINGLY AND SET XWINDEX TO XWADAPT.*
* IF XWINDEX IS NOT IN THE RANGE 1....2*XWKTBLNG THEN*
* XWINDEX IS SET TO XWADAPT AND CONTROL IS RETURNED.*
* ELSE IF A 6234-TYPE KEYBOARD IS USED THEN XWINDEX IS ADAPTED*
* TO POINT INTO THE FIRST HALF OF THE KEYTABLE AND*
* SBKEY1 AND SBKEY2 ARE SET TO THE RIGHT VALUES.*
* *
* VARIABLES USED:*
* SB34KB: 6234/31-KEYBOARD ?*
* SBKEY1: IS KEY 1 ON ?*
* SBKEY2: IS KEY 2 ON ?*
* WORKVARIABLE:*
* WW1*
* *
************************************************************************
QAFNKY PROC XWINDEX,XWADAPT,XWKTBLNG
PBIN XWINDEX,XWADAPT,XWKTBLNG
QA000
**
* CHECK KEYLOCK TURNED ON 6236/71/72*
**
PERF QBSTKY,XWINDEX,XWADAPT
**
* CHECK IF INDEX POINTS INTO THE KEYTABLE*
**
CBL XWINDEX,=W'1',QA900 INDEX NOT IN RANGE
MOVE WW1,XWKTBLNG
MUL WW1,=W'2' FULL KEYTABLE LENGTH
CBG XWINDEX,WW1,QA900 INDEX NOT IN RANGE
**
* INDEX POINTS INTO THE KEYTABLE*
* CHECK KEYBOARD TYPE*
**
CBG XWINDEX,XWKTBLNG,QA300 6231/34 KEYBOARD WITH KEY 2 ON
TBF SB34KB,QA999 6236/71/72-KEYBOARD
**
* 6231/34 KEYBOARD,*
* CHECK KEYLOCK TURNED*
*
QA300
SET SB34KB SET KB TYPE AT TRMSTT
CBG XWINDEX,XWKTBLNG,QA500 KEY2 IS ON
*
* KEY1 IS ON
*
QA400
TBT SBKEY1,QA999 KEY1 WAS ALREADY ON
SET SBKEY1
CLEAR SBKEY2
B QA999
*
* KEY2 IS ON
*
QA500
SUB XWINDEX,XWKTBLNG ADJUST INDEX IN KEYTABLE
TBT SBKEY2,QA999 KEY2 WAS ALREADY ON
SET SBKEY2
CLEAR SBKEY1
B QA999
*
* IF A KEYLOCK HAS BEEN TURNED,
* ADAPT THE INDEX IN THE KEYTABLE
*
QA900
MOVE XWINDEX,XWADAPT ADAPT INDEX IN KEYTABLE
QA999
RET
PEND
************************************************************************
* *
* PROCEDURE: QBSTKY*
* PARAMETERS: *
* XWINDEX (UPDATE): INDEX RETURNED BY KI-INSTRUCTION.*
* XWADAPT (INPUT): ADAPT VALUE FOR XWINDEX.*
* FUNCTIONAL DESCRIPTION:*
* IF KEYLOCK HAS BEEN TURNED ON 6236/71/72-KEYBOARD THEN*
* XWINDEX CONTAINS ONE OF THE FOLLOWING VALUES:*
* -8: KEY 1 TURNED ON -4: KEY 1 TURNED OFF*
* -7: KEY 2 TURNED ON -3: KEY 2 TURNED OFF*
* -6: KEY 3 TURNED ON -2: KEY 3 TURNED OFF*
* -5: KEY 4 TURNED ON -1: KEY 4 TURNED OFF*
* SBKEY1 AND SBKEY2 MUST BE SET ACCORDING TO THE KEYLOCK TURNED *
* AND IF A KEYLOCK HAS BEEN TURNED XWINDEX MUST BE SET TO XWADAPT*
* *
* VARIABLES USED:*
* SB34KB: 6234/31-KEYBOARD ?*
* SBKEY1: IS KEY 1 ON ?*
* SBKEY2: IS KEY 2 ON ?*
* WORKVARIABLE:*
* WW1*
* *
************************************************************************
QBSTKY PROC XWINDEX,XWADAPT
PBIN XWINDEX,XWADAPT
MOVE WW1,XWINDEX CONVERT TO BINARY
ADD WW1,=W'9'
IB WW1,QB100,QB200,QB900, C
QB900,QB500,QB600,QB900,QB900
*
* NO KEYLOCK TURNED
*
B QB999
QB100
SET SBKEY1
B QB900
QB200
SET SBKEY2
B QB900
QB500
CLEAR SBKEY1
B QB900
QB600
CLEAR SBKEY2
**
* IF A KEYLOCK HAS BEEN TURNED,*
* ADAPT THE INDEX IN THE KEYTABLE*
**
QB900
MOVE XWINDEX,XWADAPT
QB999
RET
PEND
************************************************************************
* *
* PROCEDURE: QCGUWB*
* FUNCTIONAL DESCRIPTION:*
* TRY TO GET A SET OF FREE USER WORKBLOCKS.*
* IF FREE UWB'S HAVE BEEN FOUND, THEY ARE RESERVED BY SETTING*
* THE BOOLEAN 'SBUSEDWB' OF THAT SET OF UWB'S.*
* NWUWBNR WILL THEN CONTAIN THE NUMBER OF THE UWB'S GRABBED.*
* IF NO UWB'S ARE AVAILABLE, NWUWBNR IS SET TO ZERO.*
* *
* VARIABLES USED:*
* NWUWBNR: WILL CONTAIN THE NUMBER OF THE UWB'S GRABBED.*
* SBUSEDUWB: BOOLEAN TO INDICATE WHETHER OR NOT THE UWB'S*
* WITH A CERTAIN NUMBER ARE USED OR NOT.*
* *
************************************************************************
QCGUWB PROC
QC000
MOVE NWUWBNR,=W'0'
**
* TRY NEXT USER WORK BLOCK*
**
QC100
ADD NWUWBNR,=W'1'
USE UBF,NWUWBNR
BERR QC500 NO MORE UWB'S
TBF SBUSEDWB,QC400 UWB NOT IN USE, GRAB IT
B QC100 TRY NEXT UWB
**
* GET OTHER USER WORK BLOCKS AS WELL*
**
QC400
SET SBUSEDWB
USE UCY,NWUWBNR
USE UIF,NWUWBNR
USE UOP,NWUWBNR
USE UA1,NWUWBNR
USE UA2,NWUWBNR
USE UT1,NWUWBNR
USE UT2,NWUWBNR
USE UQQ,NWUWBNR
B QC999
**
* NO FREE UWB'S*
**
QC500
MOVE NWUWBNR,=W'0' INDICATE NO FREE UWB'S
QC999
RET
PEND
************************************************************************
* *
* PROCEDURE: QDFUWB*
* FUNCTIONAL DESCRIPTION:*
* FREE TGHE UWB'S RESERVED BEFORE BY CLEARING SBUSEDWB.*
* *
************************************************************************
QDFUWB PROC
QD000
CLEAR SBUSEDWB
QD999
RET
PEND
************************************************************************
* *
* PROCEDURE: QENTRS*
* PARAMETER:*
* XDTRS (UPDATE): A TRANSACTION NUMBER BETWEEN 1 AND 8.*
* FUNCTIONAL DESCRIPTION:*
* CALCULATE THE NEXT TRANSACTION NUMBER.*
* THE TRANSACTIONS BELONGING TO AN ACCOUNT ARE NUMBERED FROM*
* 1 TO 8 AND ARE USED CIRCULARLY.*
* TO GET THE NEXT TRANSACTION NUMBER, ADD 1 TO XDTRS AND IF NOW*
* XDTRS = 9, RESET XDTRS TO 1.*
* *
************************************************************************
QENTRS PROC XDTRS
PBCD XDTRS
QE000
ADD XDTRS,=D'1'
CBL XDTRS,=D'9',QE999 OKE
MOVE XDTRS,=D'1' NEXT SEQ NR. IS 1
QE999
RET
PEND
************************************************************************
* *
* PROCEDURE: QFLTRS*
* PARAMETER:*
* XDTRS (UPDATE): A TRANSACTION NUMBER BETWEEN 1 AND 8.*
* FUNCTIONAL DESCRIPTION:*
* CALCULATE THE LAST TRANSACTION NUMBER.*
* TO GET THE LAST TRANSACTION NUMBER, SUBTRACT 1 FROM XDTRS AND*
* IF NOW XDTRS = 0, RESET XDTRS TO 8.*
* *
************************************************************************
QFLTRS PROC XDTRS
PBCD XDTRS
QF000
SUB XDTRS,=D'1'
CBG XDTRS,=D'0',QF999 OKE
MOVE XDTRS,=D'8' LAST SEQ NR. IS 8
QF999
RET
PEND
************************************************************************
* *
* PROCEDURE: QGATYP*
* PARAMETER:*
* XDACTNR (INPUT): UNSHIFTED ACCOUNT NUMBER.*
* FUNCTIONAL DESCRIPTION:*
* IF THE UNSHIFTED ACCOUNT NUMBER IN XDACTNR IS EVEN THEN IT*
* IS A CHEQUE ACCOUNT NUMBER AND SBCHQACT IS SET TO TRUE *
* ELSE IT IS A SAVINGS ACCOUNT NUMBER.*
* *
* VARIABLES USED:*
* SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ?*
* WORKVARIABLE:*
* WDEC1*
* *
************************************************************************
QGATYP PROC XDACTNR
PBCD XDACTNR
QG000
CLEAR SBCHQACT
* *
* TEST ACCOUNTNUMBER IS ODD/EVEN*
* *
MOVE WDEC1,XDACTNR
DIV WDEC1,=D'2'
MUL WDEC1,=D'2'
CBNE WDEC1,XDACTNR,QG200 NUMBER IS ODD
SET SBCHQACT EVEN NUMBER - CHEQUE ACCOUNT
QG200
RET
PEND
************************************************************************
* *
* PROCEDURE: QHSPKY*
* PARAMETERS:*
* XWINDEX (UPDATE): INDEX IN THE SCREEN-MANAGEMENT KEYTABLE.*
* XWADAPT (INPUT): ADAPT-VALUE FOR XWINDEX.*
* XWKTBLNG (INPUT): FULL SCREEN-MANAGEMENT KEYTABLE LENGTH.*
* FUNCTIONAL DESCRIPTION:*
* UPON ENTRY XWINDEX CAN HAVE THE FOLLOWING VALUES:*
* -8 =< V =< -1 KEYLOCK TURNED ON 6236-TYPE KEYBOARD.*
* THIS WILL BE HANDLED BY 'QBSTKY'.*
* V = 0 POWER FAILURE*
* 0 =< V =< XWKTBLNG-1 KEY LISTED IN THE KEYTABLE IS ENTERED.*
* OTHER VALUES ADAPT XWINDEX TO XWADAPT.*
* *
************************************************************************
QHSPKY PROC XWINDEX,XWADAPT,XWKTBLNG
PBIN XWINDEX,XWADAPT,XWKTBLNG
QH000
**
* CHECK KEYLOCK TURNED FOR 6236/71/72*
**
PERF QBSTKY,XWINDEX,XWADAPT
**
* CHECK KEY ENTERED*
* FIRST ADAPT THE INDEX FOR CALCULATION PURPOSES
* (THE DYKI INDEX IS DIFFERENT FROM THE KI INDEX)*
**
ADD XWINDEX,=W'1'
*
* CHECK IF INDEX POINTS INTO THE KEYTABLE
*
CBL XWINDEX,=W'1',QH900 INDEX NOT IN KEYTABLE
CBG XWINDEX,XWKTBLNG,QH900 INDEX NOT IN KEYTABLE
CBE XWINDEX,=W'1',QH900 BACKSPACE KEY ENTERED
**
* READJUST INDEX FOR SCREEN MANAGEMENT*
**
SUB XWINDEX,=W'1'
B QH999
*
* ADAPT INDEX IN THE KEYTABLE
*
QH900
MOVE XWINDEX,XWADAPT
QH999
RET
PEND
************************************************************************
END
0x0000…0048 (0, 0, 400) Head {h00=0x0044, h01=0x0050, text=» IDENT QMISC MISCELANEOUS SUBROUTINES«, t00=0x0000, t01=0x0004}
0x0048…005e Head {h00=0x0012, h01=0x000e, text=» DDUM DEMODDIV«, t00=0x0000, t01=0x004c}
0x005e…006c Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0062}
0x006c…0082 Head {h00=0x0012, h01=0x0050, text=» ENTRY QAFNKY «, t00=0x0000, t01=0x0070}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY QBSTKY «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY QCGUWB «, t00=0x0000, t01=0x009c}
0x00ae…00c4 Head {h00=0x0012, h01=0x0050, text=» ENTRY QDFUWB «, t00=0x0000, t01=0x00b2}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY QENTRS «, t00=0x0000, t01=0x00c8}
0x00da…00f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY QFLTRS «, t00=0x0000, t01=0x00de}
0x00f0…0106 Head {h00=0x0012, h01=0x0050, text=» ENTRY QGATYP «, t00=0x0000, t01=0x00f4}
0x0106…011c Head {h00=0x0012, h01=0x0050, text=» ENTRY QHSPKY «, t00=0x0000, t01=0x010a}
0x011c…0132 Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x0120}
0x0132…0182 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0136}
0x0182…01d2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0186}
0x01d2…0222 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QAFNKY *«, t00=0x0001, t01=0x0046}
0x0222…0272 Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0001, t01=0x0096}
0x0272…02c2 Head {h00=0x004c, h01=0x0050, text=»* XWINDEX (UPDATE): INDEX IN THE KEYTABLE *«, t00=0x0001, t01=0x00e6}
0x02c2…0312 Head {h00=0x004c, h01=0x0050, text=»* XWADAPT (INPUT): ADAPTION VALUE FOR XWINDEX *«, t00=0x0001, t01=0x0136}
0x0312…0362 Head {h00=0x004c, h01=0x0050, text=»* XWKTBLNG (INPUT): LENGTH OF ONE HALF OF THE KEYTABLE *«, t00=0x0001, t01=0x0186}
0x0362…03b2 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x0046}
0x03b2…0402 Head {h00=0x004c, h01=0x0050, text=»* QAFNKY CHECKS THE EOI-KEY ENTERED BY THE OPERATOR AFTER A *«, t00=0x0002, t01=0x0096}
0x0402…0452 Head {h00=0x004c, h01=0x0050, text=»* KI-INSTRUCTION. *«, t00=0x0002, t01=0x00e6}
0x0452…04a2 Head {h00=0x004c, h01=0x0050, text=»* UPON ENTRY XWINDEX CAN HAVE ONE OF THE FOLLOWING VALUES: *«, t00=0x0002, t01=0x0136}
0x04a2…04f2 Head {h00=0x004c, h01=0x0050, text=»* V: VALUE OF XWINDEX MEANS: *«, t00=0x0002, t01=0x0186}
0x04f2…0542 Head {h00=0x004c, h01=0x0050, text=»* -8 =< V =< -1 KEYLOCK TURNED ON 6236/71/72-KB *«, t00=0x0003, t01=0x0046}
0x0542…0592 Head {h00=0x004c, h01=0x0050, text=»* V = 0 POWER FAILURE *«, t00=0x0003, t01=0x0096}
0x0592…05e2 Head {h00=0x004c, h01=0x0050, text=»* 1 =< V =< XWKTBLNG 6234/31-KEYBOARD AND KEY 1 ON *«, t00=0x0003, t01=0x00e6}
0x05e2…0632 Head {h00=0x004c, h01=0x0050, text=»* OR 6236/71/72-KEYBOARD *«, t00=0x0003, t01=0x0136}
0x0632…0682 Head {h00=0x004c, h01=0x0050, text=»* XWKTBLNG+1 =< V =< 2*XWKTBLNG 6234/31-KEYBOARD AND KEY 2 ON *«, t00=0x0003, t01=0x0186}
0x0682…06d2 Head {h00=0x004c, h01=0x0050, text=»* OTHER VALUES UNDEFINED KEY *«, t00=0x0004, t01=0x0046}
0x06d2…0722 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0096}
0x0722…0772 Head {h00=0x004c, h01=0x0050, text=»* THE ROUTINE QBSTKY CHECKS WHETHER OR NOT KEYLOCK ON A *«, t00=0x0004, t01=0x00e6}
0x0772…07c2 Head {h00=0x004c, h01=0x0050, text=»* 6236/71/72-KB HAS BEEN TURNED AND IF SO WILL SET SBKEY1 *«, t00=0x0004, t01=0x0136}
0x07c2…0812 Head {h00=0x004c, h01=0x0050, text=»* AND SBKEY2 ACCORDINGLY AND SET XWINDEX TO XWADAPT. *«, t00=0x0004, t01=0x0186}
0x0812…0862 Head {h00=0x004c, h01=0x0050, text=»* IF XWINDEX IS NOT IN THE RANGE 1....2*XWKTBLNG THEN *«, t00=0x0005, t01=0x0046}
0x0862…08b2 Head {h00=0x004c, h01=0x0050, text=»* XWINDEX IS SET TO XWADAPT AND CONTROL IS RETURNED. *«, t00=0x0005, t01=0x0096}
0x08b2…0902 Head {h00=0x004c, h01=0x0050, text=»* ELSE IF A 6234-TYPE KEYBOARD IS USED THEN XWINDEX IS ADAPTED *«, t00=0x0005, t01=0x00e6}
0x0902…0952 Head {h00=0x004c, h01=0x0050, text=»* TO POINT INTO THE FIRST HALF OF THE KEYTABLE AND *«, t00=0x0005, t01=0x0136}
0x0952…09a2 Head {h00=0x004c, h01=0x0050, text=»* SBKEY1 AND SBKEY2 ARE SET TO THE RIGHT VALUES. *«, t00=0x0005, t01=0x0186}
0x09a2…09f2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0046}
0x09f2…0a42 Head {h00=0x004c, h01=0x0050, text=»* VARIABLES USED: *«, t00=0x0006, t01=0x0096}
0x0a42…0a92 Head {h00=0x004c, h01=0x0050, text=»* SB34KB: 6234/31-KEYBOARD ? *«, t00=0x0006, t01=0x00e6}
0x0a92…0ae2 Head {h00=0x004c, h01=0x0050, text=»* SBKEY1: IS KEY 1 ON ? *«, t00=0x0006, t01=0x0136}
0x0ae2…0b32 Head {h00=0x004c, h01=0x0050, text=»* SBKEY2: IS KEY 2 ON ? *«, t00=0x0006, t01=0x0186}
0x0b32…0b82 Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLE: *«, t00=0x0007, t01=0x0046}
0x0b82…0bd2 Head {h00=0x004c, h01=0x0050, text=»* WW1 *«, t00=0x0007, t01=0x0096}
0x0bd2…0c22 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00e6}
0x0c22…0c72 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0136}
0x0c72…0cc2 Head {h00=0x004c, h01=0x0050, text=»QAFNKY PROC XWINDEX,XWADAPT,XWKTBLNG «, t00=0x0007, t01=0x0186}
0x0cc2…0ce8 Head {h00=0x0022, h01=0x0050, text=» PBIN XWINDEX,XWADAPT,XWKTBLNG«, t00=0x0008, t01=0x0046}
0x0ce8…0d38 Head {h00=0x004c, h01=0x0050, text=»QA000 «, t00=0x0008, t01=0x006c}
0x0d38…0d88 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x00bc}
0x0d88…0dd8 Head {h00=0x004c, h01=0x0050, text=»* CHECK KEYLOCK TURNED ON 6236/71/72 *«, t00=0x0008, t01=0x010c}
0x0dd8…0e28 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x015c}
0x0e28…0e78 Head {h00=0x004c, h01=0x0050, text=» PERF QBSTKY,XWINDEX,XWADAPT «, t00=0x0009, t01=0x001c}
0x0e78…0ec8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x006c}
0x0ec8…0f18 Head {h00=0x004c, h01=0x0050, text=»* CHECK IF INDEX POINTS INTO THE KEYTABLE *«, t00=0x0009, t01=0x00bc}
0x0f18…0f68 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x010c}
0x0f68…0fb8 Head {h00=0x004c, h01=0x0050, text=» CBL XWINDEX,=W'1',QA900 INDEX NOT IN RANGE «, t00=0x0009, t01=0x015c}
0x0fb8…1008 Head {h00=0x004c, h01=0x0050, text=» MOVE WW1,XWKTBLNG «, t00=0x000a, t01=0x001c}
0x1008…1058 Head {h00=0x004c, h01=0x0050, text=» MUL WW1,=W'2' FULL KEYTABLE LENGTH «, t00=0x000a, t01=0x006c}
0x1058…10a8 Head {h00=0x004c, h01=0x0050, text=» CBG XWINDEX,WW1,QA900 INDEX NOT IN RANGE «, t00=0x000a, t01=0x00bc}
0x10a8…10f8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x010c}
0x10f8…1148 Head {h00=0x004c, h01=0x0050, text=»* INDEX POINTS INTO THE KEYTABLE *«, t00=0x000a, t01=0x015c}
0x1148…1198 Head {h00=0x004c, h01=0x0050, text=»* CHECK KEYBOARD TYPE *«, t00=0x000b, t01=0x001c}
0x1198…11e8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x006c}
0x11e8…1238 Head {h00=0x004c, h01=0x0050, text=» CBG XWINDEX,XWKTBLNG,QA300 6231/34 KEYBOARD WITH KEY 2 ON «, t00=0x000b, t01=0x00bc}
0x1238…1266 Head {h00=0x002a, h01=0x0050, text=» TBF SB34KB,QA999 6236/71/72-KEYBOARD «, t00=0x000b, t01=0x010c}
0x1266…12b6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x013a}
0x12b6…1306 Head {h00=0x004c, h01=0x0050, text=»* 6231/34 KEYBOARD, *«, t00=0x000b, t01=0x018a}
0x1306…1356 Head {h00=0x004c, h01=0x0050, text=»* CHECK KEYLOCK TURNED *«, t00=0x000c, t01=0x004a}
0x1356…1360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x1360…136e Head {h00=0x000a, h01=0x0005, text=»QA300 «, t00=0x000c, t01=0x00a4}
0x136e…1398 Head {h00=0x0026, h01=0x0050, text=» SET SB34KB SET KB TYPE AT TRMSTT «, t00=0x000c, t01=0x00b2}
0x1398…13c6 Head {h00=0x002a, h01=0x0050, text=» CBG XWINDEX,XWKTBLNG,QA500 KEY2 IS ON«, t00=0x000c, t01=0x00dc}
0x13c6…13d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13d0…13e4 Head {h00=0x0010, h01=0x0050, text=»* KEY1 IS ON«, t00=0x000c, t01=0x0114}
0x13e4…13ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ee…13fc Head {h00=0x000a, h01=0x0005, text=»QA400 «, t00=0x000c, t01=0x0132}
0x13fc…142a Head {h00=0x002a, h01=0x0050, text=» TBT SBKEY1,QA999 KEY1 WAS ALREADY ON «, t00=0x000c, t01=0x0140}
0x142a…143e Head {h00=0x0010, h01=0x000b, text=» SET SBKEY1 «, t00=0x000c, t01=0x016e}
0x143e…1454 Head {h00=0x0012, h01=0x000d, text=» CLEAR SBKEY2 «, t00=0x000c, t01=0x0182}
0x1454…1464 Head {h00=0x000c, h01=0x0050, text=» B QA999«, t00=0x000d, t01=0x0008}
0x1464…146e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0018}
0x146e…1482 Head {h00=0x0010, h01=0x0050, text=»* KEY2 IS ON«, t00=0x000d, t01=0x0022}
0x1482…148c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x148c…149a Head {h00=0x000a, h01=0x0050, text=»QA500 «, t00=0x000d, t01=0x0040}
0x149a…14d0 Head {h00=0x0032, h01=0x0050, text=» SUB XWINDEX,XWKTBLNG ADJUST INDEX IN KEYTABLE«, t00=0x000d, t01=0x004e}
0x14d0…14fe Head {h00=0x002a, h01=0x0050, text=» TBT SBKEY2,QA999 KEY2 WAS ALREADY ON «, t00=0x000d, t01=0x0084}
0x14fe…1512 Head {h00=0x0010, h01=0x000b, text=» SET SBKEY2 «, t00=0x000d, t01=0x00b2}
0x1512…1528 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBKEY1 «, t00=0x000d, t01=0x00c6}
0x1528…1538 Head {h00=0x000c, h01=0x0050, text=» B QA999«, t00=0x000d, t01=0x00dc}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x1542…156a Head {h00=0x0024, h01=0x0050, text=»* IF A KEYLOCK HAS BEEN TURNED, «, t00=0x000d, t01=0x00f6}
0x156a…1596 Head {h00=0x0028, h01=0x0050, text=»* ADAPT THE INDEX IN THE KEYTABLE«, t00=0x000d, t01=0x011e}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014a}
0x15a0…15ae Head {h00=0x000a, h01=0x0050, text=»QA900 «, t00=0x000d, t01=0x0154}
0x15ae…15e4 Head {h00=0x0032, h01=0x0050, text=» MOVE XWINDEX,XWADAPT ADAPT INDEX IN KEYTABLE «, t00=0x000d, t01=0x0162}
0x15e4…15f2 Head {h00=0x000a, h01=0x0005, text=»QA999 «, t00=0x000e, t01=0x0008}
0x15f2…15fe Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000e, t01=0x0016}
0x15fe…160c Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x000e, t01=0x0022}
0x160c…165c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000e, t01=0x0030}
0x165c…16ac Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0080}
0x16ac…16fc Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QBSTKY *«, t00=0x000e, t01=0x00d0}
0x16fc…174c Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x000e, t01=0x0120}
0x174c…179c Head {h00=0x004c, h01=0x0050, text=»* XWINDEX (UPDATE): INDEX RETURNED BY KI-INSTRUCTION. *«, t00=0x000e, t01=0x0170}
0x179c…17ec Head {h00=0x004c, h01=0x0050, text=»* XWADAPT (INPUT): ADAPT VALUE FOR XWINDEX. *«, t00=0x000f, t01=0x0030}
0x17ec…183c Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x000f, t01=0x0080}
0x183c…188c Head {h00=0x004c, h01=0x0050, text=»* IF KEYLOCK HAS BEEN TURNED ON 6236/71/72-KEYBOARD THEN *«, t00=0x000f, t01=0x00d0}
0x188c…18dc Head {h00=0x004c, h01=0x0050, text=»* XWINDEX CONTAINS ONE OF THE FOLLOWING VALUES: *«, t00=0x000f, t01=0x0120}
0x18dc…192c Head {h00=0x004c, h01=0x0050, text=»* -8: KEY 1 TURNED ON -4: KEY 1 TURNED OFF *«, t00=0x000f, t01=0x0170}
0x192c…197c Head {h00=0x004c, h01=0x0050, text=»* -7: KEY 2 TURNED ON -3: KEY 2 TURNED OFF *«, t00=0x0010, t01=0x0030}
0x197c…19cc Head {h00=0x004c, h01=0x0050, text=»* -6: KEY 3 TURNED ON -2: KEY 3 TURNED OFF *«, t00=0x0010, t01=0x0080}
0x19cc…1a1c Head {h00=0x004c, h01=0x0050, text=»* -5: KEY 4 TURNED ON -1: KEY 4 TURNED OFF *«, t00=0x0010, t01=0x00d0}
0x1a1c…1a6c Head {h00=0x004c, h01=0x0050, text=»* SBKEY1 AND SBKEY2 MUST BE SET ACCORDING TO THE KEYLOCK TURNED *«, t00=0x0010, t01=0x0120}
0x1a6c…1abc Head {h00=0x004c, h01=0x0050, text=»* AND IF A KEYLOCK HAS BEEN TURNED XWINDEX MUST BE SET TO XWADAPT *«, t00=0x0010, t01=0x0170}
0x1abc…1b0c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0030}
0x1b0c…1b5c Head {h00=0x004c, h01=0x0050, text=»* VARIABLES USED: *«, t00=0x0011, t01=0x0080}
0x1b5c…1bac Head {h00=0x004c, h01=0x0050, text=»* SB34KB: 6234/31-KEYBOARD ? *«, t00=0x0011, t01=0x00d0}
0x1bac…1bfc Head {h00=0x004c, h01=0x0050, text=»* SBKEY1: IS KEY 1 ON ? *«, t00=0x0011, t01=0x0120}
0x1bfc…1c4c Head {h00=0x004c, h01=0x0050, text=»* SBKEY2: IS KEY 2 ON ? *«, t00=0x0011, t01=0x0170}
0x1c4c…1c9c Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLE: *«, t00=0x0012, t01=0x0030}
0x1c9c…1cec Head {h00=0x004c, h01=0x0050, text=»* WW1 *«, t00=0x0012, t01=0x0080}
0x1cec…1d3c Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00d0}
0x1d3c…1d8c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x0120}
0x1d8c…1ddc Head {h00=0x004c, h01=0x0050, text=»QBSTKY PROC XWINDEX,XWADAPT «, t00=0x0012, t01=0x0170}
0x1ddc…1dfa Head {h00=0x001a, h01=0x0050, text=» PBIN XWINDEX,XWADAPT «, t00=0x0013, t01=0x0030}
0x1dfa…1e26 Head {h00=0x0028, h01=0x0050, text=» MOVE WW1,XWINDEX CONVERT TO BINARY «, t00=0x0013, t01=0x004e}
0x1e26…1e3c Head {h00=0x0012, h01=0x0050, text=» ADD WW1,=W'9'«, t00=0x0013, t01=0x007a}
0x1e3c…1e62 Head {h00=0x0022, h01=0x0050, text=» IB WW1,QB100,QB200,QB900, C «, t00=0x0013, t01=0x0090}
0x1e62…1e8a Head {h00=0x0024, h01=0x0050, text=» QB900,QB500,QB600,QB900,QB900 «, t00=0x0013, t01=0x00b6}
0x1e8a…1e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e94…1eb0 Head {h00=0x0018, h01=0x0050, text=»* NO KEYLOCK TURNED «, t00=0x0013, t01=0x00e8}
0x1eb0…1eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eba…1eca Head {h00=0x000c, h01=0x0050, text=» B QB999«, t00=0x0013, t01=0x010e}
0x1eca…1ed8 Head {h00=0x000a, h01=0x0050, text=»QB100 «, t00=0x0013, t01=0x011e}
0x1ed8…1eec Head {h00=0x0010, h01=0x0050, text=» SET SBKEY1 «, t00=0x0013, t01=0x012c}
0x1eec…1efc Head {h00=0x000c, h01=0x0050, text=» B QB900«, t00=0x0013, t01=0x0140}
0x1efc…1f0a Head {h00=0x000a, h01=0x0050, text=»QB200 «, t00=0x0013, t01=0x0150}
0x1f0a…1f1e Head {h00=0x0010, h01=0x0050, text=» SET SBKEY2 «, t00=0x0013, t01=0x015e}
0x1f1e…1f2e Head {h00=0x000c, h01=0x0050, text=» B QB900«, t00=0x0013, t01=0x0172}
0x1f2e…1f3c Head {h00=0x000a, h01=0x0050, text=»QB500 «, t00=0x0013, t01=0x0182}
0x1f3c…1f52 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBKEY1 «, t00=0x0013, t01=0x0190}
0x1f52…1f62 Head {h00=0x000c, h01=0x0050, text=» B QB900«, t00=0x0014, t01=0x0016}
0x1f62…1f70 Head {h00=0x000a, h01=0x0050, text=»QB600 «, t00=0x0014, t01=0x0026}
0x1f70…1f86 Head {h00=0x0012, h01=0x0050, text=» CLEAR SBKEY2 «, t00=0x0014, t01=0x0034}
0x1f86…1fd6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x004a}
0x1fd6…2026 Head {h00=0x004c, h01=0x0050, text=»* IF A KEYLOCK HAS BEEN TURNED, *«, t00=0x0014, t01=0x009a}
0x2026…2076 Head {h00=0x004c, h01=0x0050, text=»* ADAPT THE INDEX IN THE KEYTABLE *«, t00=0x0014, t01=0x00ea}
0x2076…20c6 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0014, t01=0x013a}
0x20c6…2116 Head {h00=0x004c, h01=0x0050, text=»QB900 «, t00=0x0014, t01=0x018a}
0x2116…2166 Head {h00=0x004c, h01=0x0050, text=» MOVE XWINDEX,XWADAPT «, t00=0x0015, t01=0x004a}
0x2166…21b6 Head {h00=0x004c, h01=0x0050, text=»QB999 «, t00=0x0015, t01=0x009a}
0x21b6…21c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00ea}
0x21c2…21d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00f6}
0x21d0…2220 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0104}
0x2220…2270 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0154}
0x2270…22c0 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QCGUWB *«, t00=0x0016, t01=0x0014}
0x22c0…2310 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0016, t01=0x0064}
0x2310…2360 Head {h00=0x004c, h01=0x0050, text=»* TRY TO GET A SET OF FREE USER WORKBLOCKS. *«, t00=0x0016, t01=0x00b4}
0x2360…23b0 Head {h00=0x004c, h01=0x0050, text=»* IF FREE UWB'S HAVE BEEN FOUND, THEY ARE RESERVED BY SETTING *«, t00=0x0016, t01=0x0104}
0x23b0…2400 Head {h00=0x004c, h01=0x0050, text=»* THE BOOLEAN 'SBUSEDWB' OF THAT SET OF UWB'S. *«, t00=0x0016, t01=0x0154}
0x2400…2450 Head {h00=0x004c, h01=0x0050, text=»* NWUWBNR WILL THEN CONTAIN THE NUMBER OF THE UWB'S GRABBED. *«, t00=0x0017, t01=0x0014}
0x2450…24a0 Head {h00=0x004c, h01=0x0050, text=»* IF NO UWB'S ARE AVAILABLE, NWUWBNR IS SET TO ZERO. *«, t00=0x0017, t01=0x0064}
0x24a0…24f0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x00b4}
0x24f0…2540 Head {h00=0x004c, h01=0x0050, text=»* VARIABLES USED: *«, t00=0x0017, t01=0x0104}
0x2540…2590 Head {h00=0x004c, h01=0x0050, text=»* NWUWBNR: WILL CONTAIN THE NUMBER OF THE UWB'S GRABBED. *«, t00=0x0017, t01=0x0154}
0x2590…25e0 Head {h00=0x004c, h01=0x0050, text=»* SBUSEDUWB: BOOLEAN TO INDICATE WHETHER OR NOT THE UWB'S *«, t00=0x0018, t01=0x0014}
0x25e0…2630 Head {h00=0x004c, h01=0x0050, text=»* WITH A CERTAIN NUMBER ARE USED OR NOT. *«, t00=0x0018, t01=0x0064}
0x2630…2680 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0018, t01=0x00b4}
0x2680…26d0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x0104}
0x26d0…2720 Head {h00=0x004c, h01=0x0050, text=»QCGUWB PROC «, t00=0x0018, t01=0x0154}
0x2720…2770 Head {h00=0x004c, h01=0x0050, text=»QC000 «, t00=0x0019, t01=0x0014}
0x2770…27c0 Head {h00=0x004c, h01=0x0050, text=» MOVE NWUWBNR,=W'0' «, t00=0x0019, t01=0x0064}
0x27c0…2810 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x00b4}
0x2810…2860 Head {h00=0x004c, h01=0x0050, text=»* TRY NEXT USER WORK BLOCK *«, t00=0x0019, t01=0x0104}
0x2860…28b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0154}
0x28b0…2900 Head {h00=0x004c, h01=0x0050, text=»QC100 «, t00=0x001a, t01=0x0014}
0x2900…2950 Head {h00=0x004c, h01=0x0050, text=» ADD NWUWBNR,=W'1' «, t00=0x001a, t01=0x0064}
0x2950…29a0 Head {h00=0x004c, h01=0x0050, text=» USE UBF,NWUWBNR «, t00=0x001a, t01=0x00b4}
0x29a0…29f0 Head {h00=0x004c, h01=0x0050, text=» BERR QC500 NO MORE UWB'S «, t00=0x001a, t01=0x0104}
0x29f0…2a40 Head {h00=0x004c, h01=0x0050, text=» TBF SBUSEDWB,QC400 UWB NOT IN USE, GRAB IT «, t00=0x001a, t01=0x0154}
0x2a40…2a90 Head {h00=0x004c, h01=0x0050, text=» B QC100 TRY NEXT UWB «, t00=0x001b, t01=0x0014}
0x2a90…2ae0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0064}
0x2ae0…2b30 Head {h00=0x004c, h01=0x0050, text=»* GET OTHER USER WORK BLOCKS AS WELL *«, t00=0x001b, t01=0x00b4}
0x2b30…2b80 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0104}
0x2b80…2bd0 Head {h00=0x004c, h01=0x0050, text=»QC400 «, t00=0x001b, t01=0x0154}
0x2bd0…2c20 Head {h00=0x004c, h01=0x0050, text=» SET SBUSEDWB «, t00=0x001c, t01=0x0014}
0x2c20…2c70 Head {h00=0x004c, h01=0x0050, text=» USE UCY,NWUWBNR «, t00=0x001c, t01=0x0064}
0x2c70…2c88 Head {h00=0x0014, h01=0x0050, text=» USE UIF,NWUWBNR«, t00=0x001c, t01=0x00b4}
0x2c88…2cd8 Head {h00=0x004c, h01=0x0050, text=» USE UOP,NWUWBNR «, t00=0x001c, t01=0x00cc}
0x2cd8…2d28 Head {h00=0x004c, h01=0x0050, text=» USE UA1,NWUWBNR «, t00=0x001c, t01=0x011c}
0x2d28…2d78 Head {h00=0x004c, h01=0x0050, text=» USE UA2,NWUWBNR «, t00=0x001c, t01=0x016c}
0x2d78…2dc8 Head {h00=0x004c, h01=0x0050, text=» USE UT1,NWUWBNR «, t00=0x001d, t01=0x002c}
0x2dc8…2e18 Head {h00=0x004c, h01=0x0050, text=» USE UT2,NWUWBNR «, t00=0x001d, t01=0x007c}
0x2e18…2e30 Head {h00=0x0014, h01=0x0050, text=» USE UQQ,NWUWBNR«, t00=0x001d, t01=0x00cc}
0x2e30…2e80 Head {h00=0x004c, h01=0x0050, text=» B QC999 «, t00=0x001d, t01=0x00e4}
0x2e80…2ed0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001d, t01=0x0134}
0x2ed0…2f20 Head {h00=0x004c, h01=0x0050, text=»* NO FREE UWB'S *«, t00=0x001d, t01=0x0184}
0x2f20…2f70 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001e, t01=0x0044}
0x2f70…2fc0 Head {h00=0x004c, h01=0x0050, text=»QC500 «, t00=0x001e, t01=0x0094}
0x2fc0…3010 Head {h00=0x004c, h01=0x0050, text=» MOVE NWUWBNR,=W'0' INDICATE NO FREE UWB'S «, t00=0x001e, t01=0x00e4}
0x3010…3060 Head {h00=0x004c, h01=0x0050, text=»QC999 «, t00=0x001e, t01=0x0134}
0x3060…30b0 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x001e, t01=0x0184}
0x30b0…3100 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x0044}
0x3100…3150 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x0094}
0x3150…31a0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x001f, t01=0x00e4}
0x31a0…31f0 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QDFUWB *«, t00=0x001f, t01=0x0134}
0x31f0…3240 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x001f, t01=0x0184}
0x3240…3290 Head {h00=0x004c, h01=0x0050, text=»* FREE TGHE UWB'S RESERVED BEFORE BY CLEARING SBUSEDWB. *«, t00=0x0020, t01=0x0044}
0x3290…32e0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0094}
0x32e0…3330 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x00e4}
0x3330…3380 Head {h00=0x004c, h01=0x0050, text=»QDFUWB PROC «, t00=0x0020, t01=0x0134}
0x3380…33d0 Head {h00=0x004c, h01=0x0050, text=»QD000 «, t00=0x0020, t01=0x0184}
0x33d0…3420 Head {h00=0x004c, h01=0x0050, text=» CLEAR SBUSEDWB «, t00=0x0021, t01=0x0044}
0x3420…3470 Head {h00=0x004c, h01=0x0050, text=»QD999 «, t00=0x0021, t01=0x0094}
0x3470…34c0 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0021, t01=0x00e4}
0x34c0…3510 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0134}
0x3510…3560 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x0184}
0x3560…35b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0022, t01=0x0044}
0x35b0…3600 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QENTRS *«, t00=0x0022, t01=0x0094}
0x3600…3650 Head {h00=0x004c, h01=0x0050, text=»* PARAMETER: *«, t00=0x0022, t01=0x00e4}
0x3650…36a0 Head {h00=0x004c, h01=0x0050, text=»* XDTRS (UPDATE): A TRANSACTION NUMBER BETWEEN 1 AND 8. *«, t00=0x0022, t01=0x0134}
0x36a0…36f0 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0022, t01=0x0184}
0x36f0…3740 Head {h00=0x004c, h01=0x0050, text=»* CALCULATE THE NEXT TRANSACTION NUMBER. *«, t00=0x0023, t01=0x0044}
0x3740…3790 Head {h00=0x004c, h01=0x0050, text=»* THE TRANSACTIONS BELONGING TO AN ACCOUNT ARE NUMBERED FROM *«, t00=0x0023, t01=0x0094}
0x3790…37e0 Head {h00=0x004c, h01=0x0050, text=»* 1 TO 8 AND ARE USED CIRCULARLY. *«, t00=0x0023, t01=0x00e4}
0x37e0…3830 Head {h00=0x004c, h01=0x0050, text=»* TO GET THE NEXT TRANSACTION NUMBER, ADD 1 TO XDTRS AND IF NOW *«, t00=0x0023, t01=0x0134}
0x3830…3880 Head {h00=0x004c, h01=0x0050, text=»* XDTRS = 9, RESET XDTRS TO 1. *«, t00=0x0023, t01=0x0184}
0x3880…38d0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0044}
0x38d0…3920 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0024, t01=0x0094}
0x3920…3970 Head {h00=0x004c, h01=0x0050, text=»QENTRS PROC XDTRS «, t00=0x0024, t01=0x00e4}
0x3970…3984 Head {h00=0x0010, h01=0x0050, text=» PBCD XDTRS «, t00=0x0024, t01=0x0134}
0x3984…39d4 Head {h00=0x004c, h01=0x0050, text=»QE000 «, t00=0x0024, t01=0x0148}
0x39d4…3a24 Head {h00=0x004c, h01=0x0050, text=» ADD XDTRS,=D'1' «, t00=0x0025, t01=0x0008}
0x3a24…3a74 Head {h00=0x004c, h01=0x0050, text=» CBL XDTRS,=D'9',QE999 OKE «, t00=0x0025, t01=0x0058}
0x3a74…3ac4 Head {h00=0x004c, h01=0x0050, text=» MOVE XDTRS,=D'1' NEXT SEQ NR. IS 1 «, t00=0x0025, t01=0x00a8}
0x3ac4…3b14 Head {h00=0x004c, h01=0x0050, text=»QE999 «, t00=0x0025, t01=0x00f8}
0x3b14…3b64 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0025, t01=0x0148}
0x3b64…3bb4 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0008}
0x3bb4…3c04 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0058}
0x3c04…3c54 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00a8}
0x3c54…3ca4 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QFLTRS *«, t00=0x0026, t01=0x00f8}
0x3ca4…3cf4 Head {h00=0x004c, h01=0x0050, text=»* PARAMETER: *«, t00=0x0026, t01=0x0148}
0x3cf4…3d44 Head {h00=0x004c, h01=0x0050, text=»* XDTRS (UPDATE): A TRANSACTION NUMBER BETWEEN 1 AND 8. *«, t00=0x0027, t01=0x0008}
0x3d44…3d94 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0027, t01=0x0058}
0x3d94…3de4 Head {h00=0x004c, h01=0x0050, text=»* CALCULATE THE LAST TRANSACTION NUMBER. *«, t00=0x0027, t01=0x00a8}
0x3de4…3e34 Head {h00=0x004c, h01=0x0050, text=»* TO GET THE LAST TRANSACTION NUMBER, SUBTRACT 1 FROM XDTRS AND *«, t00=0x0027, t01=0x00f8}
0x3e34…3e84 Head {h00=0x004c, h01=0x0050, text=»* IF NOW XDTRS = 0, RESET XDTRS TO 8. *«, t00=0x0027, t01=0x0148}
0x3e84…3ed4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0008}
0x3ed4…3f24 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0028, t01=0x0058}
0x3f24…3f74 Head {h00=0x004c, h01=0x0050, text=»QFLTRS PROC XDTRS «, t00=0x0028, t01=0x00a8}
0x3f74…3f88 Head {h00=0x0010, h01=0x0050, text=» PBCD XDTRS «, t00=0x0028, t01=0x00f8}
0x3f88…3fd8 Head {h00=0x004c, h01=0x0050, text=»QF000 «, t00=0x0028, t01=0x010c}
0x3fd8…4028 Head {h00=0x004c, h01=0x0050, text=» SUB XDTRS,=D'1' «, t00=0x0028, t01=0x015c}
0x4028…4078 Head {h00=0x004c, h01=0x0050, text=» CBG XDTRS,=D'0',QF999 OKE «, t00=0x0029, t01=0x001c}
0x4078…40c8 Head {h00=0x004c, h01=0x0050, text=» MOVE XDTRS,=D'8' LAST SEQ NR. IS 8 «, t00=0x0029, t01=0x006c}
0x40c8…4118 Head {h00=0x004c, h01=0x0050, text=»QF999 «, t00=0x0029, t01=0x00bc}
0x4118…4168 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0029, t01=0x010c}
0x4168…41b8 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x015c}
0x41b8…4208 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002a, t01=0x001c}
0x4208…4258 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002a, t01=0x006c}
0x4258…42a8 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QGATYP *«, t00=0x002a, t01=0x00bc}
0x42a8…42f8 Head {h00=0x004c, h01=0x0050, text=»* PARAMETER: *«, t00=0x002a, t01=0x010c}
0x42f8…4348 Head {h00=0x004c, h01=0x0050, text=»* XDACTNR (INPUT): UNSHIFTED ACCOUNT NUMBER. *«, t00=0x002a, t01=0x015c}
0x4348…4398 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x002b, t01=0x001c}
0x4398…43e8 Head {h00=0x004c, h01=0x0050, text=»* IF THE UNSHIFTED ACCOUNT NUMBER IN XDACTNR IS EVEN THEN IT *«, t00=0x002b, t01=0x006c}
0x43e8…4438 Head {h00=0x004c, h01=0x0050, text=»* IS A CHEQUE ACCOUNT NUMBER AND SBCHQACT IS SET TO TRUE *«, t00=0x002b, t01=0x00bc}
0x4438…4488 Head {h00=0x004c, h01=0x0050, text=»* ELSE IT IS A SAVINGS ACCOUNT NUMBER. *«, t00=0x002b, t01=0x010c}
0x4488…44d8 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002b, t01=0x015c}
0x44d8…4528 Head {h00=0x004c, h01=0x0050, text=»* VARIABLES USED: *«, t00=0x002c, t01=0x001c}
0x4528…4578 Head {h00=0x004c, h01=0x0050, text=»* SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? *«, t00=0x002c, t01=0x006c}
0x4578…45c8 Head {h00=0x004c, h01=0x0050, text=»* WORKVARIABLE: *«, t00=0x002c, t01=0x00bc}
0x45c8…4618 Head {h00=0x004c, h01=0x0050, text=»* WDEC1 *«, t00=0x002c, t01=0x010c}
0x4618…4668 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002c, t01=0x015c}
0x4668…46b8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x001c}
0x46b8…4708 Head {h00=0x004c, h01=0x0050, text=»QGATYP PROC XDACTNR «, t00=0x002d, t01=0x006c}
0x4708…471e Head {h00=0x0012, h01=0x0050, text=» PBCD XDACTNR «, t00=0x002d, t01=0x00bc}
0x471e…476e Head {h00=0x004c, h01=0x0050, text=»QG000 «, t00=0x002d, t01=0x00d2}
0x476e…47be Head {h00=0x004c, h01=0x0050, text=» CLEAR SBCHQACT «, t00=0x002d, t01=0x0122}
0x47be…480e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0172}
0x480e…485e Head {h00=0x004c, h01=0x0050, text=»* TEST ACCOUNTNUMBER IS ODD/EVEN *«, t00=0x002e, t01=0x0032}
0x485e…48ae Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0082}
0x48ae…48fe Head {h00=0x004c, h01=0x0050, text=» MOVE WDEC1,XDACTNR «, t00=0x002e, t01=0x00d2}
0x48fe…494e Head {h00=0x004c, h01=0x0050, text=» DIV WDEC1,=D'2' «, t00=0x002e, t01=0x0122}
0x494e…499e Head {h00=0x004c, h01=0x0050, text=» MUL WDEC1,=D'2' «, t00=0x002e, t01=0x0172}
0x499e…49ee Head {h00=0x004c, h01=0x0050, text=» CBNE WDEC1,XDACTNR,QG200 NUMBER IS ODD «, t00=0x002f, t01=0x0032}
0x49ee…4a3e Head {h00=0x004c, h01=0x0050, text=» SET SBCHQACT EVEN NUMBER - CHEQUE ACCOUNT «, t00=0x002f, t01=0x0082}
0x4a3e…4a8e Head {h00=0x004c, h01=0x0050, text=»QG200 «, t00=0x002f, t01=0x00d2}
0x4a8e…4ade Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x002f, t01=0x0122}
0x4ade…4b2e Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0172}
0x4b2e…4b7e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0030, t01=0x0032}
0x4b7e…4bce Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0082}
0x4bce…4c1e Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: QHSPKY *«, t00=0x0030, t01=0x00d2}
0x4c1e…4c6e Head {h00=0x004c, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0030, t01=0x0122}
0x4c6e…4cbe Head {h00=0x004c, h01=0x0050, text=»* XWINDEX (UPDATE): INDEX IN THE SCREEN-MANAGEMENT KEYTABLE. *«, t00=0x0030, t01=0x0172}
0x4cbe…4d0e Head {h00=0x004c, h01=0x0050, text=»* XWADAPT (INPUT): ADAPT-VALUE FOR XWINDEX. *«, t00=0x0031, t01=0x0032}
0x4d0e…4d5e Head {h00=0x004c, h01=0x0050, text=»* XWKTBLNG (INPUT): FULL SCREEN-MANAGEMENT KEYTABLE LENGTH. *«, t00=0x0031, t01=0x0082}
0x4d5e…4dae Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0031, t01=0x00d2}
0x4dae…4dfe Head {h00=0x004c, h01=0x0050, text=»* UPON ENTRY XWINDEX CAN HAVE THE FOLLOWING VALUES: *«, t00=0x0031, t01=0x0122}
0x4dfe…4e4e Head {h00=0x004c, h01=0x0050, text=»* -8 =< V =< -1 KEYLOCK TURNED ON 6236-TYPE KEYBOARD. *«, t00=0x0031, t01=0x0172}
0x4e4e…4e9e Head {h00=0x004c, h01=0x0050, text=»* THIS WILL BE HANDLED BY 'QBSTKY'. *«, t00=0x0032, t01=0x0032}
0x4e9e…4eee Head {h00=0x004c, h01=0x0050, text=»* V = 0 POWER FAILURE *«, t00=0x0032, t01=0x0082}
0x4eee…4f3e Head {h00=0x004c, h01=0x0050, text=»* 0 =< V =< XWKTBLNG-1 KEY LISTED IN THE KEYTABLE IS ENTERED. *«, t00=0x0032, t01=0x00d2}
0x4f3e…4f8e Head {h00=0x004c, h01=0x0050, text=»* OTHER VALUES ADAPT XWINDEX TO XWADAPT. *«, t00=0x0032, t01=0x0122}
0x4f8e…4fde Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0032, t01=0x0172}
0x4fde…502e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0033, t01=0x0032}
0x502e…507e Head {h00=0x004c, h01=0x0050, text=»QHSPKY PROC XWINDEX,XWADAPT,XWKTBLNG «, t00=0x0033, t01=0x0082}
0x507e…50a4 Head {h00=0x0022, h01=0x0050, text=» PBIN XWINDEX,XWADAPT,XWKTBLNG«, t00=0x0033, t01=0x00d2}
0x50a4…50f4 Head {h00=0x004c, h01=0x0050, text=»QH000 «, t00=0x0033, t01=0x00f8}
0x50f4…5144 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0033, t01=0x0148}
0x5144…5194 Head {h00=0x004c, h01=0x0050, text=»* CHECK KEYLOCK TURNED FOR 6236/71/72 *«, t00=0x0034, t01=0x0008}
0x5194…51e4 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0034, t01=0x0058}
0x51e4…5234 Head {h00=0x004c, h01=0x0050, text=» PERF QBSTKY,XWINDEX,XWADAPT «, t00=0x0034, t01=0x00a8}
0x5234…5284 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0034, t01=0x00f8}
0x5284…52d4 Head {h00=0x004c, h01=0x0050, text=»* CHECK KEY ENTERED *«, t00=0x0034, t01=0x0148}
0x52d4…5310 Head {h00=0x0038, h01=0x0050, text=»* FIRST ADAPT THE INDEX FOR CALCULATION PURPOSES«, t00=0x0035, t01=0x0008}
0x5310…5360 Head {h00=0x004c, h01=0x0050, text=»* (THE DYKI INDEX IS DIFFERENT FROM THE KI INDEX) *«, t00=0x0035, t01=0x0044}
0x5360…53b0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0035, t01=0x0094}
0x53b0…5400 Head {h00=0x004c, h01=0x0050, text=» ADD XWINDEX,=W'1' «, t00=0x0035, t01=0x00e4}
0x5400…540a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0134}
0x540a…543e Head {h00=0x0030, h01=0x0050, text=»* CHECK IF INDEX POINTS INTO THE KEYTABLE «, t00=0x0035, t01=0x013e}
0x543e…5448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0172}
0x5448…547e Head {h00=0x0032, h01=0x0050, text=» CBL XWINDEX,=W'1',QH900 INDEX NOT IN KEYTABLE«, t00=0x0035, t01=0x017c}
0x547e…54b8 Head {h00=0x0036, h01=0x0050, text=» CBG XWINDEX,XWKTBLNG,QH900 INDEX NOT IN KEYTABLE «, t00=0x0036, t01=0x0022}
0x54b8…54ee Head {h00=0x0032, h01=0x0050, text=» CBE XWINDEX,=W'1',QH900 BACKSPACE KEY ENTERED«, t00=0x0036, t01=0x005c}
0x54ee…553e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0092}
0x553e…558e Head {h00=0x004c, h01=0x0050, text=»* READJUST INDEX FOR SCREEN MANAGEMENT *«, t00=0x0036, t01=0x00e2}
0x558e…55de Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0132}
0x55de…562e Head {h00=0x004c, h01=0x0050, text=» SUB XWINDEX,=W'1' «, t00=0x0036, t01=0x0182}
0x562e…563e Head {h00=0x000c, h01=0x0050, text=» B QH999«, t00=0x0037, t01=0x0042}
0x563e…5648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0052}
0x5648…5670 Head {h00=0x0024, h01=0x0050, text=»* ADAPT INDEX IN THE KEYTABLE «, t00=0x0037, t01=0x005c}
0x5670…567a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x567a…5688 Head {h00=0x000a, h01=0x0050, text=»QH900 «, t00=0x0037, t01=0x008e}
0x5688…56a6 Head {h00=0x001a, h01=0x0050, text=» MOVE XWINDEX,XWADAPT «, t00=0x0037, t01=0x009c}
0x56a6…56f6 Head {h00=0x004c, h01=0x0050, text=»QH999 «, t00=0x0037, t01=0x00ba}
0x56f6…5746 Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0037, t01=0x010a}
0x5746…5796 Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0037, t01=0x015a}
0x5796…57e6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0038, t01=0x001a}
0x57e6…57f2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0038, t01=0x006a}
0x57f2…57f6 Head {h00=0x4004, h01=0x0000}
0x57f6…57fa 00 38 00 76 ┆ 8 v┆
0x57fa…5802 (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x5802…580a (58, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x580a…585a (59, 0, 400) 49 46 54 5c 53 59 53 54 45 4d 20 52 45 43 4f 52 44 20 4b 45 59 20 00 0a 01 7e 00 2a 00 50 5c 53 45 54 5c 53 42 4e 4f 43 4f 50 59 5c 44 4f 4e 27 54 20 43 4f 50 59 20 52 45 43 4f 52 44 20 54 4f 20 55 57 42 00 0b 00 1e 00 24 00 50 5c 50 45 52 ┆IFT SYSTEM RECORD KEY ~ * P SET SBNOCOPY DON'T COPY RECORD TO UWB $ P PER┆
0x585a…58aa 46 5c 5a 43 52 44 44 2c 4f 44 4f 50 52 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 31 20 00 0b 00 4c 00 54 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 47 33 39 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆F ZCRDD,ODOPRRNR,NDLRN1,KW1 L T P TBT SBCANCEL,CG390 ┆
0x58aa…58fa 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 0b 00 74 00 06 00 50 2a 20 00 0b 00 cc 00 3a 00 50 2a 20 4e 4f 57 20 53 45 54 20 4e 57 52 45 43 4c 4e 47 20 54 4f 20 54 48 45 20 ┆ t P* : P* NOW SET NWRECLNG TO THE ┆
0x58fa…594a 4c 45 4e 47 54 48 20 4f 46 20 41 4e 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 44 00 0b 00 d6 00 06 00 50 2a 20 00 0b 01 14 00 36 00 50 5c 4d 4f 56 45 5c 4f 44 4f 50 52 52 4e 52 2c 3d 44 27 31 30 30 30 31 27 5c 41 52 42 49 54 52 41 52 59 ┆LENGTH OF AN OPERATOR RECORD P* 6 P MOVE ODOPRRNR,=D'10001' ARBITRARY┆
0x594a…599a 20 4f 50 45 52 41 54 4f 52 20 4e 55 4d 42 45 52 00 0b 01 1e 00 24 00 50 5c 4d 55 4c 5c 4f 44 4f 50 52 52 4e 52 2c 4b 44 53 48 49 46 54 5c 52 45 43 4f 52 44 20 4b 45 59 00 0b 01 58 00 34 00 50 5c 50 45 52 46 5c 5a 59 52 4c 4e 47 2c 4f 44 4f ┆ OPERATOR NUMBER $ P MUL ODOPRRNR,KDSHIFT RECORD KEY X 4 P PERF ZYRLNG,ODO┆
0x599a…59ea (60, 0, 400) 50 52 52 4e 52 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 49 4e 20 4e 57 52 45 43 4c 4e 47 20 00 0b 01 80 00 06 00 50 2a 20 00 0c 00 28 00 1e 00 50 2a 20 49 4e 49 54 49 41 4c 49 53 45 20 54 4f 54 41 4c 20 46 49 45 4c 44 53 20 00 0c 00 32 ┆PRRNR RECORD LENGTH IN NWRECLNG P* ( P* INITIALISE TOTAL FIELDS 2┆
0x59ea…5a3a 00 06 00 50 2a 20 00 0c 00 54 00 16 00 50 5c 4d 4f 56 45 5c 57 44 45 43 31 2c 3d 44 27 30 27 20 00 0c 00 5e 00 16 00 50 5c 4d 4f 56 45 5c 57 44 45 43 32 2c 3d 44 27 30 27 20 00 0c 00 78 00 16 00 50 5c 4d 4f 56 45 5c 49 44 4e 52 31 2c 3d 44 ┆ P* T P MOVE WDEC1,=D'0' ^ P MOVE WDEC2,=D'0' x P MOVE IDNR1,=D┆
0x5a3a…5a8a 27 30 27 20 00 0c 00 92 00 16 00 50 5c 4d 4f 56 45 5c 49 44 4e 52 32 2c 3d 44 27 30 27 20 00 0c 00 ac 00 16 00 50 5c 4d 4f 56 45 5c 49 44 4e 52 33 2c 3d 44 27 30 27 20 00 0c 00 c6 00 16 00 50 5c 4d 4f 56 45 5c 49 44 4e 52 34 2c 3d 44 27 30 ┆'0' P MOVE IDNR2,=D'0' P MOVE IDNR3,=D'0' P MOVE IDNR4,=D'0┆
0x5a8a…5ada 27 20 00 0c 00 e0 00 18 00 50 5c 4d 4f 56 45 5c 49 44 41 43 54 4e 52 31 2c 3d 44 27 30 27 00 0c 00 fa 00 18 00 50 5c 4d 4f 56 45 5c 49 44 41 43 54 4e 52 32 2c 3d 44 27 30 27 00 0c 01 16 00 54 00 50 5c 4d 4f 56 45 5c 49 44 41 4d 54 31 2c 3d ┆' P MOVE IDACTNR1,=D'0' P MOVE IDACTNR2,=D'0' T P MOVE IDAMT1,=┆
0x5ada…5b2a 44 27 30 27 5c 5c 5c 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 0c 01 32 00 54 00 50 5c 4d 4f 56 45 5c ┆D'0' 2 T P MOVE ┆