|
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: 4416 (0x1140)
Notes: pts_type(SC)
Names: »RGSUB2.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/RGSUB2.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/RGSUB2.SC«
IDENT RGSUB2 03.01.XXX.1
DDUM KMD08
PDIV
ENTRY PACKST
ENTRY PACKCL
EXT EMPTYT
EXT CYTRP
INCLUDE EQUATE
EJECT
PACKST PROC PAR
********************
*
* PACKST - START OF PACKING
* MOVE ENTRIES FROM GTREGF TO GTDUPF,
* USING GTUSED
*
* ALTERED FIELDS: GSWBIN1
* GTDUPF
* GTUSED
********************
MOVE GSWBIN1,CBIN1
PST10
CBE GTUSED(GSWBIN1),CBIN0,PST30
*SOMETHING ENTERED
CALL EMPTYT,GTREGF(GSWBIN1)
BOK PST20 BRANCH IF NOT EMPTY
MOVE GTUSED(GSWBIN1),CBIN0
B PST30
*
PST20
MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD
B PST40
* NOTHING ENTERED
PST30
MOVE GTDUPF(GSWBIN1),=X'FF'
TBF GTLOKSPG,PST40
MOVE GTREGF(GSWBIN1),=X'FF'
* CLEAR IF SPG. FUNCTION
PST40
ADD GSWBIN1,CBIN1
CBL GSWBIN1,PAR,PST10
RET
PEND
EJECT
****************************************************
*
* PACKCL - CLEAR ROUTINE
*
* ALTERED FIELDS:
* GSWBIN1 - SET TO CBINMAX
* GTUSED - ALL ENTRIES SET TO 0
*
***********************************************
PACKCL PROC CLEAR ALL ENTRIES
PERF CYTRP CHECK FOR CYCLE PAGE WRITING
MOVE GSWBIN1,CBIN1 IN GTUSED
PCKCL10
MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES
ADD GSWBIN1,CBIN1
CBL GSWBIN1,CBINMAX,PCKCL10
MOVE TT07TXT,=C' ' CLEAR TEXTS
MOVE TT16TXT,=C' '
CLEAR TTSMALL
CLEAR TTEORFLG TRANS ERASED
CLEAR TFELT90
CLEAR TFELT91
CLEAR TFELT92
CLEAR TFELT93
CLEAR TFELT94
RET
PEND
END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT RGSUB2 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x0056…006c Head {h00=0x0012, h01=0x0050, text=» ENTRY PACKST «, t00=0x0000, t01=0x005a}
0x006c…0082 Head {h00=0x0012, h01=0x0050, text=» ENTRY PACKCL «, t00=0x0000, t01=0x0070}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x0086}
0x0096…00a8 Head {h00=0x000e, h01=0x0050, text=» EXT CYTRP«, t00=0x0000, t01=0x009a}
0x00a8…00c8 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00ac}
0x00c8…00d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00cc}
0x00d6…00ee Head {h00=0x0014, h01=0x0050, text=»PACKST PROC PAR «, t00=0x0000, t01=0x00da}
0x00ee…010a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x00f2}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…0140 Head {h00=0x0028, h01=0x0050, text=»* PACKST - START OF PACKING«, t00=0x0000, t01=0x0118}
0x0140…0176 Head {h00=0x0032, h01=0x0050, text=»* MOVE ENTRIES FROM GTREGF TO GTDUPF,«, t00=0x0000, t01=0x0144}
0x0176…0196 Head {h00=0x001c, h01=0x0050, text=»* USING GTUSED «, t00=0x0000, t01=0x017a}
0x0196…01a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01c2 Head {h00=0x001e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 «, t00=0x0001, t01=0x0014}
0x01c2…01e2 Head {h00=0x001c, h01=0x0050, text=»* GTDUPF«, t00=0x0001, t01=0x0036}
0x01e2…0202 Head {h00=0x001c, h01=0x0050, text=»* GTUSED«, t00=0x0001, t01=0x0056}
0x0202…021e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0076}
0x021e…023a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 «, t00=0x0001, t01=0x0092}
0x023a…0248 Head {h00=0x000a, h01=0x0050, text=»PST10 «, t00=0x0001, t01=0x00ae}
0x0248…0270 Head {h00=0x0024, h01=0x0050, text=» CBE GTUSED(GSWBIN1),CBIN0,PST30«, t00=0x0001, t01=0x00bc}
0x0270…028a Head {h00=0x0016, h01=0x0050, text=»*SOMETHING ENTERED«, t00=0x0001, t01=0x00e4}
0x028a…02ae Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,GTREGF(GSWBIN1)«, t00=0x0001, t01=0x00fe}
0x02ae…02d4 Head {h00=0x0022, h01=0x0050, text=» BOK PST20 BRANCH IF NOT EMPTY«, t00=0x0001, t01=0x0122}
0x02d4…02f8 Head {h00=0x0020, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN0 «, t00=0x0001, t01=0x0148}
0x02f8…0308 Head {h00=0x000c, h01=0x0050, text=» B PST30«, t00=0x0001, t01=0x016c}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…0320 Head {h00=0x000a, h01=0x0050, text=»PST20 «, t00=0x0001, t01=0x0186}
0x0320…035a (2, 0, 400) Head {h00=0x0036, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD«, t00=0x0002, t01=0x0004}
0x035a…036a Head {h00=0x000c, h01=0x0050, text=» B PST40«, t00=0x0002, t01=0x003e}
0x036a…0384 Head {h00=0x0016, h01=0x0050, text=»* NOTHING ENTERED «, t00=0x0002, t01=0x004e}
0x0384…0392 Head {h00=0x000a, h01=0x0050, text=»PST30 «, t00=0x0002, t01=0x0068}
0x0392…03b6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(GSWBIN1),=X'FF'«, t00=0x0002, t01=0x0076}
0x03b6…03d2 Head {h00=0x0018, h01=0x0050, text=» TBF GTLOKSPG,PST40 «, t00=0x0002, t01=0x009a}
0x03d2…03f6 Head {h00=0x0020, h01=0x0050, text=» MOVE GTREGF(GSWBIN1),=X'FF'«, t00=0x0002, t01=0x00b6}
0x03f6…041a Head {h00=0x0020, h01=0x0050, text=»* CLEAR IF SPG. FUNCTION«, t00=0x0002, t01=0x00da}
0x041a…0428 Head {h00=0x000a, h01=0x0050, text=»PST40 «, t00=0x0002, t01=0x00fe}
0x0428…0442 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0002, t01=0x010c}
0x0442…0460 Head {h00=0x001a, h01=0x0050, text=» CBL GSWBIN1,PAR,PST10«, t00=0x0002, t01=0x0126}
0x0460…046c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0144}
0x046c…047a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0150}
0x047a…0488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x015e}
0x0488…04c4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x016c}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…04ee Head {h00=0x001c, h01=0x0050, text=»* PACKCL - CLEAR ROUTINE«, t00=0x0003, t01=0x0022}
0x04ee…04f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f8…0512 Head {h00=0x0016, h01=0x0050, text=»* ALTERED FIELDS: «, t00=0x0003, t01=0x004c}
0x0512…0540 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN1 - SET TO CBINMAX «, t00=0x0003, t01=0x0066}
0x0540…0572 Head {h00=0x002e, h01=0x0050, text=»* GTUSED - ALL ENTRIES SET TO 0«, t00=0x0003, t01=0x0094}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…05b4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0003, t01=0x00d0}
0x05b4…05da Head {h00=0x0022, h01=0x0050, text=»PACKCL PROC CLEAR ALL ENTRIES«, t00=0x0003, t01=0x0108}
0x05da…060a Head {h00=0x002c, h01=0x0050, text=» PERF CYTRP CHECK FOR CYCLE PAGE WRITING«, t00=0x0003, t01=0x012e}
0x060a…0630 Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN1,CBIN1 IN GTUSED «, t00=0x0003, t01=0x015e}
0x0630…0640 Head {h00=0x000c, h01=0x0050, text=»PCKCL10 «, t00=0x0003, t01=0x0184}
0x0640…0678 (4, 0, 400) Head {h00=0x0034, h01=0x0050, text=» MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES «, t00=0x0004, t01=0x0004}
0x0678…0692 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN1,CBIN1«, t00=0x0004, t01=0x003c}
0x0692…06b6 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN1,CBINMAX,PCKCL10«, t00=0x0004, t01=0x0056}
0x06b6…06de Head {h00=0x0024, h01=0x0050, text=» MOVE TT07TXT,=C' ' CLEAR TEXTS «, t00=0x0004, t01=0x007a}
0x06de…06fa Head {h00=0x0018, h01=0x0050, text=» MOVE TT16TXT,=C' ' «, t00=0x0004, t01=0x00a2}
0x06fa…0710 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTSMALL«, t00=0x0004, t01=0x00be}
0x0710…0734 Head {h00=0x0020, h01=0x0050, text=» CLEAR TTEORFLG TRANS ERASED«, t00=0x0004, t01=0x00d4}
0x0734…074a Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT90«, t00=0x0004, t01=0x00f8}
0x074a…0760 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT91«, t00=0x0004, t01=0x010e}
0x0760…0776 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT92«, t00=0x0004, t01=0x0124}
0x0776…078c Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT93«, t00=0x0004, t01=0x013a}
0x078c…07a2 Head {h00=0x0012, h01=0x0050, text=» CLEAR TFELT94«, t00=0x0004, t01=0x0150}
0x07a2…07ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0166}
0x07ae…07bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0172}
0x07bc…07d0 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0004, t01=0x0180}
0x07d0…07d4 (5, 2, 8) Head {h00=0x4004, h01=0x0000}
0x07d4…07d8 00 05 00 04 ┆ ┆
0x07d8…07e0 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x07e0…0830 (7, 0, 400) 00 22 00 50 2a 20 50 20 3d 20 31 20 42 43 48 4b 32 30 20 2d 20 4c 45 56 20 2b 20 54 52 41 4e 53 20 31 00 07 00 04 00 1c 00 50 2a 20 50 20 3d 20 32 20 42 43 48 4b 33 30 20 2d 20 54 52 41 4e 53 20 32 00 07 00 2a 00 24 00 50 2a 20 50 20 3d 20 ┆ " P* P = 1 BCHK20 - LEV + TRANS 1 P* P = 2 BCHK30 - TRANS 2 * $ P* P = ┆
0x0830…0880 33 20 42 43 48 4b 34 30 20 2d 20 54 52 41 4e 53 20 33 20 2b 20 50 52 49 4e 54 00 07 00 4a 00 1a 00 50 2a 20 50 20 3d 20 34 20 42 43 48 4b 35 30 20 2d 20 50 52 49 4e 54 00 07 00 72 00 14 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 50 20 ┆3 BCHK40 - TRANS 3 + PRINT J P* P = 4 BCHK50 - PRINT r P MOVE GSWBIN8,P ┆
0x0880…08d0 00 07 00 90 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 38 2c 43 42 49 4e 31 00 07 00 a8 00 32 00 50 20 49 42 20 47 53 57 42 49 4e 38 2c 42 43 48 4b 31 30 2c 42 43 48 4b 32 30 2c 42 43 48 4b 33 30 2c 42 43 48 4b 34 30 2c 42 43 48 4b 35 30 ┆ P ADD GSWBIN8,CBIN1 2 P IB GSWBIN8,BCHK10,BCHK20,BCHK30,BCHK40,BCHK50┆
0x08d0…0920 00 07 00 c2 00 0e 00 50 20 42 20 42 43 48 4b 39 30 20 00 07 00 f8 00 06 00 50 2a 20 00 07 01 0a 00 1c 00 50 42 43 48 4b 31 30 5c 5c 5c 50 52 49 4e 54 45 52 20 41 44 4a 55 53 54 20 00 07 01 14 00 2a 00 50 20 50 45 52 46 20 46 4d 52 45 4d 50 ┆ P B BCHK90 P* PBCHK10 PRINTER ADJUST * P PERF FMREMP┆
0x0920…0970 2c 43 42 49 4e 31 20 47 45 54 20 46 4f 52 4d 41 54 20 46 42 44 54 43 48 4b 20 00 07 01 34 00 16 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 27 58 27 00 07 01 62 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 20 ┆,CBIN1 GET FORMAT FBDTCHK 4 P MOVE SPINPUT,='X' b P MOVE GSWBIN5,CBIN1 ┆
0x0970…09c0 (8, 0, 400) 00 07 01 7c 00 0a 00 50 42 43 48 4b 31 35 00 08 00 08 00 26 00 50 20 20 50 45 52 46 20 46 4d 4f 44 2c 47 53 57 42 49 4e 35 2c 53 50 49 4e 50 55 54 20 57 49 54 48 20 58 00 08 00 16 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 42 49 ┆ | PBCHK15 & P PERF FMOD,GSWBIN5,SPINPUT WITH X P ADD GSWBIN5,CBI┆
0x09c0…0a10 4e 31 00 08 00 40 00 1e 00 50 20 43 42 4c 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 37 2c 42 43 48 4b 31 35 00 08 00 5a 00 16 00 50 20 42 20 42 43 48 4b 36 35 20 50 52 49 4e 54 20 49 54 00 08 00 7c 00 06 00 50 2a 20 00 08 00 96 00 24 00 50 ┆N1 @ P CBL GSWBIN5,CBIN17,BCHK15 Z P B BCHK65 PRINT IT | P* $ P┆
0x0a10…0a60 42 43 48 4b 32 30 5c 5c 5c 49 4e 49 54 49 41 54 45 20 4c 45 56 20 2b 20 31 2e 20 54 52 41 4e 53 00 08 00 a0 00 2a 00 50 20 50 45 52 46 20 46 4d 52 45 4d 50 2c 43 42 49 4e 31 20 47 45 54 20 46 4f 52 4d 41 54 20 46 42 44 54 43 48 4b 20 00 08 ┆BCHK20 INITIATE LEV + 1. TRANS * P PERF FMREMP,CBIN1 GET FORMAT FBDTCHK ┆
0x0a60…0ab0 00 c8 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 38 2c 47 54 4c 45 56 4e 56 4e 20 00 08 00 f6 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 31 31 2c 47 54 4c 45 56 41 44 52 00 08 01 18 00 1e 00 50 20 50 45 52 46 20 ┆ P PERF FMOD,CBIN8,GTLEVNVN P PERF FMOD,CBIN11,GTLEVADR P PERF ┆
0x0ab0…0b00 46 4d 4f 44 2c 43 42 49 4e 31 33 2c 47 54 4c 45 56 42 59 20 00 08 01 3a 00 16 00 50 20 45 44 49 54 20 47 53 57 53 54 52 39 2c 46 50 4e 52 00 08 01 5c 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 31 34 2c 47 53 57 53 54 52 39 20 ┆FMOD,CBIN13,GTLEVBY : P EDIT GSWSTR9,FPNR P PERF FMOD,CBIN14,GSWSTR9 ┆
0x0b00…0b50 (9, 0, 400) 00 08 01 76 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 31 35 2c 47 54 4c 45 56 50 44 49 00 09 00 08 00 06 00 50 2a 20 00 09 00 2a 00 20 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 31 2c 47 54 44 55 50 46 28 43 42 49 4e 34 29 ┆ v P PERF FMOD,CBIN15,GTLEVPDI P* * P MOVE CBDTSUM1,GTDUPF(CBIN4)┆
0x0b50…0ba0 00 09 00 34 00 1e 00 50 20 50 45 52 46 20 54 58 54 45 44 49 54 2c 43 42 49 4e 31 2c 43 42 49 4e 31 20 00 09 00 58 00 0e 00 50 20 42 20 42 43 48 4b 39 30 20 00 09 00 7a 00 06 00 50 2a 20 00 09 00 8c 00 0a 00 50 42 43 48 4b 33 30 00 09 00 96 ┆ 4 P PERF TXTEDIT,CBIN1,CBIN1 X P B BCHK90 z P* PBCHK30 ┆
0x0ba0…0bf0 00 20 00 50 20 41 44 44 20 43 42 44 54 53 55 4d 31 2c 47 54 44 55 50 46 28 43 42 49 4e 34 29 20 00 09 00 a4 00 1e 00 50 20 50 45 52 46 20 54 58 54 45 44 49 54 2c 43 42 49 4e 31 2c 43 42 49 4e 32 20 00 09 00 c8 00 0e 00 50 20 42 20 42 43 48 ┆ P ADD CBDTSUM1,GTDUPF(CBIN4) P PERF TXTEDIT,CBIN1,CBIN2 P B BCH┆
0x0bf0…0c40 4b 39 30 20 00 09 00 ea 00 06 00 50 2a 20 00 09 00 fc 00 0a 00 50 42 43 48 4b 34 30 00 09 01 06 00 20 00 50 20 41 44 44 20 43 42 44 54 53 55 4d 31 2c 47 54 44 55 50 46 28 43 42 49 4e 34 29 20 00 09 01 14 00 1e 00 50 20 50 45 52 46 20 54 58 ┆K90 P* PBCHK40 P ADD CBDTSUM1,GTDUPF(CBIN4) P PERF TX┆
0x0c40…0c90 54 45 44 49 54 2c 43 42 49 4e 31 2c 43 42 49 4e 33 20 00 09 01 38 00 0e 00 50 20 42 20 42 43 48 4b 36 30 20 00 09 01 5a 00 06 00 50 2a 20 00 09 01 6c 00 0a 00 50 42 43 48 4b 35 30 00 09 01 76 00 30 00 50 20 43 42 45 20 47 53 57 42 43 44 35 ┆TEDIT,CBIN1,CBIN3 8 P B BCHK60 Z P* l PBCHK50 v 0 P CBE GSWBCD5┆
0x0c90…0ce0 (10, 0, 400) 2c 3d 44 27 31 27 2c 42 43 48 4b 39 30 20 4e 4f 54 48 49 4e 47 20 54 4f 20 50 52 49 4e 54 20 3f 00 09 01 84 00 0a 00 50 42 43 48 4b 36 30 00 0a 00 28 00 1a 00 50 20 45 44 49 54 20 53 50 49 4e 50 55 54 2c 46 52 45 4d 54 4f 54 31 00 0a 00 36 ┆,=D'1',BCHK90 NOTHING TO PRINT ? PBCHK60 ( P EDIT SPINPUT,FREMTOT1 6┆
0x0ce0…0d30 00 1c 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 34 2c 53 50 49 4e 50 55 54 00 0a 00 54 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 31 36 2c 53 50 49 4e 50 55 54 20 00 0a 00 74 00 10 00 50 20 50 45 52 46 20 46 53 4f 4c ┆ P PERF FMOD,CBIN4,SPINPUT T P PERF FMOD,CBIN16,SPINPUT t P PERF FSOL┆
0x0d30…0d80 56 45 00 0a 00 96 00 0a 00 50 42 43 48 4b 36 35 00 0a 00 aa 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 31 2c 3d 44 27 30 27 00 0a 00 b8 00 20 00 50 20 50 45 52 46 20 47 45 4e 57 52 53 2c 47 54 48 43 44 45 56 2c 45 44 49 54 42 55 46 ┆VE PBCHK65 P MOVE CBDTSUM1,=D'0' P PERF GENWRS,GTHCDEV,EDITBUF┆
0x0d80…0dd0 00 0a 00 d4 00 16 00 50 20 50 45 52 46 20 4e 45 57 4c 49 4e 2c 43 42 49 4e 37 00 0a 00 f8 00 18 00 50 20 54 42 46 20 47 54 43 48 4b 50 52 2c 42 43 48 4b 37 30 20 00 0a 01 12 00 28 00 50 20 50 45 52 46 20 4e 45 57 4c 49 4e 2c 43 42 49 4e 31 ┆ P PERF NEWLIN,CBIN7 P TBF GTCHKPR,BCHK70 ( P PERF NEWLIN,CBIN1┆
0x0dd0…0e20 20 45 58 54 52 41 20 4c 49 4e 45 46 45 45 44 20 3f 20 00 0a 01 2e 00 12 00 50 20 43 4c 45 41 52 20 47 54 43 48 4b 50 52 00 0a 01 5a 00 0e 00 50 20 42 20 42 43 48 4b 39 30 20 00 0a 01 70 00 0a 00 50 42 43 48 4b 37 30 00 0a 01 82 00 10 00 50 ┆ EXTRA LINEFEED ? . P CLEAR GTCHKPR Z P B BCHK90 p PBCHK70 P┆
0x0e20…0e70 (11, 0, 400) 20 53 45 54 20 47 54 43 48 4b 50 52 00 0a 01 90 00 0a 00 50 42 43 48 4b 39 30 00 0b 00 14 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 0b 00 22 00 08 00 50 20 52 45 54 00 0b 00 3a 00 0a 00 50 20 50 45 4e 44 20 00 0b 00 46 ┆ SET GTCHKPR PBCHK90 P CMP CBIN0,CBIN0 " P RET : P PEND F┆
0x0e70…0ec0 00 0a 00 50 20 45 4a 45 43 54 00 0b 00 54 00 12 00 50 42 47 49 52 50 52 20 50 52 4f 43 20 50 20 00 0b 00 62 00 20 00 50 2a 20 42 47 49 52 50 52 31 30 20 2d 20 41 44 4a 55 53 54 20 50 52 49 4e 54 45 52 20 00 0b 00 78 00 20 00 50 2a 20 42 47 ┆ P EJECT T PBGIRPR PROC P b P* BGIRPR10 - ADJUST PRINTER x P* BG┆
0x0ec0…0f10 49 52 50 52 32 30 20 2d 20 4c 45 56 20 31 20 2b 20 54 52 41 4e 53 20 31 00 0b 00 9c 00 16 00 50 2a 20 42 47 49 52 33 30 20 2d 20 54 52 41 4e 53 20 32 00 0b 00 c0 00 14 00 50 2a 20 42 47 49 52 34 30 20 54 52 41 4e 53 20 33 00 0b 00 da 00 1e ┆IRPR20 - LEV 1 + TRANS 1 P* BGIR30 - TRANS 2 P* BGIR40 TRANS 3 ┆
0x0f10…0f60 00 50 2a 20 42 47 49 52 35 30 20 2d 20 4c 45 56 20 32 20 2b 20 54 52 41 4e 53 20 31 00 0b 00 f2 00 16 00 50 2a 20 42 47 49 52 36 30 20 2d 20 54 52 41 4e 53 20 32 00 0b 01 14 00 1e 00 50 2a 20 42 47 49 52 37 30 20 2d 20 54 52 41 4e 53 20 33 ┆ P* BGIR50 - LEV 2 + TRANS 1 P* BGIR60 - TRANS 2 P* BGIR70 - TRANS 3┆
0x0f60…0fb0 20 2b 20 57 52 49 54 45 00 0b 01 2e 00 14 00 50 2a 20 42 47 49 52 38 30 20 2d 20 57 52 49 54 45 00 0b 01 50 00 14 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 50 20 00 0b 01 68 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 38 2c 43 42 49 ┆ + WRITE . P* BGIR80 - WRITE P P MOVE GSWBIN8,P h P ADD GSWBIN8,CBI┆
0x0fb0…1000 (12, 0, 400) 4e 31 00 0b 01 80 00 30 00 50 20 49 42 20 47 53 57 42 49 4e 38 2c 42 47 49 52 31 30 2c 42 47 49 52 32 30 2c 42 47 49 52 33 30 2c 42 47 49 52 34 30 2c 5c 5c 43 20 00 0c 00 0a 00 22 00 50 5c 5c 42 47 49 52 35 30 2c 42 47 49 52 36 30 2c 42 47 ┆N1 0 P IB GSWBIN8,BGIR10,BGIR20,BGIR30,BGIR40, C " P BGIR50,BGIR60,BG┆
0x1000…1050 49 52 37 30 2c 42 47 49 52 38 30 20 00 0c 00 3e 00 0e 00 50 20 42 20 42 47 49 52 39 30 20 00 0c 00 64 00 06 00 50 2a 20 00 0c 00 76 00 0a 00 50 42 47 49 52 31 30 00 0c 00 80 00 2a 00 50 20 50 45 52 46 20 46 4d 52 45 4d 50 2c 43 42 49 4e 32 ┆IR70,BGIR80 > P B BGIR90 d P* v PBGIR10 * P PERF FMREMP,CBIN2┆
0x1050…10a0 20 47 45 54 20 46 4f 52 4d 41 54 20 46 42 44 54 47 49 52 20 00 0c 00 8e 00 16 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 27 58 27 00 0c 00 bc 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 20 00 0c 00 d6 00 0a ┆ GET FORMAT FBDTGIR P MOVE SPINPUT,='X' P MOVE GSWBIN5,CBIN1 ┆
0x10a0…10f0 00 50 42 47 49 52 31 35 00 0c 00 f2 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 47 53 57 42 49 4e 35 2c 53 50 49 4e 50 55 54 00 0c 01 00 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 00 0c 01 22 00 1e 00 50 20 43 42 47 ┆ PBGIR15 P PERF FMOD,GSWBIN5,SPINPUT P ADD GSWBIN5,CBIN1 " P CBG┆
0x10f0…1140 20 47 53 57 42 49 4e 35 2c 3d 57 27 33 32 27 2c 42 47 49 52 38 36 00 0c 01 3c 00 0e 00 50 20 42 20 42 47 49 52 31 35 20 00 0c 01 5e 00 06 00 50 2a 20 00 0c 01 70 00 0a 00 50 42 47 49 52 32 30 00 0c 01 7a 00 2a 00 50 20 50 45 52 46 20 46 4d ┆ GSWBIN5,=W'32',BGIR86 < P B BGIR15 ^ P* p PBGIR20 z * P PERF FM┆