|
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: 54158 (0xd38e)
Notes: pts_type(SC)
Names: »XPAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/XPAD.SC«
IDENT PAD REL 11.0 DK 82-05-27 870150541100 =7,ERROR IN SF =6,2ND ERROR IN EUA =5 ERROR IN ERASE UNPROT TO ADDR DK1, ATTRIBUTE ERROR + 2X PRINT =4 COPY TO PRINTER 81-05-06 =3, MISSING ITEM 81-01-26 =2, SAVE REG. 81-01-26 =1, RA ON EUQ ADDRESS 81-01-26 ************************************************************* * * * MODULE PAD * * MODULE HANDLING THE PACKING AND * * UNPACKING OF THE DCBUFFER. THE VDU * * BUFFER IS UPDATED * * (EMULATION 3270 SNA/SDLC, BSC) * * * ************************************************************* EJECT ***************************************************************** * * LIST OF ROUTINES * * PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * UNPACK UNPACK DC-BUFFER AND UPDATE VDU * RETTAB RETURN ADDRESSES * UNPCOM UNPACK COMMANDS * UNPORD UNPACK ORDERS * ORDTAB ORDER TABLE * SF START FIELD * SBA SET BUFFER ADDRESS * IC INSERT CURSOR * PT PROGRAM TAB. * RA REPEAT TO ADDRESS * EUA ERASE UNPRO. TO ADDRESS * CHAR < /20 BUT NOT ORDERS * PACKSY PACK DC-BUFFER IN SYSTEM MODE * UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE * GETNXT GET AND CHECK NEXT BUFFER * PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE * PDCCH PUT CHAR. IN BUFFER * GDCCH GET CHAR. IN BUFFER * PAID STORE AID IN BUFFER * BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * P1WCC PROCESS WCC BEFORE UPDATE * P2WCC TAKE CARE OF WCC AFTER UPDATE * SAVE SAVE PACK AND UNPACK INFORMATION * RESTOR RESTORE PACK AND UNPACK INFORMATION * BUFFER BUFFER POOL * GETBUF GET BUFFER * RELBUF RELEASE BUFFER * ****************************************************************** EJECT ************************************************************* * * * ENTRY POINTS * * * ************************************************************* ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE ENTRY GETBUF GET DC BUFFER ENTRY RELBUF RELEASE DC BUFFER ENTRY PAID STORE AID CODE IN DC BUFFER ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE ENTRY SAVE1 SAVE REGISTERS ENTRY REST1 RESTORE REGISTERS EJECT *************************************************** * * * EXTERNAL REFERENCES * * * *************************************************** EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER) EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER) EXTRN ERASE ERASE ENTIRE SCREEN (VDU) EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU) EXTRN CONORD CONVERT ORDER TO INDEX (CONVER) EXTRN CONATT CONVERT ATTRIBUTE (CONVER) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) EXTRN COPY LOCAL HARDCOPY (KEYB) EXTRN SOUND SOUND ALARM ON VDU (VDU) EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU) EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER) EXTRN WRAP CHECK IF WRAP AROUND (VDU) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN LMP4ON INHIBIT LAMP ON (KEYB) EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) EXTRN NLROUT NEW LINE ROUTINE (VDU) EXTRN LINE WRAP ROUTINE (VDU) EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU) EXTRN ERROR ERROR INCATOR (KEYB) EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC) EXTRN ICSET INTERTASK TIMEOUT (KEYB) EXTRN ICWRT INTERTASK WRITE (KEYB) EXTRN COPP COPY ON PRINTER DIRECTLY =4 EXTRN LMP3ON EJECT *************************************************** * * * CONDITIONAL ASSEMBLY PARAMETERS * * * *************************************************** X:A EQU 0 SNA HANDLING IF:=1 SNA EQU 0 X:K EQU 2 NUMBER OF BUFFERS (1-32) BUFFNR EQU 02 X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU 1150 X:M EQU 0 COPY COMMAND INCLUDED IF:=1 COPCMD EQU 1 X:N EQU 1 EBCDIC CHAR IF:=1 EBCDIC EQU 1 X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT DISHOW EQU X:Z EJECT *************************************************************** * * * DECLARATION OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * INTERNAL STATUS * LICREC EQU /2000 LAST IN CHAIN RECEIVED THROWB EQU /0800 THROW BUFFERS NEWCH EQU /0400 NEW CHAIN ATTREC EQU /0002 ATTRIBUTE RECEIVED PTORD EQU /0001 PT ORDER INDICATOR IFT SNA=1 * * SNA MODES * LOCMOD EQU 0 LOCAL MODE SYSOP EQU 2 SYSTEM MODE MYJOB EQU 4 MY JOB MODE XIF * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. SBACH EQU /11 SBA CHAR. ESCCHA EQU /1B ESCAPE CHAR. * * VDU SCREEN SIZE * LBVDU EQU 1920 TOTAL SIZE LLINE EQU 80 LINE LENGTH * * BUFFER LINK LENGTH * LINK EQU BUFFL+BUFFL+2 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * TCT01 EQU 0 TASK IDENTIFICATION BVDU EQU TCT01+2 SCREEN BUFFER LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY CURATT EQU PCURS+4 WCC EQU CURATT+2 WCC/CCC CHARACTER KBINH EQU WCC+2 INHIBIT INDICATOR DCLENG EQU KBINH+4 LENGTH OF DC BUFFER CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE BUFPNT EQU CURPOS+2 BUFFER ADDRESS REGI EQU BUFPNT+2 WORK REGISTER STACK1 EQU REGI+2 INTERNAL STACK STACK2 EQU STACK1+14 UNPMOD EQU STACK2+14 UNPACK MODE SNAMOD EQU UNPMOD+2 SNA MODE ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 EJECT ************************************************************ * * * PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= START ADDRESS * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ************************************************************ PACK EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDR A10,A4 INITIATE ADDRESS CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) PACK70 YES PACK10 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(NL) PACK15 YES ADK A3,1 ADK A4,1 RB PACK10 PACK15 EQU * LDR A10,A4 START ADDRESS RF PACK30 PACK20 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK30 EQU * LCR A2,A3 GET CHAR. ADK A3,1 ADK A4,1 CCK A2,/8000 ATTRIBUTE? RB(L) PACK20 NO ANK A2,1 MODIFIED FIELD? RF(NZ) PACK50 YES * POINTER UPDATE REMOVED DK1 RB PACK20 PACK50 EQU * LDK A2,SBACH SBA TO DC-BUFFER LDKL A1,/8000 INDICATE SBA CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER CF A14,BUFADR PACK60 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A10,A4 ALL SCANNED? RF(E) PACK80 YES PACK70 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) PACK20 YES CWK A2,NULL NULL CHAR? RF(E) PACK75 YES,DON'T STORE CF A14,PUTCHA PUT CHAR. IN BUFFER LDR A1,A1 TRANSMISSION OK? RF(NZ) PACK90 NO PACK75 EQU * ADK A3,1 ADK A4,1 RB PACK60 PACK80 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT WRITE DC BUFFER PACK90 EQU * LDR A8,A12 BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ************************************************************ * * * UNPACK UNPACK DC-BUFFER AND UPDATE VDU * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************** UNPACK EQU * LDK A1,3 KB TOTALLY INHIBIT ORS A1,KBINH,A11 LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) UNP050 YES CF A14,LMP3ON INHIBIT LAMP ON UNP050 EQU * CF A14,SCRINF GET SCREEN INFORMATION LDR A6,A11 LDK A5,LLINE CF A14,LINE CHECK WRAP AND LINE FLAG SUR A9,A9 LD A8,BUFPNT,A11 GET BUFFER ADDRESS LDK A1,ICOMND PROCESS COMMAND ST A1,UNPMOD,A11 UNP100 EQU * CF A14,GDCCH GET CHAR. LDR A1,A1 ANYTHING LEFT? RF(NZ) UNP200 NO LD A1,UNPMOD,A11 GET ADDRESS TO START AT CFI A14,RETTAB,A1 RESTART LDR A1,A1 PROCESS OKEY? RB(Z) UNP100 YES RF UNP300 UNP200 EQU * IFT SNA=1 CF A14,GETNXT GET NEXT BUFFER LDR A1,A1 FINISHED? RB(Z) UNP100 NO XIF UNP300 EQU * CF A14,SCRINF GET LATEST NEWS LDR A1,A4 CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS IFT SNA=1 ANKL A10,THROWB THROW BUFFERS? RF(Z) UNP400 NO CF A14,THRBUF THROW BUFFERS RF UNP600 UNP400 EQU * IFF DISHOW=2 LC A1,TCT01,A11 CCK A1,VDUCOD RF(NE) UNP500 CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! UNP500 EQU * XIF CF A14,P2WCC CHECK IT A LAST TIME =4 LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER UNP600 EQU * RTN A14 EJECT ********************************************************************** * * * INDEX FOR RETURNS AFTER GET CHARCTER * * * ********************************************************************** ICOMND EQU 0 ICOMN1 EQU ICOMND+2 IFT COPCMD=1 ICOCOP EQU ICOMN1+2 ICOWCC EQU ICOCOP+2 XIF IFF COPCMD=1 ICOWCC EQU ICOMN1+2 XIF IORDER EQU ICOWCC+2 IOSFAT EQU IORDER+2 IOSBA1 EQU IOSFAT+2 IOSBA2 EQU IOSBA1+2 IORAA1 EQU IOSBA2+2 IORAA2 EQU IORAA1+2 IORACH EQU IORAA2+2 IOEUA1 EQU IORACH+2 IOEUA2 EQU IOEUA1+2 EJECT ********************************************************************* * * * RETURN ADDRESSES AFTER GET CHARACTER * * * ********************************************************************* RETTAB EQU * DATA UNPCOM PROCESS COMMAND CHAR. DATA UNC100 PROCESS COMMAND CHAR AFTER ESC. IFT COPCMD=1 DATA UNC150 PROCESS FROM DEVICE XIF DATA UNC600 PROCESS WCC DATA UNPORD PROCESS ORDERS AND CHAR. DATA SF100 PROCESS ATTRIBUTE DATA SBA100 PROCESS FIRST ADDRESS BYTE DATA SBA200 PROCESS SECOND ADDRESS BYTE DATA RA100 PROCESS FIRST ADDRESS BYTE DATA RA200 PROCESS SECOND ADDRESS BYTE DATA RA250 PROCESS CHAR. TO REPEAT DATA EUA100 PROCESS FIRST ADDRESS BYTE DATA EUA200 PROCESS FIRST ADDRESS BYTE EJECT *********************************************************************** * * * UNPCOM UNPACK COMMAND * * * *********************************************************************** * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR ADDRESS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************************ UNPCOM EQU * ENTRY LABEL FROM RETTAB IFF SNA=1 LDK A1,ICOMN1 WHERE TO CONTINUE ST A1,UNPMOD,A11 LDK A1,0 RETURN CODE CWK A2,ESCCHA ESCAPE? RF(E) UNC900 YES LDK A1,1 NO INDICATE ERROR RF UNC900 XIF UNC100 EQU * CWK A2,/31 WRITE? RF(E) UNC500 YES CWK A2,/35 ERASE AND WITE? RF(E) UNC200 YES CWK A2,/3F ERASE ALL UNPROTECTED? RF(E) UNC300 YES IFT COPCMD=1 CWK A2,/37 COPY COMMAND? RF(NE) UNC175 NO LDK A1,ICOCOP RESTART ENTRY RF UNC800 UNC150 EQU * ENTRY LABEL FROM RETTAB CF A14,MATCH GET TASKID LDR A1,A1 OK? RF(NZ) UNC175 NO LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND. ST A1,REGI,A11 LD A8,ECBICW,A11 CF A14,ICSET SET TIMEOUT LDR A1,A2 TASK TO CALL LDK A2,2 LENGTH LDKL A3,REGI ADR A3,A11 BUFFER CF A14,ICWRT SEND IT UNC175 EQU * XIF LDKL A10,THROWB THROW THE REST LDK A1,1 INDICATE ERROR RF UNC900 INVALID COMMAND UNC200 EQU * ST A8,REGI,A11 CF A14,ERASE ERASE ENTIRE SCREEN LD A8,REGI,A11 LDR A6,A11 LDK A5,LLINE LDK A4,0 INITIATE BUFFER ADDRESS RF UNC500 UNC300 EQU * CF A14,ERASUP ERASE ALL UNPROTECTED LDKL A10,THROWB THROW IT AWAY LDK A1,1 INDICATE ERROR RF UNC900 UNC500 EQU * LDK A1,ICOWCC GET INDEX ST A1,UNPMOD,A11 LDK A1,0 RF UNC900 UNC600 EQU * ENTRY LABEL FROM RETTAB CF A14,P1WCC PROCESS WCC BEFORE UPDATE LDR A3,A4 ADKL A3,BVDU GET REAL ADDRESS ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER LDK A1,IORDER INDICATE NEXT CALL UNC800 EQU * ST A1,UNPMOD,A11 LDK A1,0 UNC900 EQU * RTN A14 EJECT ********************************************************** * * * UNPORD UNPACK ORDERS * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** UNPORD EQU * ENTRY LABEL FROM RETTAB CWK A2,/20 ORDER? RF(L) UNO100 YES XRKL A10,PTORD INDICATE FOR PT ORDER CWR A5,A4 NEW LINE? RF(G) UNO050 NO CF A14,LINE CHECK WRAP UNO050 EQU * SCR A2,A3 STORE CHAR. IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A4,1 ADK A3,1 LDK A1,0 RF UNO200 UNO100 EQU * LC A1,CONORD,A2 GET ORDER INDEX CFI A14,ORDTAB,A1 TAKE CARE OF ORDER UNO200 EQU * RTN A14 EJECT ************************************************************* * * * ORDTAB ORDER TABLE * * * ************************************************************* ORDTAB EQU * DATA INVAL INVALID CHAR. DATA SF START FIELD DATA SBA SET BUFFER ADDRESS DATA IC INSERT CURSOR DATA PT TAB. DATA RA REPEAT TO AADRESS DATA EUA ERASE UNPROTECTED TO ADDRESS DATA ESC ESCAPE DATA NULCHA NULL CHAR. DATA NL NEW LINE DATA FF FORM FEED DATA EM END MESSAGE DATA CR CARRIAGE RETURN EJECT *********************************************************** * * * SF START FIELD * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= POINTER IN VDU BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************ SF EQU * LDK A1,IOSFAT INDICATE NEXT CALL ST A1,UNPMOD,A11 RF SF900 GET CHAR. SF100 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER NEXT ALBEL ST A1,UNPMOD,A11 LC A2,CONATT,A2 IN EBCDIC ORK A2,/80 ATTR. BIT CM CURATT,A11 ORKL A10,ATTREC+PTORD CF A14,LINWRP CHECK WRAP LC A1,LINFLG,A6 ANK A1,2 LINE IN FIELD? RF(Z) SF600 NO CF A14,LINATT INDICATE ATTRIBUTE OVERRUN SF600 EQU * ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED SCR A2,A3 STORE CHAR. ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK WRAP =7 SF900 EQU * LDK A1,0 RTN A14 EJECT *********************************************************** * * * SBA SET BUFFER ADDRESS * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************************** SBA EQU * LDK A1,IOSBA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 FIRST BYTE SBA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOSBA2 ST A1,UNPMOD,A11 LDK A1,0 RF SBA900 NEXT BYTE SBA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 CWK A7,LBVDU ILLEGAL ADDRESS? RF(NL) SBA800 YES LDR A3,A7 LDR A4,A3 ADKL A3,BVDU ADR A3,A11 ORKL A10,PTORD INDICATE PT ORDER CF A14,LINE CHECK WRAP AND LINE FLAGS LDK A1,0 REURN CODE RF SBA900 SBA800 EQU * ORKL A10,THROWB DON'T SAVE IT LDK A1,1 RETURN CODE SBA900 EQU * RTN A14 EJECT ********************************************************** * * * IC INSERT CURSOR * * * ********************************************************** * REGISTERS * * A1= RETURN CODE * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *********************************************** IC EQU * ST A4,PCURS,A11 ORKL A10,PTORD INDICATE LDK A1,0 RETURN CODE RTN A14 EJECT *********************************************************** * * * PT PROGRAM TAB. * * * *********************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * ************************************************************ PT EQU * LDR A1,A10 ANK A1,PTORD FOLLOWING ORDER OR COMMAND? RF(NZ) PT300 YES LDK A7,NULL FILL WITH NULLS TO END OF FIELD LDR A4,A4 AT POS. ZERO ? DK1 RF(Z) PT210 YES, PROCESS IT DK1 PT200 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT800 YES, KUNTA KINTE PT210 EQU * DK1 LCR A2,A3 ANK A2,/80 ATTRIBUTE? RF(NZ) PT400 YES SCR A7,A3 STORE NULL CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB PT200 PT300 EQU * DK1 LDR A4,A4 AT POS. ZERO ? DK1 RF(Z) PT410 YES, PROCESS IT. DK1 PT400 EQU * CF A14,LINWRP CHECK WRAP LDR A4,A4 END OF BUFFER? RF(Z) PT700 YES OS AND DOS PT410 EQU * DK1 LCR A2,A3 GET CHAR. ANK A2,/80 ATTRIBUTE? RF(NZ) PT500 YES PT420 EQU * DK1 ADK A4,1 ADK A3,1 RB PT400 PT500 EQU * LCR A2,A3 GET ATTRIBUTE AGAIN DK1 ANK A2,/20 PROTECTED? RB(NZ) PT420 YES ADK A4,1 ADK A3,1 CF A14,LINWRP CHECK WRAP PT700 EQU * ORKL A10,PTORD PT800 EQU * LDK A1,0 RETURN CODE RTN A14 EJECT ************************************************************* * * * RA REPEAT TO ADDRESS * * * ************************************************************* * REGISTERS * * A1= RETURN CODE * A2= CHAR. TO BE REPEATED * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************** RA EQU * LDK A1,IORAA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 FIRST BYTE RA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IORAA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 SECOND BYTE RA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 CWK A7,LBVDU INVALID ADDRESS RF(NL) RA800 YES LDK A1,IORACH NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF RA900 CHAR. BYTE RA250 EQU * ENTRY LABEL FROM RETTAB LDK A1,IORDER ST A1,UNPMOD,A11 RA300 EQU * SCR A2,A3 STORE IN VDU-BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK WRAP =1 CWR A4,A7 ALL REPEATED? =1 RB(NE) RA300 NO =1 ORKL A10,PTORD INDICATE PT ORDER LDK A1,0 RETURN CODE RF RA900 RA800 EQU * ORKL A10,THROWB THROW IT AWAY LDK A1,1 RETURN CODE RA900 EQU * RTN A14 EJECT ****************************************************** * * * EUA ERASE UNPRO. TO ADDRESS * * * ****************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ******************************************************* EUA EQU * LDK A1,IOEUA1 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 FIRST BYTE EUA100 EQU * ENTRY LABEL FROM RETTAB LC A7,CONATT,A2 CONVERT ANK A7,/3F SLL A7,6 LDK A1,IOEUA2 NEXT LABEL ST A1,UNPMOD,A11 LDK A1,0 RF EUA900 SECOND BYTE EUA200 EQU * ENTRY LABEL FROM RETTAB LC A2,CONATT,A2 ANK A2,/3F ORR A7,A2 LDK A1,IORDER NEXT LABEL ST A1,UNPMOD,A11 LDR A1,A7 RESTORE ADDR. =6 CWK A1,LBVDU INVALID ADDRESS? RF(NL) EUA800 YES LDR A2,A1 SAVE A1 =6 LDR A1,A4 =6 CF A14,ATMASB SEARCH ATTR. BACKWARDS =6 LDR A1,A2 RESTORE A1 =6 STR A8,A14 SAVE DCBF-POINTER =5 SUKL A14,2 ADJUST STACK POINTER =5 CF A14,ERASUA ERASE UNPRO. TO ADDRESS ADKL A14,2 ADJUST STACK POINTER =5 LDR* A8,A14 RESTORE DCBF-POINTER =5 LDK A1,0 RETURN CODE ORKL A10,PTORD INDICATE PT ORDER RF EUA900 EUA800 EQU * ORKL A10,THROWB RUBB. LDK A1,1 RETURN CODE EUA900 EQU * RTN A14 EJECT ******************************************************** * * * CHAR. < /20 BUT NOT ORDER * * * ******************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************ ESC EQU * ORKL A10,LICREC INDICATE COMMAND LDK A1,1 STOP ORDER PROCESS RF CHARET INVAL EQU * ORKL A10,/9800 END UNPACKING LDK A1,1 RF CHARET NULCHA EQU * NL EQU * FF EQU * EM EQU * CR EQU * CF A14,LINWRP CHECK WRAP SCR A2,A3 STORE CHAR. LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 XRKL A10,PTORD INDICATE PT ORDER ADK A3,1 ADK A4,1 LDK A1,0 CONTINUE CHARET EQU * RTN A14 EJECT **************************************************************** * * * PACKSY PACK DC BUFFER IN SYSTEM MODE * * * **************************************************************** * REGISTERS * * A2= CHAR * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A11= CREDIT WORK AREA * A12= BUFFER ADDRESS * A13= RESERVED * *************************************************************** PACKSY EQU * IFT SNA=1 LDKL A9,0 COUNTER LD A3,CURPOS,A11 GET START POS. CWK A3,/800 ANY CHAR. ON DISPLAY? RF(E) PASY40 NO CF A14,SCRINF GET SCREEN INFORMATION LDR A1,A4 SUR A1,A3 GET LENGTH OF MESSAGE RF(NN) PASY10 NOT WRAP AROUND LDKL A1,LBVDU-1 LAST POS. ON SCREEN SUR A1,A3 GET LENGTH AGAIN PASY10 EQU * CWK A1,256 ILLEGAL LENGTH? RF(NG) PASY20 NO LDKL A1,256 ADJUST LENGTH PASY20 EQU * ADKL A3,BVDU ADR A3,A11 PASY30 EQU * CWR A1,A9 ALL EXAMINED? RF(E) PASY40 YES LCR A2,A3 GET CHAR IN VDU BUFFER ADK A3,1 CWK A2,NULL NULL CHAR.? RB(E) PASY30 YES, DON'T STORE CF A14,PDCCH STORE CHAR. IN DC BUFFER RB PASY30 PASY40 EQU * LDK A1,0 INDICATE LAST IN CHAIN CF A14,DCWRIT SEND BUFFER LDR A8,A12 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER XIF RTN A14 EJECT ************************************************************* * * * UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * * * ************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= ADDRESS IN DC-BUFFER * A9= INDEX IN DC-BUFFER * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************** UNPSYS EQU * IFT SNA=1 LD A1,KBINH,A11 ORK A1,3 ST A1,KBINH,A11 CF A14,LMP4ON CF A14,SCRINF GET SCREEN INFORMATION LDR A3,A4 CURSOR ADDRESS ADKL A3,BVDU ADR A3,A11 VDU BUFFER ADDRESS LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS SUR A9,A9 INDEX IN DC BUFFER LDR A6,A11 LDK A5,LLINE CF A14,LINE GET INTERNAL LINEFLAG UNPS05 EQU * CF A14,GDCCH GET CHAR. IN DC BUFFER LDR A1,A1 ANYTHING LEFT? RF(NZ) UNPS60 NO CWK A2,/31 BIND? RF(E) UNPS50 YES,PERHAPS UNPS07 EQU * CWK A2,/20 ORDER? RF(NL) UNPS40 NO CWK A2,/0A NEW LINE? RF(NE) UNPS10 NO CF A14,NLROUT PERFORM NEW LINE RB UNPS05 UNPS10 EQU * CWK A2,/1C IFS? RF(NE) UNPS20 NO LDK A2,/2A REPLACE WITH * RF UNPS40 UNPS20 EQU * CWK A2,/1E IRS? RF(NE) UNPS30 NO LDK A2,/3B REPLACE WITH ; RF UNPS40 UNPS30 EQU * CWK A2,NULL NULL? RF(NE) UNPS40 NO LDK A2,/20 REPLACE WITH SPACE UNPS40 EQU * CF A14,LINWRP CHECK WRAP SCR A2,A3 STORE IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB UNPS05 UNPS50 EQU * CF A14,GDCCH ANK A2,/FE SHURE OF BIND? RF(Z) UNPS55 ALMOST SUKL A8,2 SUKL A9,2 CF A14,GDCCH RB UNPS07 UNPS55 EQU * LDK A1,MYJOB INDICATE MY JOB MODE ADKL A1,/8000 NEW MODE ACTIVATION ST A1,SNAMOD,A11 LDKL A10,1 NO DISPLAY RF UNPS70 UNPS60 EQU * LDKL A5,LBVDU+1 LDK A6,0 CF A14,STOINF SAVE NEW SCREEN INFORMATION LDKL A10,0 UNPS70 EQU * LD A8,BUFPNT,A11 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER XIF RTN A14 EJECT ************************************************************ * * * GETNXT GET AND CHECK NEXT BUFFER * * ************************************************************ * REGISTERS * * A1= RETURN CODE * A11= CREDIT WORK AREA * A12= BUFFER ADDRESS * A13= RESERVED * ************************************************************ GETNXT EQU * IFT SNA=1 CF A14,SAVE2 SAVE UNPACK INFORMATION LD A8,BUFPNT,A11 GET BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER IFT DISHOW=2 LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) GETC10 YES CF A14,DISMOD DISPLAY MODIFIED FIELDS XIF IFT SNA=1 GETC10 EQU * CF A14,WAIT SYNCHRONIZE LD A2,ECBEL,A8 SAVE LENGTH =4 ST A2,DCLENG,A11 . =4 LDR A9,A1 CF A14,REST2 LDR A1,A9 GET RETURN CODE SRC A1,1 FIRST OR MODDLE IN CHAIN? RF(NN) GETC30 NO LDR A1,A10 GET INTERNAL STATUS ANKL A1,LICREC LAST IN CHAIN RECEIVED? RF(Z) GETC60 NO LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) GETC20 YES CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE GETC20 EQU * XRKL A10,LICREC RESET LAST IN CHAIN ORKL A10,NEWCH NEW CHAIN RF GETC60 GETC30 EQU * SRC A1,1 LAST IN CHAIN RECEIVED? RF(NN) GETC90 NO GETC40 EQU * LDR A1,A10 GET INTERNAL STATUS ORKL A10,LICREC LAST IN CHAIN RECEIVED ANKL A1,LICREC LAST IN CHAIN RECEIVED? RF(Z) GETC60 NO CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE ORKL A10,NEWCH NEW CHAIN GETC60 EQU * ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS CF A14,SAVE2 SAVE INFORMATION =2 CF A14,GETBUF GET NEW BUFFER LDR A3,A8 GET BUFFER ADDRESS CF A14,READNW READ WITH NO WAIT CF A14,REST2 RESTORE UNPACK INFORMATION LDR A1,A10 ANKL A1,NEWCH NEW CHAIN? RF(Z) GETC80 NO IFT DISHOW=1 XRKL A10,NEWCH RESET LC A1,TCT01,A11 CCK A1,VDUCOD RF(NE) GETC70 CF A14,SAVE2 CF A14,DISMOD CF A14,REST2 XIF IFT SNA=1 GETC70 EQU * LDK A1,ICOMN1 NEXT LABEL ST A1,UNPMOD,A11 GETC80 EQU * LD A8,BUFPNT,A11 SUR A9,A9 LDK A1,0 RETUR N CODE GETC90 EQU * XIF RTN A14 EJECT ************************************************************* * * * PUTCHA PUT CHAR. IN DC BUFFER * * * ************************************************************* * REGISTERS * * A1= RETURN CODE * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************* PUTCHA EQU * LDR A1,A1 SBA TO STORE? RF(N) PUTC10 YES CWK A9,BUFFL+BUFFL BUFFER FULL? RF(NL) PUTC20 YES RF PUTC30 PUTC10 EQU * LDKL A1,BUFFL+BUFFL-3 SUR A1,A9 ROOM FOR SBA AND ADDRESS? RF(NN) PUTC30 YES PUTC20 EQU * IFT SNA=1 CF A14,SAVE2 SAVE PACK INFORMATION LDK A1,1 INDICATE NOT LAST IN CHAIN CF A14,DCWRIT WRITE DC BUFFER LDR A9,A1 CF A14,REST2 LDR A9,A9 TRANSMISSION OK? RF(NZ) PUTC90 NO SUR A9,A9 BUFFER INDEX LDR A8,A12 BUFFER ADDRESS XIF IFF SNA=1 CF A14,ERROR LDKL A1,* ST A1,REGI,A11 LKM DATA 3 XIF PUTC30 EQU * CF A14,PDCCH PUT CHAR. IN DC BUFFER LDK A1,0 RETURN CODE PUTC90 EQU * RTN A14 EJECT ************************************************** * * * PDCCH PUT CHAR. IN DC BUFFER * * * ************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= RESERVED * A12= RESERVED * A13= RESERVED * *************************************************** PDCCH EQU * CWK A9,BUFFL+BUFFL OVERFLOW? RF(NL) PDC100 YES ANK A2,/FF IFT EBCDIC=1 * CONVERSION DELETED * DK 82-03-30 * XIF SCR A2,A8 STORE IN DC-BUFFER ADKL A8,1 ADKL A9,1 PDC100 EQU * RTN A14 EJECT *************************************************************** * * * GDCCH GET CHAR. IN DC BUFFER * * * *************************************************************** * REGISTERS * * A1= RETURN CODE * A2= CHAR. * A3= POINTER IN VDU BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ADDRESS IN DC-BUFFER * A9= DC-BUFFER INDEX * A10= INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************** GDCCH EQU * LDK A1,1 PRESET ERROR CW A9,DCLENG,A11 BUFFER EMPTIED? RF(NL) GDCC90 YES LDK A1,0 LCR A2,A8 GET CHAR. ANK A2,/FF IFT EBCDIC=1 * EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* XIF ADKL A8,1 ADKL A9,1 GDCC90 EQU * RTN A14 EJECT *********************************************************** * * * PAID STORE AID IN BUFFER * * * *********************************************************** * REGISTERS * * A2= AID * A11= RESERVED * A13= RESERVED * ********************************************************** PAID EQU * CF A14,PDCCH STORE AID RTN A14 EJECT ********************************************************** * * * BUFADR STORE BUFFER ADDRESS IN DC-BUFFER * * * ********************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A12= RESERVED * A13= RESERVED * ********************************************************** BUFADR EQU * LDR A2,A1 GET REL. POS. SRL A2,6 ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER LDR A2,A1 GET REL. POS. ANK A2,/3F LC A2,CONADR,A2 CONVERT TO ASCII CF A14,PDCCH STORE IN DC-BUFFER RTN A14 EJECT ************************************************************ * * * RESMDT RESET ALL MDT-BITS IN ATTRIBUTES * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ************************************************************* RESMDT EQU * LDK A1,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 RESM10 EQU * CWK A1,LBVDU ALL SCANNED? RF(NL) RESM90 YES LCR A2,A3 GET CHAR. CCK A2,/8080 ATTRIBUTE? RF(L) RESM20 NO ANK A2,/FE RESET MDT-BIT SCR A2,A3 RESTORE RESM20 EQU * ADK A1,1 ADK A3,1 RB RESM10 RESM90 EQU * RTN A14 EJECT ******************************************************** * * * P1WCC PROCESS WCC BEFORE UPDATE * * ******************************************************** * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************** P1WCC EQU * LC A2,CONATT,A2 IN EBCDIC ST A2,WCC,A11 SAVE ANK A2,1 RESET MDT-BITS? RF(Z) P1W900 NO CF A14,RESMDT RESET ALL MDT-BITS P1W900 EQU * RTN A14 EJECT ********************************************************* * * * P2WCC TAKE CARE OF WCC AFTER UPDATE * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * ********************************************************** P2WCC EQU * CF A14,SAVE2 KEEP IT AWAY =4 LD A1,WCC,A11 LDR A7,A1 ANK A7,4 SOUND? RF(Z) P2W100 NO CF A14,SOUND SOUND P2W100 EQU * ANK A1,8 COPY? RF(Z) P2W300 NO LC A1,TCT01,A11 . =4 CCK A1,VDUCOD VDU =4 RF(NE) P2W200 NO PRINTER =4 CF A14,COPY COPY RF P2W300 . =4 P2W200 EQU * . =4 * CALL TO COPP REMOVED, DK1 P2W300 EQU * CF A14,REST2 TAKE IT BACK =4 RTN A14 EJECT ****************************************************************** * * * SAVE SAVE PACK AND UNPACK INFORMATION * * * ****************************************************************** * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL CURSOR POS. * A5= REL STTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * **************************************************************** SAVE1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF SAVE SAVE2 EQU * LDKL A1,STACK2 SAVE EQU * ADR A1,A11 STR A2,A1 ADK A1,2 STR A3,A1 ADK A1,2 STR A4,A1 ADK A1,2 STR A5,A1 ADK A1,2 STR A6,A1 ADK A1,2 STR A7,A1 ADK A1,2 STR A10,A1 RTN A14 EJECT ******************************************************************* * * * RESTOR RESTORE PACK AND UNPACK INFORMATION * * * ******************************************************************* * REGISTERS * * A1= STACK POINTER * A2= CHAR. * A3= VDU BUFFER ADDRESS * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A7= RESERVED * A10= INTERNAL INDICATOR * A11= CREDIT WORK AREA * A12= RESERVED * A13= RESERVED * *************************************************************** REST1 EQU * LDKL A1,STACK1 GET STACK ADDRESS RF RESTOR REST2 EQU * LDKL A1,STACK2 RESTOR EQU * ADR A1,A11 LDR* A2,A1 ADK A1,2 LDR* A3,A1 ADK A1,2 LDR* A4,A1 ADK A1,2 LDR* A5,A1 ADK A1,2 LDR* A6,A1 ADK A1,2 LDR* A7,A1 ADK A1,2 LDR* A10,A1 RTN A14 EJECT ******************************************************* * * * BUFFER POOL * * * ******************************************************* BUFFER EQU * DATA *+2 POINTER FIRST FREE IFF BUFFNR=1 DATA *+LINK RES BUFFL IFF BUFFNR=2 DATA *+LINK RES BUFFL IFF BUFFNR=3 DATA *+LINK RES BUFFL IFF BUFFNR=4 DATA *+LINK RES BUFFL IFF BUFFNR=5 DATA *+LINK RES BUFFL IFF BUFFNR=6 DATA *+LINK RES BUFFL IFF BUFFNR=7 DATA *+LINK RES BUFFL IFF BUFFNR=8 DATA *+LINK RES BUFFL IFF BUFFNR=9 DATA *+LINK RES BUFFL IFF BUFFNR=10 DATA *+LINK RES BUFFL IFF BUFFNR=11 DATA *+LINK RES BUFFL IFF BUFFNR=12 DATA *+LINK RES BUFFL IFF BUFFNR=13 DATA *+LINK RES BUFFL IFF BUFFNR=14 DATA *+LINK RES BUFFL IFF BUFFNR=15 DATA *+LINK RES BUFFL IFF BUFFNR=16 DATA *+LINK RES BUFFL IFF BUFFNR=17 DATA *+LINK RES BUFFL IFF BUFFNR=18 DATA *+LINK RES BUFFL IFF BUFFNR=19 DATA *+LINK RES BUFFL IFF BUFFNR=20 DATA *+LINK RES BUFFL IFF BUFFNR=21 DATA *+LINK RES BUFFL IFF BUFFNR=22 DATA *+LINK RES BUFFL IFF BUFFNR=23 DATA *+LINK RES BUFFL IFF BUFFNR=24 DATA *+LINK RES BUFFL IFF BUFFNR=25 DATA *+LINK RES BUFFL IFF BUFFNR=26 DATA *+LINK RES BUFFL IFF BUFFNR=27 DATA *+LINK RES BUFFL IFF BUFFNR=28 DATA *+LINK RES BUFFL IFF BUFFNR=29 DATA *+LINK RES BUFFL IFF BUFFNR=30 DATA *+LINK RES BUFFL IFF BUFFNR=31 DATA *+LINK RES BUFFL IFF BUFFNR=32 DATA *+LINK RES BUFFL XIF DATA 0 RES BUFFL EJECT ******************************************************* * * * GETBUF GET BUFFER * * * ******************************************************* * REGISTERS * * A8= DC-BUFFER ADDRESS * A9= INDEX IN DC-BUFFER * A11= RESERVED * A12= BUFFER ADDRESS * A13= RESERVED * ******************************************************** GETBUF EQU * LDKL A7,BUFFER GETB10 EQU * LDR* A8,A7 RF(NZ) GETB90 BUFFER FREE LKM DATA 0 SWITCH TASK RB GETB10 GETB90 EQU * LDR* A1,A8 STR A1,A7 ADKL A8,2 LDR A12,A8 SUR A9,A9 RTN A14 EJECT ********************************************************* * * * RELBUF RELEASE BUFFER * * * ********************************************************* * REGISTERS * * A8= BUFFER ADDRESS * A11= RESERVED * A13= RESERVED * ********************************************************* RELBUF EQU * LDKL A7,BUFFER SUKL A8,2 POINT TO LINK RELB10 EQU * LDR* A1,A7 RF(Z) RELB90 LDR A7,A1 RB RELB10 RELB90 EQU * STR A8,A7 CMR A8 RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT PAD REL 11.0 DK 82-05-27 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» =7,ERROR IN SF «, t00=0x0000, t01=0x0040}
0x0056…0074 Head {h00=0x001a, h01=0x0050, text=» =6,2ND ERROR IN EUA«, t00=0x0000, t01=0x005a}
0x0074…00a0 Head {h00=0x0028, h01=0x0050, text=» =5 ERROR IN ERASE UNPROT TO ADDR«, t00=0x0000, t01=0x0078}
0x00a0…00ca Head {h00=0x0026, h01=0x0050, text=» DK1, ATTRIBUTE ERROR + 2X PRINT«, t00=0x0000, t01=0x00a4}
0x00ca…00e8 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x00ce}
0x00e8…00fc Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x00ec}
0x00fc…0118 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x0100}
0x0118…012c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x011c}
0x012c…0144 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x0130}
0x0144…0158 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0148}
0x0158…0178 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x015c}
0x0178…018c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x017c}
0x018c…01d2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0190}
0x01d2…0218 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0046}
0x0218…025e Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0001, t01=0x008c}
0x025e…02a4 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x00d2}
0x02a4…02ea Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x0118}
0x02ea…0330 Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x015e}
0x0330…0376 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0002, t01=0x0014}
0x0376…03bc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0002, t01=0x005a}
0x03bc…0402 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x00a0}
0x0402…0410 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e6}
0x0410…045a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x00f4}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…047e Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x0148}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…04cc Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0002, t01=0x016c}
0x04cc…0508 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0003, t01=0x0020}
0x0508…0534 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0003, t01=0x005c}
0x0534…0560 Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x0088}
0x0560…058a Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x00b4}
0x058a…05b2 Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x00de}
0x05b2…05da Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0106}
0x05da…0608 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x012e}
0x0608…0632 Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x015c}
0x0632…065a Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0003, t01=0x0186}
0x065a…0688 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0004, t01=0x001e}
0x0688…06bc Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0004, t01=0x004c}
0x06bc…06e8 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x0080}
0x06e8…0722 Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00ac}
0x0722…075e Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00e6}
0x075e…0794 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x0122}
0x0794…07d0 Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x0158}
0x07d0…0800 (5, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0005, t01=0x0004}
0x0800…0830 Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0005, t01=0x0034}
0x0830…0860 Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0005, t01=0x0064}
0x0860…089e Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x0094}
0x089e…08da Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x00d2}
0x08da…0910 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x010e}
0x0910…094a Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x0144}
0x094a…0986 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0005, t01=0x017e}
0x0986…09c6 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0006, t01=0x002a}
0x09c6…09ee Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0006, t01=0x006a}
0x09ee…0a14 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x0092}
0x0a14…0a3e Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x00b8}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e2}
0x0a48…0a92 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x00ec}
0x0a92…0aa0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0136}
0x0aa0…0ae6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0006, t01=0x0144}
0x0ae6…0b2c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0006, t01=0x018a}
0x0b2c…0b72 Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x0040}
0x0b72…0bb8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0086}
0x0bb8…0bfe Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x00cc}
0x0bfe…0c06 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0112}
0x0c06…0c3a Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x011a}
0x0c3a…0c70 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x014e}
0x0c70…0ca6 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0007, t01=0x0184}
0x0ca6…0cca Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0008, t01=0x002a}
0x0cca…0cf2 Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0008, t01=0x004e}
0x0cf2…0d22 Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x0076}
0x0d22…0d58 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x00a6}
0x0d58…0d8c Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x00dc}
0x0d8c…0db0 Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x0110}
0x0db0…0dd6 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x0134}
0x0dd6…0dde Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x015a}
0x0dde…0dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0162}
0x0dec…0e28 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0008, t01=0x0170}
0x0e28…0e64 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x001c}
0x0e64…0ea0 Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x0058}
0x0ea0…0edc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0094}
0x0edc…0f18 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x00d0}
0x0f18…0f20 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x010c}
0x0f20…0f54 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x0114}
0x0f54…0f88 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x0148}
0x0f88…0fb6 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x0009, t01=0x017c}
0x0fb6…0fee Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x000a, t01=0x001a}
0x0fee…1024 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x000a, t01=0x0052}
0x1024…1056 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x0088}
0x1056…1088 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x00ba}
0x1088…10c4 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x00ec}
0x10c4…10ee Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x0128}
0x10ee…111c Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x0152}
0x111c…1152 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000a, t01=0x0180}
0x1152…1188 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000b, t01=0x0026}
0x1188…11b6 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000b, t01=0x005c}
0x11b6…11ea Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x008a}
0x11ea…1216 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x00be}
0x1216…124c Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x00ea}
0x124c…127a Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x0120}
0x127a…12ae Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x014e}
0x12ae…12e2 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000b, t01=0x0182}
0x12e2…1314 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000c, t01=0x0026}
0x1314…1340 Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000c, t01=0x0058}
0x1340…1366 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x0084}
0x1366…139c Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x00aa}
0x139c…13cc Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x00e0}
0x13cc…13f6 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x0110}
0x13f6…142c Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x013a}
0x142c…145a Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000c, t01=0x0170}
0x145a…1486 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000d, t01=0x000e}
0x1486…14b6 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000d, t01=0x003a}
0x14b6…14cc Head {h00=0x0012, h01=0x0050, text=» EXTRN LMP3ON «, t00=0x000d, t01=0x006a}
0x14cc…14da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0080}
0x14da…1516 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x008e}
0x1516…1552 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00ca}
0x1552…158e Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x0106}
0x158e…15ca Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0142}
0x15ca…1606 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x017e}
0x1606…160e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x002a}
0x160e…1632 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000e, t01=0x0032}
0x1632…1644 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000e, t01=0x0056}
0x1644…166e Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000e, t01=0x0068}
0x166e…1684 Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000e, t01=0x0092}
0x1684…16b2 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x00a8}
0x16b2…16c8 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x00d6}
0x16c8…16f6 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x00ec}
0x16f6…170a Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x011a}
0x170a…172e Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x012e}
0x172e…1742 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000e, t01=0x0152}
0x1742…1770 Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000e, t01=0x0166}
0x1770…1786 (15, 0, 400) Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000f, t01=0x0004}
0x1786…1794 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x001a}
0x1794…17dc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x0028}
0x17dc…1824 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0070}
0x1824…184e Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x00b8}
0x184e…1896 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x00e2}
0x1896…18de Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x012a}
0x18de…18e6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0172}
0x18e6…18f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18f0…1918 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000f, t01=0x0184}
0x1918…1922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x1922…1944 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0010, t01=0x0026}
0x1944…1968 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0010, t01=0x0048}
0x1968…198c Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0010, t01=0x006c}
0x198c…19ac Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x0090}
0x19ac…19ce Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x00b0}
0x19ce…19d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d8…19f2 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x00dc}
0x19f2…19fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f6}
0x19fc…1a2c Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x0100}
0x1a2c…1a52 Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x0130}
0x1a52…1a74 Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x0156}
0x1a74…1aa0 Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0010, t01=0x0178}
0x1aa0…1aca Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0011, t01=0x0014}
0x1aca…1adc Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0011, t01=0x003e}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0050}
0x1ae6…1b00 Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0011, t01=0x005a}
0x1b00…1b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0074}
0x1b0a…1b2a Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0011, t01=0x007e}
0x1b2a…1b4a Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x009e}
0x1b4a…1b6a Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x00be}
0x1b6a…1b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00de}
0x1b76…1b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b80…1ba2 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x00f4}
0x1ba2…1bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1bac…1bd0 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x0120}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0144}
0x1bda…1bf6 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x014e}
0x1bf6…1c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1c00…1c1e Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0011, t01=0x0174}
0x1c1e…1c3e (18, 0, 400) Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0012, t01=0x0004}
0x1c3e…1c62 Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0012, t01=0x0024}
0x1c62…1c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0048}
0x1c6c…1c86 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0012, t01=0x0052}
0x1c86…1c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006c}
0x1c90…1cb2 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0012, t01=0x0076}
0x1cb2…1cd2 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x0098}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b8}
0x1cdc…1d00 Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x00c2}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d0a…1d28 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x00f0}
0x1d28…1d36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x010e}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011c}
0x1d40…1d60 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0126}
0x1d60…1d7c Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x0146}
0x1d7c…1d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0162}
0x1d86…1dae Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0012, t01=0x016c}
0x1dae…1dd4 (19, 0, 400) Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0013, t01=0x0004}
0x1dd4…1e04 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0013, t01=0x002a}
0x1e04…1e38 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0013, t01=0x005a}
0x1e38…1e52 Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x008e}
0x1e52…1e7c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x00a8}
0x1e7c…1ea6 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x00d2}
0x1ea6…1ed4 Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x00fc}
0x1ed4…1f0a Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x012a}
0x1f0a…1f34 Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x0160}
0x1f34…1f5c Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0013, t01=0x018a}
0x1f5c…1f84 Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0014, t01=0x0022}
0x1f84…1fa0 Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0014, t01=0x004a}
0x1fa0…1fc8 Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0014, t01=0x0066}
0x1fc8…1fec Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x008e}
0x1fec…2020 Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x00b2}
0x2020…202e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00e6}
0x202e…2072 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x00f4}
0x2072…20b6 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0138}
0x20b6…20fc Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0014, t01=0x017c}
0x20fc…2142 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0032}
0x2142…2188 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0015, t01=0x0078}
0x2188…219c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x00be}
0x219c…21a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d2}
0x21a6…21ba Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x00dc}
0x21ba…21de Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x00f0}
0x21de…21fc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x0114}
0x21fc…221e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x0132}
0x221e…223a Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x0154}
0x223a…225c Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0015, t01=0x0170}
0x225c…227a (22, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0016, t01=0x0004}
0x227a…2296 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0016, t01=0x0022}
0x2296…22ae Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0016, t01=0x003e}
0x22ae…22cc Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0016, t01=0x0056}
0x22cc…22e4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x0074}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008c}
0x22ee…2332 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0096}
0x2332…2344 Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x00da}
0x2344…2372 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x00ec}
0x2372…2396 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x011a}
0x2396…23ac Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x013e}
0x23ac…23c0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x0154}
0x23c0…23e4 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0016, t01=0x0168}
0x23e4…2410 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0016, t01=0x018c}
0x2410…242a Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0017, t01=0x0028}
0x242a…243e Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0017, t01=0x0042}
0x243e…245a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x0056}
0x245a…247a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x0072}
0x247a…2494 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x0092}
0x2494…24a6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x00ac}
0x24a6…24b8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x00be}
0x24b8…24ca Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x00d0}
0x24ca…24de Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x00e2}
0x24de…2500 Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x00f6}
0x2500…2512 Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0118}
0x2512…2526 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x012a}
0x2526…2550 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x013e}
0x2550…2570 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0017, t01=0x0168}
0x2570…258a Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0017, t01=0x0188}
0x258a…259e Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0018, t01=0x0012}
0x259e…25ba Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0018, t01=0x0026}
0x25ba…25cc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0042}
0x25cc…25de Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0054}
0x25de…25fe Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0018, t01=0x0066}
0x25fe…2616 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0018, t01=0x0086}
0x2616…2638 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x009e}
0x2638…2652 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x00c0}
0x2652…2680 Head {h00=0x002a, h01=0x0050, text=»* POINTER UPDATE REMOVED DK1 «, t00=0x0018, t01=0x00da}
0x2680…2692 Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x0108}
0x2692…26a6 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x011a}
0x26a6…26cc Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x012e}
0x26cc…26f0 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x0154}
0x26f0…271a Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0018, t01=0x0178}
0x271a…273e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x0012}
0x273e…2758 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x0036}
0x2758…2786 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0019, t01=0x0050}
0x2786…279c Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0019, t01=0x007e}
0x279c…27b0 Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x0094}
0x27b0…27da Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x00a8}
0x27da…27fa Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x00d2}
0x27fa…2814 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x00f2}
0x2814…2828 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x010c}
0x2828…2844 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x0120}
0x2844…2864 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x013c}
0x2864…287e Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x015c}
0x287e…289e Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0019, t01=0x0176}
0x289e…28c4 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x001a, t01=0x0008}
0x28c4…28ee Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x001a, t01=0x002e}
0x28ee…2912 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x001a, t01=0x0058}
0x2912…292c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x001a, t01=0x007c}
0x292c…2940 Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x0096}
0x2940…2952 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x00aa}
0x2952…2964 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x00bc}
0x2964…2976 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x00ce}
0x2976…298a Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x00e0}
0x298a…29b2 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x00f4}
0x29b2…29d8 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x011c}
0x29d8…29ec Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x0142}
0x29ec…2a12 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x0156}
0x2a12…2a38 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001a, t01=0x017c}
0x2a38…2a48 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0012}
0x2a48…2a56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0022}
0x2a56…2a9a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0030}
0x2a9a…2ade Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0074}
0x2ade…2b22 Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x00b8}
0x2b22…2b66 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00fc}
0x2b66…2baa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0140}
0x2baa…2bbe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0184}
0x2bbe…2bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bc8…2bdc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001c, t01=0x0012}
0x2bdc…2c00 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001c, t01=0x0026}
0x2c00…2c1e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001c, t01=0x004a}
0x2c1e…2c40 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001c, t01=0x0068}
0x2c40…2c68 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001c, t01=0x008a}
0x2c68…2c8a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x00b2}
0x2c8a…2ca8 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x00d4}
0x2ca8…2cc0 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x00f2}
0x2cc0…2ce0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x010a}
0x2ce0…2cf8 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x012a}
0x2cf8…2d10 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0142}
0x2d10…2d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015a}
0x2d1a…2d5a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001c, t01=0x0164}
0x2d5a…2d6e Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001d, t01=0x0014}
0x2d6e…2d92 Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001d, t01=0x0028}
0x2d92…2dac Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001d, t01=0x004c}
0x2dac…2dc4 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001d, t01=0x0066}
0x2dc4…2dea Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001d, t01=0x007e}
0x2dea…2e04 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x00a4}
0x2e04…2e2a Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP3ON INHIBIT LAMP ON«, t00=0x001d, t01=0x00be}
0x2e2a…2e3e Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x00e4}
0x2e3e…2e6c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x00f8}
0x2e6c…2e80 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0126}
0x2e80…2e96 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x013a}
0x2e96…2ec4 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x0150}
0x2ec4…2ed6 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001d, t01=0x017e}
0x2ed6…2f02 Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001d, t01=0x0190}
0x2f02…2f28 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001e, t01=0x002c}
0x2f28…2f42 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001e, t01=0x0052}
0x2f42…2f56 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001e, t01=0x006c}
0x2f56…2f76 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001e, t01=0x0080}
0x2f76…2f98 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x00a0}
0x2f98…2fb2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x00c2}
0x2fb2…2fe4 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x00dc}
0x2fe4…3006 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x010e}
0x3006…3026 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x0130}
0x3026…3040 Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x0150}
0x3040…3052 Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001e, t01=0x016a}
0x3052…3066 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001e, t01=0x017c}
0x3066…3078 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001e, t01=0x0190}
0x3078…309e Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001f, t01=0x0012}
0x309e…30ba Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001f, t01=0x0038}
0x30ba…30d2 Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001f, t01=0x0054}
0x30d2…30de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006c}
0x30de…30f2 Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001f, t01=0x0078}
0x30f2…3118 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001f, t01=0x008c}
0x3118…312a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x00b2}
0x312a…315c Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x00c4}
0x315c…316e Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x00f6}
0x316e…3196 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x0108}
0x3196…31ae Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x0130}
0x31ae…31d2 Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x0148}
0x31d2…31e4 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x001f, t01=0x016c}
0x31e4…31f8 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x001f, t01=0x017e}
0x31f8…320e (32, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x0020, t01=0x0004}
0x320e…3226 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0020, t01=0x001a}
0x3226…323c Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x0020, t01=0x0032}
0x323c…3252 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x0020, t01=0x0048}
0x3252…328c Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x0020, t01=0x005e}
0x328c…32a0 Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x0098}
0x32a0…32ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ac}
0x32ac…32da Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x00b8}
0x32da…3304 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x00e6}
0x3304…332a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x0110}
0x332a…333e Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x0136}
0x333e…334e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x014a}
0x334e…335c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x015a}
0x335c…33aa Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0020, t01=0x0168}
0x33aa…33f8 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0026}
0x33f8…3446 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0021, t01=0x0074}
0x3446…3494 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00c2}
0x3494…34e2 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x0110}
0x34e2…34ea Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x015e}
0x34ea…34fe Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0021, t01=0x0166}
0x34fe…351a Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0021, t01=0x017a}
0x351a…3530 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x0008}
0x3530…354c Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0022, t01=0x001e}
0x354c…3568 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0022, t01=0x003a}
0x3568…3574 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0056}
0x3574…358a Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0022, t01=0x0062}
0x358a…35a6 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0022, t01=0x0078}
0x35a6…35b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0094}
0x35b2…35ce Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x00a0}
0x35ce…35ea Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x00bc}
0x35ea…3606 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x00d8}
0x3606…3622 Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x00f4}
0x3622…363e Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x0110}
0x363e…365a Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x012c}
0x365a…3676 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x0148}
0x3676…3692 Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x0164}
0x3692…36ae Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0022, t01=0x0180}
0x36ae…36bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x000c}
0x36bc…370a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x001a}
0x370a…3758 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0068}
0x3758…37a6 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x00b6}
0x37a6…37f4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0104}
0x37f4…3842 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x0152}
0x3842…3856 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0024, t01=0x0010}
0x3856…3880 Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0024, t01=0x0024}
0x3880…38b4 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0024, t01=0x004e}
0x38b4…38ca Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x0082}
0x38ca…38f2 Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x0098}
0x38f2…38fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00c0}
0x38fe…391e Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x00cc}
0x391e…394c Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x00ec}
0x394c…3972 Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x011a}
0x3972…39a2 Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x0140}
0x39a2…39d2 Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0024, t01=0x0170}
0x39d2…3a00 Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0025, t01=0x0010}
0x3a00…3a30 Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0025, t01=0x003e}
0x3a30…3a5c Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0025, t01=0x006e}
0x3a5c…3a8c Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x009a}
0x3a8c…3abc Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x00ca}
0x3abc…3aca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00fa}
0x3aca…3b1a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0108}
0x3b1a…3b6a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0158}
0x3b6a…3bba Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0026, t01=0x0018}
0x3bba…3c0a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0068}
0x3c0a…3c5a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x00b8}
0x3c5a…3c6e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0108}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x011c}
0x3c78…3c8c Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0126}
0x3c8c…3cb0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x013a}
0x3cb0…3cd2 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x015e}
0x3cd2…3cf4 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0026, t01=0x0180}
0x3cf4…3d1c Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0027, t01=0x0012}
0x3d1c…3d3e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0027, t01=0x003a}
0x3d3e…3d54 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0027, t01=0x005c}
0x3d54…3d6c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0027, t01=0x0072}
0x3d6c…3d8c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x008a}
0x3d8c…3da4 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x00aa}
0x3da4…3dbc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x00c2}
0x3dbc…3dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00da}
0x3dc6…3e16 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x00e4}
0x3e16…3e42 Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x0134}
0x3e42…3e54 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x0160}
0x3e54…3e7c Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0027, t01=0x0172}
0x3e7c…3e96 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0028, t01=0x000a}
0x3e96…3eb4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0028, t01=0x0024}
0x3eb4…3ed2 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0028, t01=0x0042}
0x3ed2…3eec Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0028, t01=0x0060}
0x3eec…3f10 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0028, t01=0x007a}
0x3f10…3f22 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x009e}
0x3f22…3f2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00b0}
0x3f2e…3f42 Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x00bc}
0x3f42…3f5c Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x00d0}
0x3f5c…3f76 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x00ea}
0x3f76…3f9a Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x0104}
0x3f9a…3fb4 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0128}
0x3fb4…3fde Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x0142}
0x3fde…3ff8 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0028, t01=0x016c}
0x3ff8…400e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0028, t01=0x0186}
0x400e…4030 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0029, t01=0x000c}
0x4030…404a Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0029, t01=0x002e}
0x404a…406e Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0029, t01=0x0048}
0x406e…4080 Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0029, t01=0x006c}
0x4080…40ac Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0029, t01=0x007e}
0x40ac…40cc Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x00aa}
0x40cc…40e2 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x00ca}
0x40e2…40fc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x00e0}
0x40fc…4136 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x00fa}
0x4136…414e Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x0134}
0x414e…4168 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x014c}
0x4168…418a Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x0029, t01=0x0166}
0x418a…41aa Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x0029, t01=0x0188}
0x41aa…41c2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x002a, t01=0x0018}
0x41c2…41d8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x002a, t01=0x0030}
0x41d8…41f2 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x002a, t01=0x0046}
0x41f2…4210 Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x002a, t01=0x0060}
0x4210…4224 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x002a, t01=0x007e}
0x4224…4230 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0092}
0x4230…4258 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x009e}
0x4258…4278 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x00c6}
0x4278…429a Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x00e6}
0x429a…42ae Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x0108}
0x42ae…42c6 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x011c}
0x42c6…42f0 Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x0134}
0x42f0…4308 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x015e}
0x4308…431c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002a, t01=0x0176}
0x431c…4332 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002a, t01=0x018a}
0x4332…435c Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002b, t01=0x0010}
0x435c…436e Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002b, t01=0x003a}
0x436e…4382 Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002b, t01=0x004c}
0x4382…43ae Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002b, t01=0x0060}
0x43ae…43d4 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002b, t01=0x008c}
0x43d4…43f4 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x00b2}
0x43f4…4406 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x00d2}
0x4406…441a Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x00e4}
0x441a…443a Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x00f8}
0x443a…4454 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x0118}
0x4454…4466 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x0132}
0x4466…4478 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0144}
0x4478…44a4 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x0156}
0x44a4…44d4 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002b, t01=0x0182}
0x44d4…44e6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002c, t01=0x0022}
0x44e6…450c Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002c, t01=0x0034}
0x450c…4520 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002c, t01=0x005a}
0x4520…454a Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002c, t01=0x006e}
0x454a…4574 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x0098}
0x4574…4588 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x00c2}
0x4588…45a2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x00d6}
0x45a2…45b4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x00f0}
0x45b4…45c8 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x0102}
0x45c8…45d8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0116}
0x45d8…45e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0126}
0x45e6…4628 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0134}
0x4628…466a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002c, t01=0x0176}
0x466a…46ac Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002d, t01=0x0028}
0x46ac…46ee Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x006a}
0x46ee…4730 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x00ac}
0x4730…4744 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x00ee}
0x4744…474e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0102}
0x474e…4762 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x010c}
0x4762…4786 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x0120}
0x4786…47a4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x0144}
0x47a4…47c6 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x0162}
0x47c6…47ee Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002d, t01=0x0184}
0x47ee…4804 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002e, t01=0x001c}
0x4804…481a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002e, t01=0x0032}
0x481a…4832 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002e, t01=0x0048}
0x4832…484a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002e, t01=0x0060}
0x484a…4862 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002e, t01=0x0078}
0x4862…487a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x0090}
0x487a…4884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a8}
0x4884…48c6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x00b2}
0x48c6…48f2 Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x00f4}
0x48f2…490c Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x0120}
0x490c…4926 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x013a}
0x4926…4954 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x0154}
0x4954…4970 Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002e, t01=0x0182}
0x4970…4988 Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002f, t01=0x000e}
0x4988…49a8 Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002f, t01=0x0026}
0x49a8…49bc Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002f, t01=0x0046}
0x49bc…49e8 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002f, t01=0x005a}
0x49e8…4a00 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002f, t01=0x0086}
0x4a00…4a12 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x009e}
0x4a12…4a2a Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x00b0}
0x4a2a…4a3c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x00c8}
0x4a3c…4a4e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x00da}
0x4a4e…4a60 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x00ec}
0x4a60…4a72 Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x00fe}
0x4a72…4a86 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x0110}
0x4a86…4aae Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0124}
0x4aae…4adc Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x014c}
0x4adc…4af0 Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x002f, t01=0x017a}
0x4af0…4b00 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x018e}
0x4b00…4b0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x000e}
0x4b0e…4b54 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x001c}
0x4b54…4b9a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0062}
0x4b9a…4be0 Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x00a8}
0x4be0…4c26 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x00ee}
0x4c26…4c6c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x0134}
0x4c6c…4c80 Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0030, t01=0x017a}
0x4c80…4ca2 Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0030, t01=0x018e}
0x4ca2…4cbe Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0031, t01=0x0020}
0x4cbe…4ce2 Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0031, t01=0x003c}
0x4ce2…4d00 Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0031, t01=0x0060}
0x4d00…4d16 Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0031, t01=0x007e}
0x4d16…4d38 Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x0094}
0x4d38…4d66 Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x00b6}
0x4d66…4d7e Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x00e4}
0x4d7e…4d9e Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x00fc}
0x4d9e…4db8 Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x011c}
0x4db8…4dd2 Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x0136}
0x4dd2…4dee Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x0150}
0x4dee…4e0e Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0031, t01=0x016c}
0x4e0e…4e1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x018c}
0x4e1c…4e60 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x000a}
0x4e60…4ea4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x004e}
0x4ea4…4ee8 Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0032, t01=0x0092}
0x4ee8…4f2c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x00d6}
0x4f2c…4f70 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x011a}
0x4f70…4f84 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x015e}
0x4f84…4f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f8e…4fa8 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0032, t01=0x017c}
0x4fa8…4fbe Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0033, t01=0x0008}
0x4fbe…4fe2 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0033, t01=0x001e}
0x4fe2…5000 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0033, t01=0x0042}
0x5000…5016 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x0060}
0x5016…502c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0033, t01=0x0076}
0x502c…5042 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x008c}
0x5042…5060 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x00a2}
0x5060…5078 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x00c0}
0x5078…5098 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x00d8}
0x5098…50b0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x00f8}
0x50b0…50c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x0110}
0x50c8…50d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0128}
0x50d2…5116 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x0132}
0x5116…5126 Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0033, t01=0x0176}
0x5126…5150 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0033, t01=0x0186}
0x5150…516a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x0020}
0x516a…5186 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0034, t01=0x003a}
0x5186…51b2 Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0034, t01=0x0056}
0x51b2…51d4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0034, t01=0x0082}
0x51d4…51ee Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x00a4}
0x51ee…5210 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x00be}
0x5210…522e Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x00e0}
0x522e…5244 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x00fe}
0x5244…5262 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x0114}
0x5262…5284 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x0132}
0x5284…529c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x0154}
0x529c…52bc Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0034, t01=0x016c}
0x52bc…52d4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0034, t01=0x018c}
0x52d4…5306 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0035, t01=0x0014}
0x5306…531a Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0035, t01=0x0046}
0x531a…534e Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0035, t01=0x005a}
0x534e…536c Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0035, t01=0x008e}
0x536c…537e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x00ac}
0x537e…5390 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x00be}
0x5390…53b4 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =7«, t00=0x0035, t01=0x00d0}
0x53b4…53c8 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x00f4}
0x53c8…53da Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0108}
0x53da…53ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x011a}
0x53ea…53f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x012a}
0x53f8…543c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0138}
0x543c…5480 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0035, t01=0x017c}
0x5480…54c4 Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0036, t01=0x0030}
0x54c4…5508 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0074}
0x5508…554c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x00b8}
0x554c…5560 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x00fc}
0x5560…556a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0110}
0x556a…5584 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x011a}
0x5584…5598 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x0134}
0x5598…55ae Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0148}
0x55ae…55c4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x015e}
0x55c4…55da Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x0174}
0x55da…55f0 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x018a}
0x55f0…5606 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0037, t01=0x0010}
0x5606…561c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0037, t01=0x0026}
0x561c…5634 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0037, t01=0x003c}
0x5634…5654 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x0054}
0x5654…566c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0037, t01=0x0074}
0x566c…5684 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x008c}
0x5684…568e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a4}
0x568e…56d2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x00ae}
0x56d2…56e4 Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x00f2}
0x56e4…5706 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x0104}
0x5706…5720 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0126}
0x5720…5732 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x0140}
0x5732…5750 Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x0152}
0x5750…577c Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0037, t01=0x0170}
0x577c…579c Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0038, t01=0x000c}
0x579c…57b0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0038, t01=0x002c}
0x57b0…57c2 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0038, t01=0x0040}
0x57c2…57d8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0038, t01=0x0052}
0x57d8…57f2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x0068}
0x57f2…5804 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x0082}
0x5804…5820 Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0038, t01=0x0094}
0x5820…584c Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x00b0}
0x584c…5864 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x00dc}
0x5864…5878 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x00f4}
0x5878…588a Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x0108}
0x588a…58ac Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x011a}
0x58ac…58c6 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x013c}
0x58c6…58ec Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x0156}
0x58ec…5906 Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0038, t01=0x017c}
0x5906…5918 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0039, t01=0x0008}
0x5918…592a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0039, t01=0x001a}
0x592a…5940 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0039, t01=0x002c}
0x5940…5954 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x0042}
0x5954…597e Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0039, t01=0x0056}
0x597e…59ac Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0039, t01=0x0080}
0x59ac…59c8 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0039, t01=0x00ae}
0x59c8…59da Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x00ca}
0x59da…59ee Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x00dc}
0x59ee…5a14 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x00f0}
0x5a14…5a32 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x0116}
0x5a32…5a46 Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x0134}
0x5a46…5a56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0148}
0x5a56…5a64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0158}
0x5a64…5aa6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x0166}
0x5aa6…5ae8 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0018}
0x5ae8…5b2a Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x003a, t01=0x005a}
0x5b2a…5b6c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x009c}
0x5b6c…5bae Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x00de}
0x5bae…5bc2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x0120}
0x5bc2…5bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0134}
0x5bcc…5be6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x013e}
0x5be6…5bfc Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x0158}
0x5bfc…5c12 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003a, t01=0x016e}
0x5c12…5c30 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x0184}
0x5c30…5c46 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003b, t01=0x0012}
0x5c46…5c5c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003b, t01=0x0028}
0x5c5c…5c72 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003b, t01=0x003e}
0x5c72…5c8a Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003b, t01=0x0054}
0x5c8a…5caa Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x006c}
0x5caa…5cc2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003b, t01=0x008c}
0x5cc2…5cda Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x00a4}
0x5cda…5ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00bc}
0x5ce4…5d1c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003b, t01=0x00c6}
0x5d1c…5d2c Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x00fe}
0x5d2c…5d44 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x010e}
0x5d44…5d64 Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x0126}
0x5d64…5d82 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0146}
0x5d82…5d92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0164}
0x5d92…5da0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0174}
0x5da0…5de4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003b, t01=0x0182}
0x5de4…5e28 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0036}
0x5e28…5e6c Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003c, t01=0x007a}
0x5e6c…5eb0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00be}
0x5eb0…5ef4 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x0102}
0x5ef4…5f08 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0146}
0x5f08…5f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x015a}
0x5f12…5f2c Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x0164}
0x5f2c…5f40 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003c, t01=0x017e}
0x5f40…5f64 (61, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003d, t01=0x0004}
0x5f64…5f82 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003d, t01=0x0028}
0x5f82…5f98 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003d, t01=0x0046}
0x5f98…5fb6 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003d, t01=0x005c}
0x5fb6…5fcc Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003d, t01=0x007a}
0x5fcc…5fe2 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003d, t01=0x0090}
0x5fe2…5ffa Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003d, t01=0x00a6}
0x5ffa…6012 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x00be}
0x6012…602a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x00d6}
0x602a…6042 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x00ee}
0x6042…604c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0106}
0x604c…6090 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x0110}
0x6090…60a0 Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x0154}
0x60a0…60b4 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x0164}
0x60b4…60e6 Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003d, t01=0x0178}
0x60e6…6100 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT300 YES «, t00=0x003e, t01=0x001a}
0x6100…6134 Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003e, t01=0x0034}
0x6134…615a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003e, t01=0x0068}
0x615a…6182 Head {h00=0x0024, h01=0x0050, text=» RF(Z) PT210 YES, PROCESS IT DK1«, t00=0x003e, t01=0x008e}
0x6182…6196 Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003e, t01=0x00b6}
0x6196…61b8 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x00ca}
0x61b8…61da Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x00ec}
0x61da…6200 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x010e}
0x6200…6218 Head {h00=0x0014, h01=0x0050, text=»PT210 EQU * DK1«, t00=0x003e, t01=0x0134}
0x6218…622a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x014c}
0x622a…6248 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x015e}
0x6248…6262 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003e, t01=0x017c}
0x6262…6286 Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003f, t01=0x0008}
0x6286…629e Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003f, t01=0x002c}
0x629e…62b0 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003f, t01=0x0044}
0x62b0…62c8 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003f, t01=0x0056}
0x62c8…62da Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x006e}
0x62da…62ec Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x0080}
0x62ec…62fe Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003f, t01=0x0092}
0x62fe…6316 Head {h00=0x0014, h01=0x0050, text=»PT300 EQU * DK1«, t00=0x003f, t01=0x00a4}
0x6316…633c Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003f, t01=0x00bc}
0x633c…6366 Head {h00=0x0026, h01=0x0050, text=» RF(Z) PT410 YES, PROCESS IT. DK1 «, t00=0x003f, t01=0x00e2}
0x6366…637a Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003f, t01=0x010c}
0x637a…639c Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x0120}
0x639c…63be Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003f, t01=0x0142}
0x63be…63e2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003f, t01=0x0164}
0x63e2…63fa Head {h00=0x0014, h01=0x0050, text=»PT410 EQU * DK1«, t00=0x003f, t01=0x0188}
0x63fa…6416 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0040, t01=0x0010}
0x6416…6434 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x0040, t01=0x002c}
0x6434…644e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x0040, t01=0x004a}
0x644e…6466 Head {h00=0x0014, h01=0x0050, text=»PT420 EQU * DK1«, t00=0x0040, t01=0x0064}
0x6466…6478 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x007c}
0x6478…648a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x008e}
0x648a…649c Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x0040, t01=0x00a0}
0x649c…64b0 Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x0040, t01=0x00b2}
0x64b0…64da Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET ATTRIBUTE AGAIN DK1«, t00=0x0040, t01=0x00c6}
0x64da…64f8 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0040, t01=0x00f0}
0x64f8…6512 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT420 YES «, t00=0x0040, t01=0x010e}
0x6512…6524 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x0128}
0x6524…6536 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x013a}
0x6536…6558 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0040, t01=0x014c}
0x6558…656c Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x0040, t01=0x016e}
0x656c…6584 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x0040, t01=0x0182}
0x6584…6598 Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x0041, t01=0x000a}
0x6598…65b6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x001e}
0x65b6…65c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x003c}
0x65c6…65d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x004c}
0x65d4…661a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x005a}
0x661a…6660 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x00a0}
0x6660…66a6 Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0041, t01=0x00e6}
0x66a6…66ec Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x012c}
0x66ec…6732 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x0172}
0x6732…6746 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x0028}
0x6746…6750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x003c}
0x6750…676a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0042, t01=0x0046}
0x676a…678c Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0042, t01=0x0060}
0x678c…67b0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0042, t01=0x0082}
0x67b0…67ce Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0042, t01=0x00a6}
0x67ce…67e4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0042, t01=0x00c4}
0x67e4…680c Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0042, t01=0x00da}
0x680c…6822 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0042, t01=0x0102}
0x6822…6840 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0042, t01=0x0118}
0x6840…6858 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0042, t01=0x0136}
0x6858…6878 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x014e}
0x6878…6890 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0042, t01=0x016e}
0x6890…68a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0186}
0x68a8…68b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x000e}
0x68b2…68ec Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0043, t01=0x0018}
0x68ec…68fc Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0043, t01=0x0052}
0x68fc…691e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0043, t01=0x0062}
0x691e…6938 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0084}
0x6938…694a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x009e}
0x694a…6966 Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0043, t01=0x00b0}
0x6966…6992 Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x00cc}
0x6992…69b2 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0043, t01=0x00f8}
0x69b2…69c6 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0043, t01=0x0118}
0x69c6…69d8 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0043, t01=0x012c}
0x69d8…69fa Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0043, t01=0x013e}
0x69fa…6a14 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0160}
0x6a14…6a26 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x017a}
0x6a26…6a44 Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0043, t01=0x018c}
0x6a44…6a70 Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x001a}
0x6a70…6a88 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0044, t01=0x0046}
0x6a88…6a9c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0044, t01=0x005e}
0x6a9c…6aae Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0044, t01=0x0072}
0x6aae…6ad4 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0044, t01=0x0084}
0x6ad4…6aee Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0044, t01=0x00aa}
0x6aee…6b10 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0044, t01=0x00c4}
0x6b10…6b2a Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x00e6}
0x6b2a…6b3c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0100}
0x6b3c…6b58 Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0044, t01=0x0112}
0x6b58…6b84 Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x012e}
0x6b84…6b9a Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0044, t01=0x015a}
0x6b9a…6bb4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x0170}
0x6bb4…6bc8 Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0044, t01=0x018a}
0x6bc8…6bee Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0045, t01=0x000e}
0x6bee…6c06 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0045, t01=0x0034}
0x6c06…6c18 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0045, t01=0x004c}
0x6c18…6c30 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0045, t01=0x005e}
0x6c30…6c42 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0045, t01=0x0076}
0x6c42…6c54 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x0088}
0x6c54…6c78 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0045, t01=0x009a}
0x6c78…6c9c Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0045, t01=0x00be}
0x6c9c…6cb8 Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0045, t01=0x00e2}
0x6cb8…6ce2 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0045, t01=0x00fe}
0x6ce2…6d00 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x0128}
0x6d00…6d12 Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0045, t01=0x0146}
0x6d12…6d26 Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0045, t01=0x0158}
0x6d26…6d4c Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0045, t01=0x016c}
0x6d4c…6d6a (70, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0046, t01=0x0004}
0x6d6a…6d7e Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0046, t01=0x0022}
0x6d7e…6d8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0036}
0x6d8e…6d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0046}
0x6d9c…6dda Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x0054}
0x6dda…6e18 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0092}
0x6e18…6e56 Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0046, t01=0x00d0}
0x6e56…6e94 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x010e}
0x6e94…6ed2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x014c}
0x6ed2…6ee6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0046, t01=0x018a}
0x6ee6…6ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x000e}
0x6ef0…6f0a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0047, t01=0x0018}
0x6f0a…6f1e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0047, t01=0x0032}
0x6f1e…6f34 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0047, t01=0x0046}
0x6f34…6f4a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0047, t01=0x005c}
0x6f4a…6f60 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0047, t01=0x0072}
0x6f60…6f76 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0047, t01=0x0088}
0x6f76…6f8c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x009e}
0x6f8c…6fa2 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x00b4}
0x6fa2…6fba Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0047, t01=0x00ca}
0x6fba…6fda Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x00e2}
0x6fda…6ff2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0047, t01=0x0102}
0x6ff2…700a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x011a}
0x700a…7014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0132}
0x7014…7054 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x013c}
0x7054…7066 Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0047, t01=0x017c}
0x7066…7088 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0047, t01=0x018e}
0x7088…70a2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x0020}
0x70a2…70b4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x003a}
0x70b4…70d2 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0048, t01=0x004c}
0x70d2…70fe Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x006a}
0x70fe…711e Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0048, t01=0x0096}
0x711e…7132 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0048, t01=0x00b6}
0x7132…7144 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0048, t01=0x00ca}
0x7144…7166 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0048, t01=0x00dc}
0x7166…7180 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x00fe}
0x7180…7192 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0118}
0x7192…71b0 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0048, t01=0x012a}
0x71b0…71dc Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x0148}
0x71dc…71f4 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0048, t01=0x0174}
0x71f4…7208 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0048, t01=0x018c}
0x7208…721a Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0049, t01=0x0010}
0x721a…723c Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0049, t01=0x0022}
0x723c…7256 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0049, t01=0x0044}
0x7256…727a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 RESTORE ADDR. =6 «, t00=0x0049, t01=0x005e}
0x727a…72a0 Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0049, t01=0x0082}
0x72a0…72ba Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0049, t01=0x00a8}
0x72ba…72d8 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 SAVE A1 =6 «, t00=0x0049, t01=0x00c2}
0x72d8…72ee Head {h00=0x0012, h01=0x0050, text=» LDR A1,A4 =6«, t00=0x0049, t01=0x00e0}
0x72ee…731e Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTR. BACKWARDS =6«, t00=0x0049, t01=0x00f6}
0x731e…733e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 RESTORE A1 =6«, t00=0x0049, t01=0x0126}
0x733e…7366 Head {h00=0x0024, h01=0x0050, text=» STR A8,A14 SAVE DCBF-POINTER =5«, t00=0x0049, t01=0x0146}
0x7366…7392 Head {h00=0x0028, h01=0x0050, text=» SUKL A14,2 ADJUST STACK POINTER =5 «, t00=0x0049, t01=0x016e}
0x7392…73c0 Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x004a, t01=0x000a}
0x73c0…73ec Head {h00=0x0028, h01=0x0050, text=» ADKL A14,2 ADJUST STACK POINTER =5 «, t00=0x004a, t01=0x0038}
0x73ec…7418 Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A14 RESTORE DCBF-POINTER =5«, t00=0x004a, t01=0x0064}
0x7418…7436 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x004a, t01=0x0090}
0x7436…7460 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x004a, t01=0x00ae}
0x7460…7472 Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x004a, t01=0x00d8}
0x7472…7486 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x004a, t01=0x00ea}
0x7486…74a4 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x004a, t01=0x00fe}
0x74a4…74c2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x004a, t01=0x011c}
0x74c2…74d6 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x004a, t01=0x013a}
0x74d6…74e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x014e}
0x74e6…74f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x015e}
0x74f4…7534 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004a, t01=0x016c}
0x7534…7574 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x001c}
0x7574…75b4 Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x004b, t01=0x005c}
0x75b4…75f4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x009c}
0x75f4…7634 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004b, t01=0x00dc}
0x7634…7648 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004b, t01=0x011c}
0x7648…7652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0130}
0x7652…766c Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x004b, t01=0x013a}
0x766c…7680 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004b, t01=0x0154}
0x7680…76a4 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004b, t01=0x0168}
0x76a4…76c2 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004b, t01=0x018c}
0x76c2…76d8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004c, t01=0x001a}
0x76d8…7700 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004c, t01=0x0030}
0x7700…7716 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004c, t01=0x0058}
0x7716…772c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004c, t01=0x006e}
0x772c…7744 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004c, t01=0x0084}
0x7744…7764 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004c, t01=0x009c}
0x7764…777c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004c, t01=0x00bc}
0x777c…7794 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004c, t01=0x00d4}
0x7794…779e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00ec}
0x779e…77d6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004c, t01=0x00f6}
0x77d6…77e8 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004c, t01=0x012e}
0x77e8…7812 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004c, t01=0x0140}
0x7812…7836 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004c, t01=0x016a}
0x7836…7848 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004c, t01=0x018e}
0x7848…785c Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004d, t01=0x0010}
0x785c…7882 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004d, t01=0x0024}
0x7882…7894 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004d, t01=0x004a}
0x7894…78a6 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004d, t01=0x005c}
0x78a6…78ba Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004d, t01=0x006e}
0x78ba…78ca Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004d, t01=0x0082}
0x78ca…78da Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004d, t01=0x0092}
0x78da…78ea Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004d, t01=0x00a2}
0x78ea…78fa Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004d, t01=0x00b2}
0x78fa…791c Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004d, t01=0x00c2}
0x791c…793a Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004d, t01=0x00e4}
0x793a…7952 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004d, t01=0x0102}
0x7952…7964 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004d, t01=0x011a}
0x7964…797c Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004d, t01=0x012c}
0x797c…79a6 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004d, t01=0x0144}
0x79a6…79b8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004d, t01=0x016e}
0x79b8…79ca Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0180}
0x79ca…79e4 (78, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004e, t01=0x0004}
0x79e4…79f8 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004e, t01=0x001e}
0x79f8…7a08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0032}
0x7a08…7a16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0042}
0x7a16…7a5e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004e, t01=0x0050}
0x7a5e…7aa6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x0098}
0x7aa6…7aee Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004e, t01=0x00e0}
0x7aee…7b36 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x0128}
0x7b36…7b7e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004e, t01=0x0170}
0x7b7e…7b92 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004f, t01=0x0028}
0x7b92…7b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x003c}
0x7b9c…7bae Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004f, t01=0x0046}
0x7bae…7bd2 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004f, t01=0x0058}
0x7bd2…7bf0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004f, t01=0x007c}
0x7bf0…7c06 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004f, t01=0x009a}
0x7c06…7c1c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004f, t01=0x00b0}
0x7c1c…7c3e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004f, t01=0x00c6}
0x7c3e…7c5e Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004f, t01=0x00e8}
0x7c5e…7c7e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004f, t01=0x0108}
0x7c7e…7c9c Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004f, t01=0x0128}
0x7c9c…7cb4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004f, t01=0x0146}
0x7cb4…7cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015e}
0x7cbe…7d06 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004f, t01=0x0168}
0x7d06…7d1a Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x0050, t01=0x0020}
0x7d1a…7d2c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0050, t01=0x0034}
0x7d2c…7d46 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x0050, t01=0x0046}
0x7d46…7d6e Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x0050, t01=0x0060}
0x7d6e…7d98 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x0050, t01=0x0088}
0x7d98…7db0 Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x0050, t01=0x00b2}
0x7db0…7dde Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0050, t01=0x00ca}
0x7dde…7df0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0050, t01=0x00f8}
0x7df0…7e18 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x0050, t01=0x010a}
0x7e18…7e3e Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x0050, t01=0x0132}
0x7e3e…7e6a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0050, t01=0x0158}
0x7e6a…7e8e Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x0050, t01=0x0184}
0x7e8e…7ea2 Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x0051, t01=0x0018}
0x7ea2…7ec6 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x0051, t01=0x002c}
0x7ec6…7ee0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x0051, t01=0x0050}
0x7ee0…7f02 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x0051, t01=0x006a}
0x7f02…7f16 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x0051, t01=0x008c}
0x7f16…7f2c Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0051, t01=0x00a0}
0x7f2c…7f40 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0051, t01=0x00b6}
0x7f40…7f54 Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x0051, t01=0x00ca}
0x7f54…7f74 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x0051, t01=0x00de}
0x7f74…7f8e Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x0051, t01=0x00fe}
0x7f8e…7fb8 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x0051, t01=0x0118}
0x7fb8…7fca Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x0142}
0x7fca…7fea Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0051, t01=0x0154}
0x7fea…8010 Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0051, t01=0x0174}
0x8010…803e Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0052, t01=0x000a}
0x803e…8050 Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0052, t01=0x0038}
0x8050…8064 Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0052, t01=0x004a}
0x8064…808c Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0052, t01=0x005e}
0x808c…80ae Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0052, t01=0x0086}
0x80ae…80d8 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0052, t01=0x00a8}
0x80d8…80fe Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0052, t01=0x00d2}
0x80fe…810a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00f8}
0x810a…811a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x0104}
0x811a…8128 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0114}
0x8128…816e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0052, t01=0x0122}
0x816e…81b4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0052, t01=0x0168}
0x81b4…81fa Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0053, t01=0x001e}
0x81fa…8240 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0053, t01=0x0064}
0x8240…8286 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0053, t01=0x00aa}
0x8286…829a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0053, t01=0x00f0}
0x829a…82a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0104}
0x82a4…82b8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0053, t01=0x010e}
0x82b8…82dc Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0053, t01=0x0122}
0x82dc…82fa Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0053, t01=0x0146}
0x82fa…831c Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0053, t01=0x0164}
0x831c…8344 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0053, t01=0x0186}
0x8344…8366 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0054, t01=0x001e}
0x8366…8386 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0054, t01=0x0040}
0x8386…839e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0054, t01=0x0060}
0x839e…83be Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0054, t01=0x0078}
0x83be…83d6 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0054, t01=0x0098}
0x83d6…83ee Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0054, t01=0x00b0}
0x83ee…83f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00c8}
0x83f8…843e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x00d2}
0x843e…8452 Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0054, t01=0x0118}
0x8452…8464 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0054, t01=0x012c}
0x8464…847c Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0054, t01=0x013e}
0x847c…848e Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0054, t01=0x0156}
0x848e…84a6 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0054, t01=0x0168}
0x84a6…84bc Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0054, t01=0x0180}
0x84bc…84ea Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0055, t01=0x0008}
0x84ea…850c Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0055, t01=0x0036}
0x850c…8522 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0055, t01=0x0058}
0x8522…8548 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0055, t01=0x006e}
0x8548…8578 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0055, t01=0x0094}
0x8578…859e Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0055, t01=0x00c4}
0x859e…85b2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0055, t01=0x00ea}
0x85b2…85c8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0055, t01=0x00fe}
0x85c8…85f2 Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0055, t01=0x0114}
0x85f2…8606 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0055, t01=0x013e}
0x8606…8634 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0055, t01=0x0152}
0x8634…8656 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0055, t01=0x0180}
0x8656…8670 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0056, t01=0x0012}
0x8670…868a Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0056, t01=0x002c}
0x868a…86ac Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0056, t01=0x0046}
0x86ac…86c0 Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0056, t01=0x0068}
0x86c0…86da Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0056, t01=0x007c}
0x86da…86f4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0056, t01=0x0096}
0x86f4…8712 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0056, t01=0x00b0}
0x8712…872c Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0056, t01=0x00ce}
0x872c…8754 Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0056, t01=0x00e8}
0x8754…8766 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x0110}
0x8766…877a Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0056, t01=0x0122}
0x877a…8792 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0056, t01=0x0136}
0x8792…87ac Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0056, t01=0x014e}
0x87ac…87ce Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0056, t01=0x0168}
0x87ce…87e0 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0056, t01=0x018a}
0x87e0…87f4 Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0057, t01=0x000c}
0x87f4…880c Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0057, t01=0x0020}
0x880c…8826 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0057, t01=0x0038}
0x8826…8848 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0057, t01=0x0052}
0x8848…885a Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0057, t01=0x0074}
0x885a…886e Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0057, t01=0x0086}
0x886e…8888 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0057, t01=0x009a}
0x8888…88a2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0057, t01=0x00b4}
0x88a2…88c8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0057, t01=0x00ce}
0x88c8…88dc Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0057, t01=0x00f4}
0x88dc…88fe Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0057, t01=0x0108}
0x88fe…8924 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0057, t01=0x012a}
0x8924…893c Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0057, t01=0x0150}
0x893c…894e Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0057, t01=0x0168}
0x894e…8966 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0057, t01=0x017a}
0x8966…8978 (88, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0058, t01=0x0004}
0x8978…898a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0058, t01=0x0016}
0x898a…899c Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0058, t01=0x0028}
0x899c…89b0 Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0058, t01=0x003a}
0x89b0…89c6 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x004e}
0x89c6…89e8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0058, t01=0x0064}
0x89e8…8a04 Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0058, t01=0x0086}
0x8a04…8a16 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0058, t01=0x00a2}
0x8a16…8a28 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0058, t01=0x00b4}
0x8a28…8a3e Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x00c6}
0x8a3e…8a50 Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0058, t01=0x00dc}
0x8a50…8a64 Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0058, t01=0x00ee}
0x8a64…8a8e Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0058, t01=0x0102}
0x8a8e…8ab8 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0058, t01=0x012c}
0x8ab8…8ad2 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0058, t01=0x0156}
0x8ad2…8af0 Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0058, t01=0x0170}
0x8af0…8b02 Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0058, t01=0x018e}
0x8b02…8b16 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0059, t01=0x0010}
0x8b16…8b2e Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0059, t01=0x0024}
0x8b2e…8b40 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0059, t01=0x003c}
0x8b40…8b72 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0059, t01=0x004e}
0x8b72…8b86 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0059, t01=0x0080}
0x8b86…8b9a Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0059, t01=0x0094}
0x8b9a…8bca Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x00a8}
0x8bca…8bf0 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x00d8}
0x8bf0…8bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00fe}
0x8bfc…8c0c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x010a}
0x8c0c…8c1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x011a}
0x8c1a…8c5e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x0128}
0x8c5e…8ca2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0059, t01=0x016c}
0x8ca2…8cda Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x005a, t01=0x0020}
0x8cda…8d1e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0058}
0x8d1e…8d62 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x009c}
0x8d62…8d76 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005a, t01=0x00e0}
0x8d76…8d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00f4}
0x8d80…8d9a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005a, t01=0x00fe}
0x8d9a…8dba Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x0118}
0x8dba…8dd8 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x005a, t01=0x0138}
0x8dd8…8df0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x0156}
0x8df0…8dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x016e}
0x8dfa…8e3e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x0178}
0x8e3e…8e52 Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x005b, t01=0x002c}
0x8e52…8e64 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005b, t01=0x0040}
0x8e64…8e92 Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x005b, t01=0x0052}
0x8e92…8ec2 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x005b, t01=0x0080}
0x8ec2…8ee8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x005b, t01=0x00b0}
0x8ee8…8efe Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x005b, t01=0x00d6}
0x8efe…8f16 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x00ec}
0x8f16…8f3c Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x0104}
0x8f3c…8f56 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x005b, t01=0x012a}
0x8f56…8f84 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x005b, t01=0x0144}
0x8f84…8f90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0172}
0x8f90…8fa2 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005b, t01=0x017e}
0x8fa2…8fb6 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005b, t01=0x0190}
0x8fb6…8fd6 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005c, t01=0x0014}
0x8fd6…8ffc Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005c, t01=0x0034}
0x8ffc…901a Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005c, t01=0x005a}
0x901a…902c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005c, t01=0x0078}
0x902c…9042 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005c, t01=0x008a}
0x9042…9064 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005c, t01=0x00a0}
0x9064…9090 Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005c, t01=0x00c2}
0x9090…90aa Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005c, t01=0x00ee}
0x90aa…90d2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005c, t01=0x0108}
0x90d2…9102 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0130}
0x9102…911a Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005c, t01=0x0160}
0x911a…9132 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005c, t01=0x0178}
0x9132…9158 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005c, t01=0x0190}
0x9158…9172 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005d, t01=0x0026}
0x9172…91a6 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005d, t01=0x0040}
0x91a6…91ba Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005d, t01=0x0074}
0x91ba…91e6 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005d, t01=0x0088}
0x91e6…9208 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005d, t01=0x00b4}
0x9208…921a Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005d, t01=0x00d6}
0x921a…922e Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005d, t01=0x00e8}
0x922e…9258 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005d, t01=0x00fc}
0x9258…9272 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005d, t01=0x0126}
0x9272…9286 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005d, t01=0x0140}
0x9286…92ae Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005d, t01=0x0154}
0x92ae…92de Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005d, t01=0x017c}
0x92de…930e Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005e, t01=0x001c}
0x930e…9326 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005e, t01=0x004c}
0x9326…935a Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005e, t01=0x0064}
0x935a…937c Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005e, t01=0x0098}
0x937c…9390 Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005e, t01=0x00ba}
0x9390…93be Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005e, t01=0x00ce}
0x93be…93e8 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005e, t01=0x00fc}
0x93e8…940e Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005e, t01=0x0126}
0x940e…9434 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005e, t01=0x014c}
0x9434…945c Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005e, t01=0x0172}
0x945c…948c Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005f, t01=0x000a}
0x948c…94a0 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005f, t01=0x003a}
0x94a0…94c2 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005f, t01=0x004e}
0x94c2…94da Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005f, t01=0x0070}
0x94da…94f0 Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005f, t01=0x0088}
0x94f0…950e Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005f, t01=0x009e}
0x950e…9526 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005f, t01=0x00bc}
0x9526…953c Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005f, t01=0x00d4}
0x953c…9552 Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005f, t01=0x00ea}
0x9552…9568 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005f, t01=0x0100}
0x9568…957e Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005f, t01=0x0116}
0x957e…9594 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005f, t01=0x012c}
0x9594…95a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0142}
0x95a0…95b2 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005f, t01=0x014e}
0x95b2…95c6 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005f, t01=0x0160}
0x95c6…95e8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x005f, t01=0x0174}
0x95e8…9602 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0060, t01=0x0008}
0x9602…9616 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x0060, t01=0x0022}
0x9616…9630 Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x0060, t01=0x0036}
0x9630…9642 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0060, t01=0x0050}
0x9642…9660 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x0060, t01=0x0062}
0x9660…9674 Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x0060, t01=0x0080}
0x9674…9680 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0094}
0x9680…9690 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00a0}
0x9690…969e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x00b0}
0x969e…96e4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x00be}
0x96e4…972a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0060, t01=0x0104}
0x972a…9770 Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x0060, t01=0x014a}
0x9770…97b6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0060, t01=0x0190}
0x97b6…97fc Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x0046}
0x97fc…9810 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x008c}
0x9810…981a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00a0}
0x981a…9834 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0061, t01=0x00aa}
0x9834…9854 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0061, t01=0x00c4}
0x9854…986c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0061, t01=0x00e4}
0x986c…9884 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0061, t01=0x00fc}
0x9884…988e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0114}
0x988e…98d4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x011e}
0x98d4…98e8 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0061, t01=0x0164}
0x98e8…9908 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0061, t01=0x0178}
0x9908…9922 Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0062, t01=0x0008}
0x9922…994a Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0062, t01=0x0022}
0x994a…9964 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0062, t01=0x004a}
0x9964…9976 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0062, t01=0x0064}
0x9976…998a Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0062, t01=0x0076}
0x998a…99a8 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0062, t01=0x008a}
0x99a8…99d4 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0062, t01=0x00a8}
0x99d4…99ee Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0062, t01=0x00d4}
0x99ee…9a02 Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0062, t01=0x00ee}
0x9a02…9a14 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0062, t01=0x0102}
0x9a14…9a40 Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0062, t01=0x0114}
0x9a40…9a6c Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0062, t01=0x0140}
0x9a6c…9a92 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0062, t01=0x016c}
0x9a92…9aa4 (99, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0063, t01=0x0004}
0x9aa4…9aba Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0063, t01=0x0016}
0x9aba…9ade Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0063, t01=0x002c}
0x9ade…9af8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0063, t01=0x0050}
0x9af8…9b18 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0063, t01=0x006a}
0x9b18…9b3a Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0063, t01=0x008a}
0x9b3a…9b46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00ac}
0x9b46…9b58 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0063, t01=0x00b8}
0x9b58…9b6e Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0063, t01=0x00ca}
0x9b6e…9b80 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0063, t01=0x00e0}
0x9b80…9b98 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0063, t01=0x00f2}
0x9b98…9ba4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0063, t01=0x010a}
0x9ba4…9bb4 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0063, t01=0x0116}
0x9bb4…9bc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0126}
0x9bc0…9bd4 Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0063, t01=0x0132}
0x9bd4…9c00 Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0063, t01=0x0146}
0x9c00…9c1e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0063, t01=0x0172}
0x9c1e…9c32 Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0063, t01=0x0190}
0x9c32…9c42 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0014}
0x9c42…9c50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0024}
0x9c50…9c8a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x0032}
0x9c8a…9cc4 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x006c}
0x9cc4…9cfe Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0064, t01=0x00a6}
0x9cfe…9d38 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x00e0}
0x9d38…9d72 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x011a}
0x9d72…9d86 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0064, t01=0x0154}
0x9d86…9d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0168}
0x9d90…9da4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0064, t01=0x0172}
0x9da4…9dba Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0064, t01=0x0186}
0x9dba…9dd0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0065, t01=0x000c}
0x9dd0…9de6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0065, t01=0x0022}
0x9de6…9dfc Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0065, t01=0x0038}
0x9dfc…9e1e Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0065, t01=0x004e}
0x9e1e…9e3c Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0065, t01=0x0070}
0x9e3c…9e54 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0065, t01=0x008e}
0x9e54…9e6c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0065, t01=0x00a6}
0x9e6c…9e84 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0065, t01=0x00be}
0x9e84…9e9c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0065, t01=0x00d6}
0x9e9c…9ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00ee}
0x9ea6…9ee2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0065, t01=0x00f8}
0x9ee2…9ef6 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0065, t01=0x0134}
0x9ef6…9f1c Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0065, t01=0x0148}
0x9f1c…9f36 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0065, t01=0x016e}
0x9f36…9f4a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0065, t01=0x0188}
0x9f4a…9f60 Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0066, t01=0x000c}
0x9f60…9f8e Head {h00=0x002a, h01=0x0050, text=»* CONVERSION DELETED * DK 82-03-30 *«, t00=0x0066, t01=0x0022}
0x9f8e…9f9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x0050}
0x9f9a…9fc0 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0066, t01=0x005c}
0x9fc0…9fd2 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0066, t01=0x0082}
0x9fd2…9fe4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0066, t01=0x0094}
0x9fe4…9ff8 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0066, t01=0x00a6}
0x9ff8…a008 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00ba}
0xa008…a016 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ca}
0xa016…a05e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0066, t01=0x00d8}
0xa05e…a0a6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0120}
0xa0a6…a0ee Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0066, t01=0x0168}
0xa0ee…a136 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0067, t01=0x0020}
0xa136…a17e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0067, t01=0x0068}
0xa17e…a192 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00b0}
0xa192…a19c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00c4}
0xa19c…a1b6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0067, t01=0x00ce}
0xa1b6…a1ca Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0067, t01=0x00e8}
0xa1ca…a1ee Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0067, t01=0x00fc}
0xa1ee…a204 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0067, t01=0x0120}
0xa204…a21a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0067, t01=0x0136}
0xa21a…a230 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0067, t01=0x014c}
0xa230…a252 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0067, t01=0x0162}
0xa252…a270 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0067, t01=0x0184}
0xa270…a288 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0068, t01=0x0012}
0xa288…a2a8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0068, t01=0x002a}
0xa2a8…a2c0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0068, t01=0x004a}
0xa2c0…a2d8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x0062}
0xa2d8…a2e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x007a}
0xa2e2…a31e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0068, t01=0x0084}
0xa31e…a332 Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0068, t01=0x00c0}
0xa332…a350 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0068, t01=0x00d4}
0xa350…a37a Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0068, t01=0x00f2}
0xa37a…a394 Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0068, t01=0x011c}
0xa394…a3a6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0068, t01=0x0136}
0xa3a6…a3c2 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0068, t01=0x0148}
0xa3c2…a3d6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0068, t01=0x0164}
0xa3d6…a3ec Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0068, t01=0x0178}
0xa3ec…a424 Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0068, t01=0x018e}
0xa424…a430 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0036}
0xa430…a442 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0069, t01=0x0042}
0xa442…a454 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0069, t01=0x0054}
0xa454…a468 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0069, t01=0x0066}
0xa468…a478 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x007a}
0xa478…a486 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x008a}
0xa486…a4ca Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x0098}
0xa4ca…a50e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0069, t01=0x00dc}
0xa50e…a552 Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0069, t01=0x0120}
0xa552…a596 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0069, t01=0x0164}
0xa596…a5da Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006a, t01=0x0018}
0xa5da…a5ee Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x005c}
0xa5ee…a5f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0070}
0xa5f8…a60a Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x006a, t01=0x007a}
0xa60a…a622 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x008c}
0xa622…a63a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x00a4}
0xa63a…a644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00bc}
0xa644…a686 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00c6}
0xa686…a698 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x006a, t01=0x0108}
0xa698…a6b8 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x006a, t01=0x011a}
0xa6b8…a6c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x013a}
0xa6c8…a6d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x014a}
0xa6d6…a718 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x0158}
0xa718…a75a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x000a}
0xa75a…a79c Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x006b, t01=0x004c}
0xa79c…a7de Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x008e}
0xa7de…a820 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x00d0}
0xa820…a834 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0112}
0xa834…a83e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0126}
0xa83e…a852 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006b, t01=0x0130}
0xa852…a868 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006b, t01=0x0144}
0xa868…a87e Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006b, t01=0x015a}
0xa87e…a894 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006b, t01=0x0170}
0xa894…a8aa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006b, t01=0x0186}
0xa8aa…a8c0 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x000c}
0xa8c0…a8d6 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x0022}
0xa8d6…a8ee Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x0038}
0xa8ee…a906 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006c, t01=0x0050}
0xa906…a91e Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006c, t01=0x0068}
0xa91e…a936 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006c, t01=0x0080}
0xa936…a940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0098}
0xa940…a982 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006c, t01=0x00a2}
0xa982…a996 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006c, t01=0x00e4}
0xa996…a9b6 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006c, t01=0x00f8}
0xa9b6…a9c8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006c, t01=0x0118}
0xa9c8…a9dc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006c, t01=0x012a}
0xa9dc…aa06 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006c, t01=0x013e}
0xaa06…aa2e Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006c, t01=0x0168}
0xaa2e…aa4e Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006c, t01=0x0190}
0xaa4e…aa62 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006d, t01=0x0020}
0xaa62…aa8c Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006d, t01=0x0034}
0xaa8c…aab4 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006d, t01=0x005e}
0xaab4…aac4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0086}
0xaac4…aad2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0096}
0xaad2…ab16 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006d, t01=0x00a4}
0xab16…ab5a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006d, t01=0x00e8}
0xab5a…ab9e Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006d, t01=0x012c}
0xab9e…abe2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006d, t01=0x0170}
0xabe2…ac26 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x0024}
0xac26…ac3a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x0068}
0xac3a…ac44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x007c}
0xac44…ac58 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006e, t01=0x0086}
0xac58…ac7c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006e, t01=0x009a}
0xac7c…ac92 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006e, t01=0x00be}
0xac92…aca8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006e, t01=0x00d4}
0xaca8…acbe Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006e, t01=0x00ea}
0xacbe…acd4 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006e, t01=0x0100}
0xacd4…acea Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006e, t01=0x0116}
0xacea…ad02 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006e, t01=0x012c}
0xad02…ad22 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006e, t01=0x0144}
0xad22…ad3a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006e, t01=0x0164}
0xad3a…ad52 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006e, t01=0x017c}
0xad52…ad5c (111, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0004}
0xad5c…ada2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006f, t01=0x000e}
0xada2…adb6 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006f, t01=0x0054}
0xadb6…adda Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006f, t01=0x0068}
0xadda…adf0 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006f, t01=0x008c}
0xadf0…ae04 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006f, t01=0x00a2}
0xae04…ae18 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006f, t01=0x00b6}
0xae18…ae3a Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006f, t01=0x00ca}
0xae3a…ae54 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006f, t01=0x00ec}
0xae54…ae70 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006f, t01=0x0106}
0xae70…ae90 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006f, t01=0x0122}
0xae90…aea8 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006f, t01=0x0142}
0xaea8…aeca Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006f, t01=0x015a}
0xaeca…aee4 Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x006f, t01=0x017c}
0xaee4…aef8 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x0070, t01=0x0008}
0xaef8…af0a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0070, t01=0x001c}
0xaf0a…af1c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0070, t01=0x002e}
0xaf1c…af2e Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x0070, t01=0x0040}
0xaf2e…af42 Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x0070, t01=0x0052}
0xaf42…af52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0066}
0xaf52…af60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0076}
0xaf60…afa0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x0084}
0xafa0…afe0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x00c4}
0xafe0…b016 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x0070, t01=0x0104}
0xb016…b056 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x013a}
0xb056…b096 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x017a}
0xb096…b0aa Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x002a}
0xb0aa…b0b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x003e}
0xb0b4…b0c8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0071, t01=0x0048}
0xb0c8…b0de Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0071, t01=0x005c}
0xb0de…b0f4 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0071, t01=0x0072}
0xb0f4…b10a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0071, t01=0x0088}
0xb10a…b120 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0071, t01=0x009e}
0xb120…b136 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0071, t01=0x00b4}
0xb136…b14c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0071, t01=0x00ca}
0xb14c…b164 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0071, t01=0x00e0}
0xb164…b184 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x00f8}
0xb184…b19c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x0118}
0xb19c…b1b4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x0130}
0xb1b4…b1be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0148}
0xb1be…b1fa Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0071, t01=0x0152}
0xb1fa…b20e Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0071, t01=0x018e}
0xb20e…b230 Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0072, t01=0x0012}
0xb230…b24c Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0072, t01=0x0034}
0xb24c…b26e Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0072, t01=0x0050}
0xb26e…b286 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0072, t01=0x0072}
0xb286…b2b0 Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0072, t01=0x008a}
0xb2b0…b2c4 Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0072, t01=0x00b4}
0xb2c4…b2d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00c8}
0xb2d4…b2e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x00d8}
0xb2e2…b324 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0072, t01=0x00e6}
0xb324…b366 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0072, t01=0x0128}
0xb366…b3a8 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0072, t01=0x016a}
0xb3a8…b3ea Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0073, t01=0x001c}
0xb3ea…b42c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0073, t01=0x005e}
0xb42c…b440 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x00a0}
0xb440…b44a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00b4}
0xb44a…b46a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0073, t01=0x00be}
0xb46a…b482 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0073, t01=0x00de}
0xb482…b49a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00f6}
0xb49a…b4a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x010e}
0xb4a4…b4e6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0073, t01=0x0118}
0xb4e6…b4fa Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0073, t01=0x015a}
0xb4fa…b520 Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0073, t01=0x016e}
0xb520…b536 (116, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0074, t01=0x0004}
0xb536…b548 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0074, t01=0x001a}
0xb548…b560 Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0074, t01=0x002c}
0xb560…b578 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0074, t01=0x0044}
0xb578…b594 Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0074, t01=0x005c}
0xb594…b5a8 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0074, t01=0x0078}
0xb5a8…b5c0 Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0074, t01=0x008c}
0xb5c0…b5d8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0074, t01=0x00a4}
0xb5d8…b5f6 Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0074, t01=0x00bc}
0xb5f6…b614 Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0074, t01=0x00da}
0xb614…b638 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0074, t01=0x00f8}
0xb638…b652 Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0074, t01=0x011c}
0xb652…b66a Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0074, t01=0x0136}
0xb66a…b684 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0074, t01=0x014e}
0xb684…b6ae Head {h00=0x0026, h01=0x0050, text=»* CALL TO COPP REMOVED, DK1 «, t00=0x0074, t01=0x0168}
0xb6ae…b6c2 (117, 0, 400) Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0075, t01=0x0004}
0xb6c2…b6e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0075, t01=0x0018}
0xb6e8…b6f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x003e}
0xb6f8…b706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x004e}
0xb706…b750 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0075, t01=0x005c}
0xb750…b79a Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x00a6}
0xb79a…b7e4 Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0075, t01=0x00f0}
0xb7e4…b82e Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x013a}
0xb82e…b878 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0075, t01=0x0184}
0xb878…b88c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0076, t01=0x003e}
0xb88c…b896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0052}
0xb896…b8b2 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0076, t01=0x005c}
0xb8b2…b8c6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0076, t01=0x0078}
0xb8c6…b8e6 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0076, t01=0x008c}
0xb8e6…b904 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0076, t01=0x00ac}
0xb904…b924 Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0076, t01=0x00ca}
0xb924…b942 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0076, t01=0x00ea}
0xb942…b964 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0076, t01=0x0108}
0xb964…b984 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0076, t01=0x012a}
0xb984…b99c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0076, t01=0x014a}
0xb99c…b9b4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0076, t01=0x0162}
0xb9b4…b9be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x017a}
0xb9be…ba06 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0076, t01=0x0184}
0xba06…ba1a Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0077, t01=0x003c}
0xba1a…ba44 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0077, t01=0x0050}
0xba44…ba54 Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0077, t01=0x007a}
0xba54…ba68 Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0077, t01=0x008a}
0xba68…ba80 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0077, t01=0x009e}
0xba80…ba92 Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0077, t01=0x00b6}
0xba92…baa6 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0077, t01=0x00c8}
0xbaa6…bab8 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0077, t01=0x00dc}
0xbab8…baca Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x00ee}
0xbaca…badc Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0077, t01=0x0100}
0xbadc…baee Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0112}
0xbaee…bb00 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0077, t01=0x0124}
0xbb00…bb12 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0136}
0xbb12…bb24 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0077, t01=0x0148}
0xbb24…bb36 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x015a}
0xbb36…bb48 Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0077, t01=0x016c}
0xbb48…bb5a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x017e}
0xbb5a…bb6c Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0077, t01=0x0190}
0xbb6c…bb7e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0012}
0xbb7e…bb92 Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0078, t01=0x0024}
0xbb92…bba2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x0038}
0xbba2…bbb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0048}
0xbbb0…bbfc Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0056}
0xbbfc…bc48 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00a2}
0xbc48…bc94 Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0078, t01=0x00ee}
0xbc94…bce0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x013a}
0xbce0…bd2c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0186}
0xbd2c…bd40 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x0042}
0xbd40…bd4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0056}
0xbd4a…bd66 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0079, t01=0x0060}
0xbd66…bd7a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0079, t01=0x007c}
0xbd7a…bd9a Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0079, t01=0x0090}
0xbd9a…bdb8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0079, t01=0x00b0}
0xbdb8…bdda Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0079, t01=0x00ce}
0xbdda…bdf8 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0079, t01=0x00f0}
0xbdf8…be0e Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0079, t01=0x010e}
0xbe0e…be30 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0079, t01=0x0124}
0xbe30…be50 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x0146}
0xbe50…be68 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0079, t01=0x0166}
0xbe68…be80 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0079, t01=0x017e}
0xbe80…be8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0008}
0xbe8a…bed2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x0012}
0xbed2…bee6 Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x007a, t01=0x005a}
0xbee6…bf10 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x007a, t01=0x006e}
0xbf10…bf22 Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x007a, t01=0x0098}
0xbf22…bf36 Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x007a, t01=0x00aa}
0xbf36…bf4e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x007a, t01=0x00be}
0xbf4e…bf62 Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x007a, t01=0x00d6}
0xbf62…bf76 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x007a, t01=0x00ea}
0xbf76…bf8a Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x007a, t01=0x00fe}
0xbf8a…bf9c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0112}
0xbf9c…bfb0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x007a, t01=0x0124}
0xbfb0…bfc2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0138}
0xbfc2…bfd6 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x007a, t01=0x014a}
0xbfd6…bfe8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x015e}
0xbfe8…bffc Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x007a, t01=0x0170}
0xbffc…c00e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0184}
0xc00e…c022 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x007b, t01=0x0008}
0xc022…c034 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x001c}
0xc034…c048 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x007b, t01=0x002e}
0xc048…c05a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x0042}
0xc05a…c06e Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x007b, t01=0x0054}
0xc06e…c07e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0068}
0xc07e…c08c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x0078}
0xc08c…c0cc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x0086}
0xc0cc…c10c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x00c6}
0xc10c…c14c Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x007b, t01=0x0106}
0xc14c…c18c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0146}
0xc18c…c1cc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x0186}
0xc1cc…c1e0 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007c, t01=0x0036}
0xc1e0…c204 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007c, t01=0x004a}
0xc204…c21a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007c, t01=0x006e}
0xc21a…c22e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0084}
0xc22e…c240 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0098}
0xc240…c256 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007c, t01=0x00aa}
0xc256…c26a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00c0}
0xc26a…c27c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00d4}
0xc27c…c292 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007c, t01=0x00e6}
0xc292…c2a6 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00fc}
0xc2a6…c2b8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0110}
0xc2b8…c2ce Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007c, t01=0x0122}
0xc2ce…c2e2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0138}
0xc2e2…c2f4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x014c}
0xc2f4…c30a Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007c, t01=0x015e}
0xc30a…c31e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0174}
0xc31e…c330 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0188}
0xc330…c346 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007d, t01=0x000a}
0xc346…c35a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0020}
0xc35a…c36c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0034}
0xc36c…c382 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007d, t01=0x0046}
0xc382…c396 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x005c}
0xc396…c3a8 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0070}
0xc3a8…c3be Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007d, t01=0x0082}
0xc3be…c3d2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0098}
0xc3d2…c3e4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00ac}
0xc3e4…c3fa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007d, t01=0x00be}
0xc3fa…c40e Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00d4}
0xc40e…c420 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00e8}
0xc420…c436 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007d, t01=0x00fa}
0xc436…c44a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0110}
0xc44a…c45c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0124}
0xc45c…c472 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007d, t01=0x0136}
0xc472…c486 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x014c}
0xc486…c498 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0160}
0xc498…c4ae Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007d, t01=0x0172}
0xc4ae…c4c2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0188}
0xc4c2…c4d4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x000c}
0xc4d4…c4ea Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007e, t01=0x001e}
0xc4ea…c4fe Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0034}
0xc4fe…c510 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0048}
0xc510…c526 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007e, t01=0x005a}
0xc526…c53a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0070}
0xc53a…c54c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0084}
0xc54c…c562 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007e, t01=0x0096}
0xc562…c576 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00ac}
0xc576…c588 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00c0}
0xc588…c59e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007e, t01=0x00d2}
0xc59e…c5b2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00e8}
0xc5b2…c5c4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00fc}
0xc5c4…c5da Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007e, t01=0x010e}
0xc5da…c5ee Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0124}
0xc5ee…c600 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0138}
0xc600…c616 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007e, t01=0x014a}
0xc616…c62a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0160}
0xc62a…c63c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0174}
0xc63c…c652 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007e, t01=0x0186}
0xc652…c666 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x000c}
0xc666…c678 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0020}
0xc678…c68e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007f, t01=0x0032}
0xc68e…c6a2 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0048}
0xc6a2…c6b4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x005c}
0xc6b4…c6ca Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007f, t01=0x006e}
0xc6ca…c6de Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0084}
0xc6de…c6f0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0098}
0xc6f0…c706 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007f, t01=0x00aa}
0xc706…c71a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00c0}
0xc71a…c72c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00d4}
0xc72c…c742 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007f, t01=0x00e6}
0xc742…c756 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00fc}
0xc756…c768 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0110}
0xc768…c77e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007f, t01=0x0122}
0xc77e…c792 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0138}
0xc792…c7a4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x014c}
0xc7a4…c7ba Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007f, t01=0x015e}
0xc7ba…c7ce Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0174}
0xc7ce…c7e0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0188}
0xc7e0…c7f6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x0080, t01=0x000a}
0xc7f6…c80a Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0020}
0xc80a…c81c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0034}
0xc81c…c832 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x0080, t01=0x0046}
0xc832…c846 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x005c}
0xc846…c858 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0070}
0xc858…c86e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x0080, t01=0x0082}
0xc86e…c882 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0098}
0xc882…c894 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x00ac}
0xc894…c8aa Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x0080, t01=0x00be}
0xc8aa…c8be Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x00d4}
0xc8be…c8d0 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x00e8}
0xc8d0…c8e6 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x0080, t01=0x00fa}
0xc8e6…c8fa Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0110}
0xc8fa…c90c Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0124}
0xc90c…c922 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x0080, t01=0x0136}
0xc922…c936 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x014c}
0xc936…c948 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0160}
0xc948…c95e Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x0080, t01=0x0172}
0xc95e…c972 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0188}
0xc972…c984 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x000c}
0xc984…c990 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x001e}
0xc990…c9a0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x002a}
0xc9a0…c9b2 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x003a}
0xc9b2…c9c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x004c}
0xc9c0…ca00 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x005a}
0xca00…ca40 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x009a}
0xca40…ca80 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x0081, t01=0x00da}
0xca80…cac0 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x011a}
0xcac0…cb00 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x015a}
0xcb00…cb14 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x000a}
0xcb14…cb1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x001e}
0xcb1e…cb3e Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0082, t01=0x0028}
0xcb3e…cb5e Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0082, t01=0x0048}
0xcb5e…cb76 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x0068}
0xcb76…cb94 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0082, t01=0x0080}
0xcb94…cbac Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x009e}
0xcbac…cbb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00b6}
0xcbb6…cbf6 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0082, t01=0x00c0}
0xcbf6…cc0a Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0082, t01=0x0100}
0xcc0a…cc22 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0082, t01=0x0114}
0xcc22…cc36 Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0082, t01=0x012c}
0xcc36…cc4a Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0082, t01=0x0140}
0xcc4a…cc6c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0082, t01=0x0154}
0xcc6c…cc78 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0082, t01=0x0176}
0xcc78…cc94 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0082, t01=0x0182}
0xcc94…cca6 Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0083, t01=0x000e}
0xcca6…ccba Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0083, t01=0x0020}
0xccba…ccce Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0083, t01=0x0034}
0xccce…cce0 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0083, t01=0x0048}
0xcce0…ccf2 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0083, t01=0x005a}
0xccf2…cd06 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0083, t01=0x006c}
0xcd06…cd18 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0083, t01=0x0080}
0xcd18…cd28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x0092}
0xcd28…cd36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00a2}
0xcd36…cd78 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x00b0}
0xcd78…cdba Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0083, t01=0x00f2}
0xcdba…cdfc Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0083, t01=0x0134}
0xcdfc…ce3e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0176}
0xce3e…ce80 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x0028}
0xce80…ce94 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x006a}
0xce94…ce9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x007e}
0xce9e…ceba Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0084, t01=0x0088}
0xceba…ced2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00a4}
0xced2…ceea Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00bc}
0xceea…cef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00d4}
0xcef4…cf36 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x00de}
0xcf36…cf4a Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0084, t01=0x0120}
0xcf4a…cf62 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0084, t01=0x0134}
0xcf62…cf82 Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0084, t01=0x014c}
0xcf82…cf96 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0084, t01=0x016c}
0xcf96…cfaa Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0084, t01=0x0180}
0xcfaa…cfc0 (133, 2, 156) Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0085, t01=0x0004}
0xcfc0…cfd2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0085, t01=0x001a}
0xcfd2…cfe4 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0085, t01=0x002c}
0xcfe4…cff8 Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0085, t01=0x003e}
0xcff8…d00a Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0085, t01=0x0052}
0xd00a…d01a Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0085, t01=0x0064}
0xd01a…d02a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0074}
0xd02a…d032 Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x0084}
0xd032…d03e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0085, t01=0x008c}
0xd03e…d042 Head {h00=0x4004, h01=0x0000}
0xd042…d046 00 85 00 98 ┆ ┆
0xd046…d04e (134, 1, 8) 20 04 00 00 00 86 00 04 ┆ ┆
0xd04e…d056 (135, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0xd056…d05e (136, 1, 8) 78 d8 01 34 ff c6 00 00 ┆x 4 ┆
0xd05e…d066 (137, 1, 8) ff 58 00 a8 00 00 80 03 ┆ X ┆
0xd066…d06e (138, 1, 8) 00 00 00 a8 00 00 80 03 ┆ ┆
0xd06e…d0be (139, 0, 400) 82 a0 00 da 85 20 c1 50 95 40 01 80 81 20 43 52 f6 97 cd e6 88 14 83 40 00 c0 82 44 00 0e d1 a8 d3 47 00 22 d3 46 00 2a 83 45 00 00 d3 48 00 0a 81 08 02 06 f6 97 cc fc 91 0c 11 0c 81 4b 00 12 86 40 01 26 9e 04 80 ca 00 00 d3 22 93 02 83 41 ┆ P @ CR @ D G " F * E H K @ & " A┆
0xd0be…d10e 01 28 85 4a 00 0e 84 14 82 02 03 02 9b 8e 90 a0 00 02 15 02 e8 c0 01 28 50 36 d1 22 87 34 58 12 93 9c 13 02 14 02 12 02 87 31 d4 a2 94 98 d4 a9 d4 c4 ff f8 d7 52 00 08 11 06 1f 01 5a 30 82 c1 01 2e d2 a4 92 98 d2 a5 82 c0 01 2e 11 04 5f 16 ┆ ( J (P6 " 4X 1 R Z0 . . _ ┆
0xd10e…d15e 83 6b 00 0e d3 6b 00 00 82 0e 3a 41 12 02 82 4b 00 10 85 4a 00 02 d3 34 15 02 1b 02 50 14 82 c1 01 2e d2 b4 92 98 d2 b5 82 c0 01 2e 15 06 1b 06 5f 16 96 4b 00 00 96 4b 00 02 92 a0 00 18 81 20 c0 6c 91 40 01 80 8f 04 82 40 01 52 aa 40 01 3a ┆ k k :A K J 4 P . . _ K K l @ @ R @ :┆
0xd15e…d1ae 85 08 95 40 01 44 87 08 81 20 c1 78 91 40 01 80 83 40 01 46 84 40 01 3e 94 41 01 80 8f 20 01 62 80 80 15 02 f0 95 81 40 01 72 83 40 01 70 87 00 17 0a 82 41 01 72 8f 20 01 62 82 a0 00 da a0 41 01 82 81 20 43 52 f6 97 cd e6 54 1a 82 40 01 36 ┆ @ D x @ @ F @ > A b @ r @ p A r b A CR T @ 6┆
0xd1ae…d1fe 82 41 01 88 82 40 01 38 82 41 01 8a 82 20 ca ae 92 40 01 80 8f 08 81 41 01 3c 84 04 82 44 00 0e d1 a8 81 c5 00 0e 85 06 9d 4a 00 12 95 40 01 26 86 14 a6 20 f0 00 3e 6b 54 48 00 10 40 80 10 00 00 84 00 00 84 00 a5 25 55 0a 2a 89 55 48 01 00 ┆ A @ 8 A @ A < D J @ & >kTH @ %U * UH ┆
0xd1fe…d24e (140, 0, 400) 96 20 00 6c 96 16 86 38 86 41 01 86 a5 20 0f ff 85 41 01 84 83 06 81 98 83 c0 01 36 f6 97 cc ec 51 16 52 0c 81 94 83 c0 01 38 f6 97 cc ec 56 08 81 20 01 00 f6 97 cb 6c 81 8c 83 08 a3 20 f0 00 3b 6b 93 20 00 8c 93 16 83 2c a3 20 fc 00 eb 40 ┆ l 8 A A 6 Q R 8 V l ;k , @┆
0xd24e…d29e 01 36 54 10 83 08 a3 20 0f ff a0 41 01 2c eb 40 01 38 50 28 83 08 a3 20 0f ff 9b 20 08 00 55 10 83 08 a2 20 f0 00 92 20 10 00 ea 06 55 02 82 0c 83 06 9b 08 90 41 01 2c 83 4b 00 16 84 20 00 6c 94 16 84 41 01 96 84 20 00 8c 94 16 84 41 01 94 ┆ 6T A , @ 8P( U U A , K l A A ┆
0xd29e…d2ee 83 06 81 4a 00 12 82 40 01 26 84 08 9b 04 9c 04 84 41 01 40 f6 97 cb 98 83 06 1b 0a 81 0c 39 6b 21 1e 82 20 00 8a 92 16 91 08 84 20 fc 00 e9 08 50 06 84 25 19 02 5f 0a 84 40 01 94 85 40 01 96 84 41 01 96 85 41 01 94 a3 20 ff fe 83 41 01 8a ┆ J @ & A @ 9k! P % _ @ @ A A A ┆
0xd2ee…d33e 83 20 00 8c 93 16 f6 97 cd 10 81 c1 01 90 81 41 01 88 83 4a 00 10 85 0c f6 97 c6 b0 b8 60 01 96 d5 29 82 4b 00 06 12 02 81 40 01 3c 81 c4 00 0e d2 47 00 00 83 14 f6 97 c6 b0 b8 60 01 96 83 06 13 20 d5 29 12 02 d2 2d 85 4a 00 02 b8 60 01 94 ┆ A J ` ) K @ < G ` ) - J ` ┆
0xd33e…d38e d3 34 85 0c f6 97 c6 b0 82 4b 00 08 b8 60 01 96 d5 29 12 02 d2 47 00 02 b8 60 01 94 80 ca 00 00 d3 22 93 02 83 41 01 28 a0 41 01 4e 90 a0 00 02 e8 c0 01 28 50 30 f6 97 04 45 0a 10 00 82 80 00 10 21 08 50 00 05 51 0a 85 04 0a 01 11 04 14 40 ┆ 4 K ` ) G ` " A ( A N (P0 E ! P Q @┆