|
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: 17356 (0x43cc)
Notes: pts_type(SC)
Names: »ADM6.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/ADM6.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/ADM6.SC«
IDENT ADM6 831101 EV EBCDIC DDUM KMD08 PDIV ENTRY ADM600 * EXT SPCLRS EXT SPCLRA EXT SLUTID EXT RAWRIT EXT WRITID EXT LAMPOF EXT ADMRET EXT SPERR EXT CLSVOL EXT LAMPON EXT SOPRD EXT ASGVOL EXT BCKUP EXT RAREAD EXT GETBIT EXT WRITJT EXT WRITLO * INCLUDE EQUATE EJECT ADM600 MOVE GSWBIN1,=X'00' DETACH DEVICE DSC1 DCOMM,TRPAR,GSWBIN1 SET CCONVFLG CLEAR SPKEYFLG TBT GTKASSE,ADM0605 TBF GTMASTFL,ADM0605 CBNE CTASKNR,CBIN0,ADM0605 SET SPPROMPT MOVE SPKEY,CBIN2 ATTFMT SNDFRM6 PERF SPCLRS IB SPBINW2,ADM0605,ADM0605,ADM0610 B ADM600 ADM0605 B ADM06RET * WRITE SLUTD ADM0610 MOVE GSWBIN1,=X'40' DEVICE ADDRESS DSC1 DCOMM,TRPAR,GSWBIN1 TRANSFER PARAM ADM0611 SET SPPROMPT ATTFMT SNDFRM PERF SPCLRS IB SPBINW2,ADM0612,ADM0612,ADM0615 B ADM0611 ADM0612 B ADM600 ADM0615 SUB CRECBCD,=D'1' PERF SLUTID,CRECBCD ADD CRECBCD,=D'1' PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR BNOK ADM600 PERF WRITID,CBIN5,CBIN2 SLUTID ON JOURNAL EJECT ************************************************** * BATCH TRANSMISSION * 1) SIGNON * 2) CHANGE DISK * 3) SEND STARTIDENT * 4) SEND TRANSACTIONS AND SLUTID * 5) IN CASE OF ERROR SEND TERMINATE * 6) WHEN ALL TRANSMITTED SEND SIGNOFF ************************************************* PERF SIGNON BNOK ADM06OUT CLEAR TTLOKFLG ATTFMT SNDFRM7 PERF SPCLRA EDWRT SCREEN,SNDFRM8 CBE SPBINW2,CBIN3,ADM0640 ADM0620 PERF LAMPOF,=W'2047' ADM0630 PERF CHNGDK CHANGE DISC BNOK ADM6SOFF ADM0640 PERF STRTRC SEND STARTIDENT BNOK ADM0630 IF NOT OK, TRY NEXT PERF SENDRC SEND BATCH BOK ADM0620 PERF TERMIN SEND TERMINATE PERF LAMPOF,=W'2047' PERF LAMPON,=W'2' LAMP 10, ERROR B ADM0630 ADM6SOFF PERF SIGNOF SEND SIGNOFF ADM06OUT MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS MOVE GSWBIN1,=X'00' DETACH DEVICE DSC1 DCOMM,TRPAR,GSWBIN1 ADM06RET CLEAR CCONVFLG SET SPKEYFLG PERF LAMPOF,=W'2047' B ADMRET EJECT ************************************************ * * SIGNON * IF NOT OK CR NOT = 0 * ************************************************ SIGNON PROC MOVE GSWBIN1,CBIN5 MOVE GSWBIN2,=W'50' MOVE CTRANBUF,=C' ' EDIT CTRANBUF,SIGONF * FIND LENGTH MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 MOVE GSWBIN2,GSWBIN1 TBT CTESTFLG,SIGON10 PERF EXCHAN EXCHANGE DC BNOK SIGON100 PERF WJDC MOVE GSWSTR20,=C'DFH3504' MOVE GSWBIN1,CBIN0 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7 BNE SIGON100 SIGON10 EDWRT SCREEN,SNDFRM3 CMP CBIN0,CBIN0 RET SIGON100 MOVE SPBINW4,CBIN21 MOVE GTWBCD2,=D'60' MOVE GSWSTR9,=C'TRANSMIT ' MOVE GTWBCD1,=D'16' PERF SPERR PERF WRITJT,=W'14' PERF WRITLO,CBIN17 CMP CBIN0,CBIN1 RET PEND EJECT ********************************************* * * CHNGDK - CHANGE DISK * * STOP SEND PIN 6 * CONTINIUE PIN 5 * ********************************************* CHNGDK PROC CHNG000 PERF CLSVOL,CBIN2 CLOSE FILES ON VOL 2 CLEAR TTLOKFLG MOVE CRECNR,CBIN1 MOVE CRECBCD,=D'1' PERF LAMPON,=W'1024' LAMP 1 PERF LAMPON,=W'64' LAMP 5 PERF LAMPON,=W'32' LAMP 6 PERF LAMPON,=W'16' LAMP 7 CHNG010 PERF SOPRD IB GSWBIN2, C CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06, C CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 B CHNG010 CATCH INV. VALUES CHSOP01 SET TTLOKFLG EDWRT KJTAPE,LOKFMT B CHSOP05 CHSOP02 CHSOP03 CHSOP04 CHSOP08 CHSOP09 B CHNG010 * CHSOP10 * ERROR, SIGN ON AGAIN PERF LAMPOF,=W'2047' LAMPS OFF PERF LAMPON,=W'2' LAMP 10 SET SPPROMPT ATTFMT SNDFRM SIGNON FORMAT PERF SPCLRS IB SPBINW2,CH1010,CH1010,CH1020 CH1010 B CHNG000 CH1020 PERF SIGNON BNOK CHNG000 PERF LAMPOF,=W'2047' B CHNG000 * CHSOP05 PERF LAMPOF,=W'2047' LAMPS OFF PERF ASGVOL,CBIN2 ASSIGN DISK 2 BOK CHNG050 PERF LAMPON,=W'2' B CHNG000 CHNG050 PERF LAMPON,=W'64' LAMP 5 CMP CBIN0,CBIN0 SET CR RET * CHSOP06 SOP 6 PERF LAMPOF,=W'2047' LAMPS OFF PERF BCKUP,=W'1' WITHOUT BACKUP BNOK CHNG000 B CHNG130 * CHSOP07 PERF LAMPOF,=W'2047' LAMPS OFF PERF BCKUP,=W'2' WITH BACKUP BNOK CHNG000 B CHNG130 * CHNG130 PERF LAMPOF,=W'2047' CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS RET PEND EJECT ****************************************** * * STRTRC - SEND OF STARTIDENT * AND CHECK REPLY * ******************************************* STRTRC PROC PERF LAMPOF,=W'2047' PERF LAMPON,=W'64' MOVE GSWBIN6,CBIN1 MOVE GSWBIN1,=W'128' PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 BNOK STRTRET CBE GTWBCD1,=D'4',STRTRET RECORD DELETED? PERF WRITID,CBIN5,CBIN1 MOVE GSWBIN6,CBIN0 MOVE GSWBIN1,=W'40' MOVE GSWSTR20,CBLANKS COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 MOVE CTRANBUF,=C' ' EDIT CTRANBUF,SNDFRM2 MOVE GSWBIN2,=W'31' LENGTH PERF EXCHAN EXCHANGE DC BNOK STRTRET PERF TRNOK CHECK IF OK BNOK STRTRET CMP CBIN0,CBIN0 SET CR RET STRTRET CMP CBIN0,CBIN1 RET PEND EJECT ********************************************** * * SENDRC - SEND BATCH UNTIL SLUTID * ********************************************** SENDRC PROC MOVE GTRECNR,CBIN0 NUMBER OF DATA RECORDS MOVE CRECNR,CBIN1 SND005 MOVE GSWBIN3,CBIN0 PACKPOINTER SND010 ADD CRECNR,CBIN1 MOVE GSWBIN1,=W'128' PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR BNOK SNDERR CMP GTWBCD1,=D'4' BNE SND012 MOVE CPCKBUF,=C'SLUTD00000 ' SND012 MOVE GSWSTR20,=C'SLUTD' MOVE GSWBIN5,CBIN0 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 BE SNDSLUT TBF TTLOKFLG,SND014 PIN 1 PRESSED? MOVE GSWSTR20,='379G01' REPLACE 379G01 MOVE GSWBIN5,CBIN0 BYE R01 MATCH CPCKBUF,GSWBIN5,CBIN6,GSWSTR20,CBIN0,CBIN6 BNOK SND010 NO MATCH MOVE GSWSTR20,='379R01' REPLACE XCOPY CPCKBUF,GSWBIN5,CBIN6,GSWSTR20,CBIN0 SND014 ADD GTRECNR,CBIN1 ONE MORE RECORD TO SEND MOVE GSWSTR9,=X'7F' FIND LENGTH SND015 MOVE GSWBIN4,CBIN0 MOVE GSWBIN5,=W'128' MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1 BE SND020 MOVE GSWSTR9,=X'21' B SND015 SND020 ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE CBNG GSWBIN4,=W'504',SND030 SUB CRECNR,CBIN1 NO MORE SPACE SUB GTRECNR,CBIN1 B SND040 SEND BUFFER SND030 SUB GSWBIN4,GSWBIN3 RESTORE ADD GSWBIN4,CBIN1 FILL WITH X'00' CBE GSWBIN4,=W'128',SND037 MOVE GSWSTR20,=X'00' MOVE GSWBIN5,=W'128' SND035 INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0 SUB GSWBIN5,CBIN20 CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED SND037 EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD B SND010 READ NEXT SND040 MOVE GSWBIN2,GSWBIN3 MOVE SPBINW1,=X'0301' MOVE TTARKSAV,CRECNR DSC1 SCREEN,POS,SPBINW1 EDWRT .NW,SCREEN,SNDFRM4 DISPLAY RECNR PERF EXCHAN BNOK SNDERR PERF TRNOK BNOK SNDERR B SND005 SNDSLUT CBE GSWBIN3,CBIN0,SND090 REQ.LGTH.=0 ? MOVE GSWBIN2,GSWBIN3 PERF EXCHAN EXCHANGE DC BNOK SNDERR PERF TRNOK BNOK SNDERR SND090 MOVE GSWBCD3,GTRECNR NO. OF DATA RECORDS PERF SLUTID,GSWBCD3 MOVE GSWBIN3,CBIN0 MOVE CTRANBUF,=C' ' EDSUB CTRANBUF,GSWBIN3,SNDFRM5 MOVE GSWBIN2,CBIN18 PERF EXCHAN BNOK SNDERR PERF WRITID,CBIN5,CBIN2 PERF WJDC PRINT ANSWER TBT CTESTFLG,SNDSL10 MOVE GSWSTR9,=C'0002' MOVE GSWBIN1,CBIN0 MOVE GSWBIN2,=W'52' MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 BNE SNDERR SNDSL10 CMP CBIN0,CBIN0 RET SNDERR CMP CBIN1,CBIN0 RET PEND EJECT ******************************************** * * TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR * ******************************************** TERMIN PROC MOVE GSWBIN3,CBIN0 MOVE CTRANBUF,=C' ' MOVE CPCKBUF,=C'TERMINATE ' MOVE GSWBIN3,CBIN0 EDSUB CTRANBUF,GSWBIN3,SNDFRM2 MOVE GSWBIN2,CBIN14 PERF EXCHAN EXCHANGE DC BNOK TERMRET PERF WJDC TERMRET RET PEND EJECT ********************************************* * * SIGNOFF * ********************************************* SIGNOF PROC MOVE GSWBIN3,CBIN0 MOVE CTRANBUF,=C' ' MOVE CPCKBUF,=C'CSSF ' EDSUB CTRANBUF,GSWBIN3,SNDFRM2 MOVE GSWBIN2,CBIN9 PERF EXCHAN BNOK SIGOFRET TBT CTESTFLG,SIGOFRT1 PERF WJDC PRINT ANSWER SIGOFRET RET SIGOFRT1 CMP CBIN0,CBIN0 RET PEND EJECT ********************************************* * * EXCHAN - EXCHANGE DC * IN CASE OF ERROR ERRORMESSAGE * IS SHOWN ON SCREEN AND JOURNAL * ********************************************* EXCHAN PROC TBT CTESTFLG,EXCHTEST MOVE GSWBIN5,=W'600' TIMEOUT VALUE DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 BNOK EXCHNOK MOVE GSWBIN2,=W'504' MOVE GSWBIN5,=W'600' DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 BOK EXCHRET EXCHNOK PERF GETBIT,DCOMM FETCH ERRORCODE MOVE SPBINW4,CBIN21 MOVE GTWBCD2,=D'60' MOVE GSWSTR9,=C'TRANSMIT ' PERF SPERR PERF WRITJT,=W'14' PERF WRITLO,CBIN17 CMP CBIN0,CBIN1 RET EXCHRET CMP CBIN0,CBIN0 RET EXCHTEST MOVE GSWBIN2,CBIN20 MOVE CTRANBUF,=X'35' DELAY GSWBIN2 CMP CBIN0,CBIN0 RET PEND EJECT ********************************************* * * TRNOK - CHECK IF MESSAGE CORRECT RECIEVED * ********************************************* TRNOK PROC MOVE GSWBIN3,CBIN0 MOVE GSWSTR9,=X'35' MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN1 BNE TRNERR MOVE GSWBIN2,CBIN0 MOVE CTRANBUF,=C' ' CMP CBIN0,CBIN0 RET TRNERR CMP CBIN0,CBIN1 RET PEND EJECT ************************************************* * * WJDC - PRINT RECEIVED MESSAGE ON JOURNAL * ************************************************* WJDC PROC WAIT KTALLY CBL GSWBIN2,CBIN1,WJDCRET CBG GSWBIN2,=W'504',WJDCRET MOVE GSWSTR9,=C'DFH' MOVE GSWBIN1,CBIN0 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 BE WJDC100 CICS MESSAGE * * APLICATION MESSAGE * MOVE GSWSTR9,=X'11' MOVE GSWBIN1,CBIN0 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 BNE WJDCRET * GSWBIN1=START ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE MOVE GSWBIN4,GSWBIN1 SUB GSWBIN2,GSWBIN4 ADJUST LENGTH CBL GSWBIN2,CBIN1,WJDCRET WJDC005 MOVE CPCKBUF,=X'00' MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 BNE WJDC010 SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1 EDWRT KJTAPE,WJDCFRM ADD GSWBIN4,CBIN3 SUB GSWBIN2,GSWBIN4 ADD GSWBIN4,GSWBIN1 MOVE GSWBIN1,GSWBIN4 CBG GSWBIN2,CBIN3,WJDC005 B WJDCRET WJDC010 B WJDC200 WJDCRET RET * * * WJDC100 SUB GSWBIN2,GSWBIN1 CBL GSWBIN2,=W'52',WJDC200 MOVE GSWBIN4,=W'30' FIND BLANK MATCH CTRANBUF,GSWBIN4,GSWBIN2,CBLANKS,CBIN0,CBIN1 BNE WJDC200 MOVE CPCKBUF,=X'00' SUB GSWBIN4,GSWBIN1 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1 EDWRT KJTAPE,WJDCFRM SUB GSWBIN2,GSWBIN4 ADD GSWBIN1,GSWBIN4 WJDC200 MOVE CPCKBUF,=X'00' CBL GSWBIN2,=W'52',WJDC210 MOVE GSWBIN2,=W'52' WJDC210 COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1 EDWRT KJTAPE,WJDCFRM RET PEND EJECT SNDFRM FRMT FSL FCOPY =C'DATATRANSMISSION ' FNL FTEXT 'BRUGERNAVN' FKI 12,MINL=1,MAXL=13,ME FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT FNL FTEXT 'KENDEORD' FKI 12,MINL=1,MAXL=4,ME FMEL 'TTT9',TTARKSAV FMEND * SIGONF FRMT FILLR ' ',2 FCOPY =X'272020' FTEXT 'CSSN PS=' FMEL '9999',TTARKSAV FTEXT ',NAME=' FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT FMEND * SNDFRM2 FRMT FILLR ' ',2 FCOPY =X'272020' FCOPY CPCKBUF FMEND * SNDFRM3 FRMT FILLR '1',2 FCOPY =C'DATATRANSMISSION ' FMEND * SNDFRM4 FRMT FILLR ' ',2 FTEXT 'ANTAL RECORDS:' FMEL 'ZZZZZ9',TTARKSAV FMEND * SNDFRM5 FRMT FBNZ GSWBIN3,SNDLAB10 FILLR ' ',2 FCOPY =X'272020' SNDLAB10 FCOPY =X'112020' FCOPY CPCKBUF FMEND * SNDFRM6 FRMT FSL FCOPY =C'DATATRANSMISSION ' FILLR '?',1 FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * SNDFRM7 FRMT FSL FTEXT 'SKAL DENNE DISKETTE SENDES?' FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * SNDFRM8 FRMT FILLR '1',2 FMEND * WJDCFRM FRMT FILLR ' ',2 FCOPY CPCKBUF FMEND * LOKFMT FRMT FILLR ' ',2 FTEXT 'FLG. DISKETTE SENDES TIL LOKALSYSTEM' FEOR FILLR ' ',2 FMEND END
0x0000…0026 (0, 0, 398) Head {h00=0x0022, h01=0x0050, text=» IDENT ADM6 831101 EV EBCDIC «, t00=0x0000, t01=0x0004}
0x0026…003a Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x002a}
0x003a…0048 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003e}
0x0048…005e Head {h00=0x0012, h01=0x0050, text=» ENTRY ADM600 «, t00=0x0000, t01=0x004c}
0x005e…0068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0062}
0x0068…007c Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRS «, t00=0x0000, t01=0x006c}
0x007c…0090 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0080}
0x0090…00a4 Head {h00=0x0010, h01=0x0050, text=» EXT SLUTID «, t00=0x0000, t01=0x0094}
0x00a4…00b8 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00a8}
0x00b8…00cc Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0000, t01=0x00bc}
0x00cc…00e0 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0000, t01=0x00d0}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x00e4}
0x00f4…0106 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x00f8}
0x0106…011a Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0000, t01=0x010a}
0x011a…012e Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0000, t01=0x011e}
0x012e…0140 Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0000, t01=0x0132}
0x0140…0154 Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0000, t01=0x0144}
0x0154…0166 Head {h00=0x000e, h01=0x0050, text=» EXT BCKUP«, t00=0x0000, t01=0x0158}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT GETBIT «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0018}
0x01b6…01c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c0…01d8 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0036}
0x01d8…01e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x004e}
0x01e6…01f4 Head {h00=0x000a, h01=0x0050, text=»ADM600«, t00=0x0001, t01=0x005c}
0x01f4…021e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,=X'00' DETACH DEVICE«, t00=0x0001, t01=0x006a}
0x021e…0240 Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0001, t01=0x0094}
0x0240…0256 Head {h00=0x0012, h01=0x0050, text=» SET CCONVFLG «, t00=0x0001, t01=0x00b6}
0x0256…026e Head {h00=0x0014, h01=0x0050, text=» CLEAR SPKEYFLG «, t00=0x0001, t01=0x00cc}
0x026e…028a Head {h00=0x0018, h01=0x0050, text=» TBT GTKASSE,ADM0605«, t00=0x0001, t01=0x00e4}
0x028a…02a8 Head {h00=0x001a, h01=0x0050, text=» TBF GTMASTFL,ADM0605 «, t00=0x0001, t01=0x0100}
0x02a8…02cc Head {h00=0x0020, h01=0x0050, text=» CBNE CTASKNR,CBIN0,ADM0605 «, t00=0x0001, t01=0x011e}
0x02cc…02e2 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0142}
0x02e2…02fc Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0001, t01=0x0158}
0x02fc…0314 Head {h00=0x0014, h01=0x0050, text=» ATTFMT SNDFRM6 «, t00=0x0001, t01=0x0172}
0x0314…0328 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0001, t01=0x018a}
0x0328…0354 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,ADM0605,ADM0605,ADM0610 «, t00=0x0002, t01=0x000e}
0x0354…0366 Head {h00=0x000e, h01=0x0050, text=» B ADM600 «, t00=0x0002, t01=0x003a}
0x0366…0376 Head {h00=0x000c, h01=0x0050, text=»ADM0605 «, t00=0x0002, t01=0x004c}
0x0376…038a Head {h00=0x0010, h01=0x0050, text=» B ADM06RET «, t00=0x0002, t01=0x005c}
0x038a…03ba Head {h00=0x002c, h01=0x0050, text=»* WRITE SLUTD «, t00=0x0002, t01=0x0070}
0x03ba…03ca Head {h00=0x000c, h01=0x0050, text=»ADM0610 «, t00=0x0002, t01=0x00a0}
0x03ca…03f6 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,=X'40' DEVICE ADDRESS «, t00=0x0002, t01=0x00b0}
0x03f6…0426 Head {h00=0x002c, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 TRANSFER PARAM«, t00=0x0002, t01=0x00dc}
0x0426…0436 Head {h00=0x000c, h01=0x0050, text=»ADM0611 «, t00=0x0002, t01=0x010c}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x011c}
0x044c…0462 Head {h00=0x0012, h01=0x0050, text=» ATTFMT SNDFRM«, t00=0x0002, t01=0x0132}
0x0462…0476 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0002, t01=0x0148}
0x0476…04a2 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,ADM0612,ADM0612,ADM0615 «, t00=0x0002, t01=0x015c}
0x04a2…04b4 Head {h00=0x000e, h01=0x0050, text=» B ADM0611«, t00=0x0002, t01=0x0188}
0x04b4…04c4 Head {h00=0x000c, h01=0x0050, text=»ADM0612 «, t00=0x0003, t01=0x000a}
0x04c4…04d6 Head {h00=0x000e, h01=0x0050, text=» B ADM600 «, t00=0x0003, t01=0x001a}
0x04d6…04e6 Head {h00=0x000c, h01=0x0050, text=»ADM0615 «, t00=0x0003, t01=0x002c}
0x04e6…0500 Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0003, t01=0x003c}
0x0500…051c Head {h00=0x0018, h01=0x0050, text=» PERF SLUTID,CRECBCD«, t00=0x0003, t01=0x0056}
0x051c…0536 Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0003, t01=0x0072}
0x0536…0564 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0003, t01=0x008c}
0x0564…0578 Head {h00=0x0010, h01=0x0050, text=» BNOK ADM600«, t00=0x0003, t01=0x00ba}
0x0578…05aa Head {h00=0x002e, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN2 SLUTID ON JOURNAL«, t00=0x0003, t01=0x00ce}
0x05aa…05b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0100}
0x05b8…05f2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0003, t01=0x010e}
0x05f2…061a Head {h00=0x0024, h01=0x0050, text=»* BATCH TRANSMISSION«, t00=0x0003, t01=0x0148}
0x061a…0634 Head {h00=0x0016, h01=0x0050, text=»* 1) SIGNON«, t00=0x0003, t01=0x0170}
0x0634…0654 Head {h00=0x001c, h01=0x0050, text=»* 2) CHANGE DISK «, t00=0x0003, t01=0x018a}
0x0654…0678 Head {h00=0x0020, h01=0x0050, text=»* 3) SEND STARTIDENT «, t00=0x0004, t01=0x001a}
0x0678…06a8 Head {h00=0x002c, h01=0x0050, text=»* 4) SEND TRANSACTIONS AND SLUTID«, t00=0x0004, t01=0x003e}
0x06a8…06dc Head {h00=0x0030, h01=0x0050, text=»* 5) IN CASE OF ERROR SEND TERMINATE «, t00=0x0004, t01=0x006e}
0x06dc…0712 Head {h00=0x0032, h01=0x0050, text=»* 6) WHEN ALL TRANSMITTED SEND SIGNOFF «, t00=0x0004, t01=0x00a2}
0x0712…074c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0004, t01=0x00d8}
0x074c…0760 Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x0004, t01=0x0112}
0x0760…0776 Head {h00=0x0012, h01=0x0050, text=» BNOK ADM06OUT«, t00=0x0004, t01=0x0126}
0x0776…078e Head {h00=0x0014, h01=0x0050, text=» CLEAR TTLOKFLG «, t00=0x0004, t01=0x013c}
0x078e…07a6 Head {h00=0x0014, h01=0x0050, text=» ATTFMT SNDFRM7 «, t00=0x0004, t01=0x0154}
0x07a6…07ba Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0004, t01=0x016c}
0x07ba…07d8 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,SNDFRM8 «, t00=0x0004, t01=0x0180}
0x07d8…07fa Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,ADM0640«, t00=0x0005, t01=0x000e}
0x07fa…080a Head {h00=0x000c, h01=0x0050, text=»ADM0620 «, t00=0x0005, t01=0x0030}
0x080a…0828 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0005, t01=0x0040}
0x0828…0838 Head {h00=0x000c, h01=0x0050, text=»ADM0630 «, t00=0x0005, t01=0x005e}
0x0838…0858 Head {h00=0x001c, h01=0x0050, text=» PERF CHNGDK CHANGE DISC«, t00=0x0005, t01=0x006e}
0x0858…086e Head {h00=0x0012, h01=0x0050, text=» BNOK ADM6SOFF«, t00=0x0005, t01=0x008e}
0x086e…087e Head {h00=0x000c, h01=0x0050, text=»ADM0640 «, t00=0x0005, t01=0x00a4}
0x087e…08a2 Head {h00=0x0020, h01=0x0050, text=» PERF STRTRC SEND STARTIDENT«, t00=0x0005, t01=0x00b4}
0x08a2…08cc Head {h00=0x0026, h01=0x0050, text=» BNOK ADM0630 IF NOT OK, TRY NEXT «, t00=0x0005, t01=0x00d8}
0x08cc…08ec Head {h00=0x001c, h01=0x0050, text=» PERF SENDRC SEND BATCH «, t00=0x0005, t01=0x0102}
0x08ec…0900 Head {h00=0x0010, h01=0x0050, text=» BOK ADM0620«, t00=0x0005, t01=0x0122}
0x0900…0924 Head {h00=0x0020, h01=0x0050, text=» PERF TERMIN SEND TERMINATE «, t00=0x0005, t01=0x0136}
0x0924…0942 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0005, t01=0x015a}
0x0942…096c Head {h00=0x0026, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10, ERROR «, t00=0x0005, t01=0x0178}
0x096c…097e Head {h00=0x000e, h01=0x0050, text=» B ADM0630«, t00=0x0006, t01=0x0012}
0x097e…098e Head {h00=0x000c, h01=0x0050, text=»ADM6SOFF«, t00=0x0006, t01=0x0024}
0x098e…09b0 Head {h00=0x001e, h01=0x0050, text=» PERF SIGNOF SEND SIGNOFF «, t00=0x0006, t01=0x0034}
0x09b0…09c0 Head {h00=0x000c, h01=0x0050, text=»ADM06OUT«, t00=0x0006, t01=0x0056}
0x09c0…09f2 Head {h00=0x002e, h01=0x0050, text=» MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS«, t00=0x0006, t01=0x0066}
0x09f2…0a1c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,=X'00' DETACH DEVICE«, t00=0x0006, t01=0x0098}
0x0a1c…0a3e Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0006, t01=0x00c2}
0x0a3e…0a4e Head {h00=0x000c, h01=0x0050, text=»ADM06RET«, t00=0x0006, t01=0x00e4}
0x0a4e…0a66 Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x0006, t01=0x00f4}
0x0a66…0a7c Head {h00=0x0012, h01=0x0050, text=» SET SPKEYFLG «, t00=0x0006, t01=0x010c}
0x0a7c…0a9a Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0006, t01=0x0122}
0x0a9a…0aac Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0006, t01=0x0140}
0x0aac…0aba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0152}
0x0aba…0af2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0006, t01=0x0160}
0x0af2…0afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b18 Head {h00=0x0018, h01=0x0050, text=»* SIGNON«, t00=0x0007, t01=0x0012}
0x0b18…0b3a Head {h00=0x001e, h01=0x0050, text=»* IF NOT OK CR NOT = 0 «, t00=0x0007, t01=0x002e}
0x0b3a…0b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b44…0b7c Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0007, t01=0x005a}
0x0b7c…0b90 Head {h00=0x0010, h01=0x0050, text=»SIGNON PROC «, t00=0x0007, t01=0x0092}
0x0b90…0bac Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x0007, t01=0x00a6}
0x0bac…0bc8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'50'«, t00=0x0007, t01=0x00c2}
0x0bc8…0be4 Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0007, t01=0x00de}
0x0be4…0c02 Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SIGONF «, t00=0x0007, t01=0x00fa}
0x0c02…0c30 Head {h00=0x002a, h01=0x0050, text=»* FIND LENGTH«, t00=0x0007, t01=0x0118}
0x0c30…0c6c Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x0007, t01=0x0146}
0x0c6c…0c8a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0007, t01=0x0182}
0x0c8a…0ca8 Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SIGON10 «, t00=0x0008, t01=0x0010}
0x0ca8…0cc8 Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0008, t01=0x002e}
0x0cc8…0cde Head {h00=0x0012, h01=0x0050, text=» BNOK SIGON100«, t00=0x0008, t01=0x004e}
0x0cde…0cf0 Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0008, t01=0x0064}
0x0cf0…0d12 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'DFH3504'«, t00=0x0008, t01=0x0076}
0x0d12…0d2e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0008, t01=0x0098}
0x0d2e…0d6a Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7«, t00=0x0008, t01=0x00b4}
0x0d6a…0d80 Head {h00=0x0012, h01=0x0050, text=» BNE SIGON100 «, t00=0x0008, t01=0x00f0}
0x0d80…0d90 Head {h00=0x000c, h01=0x0050, text=»SIGON10 «, t00=0x0008, t01=0x0106}
0x0d90…0dae Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,SNDFRM3 «, t00=0x0008, t01=0x0116}
0x0dae…0dc6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x0134}
0x0dc6…0dd2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x014c}
0x0dd2…0de2 Head {h00=0x000c, h01=0x0050, text=»SIGON100«, t00=0x0008, t01=0x0158}
0x0de2…0dfe Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0008, t01=0x0168}
0x0dfe…0e1a Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x0008, t01=0x0184}
0x0e1a…0e3e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x0009, t01=0x0010}
0x0e3e…0e5a Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'16'«, t00=0x0009, t01=0x0034}
0x0e5a…0e6e Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0050}
0x0e6e…0e8a Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x0009, t01=0x0064}
0x0e8a…0ea6 Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN17 «, t00=0x0009, t01=0x0080}
0x0ea6…0ebe Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0009, t01=0x009c}
0x0ebe…0eca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00b4}
0x0eca…0ed8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00c0}
0x0ed8…0ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00ce}
0x0ee6…0f1c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0009, t01=0x00dc}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f50 Head {h00=0x0026, h01=0x0050, text=»* CHNGDK - CHANGE DISK «, t00=0x0009, t01=0x011c}
0x0f50…0f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5a…0f7c Head {h00=0x001e, h01=0x0050, text=»* STOP SEND PIN 6 «, t00=0x0009, t01=0x0150}
0x0f7c…0f9e Head {h00=0x001e, h01=0x0050, text=»* CONTINIUE PIN 5 «, t00=0x0009, t01=0x0172}
0x0f9e…0fa8 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa8…0fde Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x000e}
0x0fde…0ff2 Head {h00=0x0010, h01=0x0050, text=»CHNGDK PROC «, t00=0x000a, t01=0x0044}
0x0ff2…1002 Head {h00=0x000c, h01=0x0050, text=»CHNG000 «, t00=0x000a, t01=0x0058}
0x1002…1032 Head {h00=0x002c, h01=0x0050, text=» PERF CLSVOL,CBIN2 CLOSE FILES ON VOL 2 «, t00=0x000a, t01=0x0068}
0x1032…104a Head {h00=0x0014, h01=0x0050, text=» CLEAR TTLOKFLG «, t00=0x000a, t01=0x0098}
0x104a…1064 Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x000a, t01=0x00b0}
0x1064…1080 Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x000a, t01=0x00ca}
0x1080…10a4 Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x000a, t01=0x00e6}
0x10a4…10c6 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000a, t01=0x010a}
0x10c6…10e8 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'32' LAMP 6«, t00=0x000a, t01=0x012c}
0x10e8…110a Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x000a, t01=0x014e}
0x110a…111a Head {h00=0x000c, h01=0x0050, text=»CHNG010 «, t00=0x000a, t01=0x0170}
0x111a…112e Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x000a, t01=0x0180}
0x112e…1146 (11, 0, 400) Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2, C «, t00=0x000b, t01=0x0004}
0x1146…117c Head {h00=0x0032, h01=0x0050, text=» CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06, C «, t00=0x000b, t01=0x001c}
0x117c…11ae Head {h00=0x002e, h01=0x0050, text=» CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 «, t00=0x000b, t01=0x0052}
0x11ae…11d2 Head {h00=0x0020, h01=0x0050, text=» B CHNG010 CATCH INV. VALUES«, t00=0x000b, t01=0x0084}
0x11d2…11e2 Head {h00=0x000c, h01=0x0050, text=»CHSOP01 «, t00=0x000b, t01=0x00a8}
0x11e2…11f8 Head {h00=0x0012, h01=0x0050, text=» SET TTLOKFLG «, t00=0x000b, t01=0x00b8}
0x11f8…1214 Head {h00=0x0018, h01=0x0050, text=» EDWRT KJTAPE,LOKFMT«, t00=0x000b, t01=0x00ce}
0x1214…1226 Head {h00=0x000e, h01=0x0050, text=» B CHSOP05«, t00=0x000b, t01=0x00ea}
0x1226…1236 Head {h00=0x000c, h01=0x0050, text=»CHSOP02 «, t00=0x000b, t01=0x00fc}
0x1236…1246 Head {h00=0x000c, h01=0x0050, text=»CHSOP03 «, t00=0x000b, t01=0x010c}
0x1246…1256 Head {h00=0x000c, h01=0x0050, text=»CHSOP04 «, t00=0x000b, t01=0x011c}
0x1256…1266 Head {h00=0x000c, h01=0x0050, text=»CHSOP08 «, t00=0x000b, t01=0x012c}
0x1266…1276 Head {h00=0x000c, h01=0x0050, text=»CHSOP09 «, t00=0x000b, t01=0x013c}
0x1276…1288 Head {h00=0x000e, h01=0x0050, text=» B CHNG010«, t00=0x000b, t01=0x014c}
0x1288…1292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1292…12a2 Head {h00=0x000c, h01=0x0050, text=»CHSOP10 «, t00=0x000b, t01=0x0168}
0x12a2…12c2 Head {h00=0x001c, h01=0x0050, text=»* ERROR, SIGN ON AGAIN«, t00=0x000b, t01=0x0178}
0x12c2…12ea Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x0008}
0x12ea…130c Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x000c, t01=0x0030}
0x130c…1322 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000c, t01=0x0052}
0x1322…1346 Head {h00=0x0020, h01=0x0050, text=» ATTFMT SNDFRM SIGNON FORMAT«, t00=0x000c, t01=0x0068}
0x1346…135a Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x000c, t01=0x008c}
0x135a…1382 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CH1010,CH1010,CH1020«, t00=0x000c, t01=0x00a0}
0x1382…1390 Head {h00=0x000a, h01=0x0050, text=»CH1010«, t00=0x000c, t01=0x00c8}
0x1390…13a2 Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x00d6}
0x13a2…13b0 Head {h00=0x000a, h01=0x0050, text=»CH1020«, t00=0x000c, t01=0x00e8}
0x13b0…13c4 Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x000c, t01=0x00f6}
0x13c4…13da Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000c, t01=0x010a}
0x13da…13f8 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000c, t01=0x0120}
0x13f8…140a Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x013e}
0x140a…1414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1414…1424 Head {h00=0x000c, h01=0x0050, text=»CHSOP05 «, t00=0x000c, t01=0x015a}
0x1424…144c Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x016a}
0x144c…1474 (13, 0, 400) Head {h00=0x0024, h01=0x0050, text=» PERF ASGVOL,CBIN2 ASSIGN DISK 2«, t00=0x000d, t01=0x0004}
0x1474…1488 Head {h00=0x0010, h01=0x0050, text=» BOK CHNG050«, t00=0x000d, t01=0x002c}
0x1488…14a2 Head {h00=0x0016, h01=0x0050, text=» PERF LAMPON,=W'2'«, t00=0x000d, t01=0x0040}
0x14a2…14b4 Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000d, t01=0x005a}
0x14b4…14c4 Head {h00=0x000c, h01=0x0050, text=»CHNG050 «, t00=0x000d, t01=0x006c}
0x14c4…14e6 Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000d, t01=0x007c}
0x14e6…1506 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x000d, t01=0x009e}
0x1506…1512 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00be}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151c…1534 Head {h00=0x0014, h01=0x0050, text=»CHSOP06 SOP 6 «, t00=0x000d, t01=0x00d4}
0x1534…155c Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000d, t01=0x00ec}
0x155c…1584 Head {h00=0x0024, h01=0x0050, text=» PERF BCKUP,=W'1' WITHOUT BACKUP«, t00=0x000d, t01=0x0114}
0x1584…159a Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000d, t01=0x013c}
0x159a…15ac Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000d, t01=0x0152}
0x15ac…15b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15b6…15c6 Head {h00=0x000c, h01=0x0050, text=»CHSOP07 «, t00=0x000d, t01=0x016e}
0x15c6…15ee Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000d, t01=0x017e}
0x15ee…1614 Head {h00=0x0022, h01=0x0050, text=» PERF BCKUP,=W'2' WITH BACKUP «, t00=0x000e, t01=0x0016}
0x1614…162a Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000e, t01=0x003c}
0x162a…163c Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000e, t01=0x0052}
0x163c…1646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1646…1656 Head {h00=0x000c, h01=0x0050, text=»CHNG130 «, t00=0x000e, t01=0x006e}
0x1656…1674 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000e, t01=0x007e}
0x1674…16ac Head {h00=0x0034, h01=0x0050, text=» CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS «, t00=0x000e, t01=0x009c}
0x16ac…16b8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x00d4}
0x16b8…16c6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x00e0}
0x16c6…16d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00ee}
0x16d4…1706 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000e, t01=0x00fc}
0x1706…1710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012e}
0x1710…173e Head {h00=0x002a, h01=0x0050, text=»* STRTRC - SEND OF STARTIDENT «, t00=0x000e, t01=0x0138}
0x173e…1760 Head {h00=0x001e, h01=0x0050, text=»* AND CHECK REPLY «, t00=0x000e, t01=0x0166}
0x1760…176a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0188}
0x176a…179e (15, 0, 400) Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000f, t01=0x0004}
0x179e…17b2 Head {h00=0x0010, h01=0x0050, text=»STRTRC PROC «, t00=0x000f, t01=0x0038}
0x17b2…17d0 Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000f, t01=0x004c}
0x17d0…17ec Head {h00=0x0018, h01=0x0050, text=» PERF LAMPON,=W'64' «, t00=0x000f, t01=0x006a}
0x17ec…1808 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x000f, t01=0x0086}
0x1808…1826 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x000f, t01=0x00a2}
0x1826…185e Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 «, t00=0x000f, t01=0x00c0}
0x185e…1874 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x000f, t01=0x00f8}
0x1874…18a6 Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'4',STRTRET RECORD DELETED?«, t00=0x000f, t01=0x010e}
0x18a6…18c6 Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN1«, t00=0x000f, t01=0x0140}
0x18c6…18e2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x000f, t01=0x0160}
0x18e2…18fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x000f, t01=0x017c}
0x18fe…191c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0010, t01=0x0008}
0x191c…1952 Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 «, t00=0x0010, t01=0x0026}
0x1952…196e Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0010, t01=0x005c}
0x196e…198c Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SNDFRM2«, t00=0x0010, t01=0x0078}
0x198c…19b0 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN2,=W'31' LENGTH «, t00=0x0010, t01=0x0096}
0x19b0…19d0 Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0010, t01=0x00ba}
0x19d0…19e6 Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x0010, t01=0x00da}
0x19e6…1a06 Head {h00=0x001c, h01=0x0050, text=» PERF TRNOK CHECK IF OK «, t00=0x0010, t01=0x00f0}
0x1a06…1a1c Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x0010, t01=0x0110}
0x1a1c…1a3c Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x0010, t01=0x0126}
0x1a3c…1a48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0146}
0x1a48…1a58 Head {h00=0x000c, h01=0x0050, text=»STRTRET «, t00=0x0010, t01=0x0152}
0x1a58…1a70 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0010, t01=0x0162}
0x1a70…1a7c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x017a}
0x1a7c…1a8a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0186}
0x1a8a…1a98 (17, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0004}
0x1a98…1ace Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0011, t01=0x0012}
0x1ace…1ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0048}
0x1ad8…1b0a Head {h00=0x002e, h01=0x0050, text=»* SENDRC - SEND BATCH UNTIL SLUTID«, t00=0x0011, t01=0x0052}
0x1b0a…1b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0084}
0x1b14…1b4a Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0011, t01=0x008e}
0x1b4a…1b5e Head {h00=0x0010, h01=0x0050, text=»SENDRC PROC «, t00=0x0011, t01=0x00c4}
0x1b5e…1b90 Head {h00=0x002e, h01=0x0050, text=» MOVE GTRECNR,CBIN0 NUMBER OF DATA RECORDS«, t00=0x0011, t01=0x00d8}
0x1b90…1baa Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0011, t01=0x010a}
0x1baa…1bb8 Head {h00=0x000a, h01=0x0050, text=»SND005«, t00=0x0011, t01=0x0124}
0x1bb8…1be0 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 PACKPOINTER «, t00=0x0011, t01=0x0132}
0x1be0…1bee Head {h00=0x000a, h01=0x0050, text=»SND010«, t00=0x0011, t01=0x015a}
0x1bee…1c08 Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0011, t01=0x0168}
0x1c08…1c26 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x0011, t01=0x0182}
0x1c26…1c5c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR«, t00=0x0012, t01=0x0010}
0x1c5c…1c70 Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0012, t01=0x0046}
0x1c70…1c8a Head {h00=0x0016, h01=0x0050, text=» CMP GTWBCD1,=D'4'«, t00=0x0012, t01=0x005a}
0x1c8a…1c9e Head {h00=0x0010, h01=0x0050, text=» BNE SND012 «, t00=0x0012, t01=0x0074}
0x1c9e…1cc4 Head {h00=0x0022, h01=0x0050, text=» MOVE CPCKBUF,=C'SLUTD00000 ' «, t00=0x0012, t01=0x0088}
0x1cc4…1cd2 Head {h00=0x000a, h01=0x0050, text=»SND012«, t00=0x0012, t01=0x00ae}
0x1cd2…1cf2 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x0012, t01=0x00bc}
0x1cf2…1d0e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0012, t01=0x00dc}
0x1d0e…1d48 Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x0012, t01=0x00f8}
0x1d48…1d5c Head {h00=0x0010, h01=0x0050, text=» BE SNDSLUT «, t00=0x0012, t01=0x0132}
0x1d5c…1d88 Head {h00=0x0028, h01=0x0050, text=» TBF TTLOKFLG,SND014 PIN 1 PRESSED? «, t00=0x0012, t01=0x0146}
0x1d88…1db8 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR20,='379G01' REPLACE 379G01 «, t00=0x0012, t01=0x0172}
0x1db8…1ddc Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 BYE R01 «, t00=0x0013, t01=0x0012}
0x1ddc…1e16 Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN5,CBIN6,GSWSTR20,CBIN0,CBIN6 «, t00=0x0013, t01=0x0036}
0x1e16…1e34 Head {h00=0x001a, h01=0x0050, text=» BNOK SND010 NO MATCH «, t00=0x0013, t01=0x0070}
0x1e34…1e3c Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x008e}
0x1e3c…1e64 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,='379R01' REPLACE«, t00=0x0013, t01=0x0096}
0x1e64…1e98 Head {h00=0x0030, h01=0x0050, text=» XCOPY CPCKBUF,GSWBIN5,CBIN6,GSWSTR20,CBIN0 «, t00=0x0013, t01=0x00be}
0x1e98…1ea0 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00f2}
0x1ea0…1eae Head {h00=0x000a, h01=0x0050, text=»SND014«, t00=0x0013, t01=0x00fa}
0x1eae…1ee0 Head {h00=0x002e, h01=0x0050, text=» ADD GTRECNR,CBIN1 ONE MORE RECORD TO SEND«, t00=0x0013, t01=0x0108}
0x1ee0…1f08 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=X'7F' FIND LENGTH«, t00=0x0013, t01=0x013a}
0x1f08…1f16 Head {h00=0x000a, h01=0x0050, text=»SND015«, t00=0x0013, t01=0x0162}
0x1f16…1f32 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0013, t01=0x0170}
0x1f32…1f50 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0013, t01=0x018c}
0x1f50…1f8a Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1«, t00=0x0014, t01=0x001a}
0x1f8a…1f9c Head {h00=0x000e, h01=0x0050, text=» BE SND020«, t00=0x0014, t01=0x0054}
0x1f9c…1fb8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'21'«, t00=0x0014, t01=0x0066}
0x1fb8…1fca Head {h00=0x000e, h01=0x0050, text=» B SND015 «, t00=0x0014, t01=0x0082}
0x1fca…1fd8 Head {h00=0x000a, h01=0x0050, text=»SND020«, t00=0x0014, t01=0x0094}
0x1fd8…2006 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE«, t00=0x0014, t01=0x00a2}
0x2006…202a Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'504',SND030«, t00=0x0014, t01=0x00d0}
0x202a…2052 Head {h00=0x0024, h01=0x0050, text=» SUB CRECNR,CBIN1 NO MORE SPACE «, t00=0x0014, t01=0x00f4}
0x2052…206c Head {h00=0x0016, h01=0x0050, text=» SUB GTRECNR,CBIN1«, t00=0x0014, t01=0x011c}
0x206c…208a Head {h00=0x001a, h01=0x0050, text=» B SND040 SEND BUFFER «, t00=0x0014, t01=0x0136}
0x208a…2098 Head {h00=0x000a, h01=0x0050, text=»SND030«, t00=0x0014, t01=0x0154}
0x2098…20bc Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 RESTORE«, t00=0x0014, t01=0x0162}
0x20bc…20e6 Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 FILL WITH X'00'«, t00=0x0014, t01=0x0186}
0x20e6…210a Head {h00=0x0020, h01=0x0050, text=» CBE GSWBIN4,=W'128',SND037 «, t00=0x0015, t01=0x0020}
0x210a…2128 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,=X'00' «, t00=0x0015, t01=0x0044}
0x2128…2146 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0015, t01=0x0062}
0x2146…2154 Head {h00=0x000a, h01=0x0050, text=»SND035«, t00=0x0015, t01=0x0080}
0x2154…2188 Head {h00=0x0030, h01=0x0050, text=» INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0«, t00=0x0015, t01=0x008e}
0x2188…21a4 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,CBIN20 «, t00=0x0015, t01=0x00c2}
0x21a4…21dc Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED «, t00=0x0015, t01=0x00de}
0x21dc…21ea Head {h00=0x000a, h01=0x0050, text=»SND037«, t00=0x0015, t01=0x0116}
0x21ea…2220 Head {h00=0x0032, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD «, t00=0x0015, t01=0x0124}
0x2220…223c Head {h00=0x0018, h01=0x0050, text=» B SND010 READ NEXT «, t00=0x0015, t01=0x015a}
0x223c…224a Head {h00=0x000a, h01=0x0050, text=»SND040«, t00=0x0015, t01=0x0176}
0x224a…2268 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0015, t01=0x0184}
0x2268…2286 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0301'«, t00=0x0016, t01=0x0012}
0x2286…22a4 Head {h00=0x001a, h01=0x0050, text=» MOVE TTARKSAV,CRECNR «, t00=0x0016, t01=0x0030}
0x22a4…22c4 Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,SPBINW1«, t00=0x0016, t01=0x004e}
0x22c4…22f4 Head {h00=0x002c, h01=0x0050, text=» EDWRT .NW,SCREEN,SNDFRM4 DISPLAY RECNR «, t00=0x0016, t01=0x006e}
0x22f4…2308 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0016, t01=0x009e}
0x2308…231c Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0016, t01=0x00b2}
0x231c…2330 Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0016, t01=0x00c6}
0x2330…2344 Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0016, t01=0x00da}
0x2344…2356 Head {h00=0x000e, h01=0x0050, text=» B SND005 «, t00=0x0016, t01=0x00ee}
0x2356…2366 Head {h00=0x000c, h01=0x0050, text=»SNDSLUT «, t00=0x0016, t01=0x0100}
0x2366…2396 Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN3,CBIN0,SND090 REQ.LGTH.=0 ? «, t00=0x0016, t01=0x0110}
0x2396…23b4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0016, t01=0x0140}
0x23b4…23d4 Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0016, t01=0x015e}
0x23d4…23e8 Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0016, t01=0x017e}
0x23e8…23fc (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0017, t01=0x0004}
0x23fc…2410 Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0017, t01=0x0018}
0x2410…241e Head {h00=0x000a, h01=0x0050, text=»SND090«, t00=0x0017, t01=0x002c}
0x241e…2450 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD3,GTRECNR NO. OF DATA RECORDS «, t00=0x0017, t01=0x003a}
0x2450…246c Head {h00=0x0018, h01=0x0050, text=» PERF SLUTID,GSWBCD3«, t00=0x0017, t01=0x006c}
0x246c…2488 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0017, t01=0x0088}
0x2488…24a4 Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0017, t01=0x00a4}
0x24a4…24cc Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 «, t00=0x0017, t01=0x00c0}
0x24cc…24e8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN18«, t00=0x0017, t01=0x00e8}
0x24e8…24fc Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0017, t01=0x0104}
0x24fc…2510 Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0017, t01=0x0118}
0x2510…2530 Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN2«, t00=0x0017, t01=0x012c}
0x2530…2550 Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x0017, t01=0x014c}
0x2550…256e Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SNDSL10 «, t00=0x0017, t01=0x016c}
0x256e…258c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'0002'«, t00=0x0017, t01=0x018a}
0x258c…25a8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0018, t01=0x0018}
0x25a8…25c4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0018, t01=0x0034}
0x25c4…2600 Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 «, t00=0x0018, t01=0x0050}
0x2600…2614 Head {h00=0x0010, h01=0x0050, text=» BNE SNDERR «, t00=0x0018, t01=0x008c}
0x2614…2624 Head {h00=0x000c, h01=0x0050, text=»SNDSL10 «, t00=0x0018, t01=0x00a0}
0x2624…263c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0018, t01=0x00b0}
0x263c…2648 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00c8}
0x2648…2656 Head {h00=0x000a, h01=0x0050, text=»SNDERR«, t00=0x0018, t01=0x00d4}
0x2656…266e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0018, t01=0x00e2}
0x266e…267a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00fa}
0x267a…2688 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0106}
0x2688…2696 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0114}
0x2696…26ca Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0018, t01=0x0122}
0x26ca…26d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0156}
0x26d4…2716 Head {h00=0x003e, h01=0x0050, text=»* TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR«, t00=0x0018, t01=0x0160}
0x2716…2720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0012}
0x2720…2754 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0019, t01=0x001c}
0x2754…2768 Head {h00=0x0010, h01=0x0050, text=»TERMIN PROC «, t00=0x0019, t01=0x0050}
0x2768…2784 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0019, t01=0x0064}
0x2784…27a0 Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0019, t01=0x0080}
0x27a0…27c4 Head {h00=0x0020, h01=0x0050, text=» MOVE CPCKBUF,=C'TERMINATE '«, t00=0x0019, t01=0x009c}
0x27c4…27e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0019, t01=0x00c0}
0x27e0…2808 Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x0019, t01=0x00dc}
0x2808…2824 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0019, t01=0x0104}
0x2824…2844 Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0019, t01=0x0120}
0x2844…285a Head {h00=0x0012, h01=0x0050, text=» BNOK TERMRET «, t00=0x0019, t01=0x0140}
0x285a…286c Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0019, t01=0x0156}
0x286c…287c Head {h00=0x000c, h01=0x0050, text=»TERMRET «, t00=0x0019, t01=0x0168}
0x287c…2888 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0178}
0x2888…2896 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0184}
0x2896…28a4 (26, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0004}
0x28a4…28da Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001a, t01=0x0012}
0x28da…28e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e4…28fe Head {h00=0x0016, h01=0x0050, text=»* SIGNOFF «, t00=0x001a, t01=0x0052}
0x28fe…2908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006c}
0x2908…293e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001a, t01=0x0076}
0x293e…2952 Head {h00=0x0010, h01=0x0050, text=»SIGNOF PROC «, t00=0x001a, t01=0x00ac}
0x2952…296e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x001a, t01=0x00c0}
0x296e…298a Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x001a, t01=0x00dc}
0x298a…29aa Head {h00=0x001c, h01=0x0050, text=» MOVE CPCKBUF,=C'CSSF ' «, t00=0x001a, t01=0x00f8}
0x29aa…29d2 Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x001a, t01=0x0118}
0x29d2…29ee Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN9 «, t00=0x001a, t01=0x0140}
0x29ee…2a02 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x001a, t01=0x015c}
0x2a02…2a18 Head {h00=0x0012, h01=0x0050, text=» BNOK SIGOFRET«, t00=0x001a, t01=0x0170}
0x2a18…2a36 Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SIGOFRT1«, t00=0x001a, t01=0x0186}
0x2a36…2a56 Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x001b, t01=0x0014}
0x2a56…2a66 Head {h00=0x000c, h01=0x0050, text=»SIGOFRET«, t00=0x001b, t01=0x0034}
0x2a66…2a72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0044}
0x2a72…2a82 Head {h00=0x000c, h01=0x0050, text=»SIGOFRT1«, t00=0x001b, t01=0x0050}
0x2a82…2a9a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001b, t01=0x0060}
0x2a9a…2aa6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0078}
0x2aa6…2ab4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0084}
0x2ab4…2ac2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0092}
0x2ac2…2af8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001b, t01=0x00a0}
0x2af8…2b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d6}
0x2b02…2b2a Head {h00=0x0024, h01=0x0050, text=»* EXCHAN - EXCHANGE DC«, t00=0x001b, t01=0x00e0}
0x2b2a…2b5a Head {h00=0x002c, h01=0x0050, text=»* IN CASE OF ERROR ERRORMESSAGE «, t00=0x001b, t01=0x0108}
0x2b5a…2b8a Head {h00=0x002c, h01=0x0050, text=»* IS SHOWN ON SCREEN AND JOURNAL«, t00=0x001b, t01=0x0138}
0x2b8a…2b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0168}
0x2b94…2bca Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001b, t01=0x0172}
0x2bca…2bde Head {h00=0x0010, h01=0x0050, text=»EXCHAN PROC «, t00=0x001c, t01=0x0018}
0x2bde…2bfc Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,EXCHTEST«, t00=0x001c, t01=0x002c}
0x2bfc…2c28 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'600' TIMEOUT VALUE «, t00=0x001c, t01=0x004a}
0x2c28…2c58 Head {h00=0x002c, h01=0x0050, text=» DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 «, t00=0x001c, t01=0x0076}
0x2c58…2c6e Head {h00=0x0012, h01=0x0050, text=» BNOK EXCHNOK «, t00=0x001c, t01=0x00a6}
0x2c6e…2c8c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,=W'504' «, t00=0x001c, t01=0x00bc}
0x2c8c…2caa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'600' «, t00=0x001c, t01=0x00da}
0x2caa…2cd8 Head {h00=0x002a, h01=0x0050, text=» DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5«, t00=0x001c, t01=0x00f8}
0x2cd8…2cec Head {h00=0x0010, h01=0x0050, text=» BOK EXCHRET«, t00=0x001c, t01=0x0126}
0x2cec…2cfc Head {h00=0x000c, h01=0x0050, text=»EXCHNOK «, t00=0x001c, t01=0x013a}
0x2cfc…2d26 Head {h00=0x0026, h01=0x0050, text=» PERF GETBIT,DCOMM FETCH ERRORCODE«, t00=0x001c, t01=0x014a}
0x2d26…2d42 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x001c, t01=0x0174}
0x2d42…2d5e Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x001c, t01=0x0190}
0x2d5e…2d82 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x001d, t01=0x001c}
0x2d82…2d96 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001d, t01=0x0040}
0x2d96…2db2 Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x001d, t01=0x0054}
0x2db2…2dce Head {h00=0x0018, h01=0x0050, text=» PERF WRITLO,CBIN17 «, t00=0x001d, t01=0x0070}
0x2dce…2de6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001d, t01=0x008c}
0x2de6…2df2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x00a4}
0x2df2…2e02 Head {h00=0x000c, h01=0x0050, text=»EXCHRET «, t00=0x001d, t01=0x00b0}
0x2e02…2e1a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001d, t01=0x00c0}
0x2e1a…2e26 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x00d8}
0x2e26…2e36 Head {h00=0x000c, h01=0x0050, text=»EXCHTEST«, t00=0x001d, t01=0x00e4}
0x2e36…2e52 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x001d, t01=0x00f4}
0x2e52…2e70 Head {h00=0x001a, h01=0x0050, text=» MOVE CTRANBUF,=X'35' «, t00=0x001d, t01=0x0110}
0x2e70…2e86 Head {h00=0x0012, h01=0x0050, text=» DELAY GSWBIN2«, t00=0x001d, t01=0x012e}
0x2e86…2e9e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001d, t01=0x0144}
0x2e9e…2eaa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x015c}
0x2eaa…2eb8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0168}
0x2eb8…2ec6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0176}
0x2ec6…2efc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001d, t01=0x0184}
0x2efc…2f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002a}
0x2f06…2f40 Head {h00=0x0036, h01=0x0050, text=»* TRNOK - CHECK IF MESSAGE CORRECT RECIEVED «, t00=0x001e, t01=0x0034}
0x2f40…2f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006e}
0x2f4a…2f80 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001e, t01=0x0078}
0x2f80…2f92 Head {h00=0x000e, h01=0x0050, text=»TRNOK PROC«, t00=0x001e, t01=0x00ae}
0x2f92…2fae Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x001e, t01=0x00c0}
0x2fae…2fca Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'35'«, t00=0x001e, t01=0x00dc}
0x2fca…3006 Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x001e, t01=0x00f8}
0x3006…301a Head {h00=0x0010, h01=0x0050, text=» BNE TRNERR «, t00=0x001e, t01=0x0134}
0x301a…3036 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x001e, t01=0x0148}
0x3036…3052 Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x001e, t01=0x0164}
0x3052…306a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001e, t01=0x0180}
0x306a…3076 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x0008}
0x3076…3084 Head {h00=0x000a, h01=0x0050, text=»TRNERR«, t00=0x001f, t01=0x0014}
0x3084…309c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001f, t01=0x0022}
0x309c…30a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x003a}
0x30a8…30b6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x0046}
0x30b6…30c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0054}
0x30c4…30fe Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001f, t01=0x0062}
0x30fe…3108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009c}
0x3108…313e Head {h00=0x0032, h01=0x0050, text=»* WJDC - PRINT RECEIVED MESSAGE ON JOURNAL «, t00=0x001f, t01=0x00a6}
0x313e…3148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00dc}
0x3148…3182 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001f, t01=0x00e6}
0x3182…3194 Head {h00=0x000e, h01=0x0050, text=»WJDC PROC «, t00=0x001f, t01=0x0120}
0x3194…31a8 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x001f, t01=0x0132}
0x31a8…31ca Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x001f, t01=0x0146}
0x31ca…31ee Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN2,=W'504',WJDCRET«, t00=0x001f, t01=0x0168}
0x31ee…320c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'DFH' «, t00=0x001f, t01=0x018c}
0x320c…3228 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0020, t01=0x001a}
0x3228…3264 Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 «, t00=0x0020, t01=0x0036}
0x3264…3284 Head {h00=0x001c, h01=0x0050, text=» BE WJDC100 CICS MESSAGE«, t00=0x0020, t01=0x0072}
0x3284…328e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0092}
0x328e…32b0 Head {h00=0x001e, h01=0x0050, text=»* APLICATION MESSAGE «, t00=0x0020, t01=0x009c}
0x32b0…32ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00be}
0x32ba…32d6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'11'«, t00=0x0020, t01=0x00c8}
0x32d6…32f2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0020, t01=0x00e4}
0x32f2…332e Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x0020, t01=0x0100}
0x332e…3342 Head {h00=0x0010, h01=0x0050, text=» BNE WJDCRET«, t00=0x0020, t01=0x013c}
0x3342…3370 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN1=START «, t00=0x0020, t01=0x0150}
0x3370…339e Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE«, t00=0x0020, t01=0x017e}
0x339e…33bc Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN1 «, t00=0x0021, t01=0x001c}
0x33bc…33e6 Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4 ADJUST LENGTH«, t00=0x0021, t01=0x003a}
0x33e6…3408 Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x0021, t01=0x0064}
0x3408…3418 Head {h00=0x000c, h01=0x0050, text=»WJDC005 «, t00=0x0021, t01=0x0086}
0x3418…3434 Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0021, t01=0x0096}
0x3434…3470 Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x0021, t01=0x00b2}
0x3470…3484 Head {h00=0x0010, h01=0x0050, text=» BNE WJDC010«, t00=0x0021, t01=0x00ee}
0x3484…34b2 Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH «, t00=0x0021, t01=0x0102}
0x34b2…34e6 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0021, t01=0x0130}
0x34e6…3504 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0021, t01=0x0164}
0x3504…351e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN3«, t00=0x0021, t01=0x0182}
0x351e…353a Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0022, t01=0x000c}
0x353a…3556 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,GSWBIN1«, t00=0x0022, t01=0x0028}
0x3556…3574 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBIN4 «, t00=0x0022, t01=0x0044}
0x3574…3596 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN2,CBIN3,WJDC005«, t00=0x0022, t01=0x0062}
0x3596…35a8 Head {h00=0x000e, h01=0x0050, text=» B WJDCRET«, t00=0x0022, t01=0x0084}
0x35a8…35b8 Head {h00=0x000c, h01=0x0050, text=»WJDC010 «, t00=0x0022, t01=0x0096}
0x35b8…35ca Head {h00=0x000e, h01=0x0050, text=» B WJDC200«, t00=0x0022, t01=0x00a6}
0x35ca…35da Head {h00=0x000c, h01=0x0050, text=»WJDCRET «, t00=0x0022, t01=0x00b8}
0x35da…35e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00c8}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d4}
0x35f0…35fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00de}
0x35fa…3604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e8}
0x3604…3614 Head {h00=0x000c, h01=0x0050, text=»WJDC100 «, t00=0x0022, t01=0x00f2}
0x3614…3630 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0022, t01=0x0102}
0x3630…3654 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC200 «, t00=0x0022, t01=0x011e}
0x3654…367c Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN4,=W'30' FIND BLANK «, t00=0x0022, t01=0x0142}
0x367c…36b8 Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,GSWBIN2,CBLANKS,CBIN0,CBIN1 «, t00=0x0022, t01=0x016a}
0x36b8…36cc Head {h00=0x0010, h01=0x0050, text=» BNE WJDC200«, t00=0x0023, t01=0x0016}
0x36cc…36e8 Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0023, t01=0x002a}
0x36e8…3704 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1«, t00=0x0023, t01=0x0046}
0x3704…3738 Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0023, t01=0x0062}
0x3738…3756 Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0023, t01=0x0096}
0x3756…3772 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0023, t01=0x00b4}
0x3772…378e Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN1,GSWBIN4«, t00=0x0023, t01=0x00d0}
0x378e…379e Head {h00=0x000c, h01=0x0050, text=»WJDC200 «, t00=0x0023, t01=0x00ec}
0x379e…37ba Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0023, t01=0x00fc}
0x37ba…37de Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC210 «, t00=0x0023, t01=0x0118}
0x37de…37fa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0023, t01=0x013c}
0x37fa…380a Head {h00=0x000c, h01=0x0050, text=»WJDC210 «, t00=0x0023, t01=0x0158}
0x380a…383e Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1«, t00=0x0023, t01=0x0168}
0x383e…385c Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0024, t01=0x000c}
0x385c…3868 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x002a}
0x3868…3876 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0036}
0x3876…3884 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0044}
0x3884…3898 Head {h00=0x0010, h01=0x0050, text=»SNDFRM FRMT «, t00=0x0024, t01=0x0052}
0x3898…38a4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0024, t01=0x0066}
0x38a4…38c8 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0024, t01=0x0072}
0x38c8…38d4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0024, t01=0x0096}
0x38d4…38f0 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'BRUGERNAVN' «, t00=0x0024, t01=0x00a2}
0x38f0…3912 Head {h00=0x001e, h01=0x0050, text=» FKI 12,MINL=1,MAXL=13,ME «, t00=0x0024, t01=0x00be}
0x3912…3940 Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0024, t01=0x00e0}
0x3940…394c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0024, t01=0x010e}
0x394c…3966 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'KENDEORD' «, t00=0x0024, t01=0x011a}
0x3966…3986 Head {h00=0x001c, h01=0x0050, text=» FKI 12,MINL=1,MAXL=4,ME«, t00=0x0024, t01=0x0134}
0x3986…39a4 Head {h00=0x001a, h01=0x0050, text=» FMEL 'TTT9',TTARKSAV «, t00=0x0024, t01=0x0154}
0x39a4…39b2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0172}
0x39b2…39bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39bc…39d0 Head {h00=0x0010, h01=0x0050, text=»SIGONF FRMT «, t00=0x0024, t01=0x018a}
0x39d0…39e4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x000e}
0x39e4…39fe Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0025, t01=0x0022}
0x39fe…3a18 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'CSSN PS=' «, t00=0x0025, t01=0x003c}
0x3a18…3a36 Head {h00=0x001a, h01=0x0050, text=» FMEL '9999',TTARKSAV «, t00=0x0025, t01=0x0056}
0x3a36…3a4e Head {h00=0x0014, h01=0x0050, text=» FTEXT ',NAME=' «, t00=0x0025, t01=0x0074}
0x3a4e…3a7c Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0025, t01=0x008c}
0x3a7c…3a8a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00ba}
0x3a8a…3a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c8}
0x3a94…3aa8 Head {h00=0x0010, h01=0x0050, text=»SNDFRM2 FRMT«, t00=0x0025, t01=0x00d2}
0x3aa8…3abc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x00e6}
0x3abc…3ad6 Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0025, t01=0x00fa}
0x3ad6…3aec Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0025, t01=0x0114}
0x3aec…3afa Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x012a}
0x3afa…3b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0138}
0x3b04…3b18 Head {h00=0x0010, h01=0x0050, text=»SNDFRM3 FRMT«, t00=0x0025, t01=0x0142}
0x3b18…3b2c Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0025, t01=0x0156}
0x3b2c…3b50 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0025, t01=0x016a}
0x3b50…3b5e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x018e}
0x3b5e…3b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000c}
0x3b68…3b7c Head {h00=0x0010, h01=0x0050, text=»SNDFRM4 FRMT«, t00=0x0026, t01=0x0016}
0x3b7c…3b90 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0026, t01=0x002a}
0x3b90…3bb0 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'ANTAL RECORDS:' «, t00=0x0026, t01=0x003e}
0x3bb0…3bd0 Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZ9',TTARKSAV «, t00=0x0026, t01=0x005e}
0x3bd0…3bde Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x007e}
0x3bde…3be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be8…3bfc Head {h00=0x0010, h01=0x0050, text=»SNDFRM5 FRMT«, t00=0x0026, t01=0x0096}
0x3bfc…3c1a Head {h00=0x001a, h01=0x0050, text=» FBNZ GSWBIN3,SNDLAB10«, t00=0x0026, t01=0x00aa}
0x3c1a…3c2e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0026, t01=0x00c8}
0x3c2e…3c48 Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0026, t01=0x00dc}
0x3c48…3c58 Head {h00=0x000c, h01=0x0050, text=»SNDLAB10«, t00=0x0026, t01=0x00f6}
0x3c58…3c72 Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'112020' «, t00=0x0026, t01=0x0106}
0x3c72…3c88 Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0026, t01=0x0120}
0x3c88…3c96 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0136}
0x3c96…3ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0144}
0x3ca0…3cb4 Head {h00=0x0010, h01=0x0050, text=»SNDFRM6 FRMT«, t00=0x0026, t01=0x014e}
0x3cb4…3cc0 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x0162}
0x3cc0…3ce4 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0026, t01=0x016e}
0x3ce4…3cf8 (39, 0, 398) Head {h00=0x0010, h01=0x0050, text=» FILLR '?',1«, t00=0x0027, t01=0x0004}
0x3cf8…3d04 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0027, t01=0x0018}
0x3d04…3d12 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0027, t01=0x0024}
0x3d12…3d2c Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0027, t01=0x0032}
0x3d2c…3d3a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x004c}
0x3d3a…3d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005a}
0x3d44…3d58 Head {h00=0x0010, h01=0x0050, text=»SNDFRM7 FRMT«, t00=0x0027, t01=0x0064}
0x3d58…3d64 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x0078}
0x3d64…3d90 Head {h00=0x0028, h01=0x0050, text=» FTEXT 'SKAL DENNE DISKETTE SENDES?'«, t00=0x0027, t01=0x0084}
0x3d90…3d9c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0027, t01=0x00b0}
0x3d9c…3daa Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0027, t01=0x00bc}
0x3daa…3dc4 Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0027, t01=0x00ca}
0x3dc4…3dd2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x00e4}
0x3dd2…3ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f2}
0x3ddc…3df0 Head {h00=0x0010, h01=0x0050, text=»SNDFRM8 FRMT«, t00=0x0027, t01=0x00fc}
0x3df0…3e04 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0027, t01=0x0110}
0x3e04…3e12 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x0124}
0x3e12…3e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0132}
0x3e1c…3e30 Head {h00=0x0010, h01=0x0050, text=»WJDCFRM FRMT«, t00=0x0027, t01=0x013c}
0x3e30…3e44 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0027, t01=0x0150}
0x3e44…3e5a Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0027, t01=0x0164}
0x3e5a…3e68 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x017a}
0x3e68…3e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0188}
0x3e72…3e86 (40, 2, 162) Head {h00=0x0010, h01=0x0050, text=»LOKFMT FRMT «, t00=0x0028, t01=0x0004}
0x3e86…3e9a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0028, t01=0x0018}
0x3e9a…3ed0 Head {h00=0x0032, h01=0x0050, text=» FTEXT 'FLG. DISKETTE SENDES TIL LOKALSYSTEM' «, t00=0x0028, t01=0x002c}
0x3ed0…3ede Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0028, t01=0x0062}
0x3ede…3ef2 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0028, t01=0x0070}
0x3ef2…3f00 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0084}
0x3f00…3f0c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0028, t01=0x0092}
0x3f0c…3f10 Head {h00=0x4004, h01=0x0000}
0x3f10…3f14 00 28 00 9e ┆ ( ┆
0x3f14…3f1c (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3f1c…3f6c (42, 0, 400) 5c 41 31 34 00 11 01 8c 00 06 00 50 2a 20 00 12 00 0c 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ A14 P* D P**********************************************************┆
0x3f6c…3fbc 2a 2a 2a 2a 2a 2a 00 12 00 16 00 06 00 50 2a 20 00 12 00 5e 00 14 00 50 2a 5c 49 4e 50 55 54 20 46 52 4f 4d 20 44 43 20 00 12 00 68 00 06 00 50 2a 20 00 12 00 80 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****** P* ^ P* INPUT FROM DC h P* 8 P**********************┆
0x3fbc…400c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 00 8a 00 06 00 50 2a 20 00 12 00 c6 00 10 00 50 44 43 49 4e 50 5c 45 51 55 5c 2a 20 00 12 00 d0 00 28 00 50 5c 43 46 5c 41 31 34 2c 49 43 41 42 ┆****************************** P* PDCINP EQU * ( P CF A14,ICAB┆
0x400c…405c 4f 52 5c 41 42 4f 52 54 20 49 4e 54 45 52 54 41 53 4b 20 52 45 41 44 20 00 12 00 e4 00 0e 00 50 5c 4c 44 52 5c 41 37 2c 41 37 00 12 01 10 00 20 00 50 5c 52 46 28 5a 29 5c 44 43 49 4e 31 30 5c 4e 4f 54 20 43 4f 4d 50 4c 45 54 45 44 20 00 12 ┆OR ABORT INTERTASK READ P LDR A7,A7 P RF(Z) DCIN10 NOT COMPLETED ┆
0x405c…40ac 01 22 00 1e 00 50 5c 49 4d 5c 49 43 57 4f 52 4b 2c 54 43 41 42 41 53 5c 53 45 54 20 46 4c 41 47 00 12 01 46 00 2c 00 50 5c 52 46 5c 49 43 52 49 4e 50 5c 54 41 4b 45 20 43 41 52 45 20 4f 46 20 49 4e 54 45 52 54 41 53 4b 20 49 4e 50 55 54 20 ┆ " P IM ICWORK,TCABAS SET FLAG F , P RF ICRINP TAKE CARE OF INTERTASK INPUT ┆
0x40ac…40fc (43, 0, 400) 00 12 01 68 00 2e 00 50 5c 5c 5c 4f 52 20 42 55 46 46 45 52 20 57 49 4c 4c 20 42 45 20 44 45 53 54 52 4f 59 45 44 20 49 4e 20 27 55 50 44 41 54 45 27 00 13 00 08 00 10 00 50 44 43 49 4e 31 30 5c 45 51 55 5c 2a 00 13 00 3a 00 26 00 50 5c 43 ┆ h . P OR BUFFER WILL BE DESTROYED IN 'UPDATE' PDCIN10 EQU * : & P C┆
0x40fc…414c 46 5c 41 31 34 2c 47 54 52 42 55 46 5c 47 45 54 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 20 00 13 00 4e 00 18 00 50 5c 4c 44 5c 41 38 2c 45 43 42 44 43 43 2c 54 43 41 42 41 53 00 13 00 78 00 20 00 50 5c 43 46 5c 41 31 34 2c 44 43 47 45 ┆F A14,GTRBUF GET RECEIVE BUFFER N P LD A8,ECBDCC,TCABAS x P CF A14,DCGE┆
0x414c…419c 54 4d 5c 52 45 41 44 20 4d 45 53 53 41 47 45 20 00 13 00 94 00 10 00 50 5c 49 46 46 5c 44 43 4c 49 4e 3d 32 00 13 00 b8 00 1a 00 50 5c 43 4d 5c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 41 53 20 00 13 00 cc 00 08 00 50 5c 58 49 46 00 13 ┆TM READ MESSAGE P IFF DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF ┆
0x419c…41ec 00 ea 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 13 00 f6 00 1c 00 50 5c 43 57 5c 41 38 2c 45 43 42 42 4c 4b 2b 44 43 32 2c 54 43 41 42 41 53 00 13 01 0a 00 18 00 50 5c 52 46 28 45 29 5c 44 43 49 4e 32 30 5c 4d 46 20 23 20 32 00 13 ┆ P IFT DCLIN=2 P CW A8,ECBBLK+DC2,TCABAS P RF(E) DCIN20 MF # 2 ┆
0x41ec…423c 01 2a 00 1a 00 50 5c 43 4d 5c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 41 53 20 00 13 01 46 00 0e 00 50 5c 52 46 5c 44 43 49 4e 33 30 00 13 01 64 00 10 00 50 44 43 49 4e 32 30 5c 45 51 55 5c 2a 00 13 01 76 00 1a 00 50 5c 43 4d 5c 45 43 ┆ * P CM ECBBLK+DC1,TCABAS F P RF DCIN30 d PDCIN20 EQU * v P CM EC┆
0x423c…428c (44, 0, 400) 42 42 4c 4b 2b 44 43 32 2c 54 43 41 42 41 53 20 00 13 01 8a 00 08 00 50 5c 58 49 46 00 14 00 18 00 10 00 50 44 43 49 4e 33 30 5c 45 51 55 5c 2a 00 14 00 24 00 24 00 50 5c 4c 44 5c 41 31 2c 45 43 42 45 4c 2c 41 38 5c 45 46 46 45 43 54 49 56 ┆BBLK+DC2,TCABAS P XIF PDCIN30 EQU * $ $ P LD A1,ECBEL,A8 EFFECTIV┆
0x428c…42dc 45 20 4c 45 4e 47 54 48 00 14 00 38 00 2e 00 50 5c 53 54 5c 41 31 2c 44 43 4c 45 4e 47 2c 54 43 41 42 41 53 5c 53 41 56 45 20 49 54 20 49 4e 20 53 41 56 45 20 41 52 45 41 20 00 14 00 60 00 04 00 50 00 14 00 92 00 32 00 50 5c 43 46 5c 41 31 ┆E LENGTH 8 . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA ` P 2 P CF A1┆
0x42dc…432c 34 2c 55 50 44 41 54 45 5c 4d 4f 56 45 20 46 52 4f 4d 20 44 43 20 54 4f 20 50 52 49 4e 54 45 52 20 42 55 46 46 45 52 3b 00 14 00 9a 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 14 00 d0 00 18 00 50 5c 4c 44 5c 41 31 2c 49 43 57 ┆4,UPDATE MOVE FROM DC TO PRINTER BUFFER; P IFT COPCMD=1 P LD A1,ICW┆
0x432c…437c 4f 52 4b 2c 54 43 41 42 41 53 00 14 00 e6 00 20 00 50 5c 52 46 28 4e 5a 29 5c 44 43 49 4e 39 30 5c 43 4f 50 59 20 43 4f 4d 4d 41 4e 44 20 00 14 01 02 00 08 00 50 5c 58 49 46 00 14 01 26 00 2e 00 50 5c 4c 44 5c 41 31 2c 57 43 43 2c 54 43 41 ┆ORK,TCABAS P RF(NZ) DCIN90 COPY COMMAND P XIF & . P LD A1,WCC,TCA┆
0x437c…43cc 42 41 53 5c 57 52 49 54 45 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 20 00 14 01 32 00 1e 00 50 5c 53 54 5c 41 31 2c 43 43 43 2c 54 43 41 42 41 53 5c 43 4f 50 59 20 49 54 20 00 14 01 64 00 20 00 50 5c 43 46 5c 41 31 34 2c 43 4f ┆BAS WRITE CONTROL CHARACTER 2 P ST A1,CCC,TCABAS COPY IT d P CF A14,CO┆