|
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: 55760 (0xd9d0)
Notes: pts_type(SC)
Names: »PAD.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/PAD.SC«
IDENT PAD REL 11.0 DK 82-07-08 870150541100 #8 CALL TO COPP 82-05-27 =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 CF A14,COPP PRINT #8 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-07-08 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» #8 CALL TO COPP«, t00=0x0000, t01=0x0040}
0x0056…006a Head {h00=0x0010, h01=0x0050, text=» 82-05-27 «, t00=0x0000, t01=0x005a}
0x006a…0084 Head {h00=0x0016, h01=0x0050, text=» =7,ERROR IN SF «, t00=0x0000, t01=0x006e}
0x0084…00a2 Head {h00=0x001a, h01=0x0050, text=» =6,2ND ERROR IN EUA«, t00=0x0000, t01=0x0088}
0x00a2…00ce Head {h00=0x0028, h01=0x0050, text=» =5 ERROR IN ERASE UNPROT TO ADDR«, t00=0x0000, t01=0x00a6}
0x00ce…00f8 Head {h00=0x0026, h01=0x0050, text=» DK1, ATTRIBUTE ERROR + 2X PRINT«, t00=0x0000, t01=0x00d2}
0x00f8…0116 Head {h00=0x001a, h01=0x0050, text=» =4 COPY TO PRINTER «, t00=0x0000, t01=0x00fc}
0x0116…012a Head {h00=0x0010, h01=0x0050, text=» 81-05-06 «, t00=0x0000, t01=0x011a}
0x012a…0146 Head {h00=0x0018, h01=0x0050, text=» =3, MISSING ITEM «, t00=0x0000, t01=0x012e}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x014a}
0x015a…0172 Head {h00=0x0014, h01=0x0050, text=» =2, SAVE REG.«, t00=0x0000, t01=0x015e}
0x0172…0186 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0176}
0x0186…01a6 Head {h00=0x001c, h01=0x0050, text=» =1, RA ON EUQ ADDRESS«, t00=0x0000, t01=0x018a}
0x01a6…01ba Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0001, t01=0x001a}
0x01ba…0200 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x002e}
0x0200…0246 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0074}
0x0246…028c Head {h00=0x0042, h01=0x0050, text=»* MODULE PAD * «, t00=0x0001, t01=0x00ba}
0x028c…02d2 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE PACKING AND * «, t00=0x0001, t01=0x0100}
0x02d2…0318 Head {h00=0x0042, h01=0x0050, text=»* UNPACKING OF THE DCBUFFER. THE VDU * «, t00=0x0001, t01=0x0146}
0x0318…035e Head {h00=0x0042, h01=0x0050, text=»* BUFFER IS UPDATED * «, t00=0x0001, t01=0x018c}
0x035e…03a4 Head {h00=0x0042, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) * «, t00=0x0002, t01=0x0042}
0x03a4…03ea Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0088}
0x03ea…0430 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x00ce}
0x0430…043e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0114}
0x043e…0488 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0002, t01=0x0122}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…04ac Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x0176}
0x04ac…04b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04fa Head {h00=0x0040, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER «, t00=0x0003, t01=0x000a}
0x04fa…0536 Head {h00=0x0038, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU «, t00=0x0003, t01=0x004e}
0x0536…0562 Head {h00=0x0028, h01=0x0050, text=»* RETTAB RETURN ADDRESSES«, t00=0x0003, t01=0x008a}
0x0562…058e Head {h00=0x0028, h01=0x0050, text=»* UNPCOM UNPACK COMMANDS «, t00=0x0003, t01=0x00b6}
0x058e…05b8 Head {h00=0x0026, h01=0x0050, text=»* UNPORD UNPACK ORDERS «, t00=0x0003, t01=0x00e2}
0x05b8…05e0 Head {h00=0x0024, h01=0x0050, text=»* ORDTAB ORDER TABLE «, t00=0x0003, t01=0x010c}
0x05e0…0608 Head {h00=0x0024, h01=0x0050, text=»* SF START FIELD «, t00=0x0003, t01=0x0134}
0x0608…0636 Head {h00=0x002a, h01=0x0050, text=»* SBA SET BUFFER ADDRESS«, t00=0x0003, t01=0x015c}
0x0636…0660 Head {h00=0x0026, h01=0x0050, text=»* IC INSERT CURSOR «, t00=0x0003, t01=0x018a}
0x0660…0688 Head {h00=0x0024, h01=0x0050, text=»* PT PROGRAM TAB.«, t00=0x0004, t01=0x0024}
0x0688…06b6 Head {h00=0x002a, h01=0x0050, text=»* RA REPEAT TO ADDRESS «, t00=0x0004, t01=0x004c}
0x06b6…06ea Head {h00=0x0030, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS «, t00=0x0004, t01=0x007a}
0x06ea…0716 Head {h00=0x0028, h01=0x0050, text=»* CHAR < /20 BUT NOT ORDERS«, t00=0x0004, t01=0x00ae}
0x0716…0750 Head {h00=0x0036, h01=0x0050, text=»* PACKSY PACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x00da}
0x0750…078c Head {h00=0x0038, h01=0x0050, text=»* UNPSYS UNPACK DC-BUFFER IN SYSTEM MODE «, t00=0x0004, t01=0x0114}
0x078c…07c2 Head {h00=0x0032, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x0004, t01=0x0150}
0x07c2…07fe Head {h00=0x0038, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC-BUFFER AND WRITE«, t00=0x0004, t01=0x0186}
0x07fe…082e Head {h00=0x002c, h01=0x0050, text=»* PDCCH PUT CHAR. IN BUFFER «, t00=0x0005, t01=0x0032}
0x082e…085e Head {h00=0x002c, h01=0x0050, text=»* GDCCH GET CHAR. IN BUFFER «, t00=0x0005, t01=0x0062}
0x085e…088e Head {h00=0x002c, h01=0x0050, text=»* PAID STORE AID IN BUFFER «, t00=0x0005, t01=0x0092}
0x088e…08cc Head {h00=0x003a, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER «, t00=0x0005, t01=0x00c2}
0x08cc…0908 Head {h00=0x0038, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES«, t00=0x0005, t01=0x0100}
0x0908…093e Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x0005, t01=0x013c}
0x093e…0978 Head {h00=0x0036, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x0005, t01=0x0172}
0x0978…09b4 Head {h00=0x0038, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION«, t00=0x0006, t01=0x001c}
0x09b4…09f4 Head {h00=0x003c, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION «, t00=0x0006, t01=0x0058}
0x09f4…0a1c Head {h00=0x0024, h01=0x0050, text=»* BUFFER BUFFER POOL «, t00=0x0006, t01=0x0098}
0x0a1c…0a42 Head {h00=0x0022, h01=0x0050, text=»* GETBUF GET BUFFER«, t00=0x0006, t01=0x00c0}
0x0a42…0a6c Head {h00=0x0026, h01=0x0050, text=»* RELBUF RELEASE BUFFER«, t00=0x0006, t01=0x00e6}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a76…0ac0 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0006, t01=0x011a}
0x0ac0…0ace Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0164}
0x0ace…0b14 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0006, t01=0x0172}
0x0b14…0b5a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0028}
0x0b5a…0ba0 Head {h00=0x0042, h01=0x0050, text=»* ENTRY POINTS * «, t00=0x0007, t01=0x006e}
0x0ba0…0be6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x00b4}
0x0be6…0c2c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x00fa}
0x0c2c…0c34 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0140}
0x0c34…0c68 Head {h00=0x0030, h01=0x0050, text=» ENTRY PACK PACK MOD. FIELDS INTO DC BUFFER «, t00=0x0007, t01=0x0148}
0x0c68…0c9e Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPACK UNPACK DC BUFFER AND UPDATE VDU «, t00=0x0007, t01=0x017c}
0x0c9e…0cd4 Head {h00=0x0032, h01=0x0050, text=» ENTRY UNPSYS UNPACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x0022}
0x0cd4…0cf8 Head {h00=0x0020, h01=0x0050, text=» ENTRY GETBUF GET DC BUFFER «, t00=0x0008, t01=0x0058}
0x0cf8…0d20 Head {h00=0x0024, h01=0x0050, text=» ENTRY RELBUF RELEASE DC BUFFER «, t00=0x0008, t01=0x007c}
0x0d20…0d50 Head {h00=0x002c, h01=0x0050, text=» ENTRY PAID STORE AID CODE IN DC BUFFER «, t00=0x0008, t01=0x00a4}
0x0d50…0d86 Head {h00=0x0032, h01=0x0050, text=» ENTRY BUFADR SORE BUFFER ADDRESS IN DC BUFFER«, t00=0x0008, t01=0x00d4}
0x0d86…0dba Head {h00=0x0030, h01=0x0050, text=» ENTRY PACKSY PACK DC BUFFER IN SYSTEM MODE «, t00=0x0008, t01=0x010a}
0x0dba…0dde Head {h00=0x0020, h01=0x0050, text=» ENTRY SAVE1 SAVE REGISTERS «, t00=0x0008, t01=0x013e}
0x0dde…0e04 Head {h00=0x0022, h01=0x0050, text=» ENTRY REST1 RESTORE REGISTERS«, t00=0x0008, t01=0x0162}
0x0e04…0e0c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0188}
0x0e0c…0e1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0190}
0x0e1a…0e56 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x000e}
0x0e56…0e92 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x004a}
0x0e92…0ece Head {h00=0x0038, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0009, t01=0x0086}
0x0ece…0f0a Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00c2}
0x0f0a…0f46 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0009, t01=0x00fe}
0x0f46…0f4e Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x013a}
0x0f4e…0f82 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONEBC CONVERT ASCII-EBCDIC (CONVER)«, t00=0x0009, t01=0x0142}
0x0f82…0fb6 Head {h00=0x0030, h01=0x0050, text=» EXTRN CONASC CONVERT EBCDIC-ASCII (CONVER)«, t00=0x0009, t01=0x0176}
0x0fb6…0fe4 Head {h00=0x002a, h01=0x0050, text=» EXTRN ERASE ERASE ENTIRE SCREEN (VDU)«, t00=0x000a, t01=0x001a}
0x0fe4…101c Head {h00=0x0034, h01=0x0050, text=» EXTRN ERASUA ERASE UNPROTECTED TO ADDRESS (VDU)«, t00=0x000a, t01=0x0048}
0x101c…1052 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONORD CONVERT ORDER TO INDEX (CONVER)«, t00=0x000a, t01=0x0080}
0x1052…1084 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONATT CONVERT ATTRIBUTE (CONVER) «, t00=0x000a, t01=0x00b6}
0x1084…10b6 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x000a, t01=0x00e8}
0x10b6…10f2 Head {h00=0x0038, h01=0x0050, text=» EXTRN ERASUP ERASE UNPROTECTED ENTIRE SCREEN (VDU) «, t00=0x000a, t01=0x011a}
0x10f2…111c Head {h00=0x0026, h01=0x0050, text=» EXTRN COPY LOCAL HARDCOPY (KEYB) «, t00=0x000a, t01=0x0156}
0x111c…114a Head {h00=0x002a, h01=0x0050, text=» EXTRN SOUND SOUND ALARM ON VDU (VDU) «, t00=0x000a, t01=0x0180}
0x114a…1180 Head {h00=0x0032, h01=0x0050, text=» EXTRN ATMASB SEARCH ATTRIBUTE BACKWARDS (VDU)«, t00=0x000b, t01=0x001e}
0x1180…11b6 Head {h00=0x0032, h01=0x0050, text=» EXTRN CONADR CONVERT BUFFER ADDRESS (CONVER)«, t00=0x000b, t01=0x0054}
0x11b6…11e4 Head {h00=0x002a, h01=0x0050, text=» EXTRN WRAP CHECK IF WRAP AROUND (VDU)«, t00=0x000b, t01=0x008a}
0x11e4…1218 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x000b, t01=0x00b8}
0x1218…1244 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP4ON INHIBIT LAMP ON (KEYB)«, t00=0x000b, t01=0x00ec}
0x1244…127a Head {h00=0x0032, h01=0x0050, text=» EXTRN READNW READ WITH NO WAIT (DCSNA,DCBSC) «, t00=0x000b, t01=0x0118}
0x127a…12a8 Head {h00=0x002a, h01=0x0050, text=» EXTRN WAIT SYNCHRONIZE (DCSNA,DCBSC) «, t00=0x000b, t01=0x014e}
0x12a8…12dc Head {h00=0x0030, h01=0x0050, text=» EXTRN DCWRIT WRITE DC BUFFER (DCSNA,DCBSC) «, t00=0x000b, t01=0x017c}
0x12dc…1310 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x000c, t01=0x0020}
0x1310…1342 Head {h00=0x002e, h01=0x0050, text=» EXTRN THRBUF THROW BUFFERS (DCSNA,DCBSC) «, t00=0x000c, t01=0x0054}
0x1342…136e Head {h00=0x0028, h01=0x0050, text=» EXTRN NLROUT NEW LINE ROUTINE (VDU)«, t00=0x000c, t01=0x0086}
0x136e…1394 Head {h00=0x0022, h01=0x0050, text=» EXTRN LINE WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x00b2}
0x1394…13ca Head {h00=0x0032, h01=0x0050, text=» EXTRN LINATT INTERNAL LINEFLAG ROUTINE (VDU) «, t00=0x000c, t01=0x00d8}
0x13ca…13fa Head {h00=0x002c, h01=0x0050, text=» EXTRN LINWRP ANOTHER WRAP ROUTINE (VDU)«, t00=0x000c, t01=0x010e}
0x13fa…1424 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR ERROR INCATOR (KEYB) «, t00=0x000c, t01=0x013e}
0x1424…145a Head {h00=0x0032, h01=0x0050, text=» EXTRN MATCH MATCH ADDRESS AND TASKID (DSPBSC)«, t00=0x000c, t01=0x0168}
0x145a…1488 Head {h00=0x002a, h01=0x0050, text=» EXTRN ICSET INTERTASK TIMEOUT (KEYB) «, t00=0x000d, t01=0x000e}
0x1488…14b4 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICWRT INTERTASK WRITE (KEYB) «, t00=0x000d, t01=0x003c}
0x14b4…14e4 Head {h00=0x002c, h01=0x0050, text=» EXTRN COPP COPY ON PRINTER DIRECTLY =4 «, t00=0x000d, t01=0x0068}
0x14e4…14fa Head {h00=0x0012, h01=0x0050, text=» EXTRN LMP3ON «, t00=0x000d, t01=0x0098}
0x14fa…1508 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ae}
0x1508…1544 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000d, t01=0x00bc}
0x1544…1580 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00f8}
0x1580…15bc Head {h00=0x0038, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000d, t01=0x0134}
0x15bc…15f8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0170}
0x15f8…1634 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000e, t01=0x001c}
0x1634…163c Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0058}
0x163c…1660 Head {h00=0x0020, h01=0x0050, text=»X:A EQU 0 SNA HANDLING IF:=1«, t00=0x000e, t01=0x0060}
0x1660…1672 Head {h00=0x000e, h01=0x0050, text=»SNA EQU 0 «, t00=0x000e, t01=0x0084}
0x1672…169c Head {h00=0x0026, h01=0x0050, text=»X:K EQU 2 NUMBER OF BUFFERS (1-32)«, t00=0x000e, t01=0x0096}
0x169c…16b2 Head {h00=0x0012, h01=0x0050, text=»BUFFNR EQU 02 «, t00=0x000e, t01=0x00c0}
0x16b2…16e0 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000e, t01=0x00d6}
0x16e0…16f6 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000e, t01=0x0104}
0x16f6…1724 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMAND INCLUDED IF:=1 «, t00=0x000e, t01=0x011a}
0x1724…1738 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000e, t01=0x0148}
0x1738…175c Head {h00=0x0020, h01=0x0050, text=»X:N EQU 1 EBCDIC CHAR IF:=1 «, t00=0x000e, t01=0x015c}
0x175c…1770 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU 1«, t00=0x000e, t01=0x0180}
0x1770…179e (15, 0, 400) Head {h00=0x002a, h01=0x0050, text=»X:Z EQU 1 =0,WHOLE,=1 CHAIN,=2 SEGMENT«, t00=0x000f, t01=0x0004}
0x179e…17b4 Head {h00=0x0012, h01=0x0050, text=»DISHOW EQU X:Z«, t00=0x000f, t01=0x0032}
0x17b4…17c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0048}
0x17c2…180a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x0056}
0x180a…1852 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x009e}
0x1852…187c Head {h00=0x0026, h01=0x0050, text=»* DECLARATION OF DATA AND EQUATES «, t00=0x000f, t01=0x00e6}
0x187c…18c4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0110}
0x18c4…190c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x0158}
0x190c…1914 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0010}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0018}
0x191e…1946 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x0010, t01=0x0022}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x1950…1972 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0010, t01=0x0054}
0x1972…1996 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0010, t01=0x0076}
0x1996…19ba Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0010, t01=0x009a}
0x19ba…19da Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0010, t01=0x00be}
0x19da…19fc Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0010, t01=0x00de}
0x19fc…1a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0100}
0x1a06…1a20 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x0010, t01=0x010a}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0124}
0x1a2a…1a5a Head {h00=0x002c, h01=0x0050, text=»LICREC EQU /2000 LAST IN CHAIN RECEIVED «, t00=0x0010, t01=0x012e}
0x1a5a…1a80 Head {h00=0x0022, h01=0x0050, text=»THROWB EQU /0800 THROW BUFFERS«, t00=0x0010, t01=0x015e}
0x1a80…1aa2 Head {h00=0x001e, h01=0x0050, text=»NEWCH EQU /0400 NEW CHAIN «, t00=0x0010, t01=0x0184}
0x1aa2…1ace Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x0011, t01=0x0016}
0x1ace…1af8 Head {h00=0x0026, h01=0x0050, text=»PTORD EQU /0001 PT ORDER INDICATOR«, t00=0x0011, t01=0x0042}
0x1af8…1b0a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0011, t01=0x006c}
0x1b0a…1b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b14…1b2e Head {h00=0x0016, h01=0x0050, text=»* SNA MODES «, t00=0x0011, t01=0x0088}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a2}
0x1b38…1b58 Head {h00=0x001c, h01=0x0050, text=»LOCMOD EQU 0 LOCAL MODE «, t00=0x0011, t01=0x00ac}
0x1b58…1b78 Head {h00=0x001c, h01=0x0050, text=»SYSOP EQU 2 SYSTEM MODE «, t00=0x0011, t01=0x00cc}
0x1b78…1b98 Head {h00=0x001c, h01=0x0050, text=»MYJOB EQU 4 MY JOB MODE «, t00=0x0011, t01=0x00ec}
0x1b98…1ba4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x010c}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0118}
0x1bae…1bd0 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x0011, t01=0x0122}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0144}
0x1bda…1bfe Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x0011, t01=0x014e}
0x1bfe…1c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0172}
0x1c08…1c24 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x0011, t01=0x017c}
0x1c24…1c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2e…1c4c Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x0012, t01=0x0012}
0x1c4c…1c6c Head {h00=0x001c, h01=0x0050, text=»SBACH EQU /11 SBA CHAR. «, t00=0x0012, t01=0x0030}
0x1c6c…1c90 Head {h00=0x0020, h01=0x0050, text=»ESCCHA EQU /1B ESCAPE CHAR. «, t00=0x0012, t01=0x0050}
0x1c90…1c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0074}
0x1c9a…1cb4 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0012, t01=0x007e}
0x1cb4…1cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0098}
0x1cbe…1ce0 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0012, t01=0x00a2}
0x1ce0…1d00 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0012, t01=0x00c4}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d0a…1d2e Head {h00=0x0020, h01=0x0050, text=»* BUFFER LINK LENGTH «, t00=0x0012, t01=0x00ee}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d38…1d56 Head {h00=0x001a, h01=0x0050, text=»LINK EQU BUFFL+BUFFL+2«, t00=0x0012, t01=0x011c}
0x1d56…1d64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x013a}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0148}
0x1d6e…1d8e Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0152}
0x1d8e…1daa Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0012, t01=0x0172}
0x1daa…1db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018e}
0x1db4…1ddc Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0013, t01=0x0008}
0x1ddc…1e02 Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0013, t01=0x0030}
0x1e02…1e32 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0013, t01=0x0056}
0x1e32…1e66 Head {h00=0x0030, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS , BINARY «, t00=0x0013, t01=0x0086}
0x1e66…1e80 Head {h00=0x0016, h01=0x0050, text=»CURATT EQU PCURS+4«, t00=0x0013, t01=0x00ba}
0x1e80…1eaa Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0013, t01=0x00d4}
0x1eaa…1ed4 Head {h00=0x0026, h01=0x0050, text=»KBINH EQU WCC+2 INHIBIT INDICATOR «, t00=0x0013, t01=0x00fe}
0x1ed4…1f02 Head {h00=0x002a, h01=0x0050, text=»DCLENG EQU KBINH+4 LENGTH OF DC BUFFER«, t00=0x0013, t01=0x0128}
0x1f02…1f38 Head {h00=0x0032, h01=0x0050, text=»CURPOS EQU DCLENG+30 CURSOR POS IN SYSTEM MODE«, t00=0x0013, t01=0x0156}
0x1f38…1f62 Head {h00=0x0026, h01=0x0050, text=»BUFPNT EQU CURPOS+2 BUFFER ADDRESS«, t00=0x0013, t01=0x018c}
0x1f62…1f8a Head {h00=0x0024, h01=0x0050, text=»REGI EQU BUFPNT+2 WORK REGISTER «, t00=0x0014, t01=0x0026}
0x1f8a…1fb2 Head {h00=0x0024, h01=0x0050, text=»STACK1 EQU REGI+2 INTERNAL STACK«, t00=0x0014, t01=0x004e}
0x1fb2…1fce Head {h00=0x0018, h01=0x0050, text=»STACK2 EQU STACK1+14«, t00=0x0014, t01=0x0076}
0x1fce…1ff6 Head {h00=0x0024, h01=0x0050, text=»UNPMOD EQU STACK2+14 UNPACK MODE«, t00=0x0014, t01=0x0092}
0x1ff6…201a Head {h00=0x0020, h01=0x0050, text=»SNAMOD EQU UNPMOD+2 SNA MODE«, t00=0x0014, t01=0x00ba}
0x201a…204e Head {h00=0x0030, h01=0x0050, text=»ECBICW EQU SNAMOD+12 ECB INTERTASK WRITE =3 «, t00=0x0014, t01=0x00de}
0x204e…205c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0112}
0x205c…20a0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0120}
0x20a0…20e4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0164}
0x20e4…212a Head {h00=0x0042, h01=0x0050, text=»* PACK PACK MODIFIED VDU-FIELDS INTO DC-BUFFER * «, t00=0x0015, t01=0x0018}
0x212a…2170 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x005e}
0x2170…21b6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0015, t01=0x00a4}
0x21b6…21ca Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x00ea}
0x21ca…21d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21d4…21e8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0015, t01=0x0108}
0x21e8…220c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0015, t01=0x011c}
0x220c…222a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0015, t01=0x0140}
0x222a…224c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0015, t01=0x015e}
0x224c…2268 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x0015, t01=0x0180}
0x2268…228a Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0016, t01=0x000c}
0x228a…22a8 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0016, t01=0x002e}
0x22a8…22c4 Head {h00=0x0018, h01=0x0050, text=»* A10= START ADDRESS«, t00=0x0016, t01=0x004c}
0x22c4…22dc Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0016, t01=0x0068}
0x22dc…22fa Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0016, t01=0x0080}
0x22fa…2312 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x009e}
0x2312…231c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b6}
0x231c…2360 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x00c0}
0x2360…2372 Head {h00=0x000e, h01=0x0050, text=»PACK EQU *«, t00=0x0016, t01=0x0104}
0x2372…23a0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0016, t01=0x0116}
0x23a0…23c4 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0016, t01=0x0144}
0x23c4…23da Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0016, t01=0x0168}
0x23da…23ee Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0016, t01=0x017e}
0x23ee…2412 (23, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDR A10,A4 INITIATE ADDRESS«, t00=0x0017, t01=0x0004}
0x2412…243e Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0017, t01=0x0028}
0x243e…2458 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK70 YES «, t00=0x0017, t01=0x0054}
0x2458…246c Head {h00=0x0010, h01=0x0050, text=»PACK10 EQU *«, t00=0x0017, t01=0x006e}
0x246c…2488 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0017, t01=0x0082}
0x2488…24a8 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x009e}
0x24a8…24c2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PACK15 YES«, t00=0x0017, t01=0x00be}
0x24c2…24d4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x00d8}
0x24d4…24e6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x00ea}
0x24e6…24f8 Head {h00=0x000e, h01=0x0050, text=» RB PACK10«, t00=0x0017, t01=0x00fc}
0x24f8…250c Head {h00=0x0010, h01=0x0050, text=»PACK15 EQU *«, t00=0x0017, t01=0x010e}
0x250c…252e Head {h00=0x001e, h01=0x0050, text=» LDR A10,A4 START ADDRESS «, t00=0x0017, t01=0x0122}
0x252e…2540 Head {h00=0x000e, h01=0x0050, text=» RF PACK30«, t00=0x0017, t01=0x0144}
0x2540…2554 Head {h00=0x0010, h01=0x0050, text=»PACK20 EQU *«, t00=0x0017, t01=0x0156}
0x2554…257e Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0017, t01=0x016a}
0x257e…259e (24, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0018, t01=0x0004}
0x259e…25b8 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0018, t01=0x0024}
0x25b8…25cc Head {h00=0x0010, h01=0x0050, text=»PACK30 EQU *«, t00=0x0018, t01=0x003e}
0x25cc…25e8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0018, t01=0x0052}
0x25e8…25fa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x006e}
0x25fa…260c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0018, t01=0x0080}
0x260c…262c Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0018, t01=0x0092}
0x262c…2644 Head {h00=0x0014, h01=0x0050, text=» RB(L) PACK20 NO«, t00=0x0018, t01=0x00b2}
0x2644…2666 Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 MODIFIED FIELD? «, t00=0x0018, t01=0x00ca}
0x2666…2680 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK50 YES«, t00=0x0018, t01=0x00ec}
0x2680…26ae Head {h00=0x002a, h01=0x0050, text=»* POINTER UPDATE REMOVED DK1 «, t00=0x0018, t01=0x0106}
0x26ae…26c0 Head {h00=0x000e, h01=0x0050, text=» RB PACK20«, t00=0x0018, t01=0x0134}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=»PACK50 EQU *«, t00=0x0018, t01=0x0146}
0x26d4…26fa Head {h00=0x0022, h01=0x0050, text=» LDK A2,SBACH SBA TO DC-BUFFER«, t00=0x0018, t01=0x015a}
0x26fa…271e Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INDICATE SBA «, t00=0x0018, t01=0x0180}
0x271e…2748 Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x0019, t01=0x0014}
0x2748…276c Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x0019, t01=0x003e}
0x276c…2786 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x0019, t01=0x0062}
0x2786…27b4 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A4 BUFFER ADDRESS TO DC-BUFFER«, t00=0x0019, t01=0x007c}
0x27b4…27ca Head {h00=0x0012, h01=0x0050, text=» CF A14,BUFADR«, t00=0x0019, t01=0x00aa}
0x27ca…27de Head {h00=0x0010, h01=0x0050, text=»PACK60 EQU *«, t00=0x0019, t01=0x00c0}
0x27de…2808 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0019, t01=0x00d4}
0x2808…2828 Head {h00=0x001c, h01=0x0050, text=» CWR A10,A4 ALL SCANNED?«, t00=0x0019, t01=0x00fe}
0x2828…2842 Head {h00=0x0016, h01=0x0050, text=» RF(E) PACK80 YES «, t00=0x0019, t01=0x011e}
0x2842…2856 Head {h00=0x0010, h01=0x0050, text=»PACK70 EQU *«, t00=0x0019, t01=0x0138}
0x2856…2872 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0019, t01=0x014c}
0x2872…2892 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x0168}
0x2892…28ac Head {h00=0x0016, h01=0x0050, text=» RB(NL) PACK20 YES«, t00=0x0019, t01=0x0188}
0x28ac…28cc Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x001a, t01=0x0012}
0x28cc…28f2 Head {h00=0x0022, h01=0x0050, text=» RF(E) PACK75 YES,DON'T STORE «, t00=0x001a, t01=0x0032}
0x28f2…291c Head {h00=0x0026, h01=0x0050, text=» CF A14,PUTCHA PUT CHAR. IN BUFFER«, t00=0x001a, t01=0x0058}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TRANSMISSION OK? «, t00=0x001a, t01=0x0082}
0x2940…295a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PACK90 NO «, t00=0x001a, t01=0x00a6}
0x295a…296e Head {h00=0x0010, h01=0x0050, text=»PACK75 EQU *«, t00=0x001a, t01=0x00c0}
0x296e…2980 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x00d4}
0x2980…2992 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001a, t01=0x00e6}
0x2992…29a4 Head {h00=0x000e, h01=0x0050, text=» RB PACK60«, t00=0x001a, t01=0x00f8}
0x29a4…29b8 Head {h00=0x0010, h01=0x0050, text=»PACK80 EQU *«, t00=0x001a, t01=0x010a}
0x29b8…29e0 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x001a, t01=0x011e}
0x29e0…2a06 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x001a, t01=0x0146}
0x2a06…2a1a Head {h00=0x0010, h01=0x0050, text=»PACK90 EQU *«, t00=0x001a, t01=0x016c}
0x2a1a…2a40 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x001a, t01=0x0180}
0x2a40…2a66 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x001b, t01=0x0016}
0x2a66…2a76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x003c}
0x2a76…2a84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x004c}
0x2a84…2ac8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x005a}
0x2ac8…2b0c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x009e}
0x2b0c…2b50 Head {h00=0x0040, h01=0x0050, text=»* UNPACK UNPACK DC-BUFFER AND UPDATE VDU *«, t00=0x001b, t01=0x00e2}
0x2b50…2b94 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0126}
0x2b94…2bd8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x016a}
0x2bd8…2bec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001c, t01=0x001e}
0x2bec…2bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0032}
0x2bf6…2c0a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001c, t01=0x003c}
0x2c0a…2c2e Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU-BUFFER «, t00=0x001c, t01=0x0050}
0x2c2e…2c4c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x001c, t01=0x0074}
0x2c4c…2c6e Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x001c, t01=0x0092}
0x2c6e…2c96 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x001c, t01=0x00b4}
0x2c96…2cb8 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x001c, t01=0x00dc}
0x2cb8…2cd6 Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x001c, t01=0x00fe}
0x2cd6…2cee Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x011c}
0x2cee…2d0e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x0134}
0x2d0e…2d26 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x001c, t01=0x0154}
0x2d26…2d3e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x016c}
0x2d3e…2d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d48…2d88 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001c, t01=0x018e}
0x2d88…2d9c Head {h00=0x0010, h01=0x0050, text=»UNPACK EQU *«, t00=0x001d, t01=0x003e}
0x2d9c…2dc0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,3 KB TOTALLY INHIBIT«, t00=0x001d, t01=0x0052}
0x2dc0…2dda Head {h00=0x0016, h01=0x0050, text=» ORS A1,KBINH,A11 «, t00=0x001d, t01=0x0076}
0x2dda…2df2 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x001d, t01=0x0090}
0x2df2…2e18 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x001d, t01=0x00a8}
0x2e18…2e32 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNP050 YES«, t00=0x001d, t01=0x00ce}
0x2e32…2e58 Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP3ON INHIBIT LAMP ON«, t00=0x001d, t01=0x00e8}
0x2e58…2e6c Head {h00=0x0010, h01=0x0050, text=»UNP050 EQU *«, t00=0x001d, t01=0x010e}
0x2e6c…2e9a Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001d, t01=0x0122}
0x2e9a…2eae Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x001d, t01=0x0150}
0x2eae…2ec4 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x001d, t01=0x0164}
0x2ec4…2ef2 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAG «, t00=0x001d, t01=0x017a}
0x2ef2…2f04 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x001e, t01=0x0018}
0x2f04…2f30 Head {h00=0x0028, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER ADDRESS«, t00=0x001e, t01=0x002a}
0x2f30…2f56 Head {h00=0x0022, h01=0x0050, text=» LDK A1,ICOMND PROCESS COMMAND«, t00=0x001e, t01=0x0056}
0x2f56…2f70 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x001e, t01=0x007c}
0x2f70…2f84 Head {h00=0x0010, h01=0x0050, text=»UNP100 EQU *«, t00=0x001e, t01=0x0096}
0x2f84…2fa4 Head {h00=0x001c, h01=0x0050, text=» CF A14,GDCCH GET CHAR. «, t00=0x001e, t01=0x00aa}
0x2fa4…2fc6 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x001e, t01=0x00ca}
0x2fc6…2fe0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNP200 NO «, t00=0x001e, t01=0x00ec}
0x2fe0…3012 Head {h00=0x002e, h01=0x0050, text=» LD A1,UNPMOD,A11 GET ADDRESS TO START AT «, t00=0x001e, t01=0x0106}
0x3012…3034 Head {h00=0x001e, h01=0x0050, text=» CFI A14,RETTAB,A1 RESTART«, t00=0x001e, t01=0x0138}
0x3034…3054 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 PROCESS OKEY?«, t00=0x001e, t01=0x015a}
0x3054…306e Head {h00=0x0016, h01=0x0050, text=» RB(Z) UNP100 YES «, t00=0x001e, t01=0x017a}
0x306e…3080 (31, 0, 398) Head {h00=0x000e, h01=0x0050, text=» RF UNP300«, t00=0x001f, t01=0x0004}
0x3080…3094 Head {h00=0x0010, h01=0x0050, text=»UNP200 EQU *«, t00=0x001f, t01=0x0016}
0x3094…30a6 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x002a}
0x30a6…30cc Head {h00=0x0022, h01=0x0050, text=» CF A14,GETNXT GET NEXT BUFFER«, t00=0x001f, t01=0x003c}
0x30cc…30e8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 FINISHED?«, t00=0x001f, t01=0x0062}
0x30e8…3100 Head {h00=0x0014, h01=0x0050, text=» RB(Z) UNP100 NO«, t00=0x001f, t01=0x007e}
0x3100…310c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0096}
0x310c…3120 Head {h00=0x0010, h01=0x0050, text=»UNP300 EQU *«, t00=0x001f, t01=0x00a2}
0x3120…3146 Head {h00=0x0022, h01=0x0050, text=» CF A14,SCRINF GET LATEST NEWS«, t00=0x001f, t01=0x00b6}
0x3146…3158 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x001f, t01=0x00dc}
0x3158…318a Head {h00=0x002e, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTRIBUTE BACKWARDS «, t00=0x001f, t01=0x00ee}
0x318a…319c Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x001f, t01=0x0120}
0x319c…31c4 Head {h00=0x0024, h01=0x0050, text=» ANKL A10,THROWB THROW BUFFERS? «, t00=0x001f, t01=0x0132}
0x31c4…31dc Head {h00=0x0014, h01=0x0050, text=» RF(Z) UNP400 NO«, t00=0x001f, t01=0x015a}
0x31dc…3200 Head {h00=0x0020, h01=0x0050, text=» CF A14,THRBUF THROW BUFFERS«, t00=0x001f, t01=0x0172}
0x3200…3212 Head {h00=0x000e, h01=0x0050, text=» RF UNP600«, t00=0x0020, t01=0x0008}
0x3212…3226 Head {h00=0x0010, h01=0x0050, text=»UNP400 EQU *«, t00=0x0020, t01=0x001a}
0x3226…323c Head {h00=0x0012, h01=0x0050, text=» IFF DISHOW=2 «, t00=0x0020, t01=0x002e}
0x323c…3254 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0020, t01=0x0044}
0x3254…326a Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x0020, t01=0x005c}
0x326a…3280 Head {h00=0x0012, h01=0x0050, text=» RF(NE) UNP500«, t00=0x0020, t01=0x0072}
0x3280…32ba Head {h00=0x0036, h01=0x0050, text=» CF A14,DISMOD TESTINGTESTINGTESTING!!!!!!!!!!!!! «, t00=0x0020, t01=0x0088}
0x32ba…32ce Head {h00=0x0010, h01=0x0050, text=»UNP500 EQU *«, t00=0x0020, t01=0x00c2}
0x32ce…32da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00d6}
0x32da…3308 Head {h00=0x002a, h01=0x0050, text=» CF A14,P2WCC CHECK IT A LAST TIME =4 «, t00=0x0020, t01=0x00e2}
0x3308…3332 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0020, t01=0x0110}
0x3332…3358 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0020, t01=0x013a}
0x3358…336c Head {h00=0x0010, h01=0x0050, text=»UNP600 EQU *«, t00=0x0020, t01=0x0160}
0x336c…337c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0174}
0x337c…338a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0184}
0x338a…33d8 (33, 0, 398) Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x0004}
0x33d8…3426 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0052}
0x3426…3474 Head {h00=0x004a, h01=0x0050, text=»* INDEX FOR RETURNS AFTER GET CHARCTER *«, t00=0x0021, t01=0x00a0}
0x3474…34c2 Head {h00=0x004a, h01=0x0050, text=»* *«, t00=0x0021, t01=0x00ee}
0x34c2…3510 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0021, t01=0x013c}
0x3510…3518 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x018a}
0x3518…352c (34, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ICOMND EQU 0«, t00=0x0022, t01=0x0004}
0x352c…3548 Head {h00=0x0018, h01=0x0050, text=»ICOMN1 EQU ICOMND+2 «, t00=0x0022, t01=0x0018}
0x3548…355e Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0022, t01=0x0034}
0x355e…357a Head {h00=0x0018, h01=0x0050, text=»ICOCOP EQU ICOMN1+2 «, t00=0x0022, t01=0x004a}
0x357a…3596 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOCOP+2 «, t00=0x0022, t01=0x0066}
0x3596…35a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0082}
0x35a2…35b8 Head {h00=0x0012, h01=0x0050, text=» IFF COPCMD=1 «, t00=0x0022, t01=0x008e}
0x35b8…35d4 Head {h00=0x0018, h01=0x0050, text=»ICOWCC EQU ICOMN1+2 «, t00=0x0022, t01=0x00a4}
0x35d4…35e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00c0}
0x35e0…35fc Head {h00=0x0018, h01=0x0050, text=»IORDER EQU ICOWCC+2 «, t00=0x0022, t01=0x00cc}
0x35fc…3618 Head {h00=0x0018, h01=0x0050, text=»IOSFAT EQU IORDER+2 «, t00=0x0022, t01=0x00e8}
0x3618…3634 Head {h00=0x0018, h01=0x0050, text=»IOSBA1 EQU IOSFAT+2 «, t00=0x0022, t01=0x0104}
0x3634…3650 Head {h00=0x0018, h01=0x0050, text=»IOSBA2 EQU IOSBA1+2 «, t00=0x0022, t01=0x0120}
0x3650…366c Head {h00=0x0018, h01=0x0050, text=»IORAA1 EQU IOSBA2+2 «, t00=0x0022, t01=0x013c}
0x366c…3688 Head {h00=0x0018, h01=0x0050, text=»IORAA2 EQU IORAA1+2 «, t00=0x0022, t01=0x0158}
0x3688…36a4 Head {h00=0x0018, h01=0x0050, text=»IORACH EQU IORAA2+2 «, t00=0x0022, t01=0x0174}
0x36a4…36c0 Head {h00=0x0018, h01=0x0050, text=»IOEUA1 EQU IORACH+2 «, t00=0x0022, t01=0x0190}
0x36c0…36dc Head {h00=0x0018, h01=0x0050, text=»IOEUA2 EQU IOEUA1+2 «, t00=0x0023, t01=0x001c}
0x36dc…36ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0038}
0x36ea…3738 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x0046}
0x3738…3786 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0094}
0x3786…37d4 Head {h00=0x004a, h01=0x0050, text=»* RETURN ADDRESSES AFTER GET CHARACTER * «, t00=0x0023, t01=0x00e2}
0x37d4…3822 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0130}
0x3822…3870 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0023, t01=0x017e}
0x3870…3884 Head {h00=0x0010, h01=0x0050, text=»RETTAB EQU *«, t00=0x0024, t01=0x003c}
0x3884…38ae Head {h00=0x0026, h01=0x0050, text=» DATA UNPCOM PROCESS COMMAND CHAR.«, t00=0x0024, t01=0x0050}
0x38ae…38e2 Head {h00=0x0030, h01=0x0050, text=» DATA UNC100 PROCESS COMMAND CHAR AFTER ESC.«, t00=0x0024, t01=0x007a}
0x38e2…38f8 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0024, t01=0x00ae}
0x38f8…3920 Head {h00=0x0024, h01=0x0050, text=» DATA UNC150 PROCESS FROM DEVICE«, t00=0x0024, t01=0x00c4}
0x3920…392c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00ec}
0x392c…394c Head {h00=0x001c, h01=0x0050, text=» DATA UNC600 PROCESS WCC«, t00=0x0024, t01=0x00f8}
0x394c…397a Head {h00=0x002a, h01=0x0050, text=» DATA UNPORD PROCESS ORDERS AND CHAR. «, t00=0x0024, t01=0x0118}
0x397a…39a0 Head {h00=0x0022, h01=0x0050, text=» DATA SF100 PROCESS ATTRIBUTE «, t00=0x0024, t01=0x0146}
0x39a0…39d0 Head {h00=0x002c, h01=0x0050, text=» DATA SBA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0024, t01=0x016c}
0x39d0…3a00 Head {h00=0x002c, h01=0x0050, text=» DATA SBA200 PROCESS SECOND ADDRESS BYTE«, t00=0x0025, t01=0x000c}
0x3a00…3a2e Head {h00=0x002a, h01=0x0050, text=» DATA RA100 PROCESS FIRST ADDRESS BYTE«, t00=0x0025, t01=0x003c}
0x3a2e…3a5e Head {h00=0x002c, h01=0x0050, text=» DATA RA200 PROCESS SECOND ADDRESS BYTE «, t00=0x0025, t01=0x006a}
0x3a5e…3a8a Head {h00=0x0028, h01=0x0050, text=» DATA RA250 PROCESS CHAR. TO REPEAT «, t00=0x0025, t01=0x009a}
0x3a8a…3aba Head {h00=0x002c, h01=0x0050, text=» DATA EUA100 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x00c6}
0x3aba…3aea Head {h00=0x002c, h01=0x0050, text=» DATA EUA200 PROCESS FIRST ADDRESS BYTE «, t00=0x0025, t01=0x00f6}
0x3aea…3af8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0126}
0x3af8…3b48 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0134}
0x3b48…3b98 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0184}
0x3b98…3be8 Head {h00=0x004c, h01=0x0050, text=»* UNPCOM UNPACK COMMAND * «, t00=0x0026, t01=0x0044}
0x3be8…3c38 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0094}
0x3c38…3c88 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0026, t01=0x00e4}
0x3c88…3c9c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0134}
0x3c9c…3ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0148}
0x3ca6…3cba Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0026, t01=0x0152}
0x3cba…3cde Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0026, t01=0x0166}
0x3cde…3d00 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x0026, t01=0x018a}
0x3d00…3d22 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0027, t01=0x001c}
0x3d22…3d4a Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0027, t01=0x003e}
0x3d4a…3d6c Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0027, t01=0x0066}
0x3d6c…3d82 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0027, t01=0x0088}
0x3d82…3d9a Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0027, t01=0x009e}
0x3d9a…3dba Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0027, t01=0x00b6}
0x3dba…3dd2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0027, t01=0x00d6}
0x3dd2…3dea Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0027, t01=0x00ee}
0x3dea…3df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0106}
0x3df4…3e44 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0110}
0x3e44…3e70 Head {h00=0x0028, h01=0x0050, text=»UNPCOM EQU * ENTRY LABEL FROM RETTAB«, t00=0x0027, t01=0x0160}
0x3e70…3e82 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0027, t01=0x018c}
0x3e82…3eaa Head {h00=0x0024, h01=0x0050, text=» LDK A1,ICOMN1 WHERE TO CONTINUE«, t00=0x0028, t01=0x000e}
0x3eaa…3ec4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0028, t01=0x0036}
0x3ec4…3ee2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0028, t01=0x0050}
0x3ee2…3f00 Head {h00=0x001a, h01=0x0050, text=» CWK A2,ESCCHA ESCAPE?«, t00=0x0028, t01=0x006e}
0x3f00…3f1a Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC900 YES «, t00=0x0028, t01=0x008c}
0x3f1a…3f3e Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 NO INDICATE ERROR «, t00=0x0028, t01=0x00a6}
0x3f3e…3f50 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x0028, t01=0x00ca}
0x3f50…3f5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00dc}
0x3f5c…3f70 Head {h00=0x0010, h01=0x0050, text=»UNC100 EQU *«, t00=0x0028, t01=0x00e8}
0x3f70…3f8a Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 WRITE?«, t00=0x0028, t01=0x00fc}
0x3f8a…3fa4 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC500 YES «, t00=0x0028, t01=0x0116}
0x3fa4…3fc8 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/35 ERASE AND WITE? «, t00=0x0028, t01=0x0130}
0x3fc8…3fe2 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC200 YES «, t00=0x0028, t01=0x0154}
0x3fe2…400c Head {h00=0x0026, h01=0x0050, text=» CWK A2,/3F ERASE ALL UNPROTECTED?«, t00=0x0028, t01=0x016e}
0x400c…4026 Head {h00=0x0016, h01=0x0050, text=» RF(E) UNC300 YES «, t00=0x0029, t01=0x0008}
0x4026…403c Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0029, t01=0x0022}
0x403c…405e Head {h00=0x001e, h01=0x0050, text=» CWK A2,/37 COPY COMMAND? «, t00=0x0029, t01=0x0038}
0x405e…4078 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNC175 NO «, t00=0x0029, t01=0x005a}
0x4078…409c Head {h00=0x0020, h01=0x0050, text=» LDK A1,ICOCOP RESTART ENTRY«, t00=0x0029, t01=0x0074}
0x409c…40ae Head {h00=0x000e, h01=0x0050, text=» RF UNC800«, t00=0x0029, t01=0x0098}
0x40ae…40da Head {h00=0x0028, h01=0x0050, text=»UNC150 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0029, t01=0x00aa}
0x40da…40fa Head {h00=0x001c, h01=0x0050, text=» CF A14,MATCH GET TASKID«, t00=0x0029, t01=0x00d6}
0x40fa…4110 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A1 OK?«, t00=0x0029, t01=0x00f6}
0x4110…412a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNC175 NO «, t00=0x0029, t01=0x010c}
0x412a…4164 Head {h00=0x0036, h01=0x0050, text=» LDKL A1,/8000 RETURN CODE TO INDICATE COPY COMND.«, t00=0x0029, t01=0x0126}
0x4164…417c Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0029, t01=0x0160}
0x417c…4196 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBICW,A11 «, t00=0x0029, t01=0x0178}
0x4196…41b8 (42, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CF A14,ICSET SET TIMEOUT «, t00=0x002a, t01=0x0004}
0x41b8…41d8 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 TASK TO CALL «, t00=0x002a, t01=0x0026}
0x41d8…41f0 Head {h00=0x0014, h01=0x0050, text=» LDK A2,2 LENGTH«, t00=0x002a, t01=0x0046}
0x41f0…4206 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,REGI «, t00=0x002a, t01=0x005e}
0x4206…4220 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A11 BUFFER«, t00=0x002a, t01=0x0074}
0x4220…423e Head {h00=0x001a, h01=0x0050, text=» CF A14,ICWRT SEND IT «, t00=0x002a, t01=0x008e}
0x423e…4252 Head {h00=0x0010, h01=0x0050, text=»UNC175 EQU *«, t00=0x002a, t01=0x00ac}
0x4252…425e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00c0}
0x425e…4286 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,THROWB THROW THE REST «, t00=0x002a, t01=0x00cc}
0x4286…42a6 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002a, t01=0x00f4}
0x42a6…42c8 Head {h00=0x001e, h01=0x0050, text=» RF UNC900 INVALID COMMAND«, t00=0x002a, t01=0x0114}
0x42c8…42dc Head {h00=0x0010, h01=0x0050, text=»UNC200 EQU *«, t00=0x002a, t01=0x0136}
0x42dc…42f4 Head {h00=0x0014, h01=0x0050, text=» ST A8,REGI,A11 «, t00=0x002a, t01=0x014a}
0x42f4…431e Head {h00=0x0026, h01=0x0050, text=» CF A14,ERASE ERASE ENTIRE SCREEN «, t00=0x002a, t01=0x0162}
0x431e…4336 Head {h00=0x0014, h01=0x0050, text=» LD A8,REGI,A11 «, t00=0x002a, t01=0x018c}
0x4336…434a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002b, t01=0x0014}
0x434a…4360 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002b, t01=0x0028}
0x4360…438a Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 INITIATE BUFFER ADDRESS «, t00=0x002b, t01=0x003e}
0x438a…439c Head {h00=0x000e, h01=0x0050, text=» RF UNC500«, t00=0x002b, t01=0x0068}
0x439c…43b0 Head {h00=0x0010, h01=0x0050, text=»UNC300 EQU *«, t00=0x002b, t01=0x007a}
0x43b0…43dc Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASUP ERASE ALL UNPROTECTED«, t00=0x002b, t01=0x008e}
0x43dc…4402 Head {h00=0x0022, h01=0x0050, text=» LDKL A10,THROWB THROW IT AWAY«, t00=0x002b, t01=0x00ba}
0x4402…4422 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE ERROR«, t00=0x002b, t01=0x00e0}
0x4422…4434 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0100}
0x4434…4448 Head {h00=0x0010, h01=0x0050, text=»UNC500 EQU *«, t00=0x002b, t01=0x0112}
0x4448…4468 Head {h00=0x001c, h01=0x0050, text=» LDK A1,ICOWCC GET INDEX«, t00=0x002b, t01=0x0126}
0x4468…4482 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002b, t01=0x0146}
0x4482…4494 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002b, t01=0x0160}
0x4494…44a6 Head {h00=0x000e, h01=0x0050, text=» RF UNC900«, t00=0x002b, t01=0x0172}
0x44a6…44d2 Head {h00=0x0028, h01=0x0050, text=»UNC600 EQU * ENTRY LABEL FROM RETTAB«, t00=0x002b, t01=0x0184}
0x44d2…4502 Head {h00=0x002c, h01=0x0050, text=» CF A14,P1WCC PROCESS WCC BEFORE UPDATE «, t00=0x002c, t01=0x0020}
0x4502…4514 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002c, t01=0x0050}
0x4514…453a Head {h00=0x0022, h01=0x0050, text=» ADKL A3,BVDU GET REAL ADDRESS«, t00=0x002c, t01=0x0062}
0x453a…454e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x002c, t01=0x0088}
0x454e…4578 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x002c, t01=0x009c}
0x4578…45a2 Head {h00=0x0026, h01=0x0050, text=» LDK A1,IORDER INDICATE NEXT CALL «, t00=0x002c, t01=0x00c6}
0x45a2…45b6 Head {h00=0x0010, h01=0x0050, text=»UNC800 EQU *«, t00=0x002c, t01=0x00f0}
0x45b6…45d0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x002c, t01=0x0104}
0x45d0…45e2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x011e}
0x45e2…45f6 Head {h00=0x0010, h01=0x0050, text=»UNC900 EQU *«, t00=0x002c, t01=0x0130}
0x45f6…4606 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x0144}
0x4606…4614 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0154}
0x4614…4656 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002c, t01=0x0162}
0x4656…4698 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0014}
0x4698…46da Head {h00=0x003e, h01=0x0050, text=»* UNPORD UNPACK ORDERS *«, t00=0x002d, t01=0x0056}
0x46da…471c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0098}
0x471c…475e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002d, t01=0x00da}
0x475e…4772 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002d, t01=0x011c}
0x4772…477c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0130}
0x477c…4790 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x002d, t01=0x013a}
0x4790…47b4 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x002d, t01=0x014e}
0x47b4…47d2 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002d, t01=0x0172}
0x47d2…47f4 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x002d, t01=0x0190}
0x47f4…481c Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x002e, t01=0x0022}
0x481c…4832 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x002e, t01=0x004a}
0x4832…4848 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x002e, t01=0x0060}
0x4848…4860 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x002e, t01=0x0076}
0x4860…4878 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x002e, t01=0x008e}
0x4878…4890 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x002e, t01=0x00a6}
0x4890…48a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x00be}
0x48a8…48b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d6}
0x48b2…48f4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002e, t01=0x00e0}
0x48f4…4920 Head {h00=0x0028, h01=0x0050, text=»UNPORD EQU * ENTRY LABEL FROM RETTAB«, t00=0x002e, t01=0x0122}
0x4920…493a Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x002e, t01=0x014e}
0x493a…4954 Head {h00=0x0016, h01=0x0050, text=» RF(L) UNO100 YES «, t00=0x002e, t01=0x0168}
0x4954…4982 Head {h00=0x002a, h01=0x0050, text=» XRKL A10,PTORD INDICATE FOR PT ORDER «, t00=0x002e, t01=0x0182}
0x4982…499e Head {h00=0x0018, h01=0x0050, text=» CWR A5,A4 NEW LINE?«, t00=0x002f, t01=0x0020}
0x499e…49b6 Head {h00=0x0014, h01=0x0050, text=» RF(G) UNO050 NO«, t00=0x002f, t01=0x003c}
0x49b6…49d6 Head {h00=0x001c, h01=0x0050, text=» CF A14,LINE CHECK WRAP «, t00=0x002f, t01=0x0054}
0x49d6…49ea Head {h00=0x0010, h01=0x0050, text=»UNO050 EQU *«, t00=0x002f, t01=0x0074}
0x49ea…4a16 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A3 STORE CHAR. IN VDU BUFFER«, t00=0x002f, t01=0x0088}
0x4a16…4a2e Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x002f, t01=0x00b4}
0x4a2e…4a40 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x002f, t01=0x00cc}
0x4a40…4a58 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x002f, t01=0x00de}
0x4a58…4a6a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x002f, t01=0x00f6}
0x4a6a…4a7c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002f, t01=0x0108}
0x4a7c…4a8e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x011a}
0x4a8e…4aa0 Head {h00=0x000e, h01=0x0050, text=» RF UNO200«, t00=0x002f, t01=0x012c}
0x4aa0…4ab4 Head {h00=0x0010, h01=0x0050, text=»UNO100 EQU *«, t00=0x002f, t01=0x013e}
0x4ab4…4adc Head {h00=0x0024, h01=0x0050, text=» LC A1,CONORD,A2 GET ORDER INDEX«, t00=0x002f, t01=0x0152}
0x4adc…4b0a Head {h00=0x002a, h01=0x0050, text=» CFI A14,ORDTAB,A1 TAKE CARE OF ORDER «, t00=0x002f, t01=0x017a}
0x4b0a…4b1e Head {h00=0x0010, h01=0x0050, text=»UNO200 EQU *«, t00=0x0030, t01=0x0018}
0x4b1e…4b2e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x002c}
0x4b2e…4b3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x003c}
0x4b3c…4b82 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x004a}
0x4b82…4bc8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0090}
0x4bc8…4c0e Head {h00=0x0042, h01=0x0050, text=»* ORDTAB ORDER TABLE * «, t00=0x0030, t01=0x00d6}
0x4c0e…4c54 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0030, t01=0x011c}
0x4c54…4c9a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x0162}
0x4c9a…4cae Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0031, t01=0x0018}
0x4cae…4cd0 Head {h00=0x001e, h01=0x0050, text=» DATA INVAL INVALID CHAR. «, t00=0x0031, t01=0x002c}
0x4cd0…4cec Head {h00=0x0018, h01=0x0050, text=» DATA SF START FIELD«, t00=0x0031, t01=0x004e}
0x4cec…4d10 Head {h00=0x0020, h01=0x0050, text=» DATA SBA SET BUFFER ADDRESS«, t00=0x0031, t01=0x006a}
0x4d10…4d2e Head {h00=0x001a, h01=0x0050, text=» DATA IC INSERT CURSOR«, t00=0x0031, t01=0x008e}
0x4d2e…4d44 Head {h00=0x0012, h01=0x0050, text=» DATA PT TAB. «, t00=0x0031, t01=0x00ac}
0x4d44…4d66 Head {h00=0x001e, h01=0x0050, text=» DATA RA REPEAT TO AADRESS«, t00=0x0031, t01=0x00c2}
0x4d66…4d94 Head {h00=0x002a, h01=0x0050, text=» DATA EUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0031, t01=0x00e4}
0x4d94…4dac Head {h00=0x0014, h01=0x0050, text=» DATA ESC ESCAPE«, t00=0x0031, t01=0x0112}
0x4dac…4dcc Head {h00=0x001c, h01=0x0050, text=» DATA NULCHA NULL CHAR. «, t00=0x0031, t01=0x012a}
0x4dcc…4de6 Head {h00=0x0016, h01=0x0050, text=» DATA NL NEW LINE «, t00=0x0031, t01=0x014a}
0x4de6…4e00 Head {h00=0x0016, h01=0x0050, text=» DATA FF FORM FEED«, t00=0x0031, t01=0x0164}
0x4e00…4e1c Head {h00=0x0018, h01=0x0050, text=» DATA EM END MESSAGE«, t00=0x0031, t01=0x017e}
0x4e1c…4e3c Head {h00=0x001c, h01=0x0050, text=» DATA CR CARRIAGE RETURN«, t00=0x0032, t01=0x000a}
0x4e3c…4e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x002a}
0x4e4a…4e8e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x0038}
0x4e8e…4ed2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x007c}
0x4ed2…4f16 Head {h00=0x0040, h01=0x0050, text=»* SF START FIELD * «, t00=0x0032, t01=0x00c0}
0x4f16…4f5a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0104}
0x4f5a…4f9e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0032, t01=0x0148}
0x4f9e…4fb2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x018c}
0x4fb2…4fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0010}
0x4fbc…4fd6 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0033, t01=0x001a}
0x4fd6…4fec Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0033, t01=0x0034}
0x4fec…5010 Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0033, t01=0x004a}
0x5010…502e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0033, t01=0x006e}
0x502e…5044 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x008c}
0x5044…505a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0033, t01=0x00a2}
0x505a…5070 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0033, t01=0x00b8}
0x5070…508e Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0033, t01=0x00ce}
0x508e…50a6 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0033, t01=0x00ec}
0x50a6…50c6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0033, t01=0x0104}
0x50c6…50de Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0033, t01=0x0124}
0x50de…50f6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x013c}
0x50f6…5100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0154}
0x5100…5144 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x015e}
0x5144…5154 Head {h00=0x000c, h01=0x0050, text=»SF EQU *«, t00=0x0034, t01=0x0012}
0x5154…517e Head {h00=0x0026, h01=0x0050, text=» LDK A1,IOSFAT INDICATE NEXT CALL «, t00=0x0034, t01=0x0022}
0x517e…5198 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x004c}
0x5198…51b4 Head {h00=0x0018, h01=0x0050, text=» RF SF900 GET CHAR. «, t00=0x0034, t01=0x0066}
0x51b4…51e0 Head {h00=0x0028, h01=0x0050, text=»SF100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0034, t01=0x0082}
0x51e0…5202 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT ALBEL «, t00=0x0034, t01=0x00ae}
0x5202…521c Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0034, t01=0x00d0}
0x521c…523e Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0034, t01=0x00ea}
0x523e…525c Head {h00=0x001a, h01=0x0050, text=» ORK A2,/80 ATTR. BIT «, t00=0x0034, t01=0x010c}
0x525c…5272 Head {h00=0x0012, h01=0x0050, text=» CM CURATT,A11«, t00=0x0034, t01=0x012a}
0x5272…5290 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,ATTREC+PTORD«, t00=0x0034, t01=0x0140}
0x5290…52b2 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0034, t01=0x015e}
0x52b2…52ca Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0034, t01=0x0180}
0x52ca…52ea Head {h00=0x001c, h01=0x0050, text=» ANK A1,2 LINE IN FIELD?«, t00=0x0035, t01=0x0008}
0x52ea…5302 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SF600 NO «, t00=0x0035, t01=0x0028}
0x5302…5334 Head {h00=0x002e, h01=0x0050, text=» CF A14,LINATT INDICATE ATTRIBUTE OVERRUN «, t00=0x0035, t01=0x0040}
0x5334…5348 Head {h00=0x0010, h01=0x0050, text=»SF600 EQU * «, t00=0x0035, t01=0x0072}
0x5348…537c Head {h00=0x0030, h01=0x0050, text=» ORKL A10,ATTREC INDICATE ATTRIBUTE RECEIVED«, t00=0x0035, t01=0x0086}
0x537c…539a Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0035, t01=0x00ba}
0x539a…53ac Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x00d8}
0x53ac…53be Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0035, t01=0x00ea}
0x53be…53e2 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =7«, t00=0x0035, t01=0x00fc}
0x53e2…53f6 Head {h00=0x0010, h01=0x0050, text=»SF900 EQU * «, t00=0x0035, t01=0x0120}
0x53f6…5408 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0134}
0x5408…5418 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0146}
0x5418…5426 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0156}
0x5426…546a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0035, t01=0x0164}
0x546a…54ae Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0018}
0x54ae…54f2 Head {h00=0x0040, h01=0x0050, text=»* SBA SET BUFFER ADDRESS * «, t00=0x0036, t01=0x005c}
0x54f2…5536 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0036, t01=0x00a0}
0x5536…557a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0036, t01=0x00e4}
0x557a…558e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x0128}
0x558e…5598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013c}
0x5598…55b2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0036, t01=0x0146}
0x55b2…55c6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0036, t01=0x0160}
0x55c6…55dc Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0036, t01=0x0174}
0x55dc…55f2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0036, t01=0x018a}
0x55f2…5608 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0037, t01=0x0010}
0x5608…561e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0037, t01=0x0026}
0x561e…5634 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0037, t01=0x003c}
0x5634…564a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0037, t01=0x0052}
0x564a…5662 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0037, t01=0x0068}
0x5662…5682 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x0080}
0x5682…569a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0037, t01=0x00a0}
0x569a…56b2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x00b8}
0x56b2…56bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d0}
0x56bc…5700 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0037, t01=0x00da}
0x5700…5712 Head {h00=0x000e, h01=0x0050, text=»SBA EQU * «, t00=0x0037, t01=0x011e}
0x5712…5734 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOSBA1 NEXT LABEL «, t00=0x0037, t01=0x0130}
0x5734…574e Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0037, t01=0x0152}
0x574e…5760 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x016c}
0x5760…577e Head {h00=0x001a, h01=0x0050, text=» RF SBA900 FIRST BYTE «, t00=0x0037, t01=0x017e}
0x577e…57aa Head {h00=0x0028, h01=0x0050, text=»SBA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x000c}
0x57aa…57ca Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0038, t01=0x0038}
0x57ca…57de Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0038, t01=0x0058}
0x57de…57f0 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0038, t01=0x006c}
0x57f0…5806 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IOSBA2«, t00=0x0038, t01=0x007e}
0x5806…5820 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x0094}
0x5820…5832 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x00ae}
0x5832…584e Head {h00=0x0018, h01=0x0050, text=» RF SBA900 NEXT BYTE«, t00=0x0038, t01=0x00c0}
0x584e…587a Head {h00=0x0028, h01=0x0050, text=»SBA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0038, t01=0x00dc}
0x587a…5892 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0038, t01=0x0108}
0x5892…58a6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0038, t01=0x0120}
0x58a6…58b8 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0038, t01=0x0134}
0x58b8…58da Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0038, t01=0x0146}
0x58da…58f4 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0038, t01=0x0168}
0x58f4…591a Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU ILLEGAL ADDRESS?«, t00=0x0038, t01=0x0182}
0x591a…5934 Head {h00=0x0016, h01=0x0050, text=» RF(NL) SBA800 YES«, t00=0x0039, t01=0x0018}
0x5934…5946 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0039, t01=0x0032}
0x5946…5958 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0039, t01=0x0044}
0x5958…596e Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0039, t01=0x0056}
0x596e…5982 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0039, t01=0x006c}
0x5982…59ac Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0039, t01=0x0080}
0x59ac…59da Head {h00=0x002a, h01=0x0050, text=» CF A14,LINE CHECK WRAP AND LINE FLAGS«, t00=0x0039, t01=0x00aa}
0x59da…59f6 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 REURN CODE«, t00=0x0039, t01=0x00d8}
0x59f6…5a08 Head {h00=0x000e, h01=0x0050, text=» RF SBA900«, t00=0x0039, t01=0x00f4}
0x5a08…5a1c Head {h00=0x0010, h01=0x0050, text=»SBA800 EQU *«, t00=0x0039, t01=0x0106}
0x5a1c…5a42 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB DON'T SAVE IT«, t00=0x0039, t01=0x011a}
0x5a42…5a60 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0039, t01=0x0140}
0x5a60…5a74 Head {h00=0x0010, h01=0x0050, text=»SBA900 EQU *«, t00=0x0039, t01=0x015e}
0x5a74…5a84 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0172}
0x5a84…5a92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0182}
0x5a92…5ad4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0039, t01=0x0190}
0x5ad4…5b16 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0042}
0x5b16…5b58 Head {h00=0x003e, h01=0x0050, text=»* IC INSERT CURSOR *«, t00=0x003a, t01=0x0084}
0x5b58…5b9a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x003a, t01=0x00c6}
0x5b9a…5bdc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x003a, t01=0x0108}
0x5bdc…5bf0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x014a}
0x5bf0…5bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015e}
0x5bfa…5c14 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003a, t01=0x0168}
0x5c14…5c2a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x0182}
0x5c2a…5c40 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x003b, t01=0x0008}
0x5c40…5c5e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003b, t01=0x001e}
0x5c5e…5c74 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003b, t01=0x003c}
0x5c74…5c8a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003b, t01=0x0052}
0x5c8a…5ca0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003b, t01=0x0068}
0x5ca0…5cb8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003b, t01=0x007e}
0x5cb8…5cd8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x0096}
0x5cd8…5cf0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003b, t01=0x00b6}
0x5cf0…5d08 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x00ce}
0x5d08…5d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e6}
0x5d12…5d4a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003b, t01=0x00f0}
0x5d4a…5d5a Head {h00=0x000c, h01=0x0050, text=»IC EQU *«, t00=0x003b, t01=0x0128}
0x5d5a…5d72 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x0138}
0x5d72…5d92 Head {h00=0x001c, h01=0x0050, text=» ORKL A10,PTORD INDICATE«, t00=0x003b, t01=0x0150}
0x5d92…5db0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x0170}
0x5db0…5dc0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x018e}
0x5dc0…5dce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x000e}
0x5dce…5e12 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x001c}
0x5e12…5e56 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0060}
0x5e56…5e9a Head {h00=0x0040, h01=0x0050, text=»* PT PROGRAM TAB. * «, t00=0x003c, t01=0x00a4}
0x5e9a…5ede Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00e8}
0x5ede…5f22 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x003c, t01=0x012c}
0x5f22…5f36 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0170}
0x5f36…5f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0184}
0x5f40…5f5a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x018e}
0x5f5a…5f6e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x003d, t01=0x0018}
0x5f6e…5f92 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x003d, t01=0x002c}
0x5f92…5fb0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003d, t01=0x0050}
0x5fb0…5fc6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003d, t01=0x006e}
0x5fc6…5fe4 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003d, t01=0x0084}
0x5fe4…5ffa Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003d, t01=0x00a2}
0x5ffa…6010 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003d, t01=0x00b8}
0x6010…6028 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x003d, t01=0x00ce}
0x6028…6040 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x003d, t01=0x00e6}
0x6040…6058 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x003d, t01=0x00fe}
0x6058…6070 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003d, t01=0x0116}
0x6070…607a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012e}
0x607a…60be Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x0138}
0x60be…60ce Head {h00=0x000c, h01=0x0050, text=»PT EQU *«, t00=0x003d, t01=0x017c}
0x60ce…60e2 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x003d, t01=0x018c}
0x60e2…6114 Head {h00=0x002e, h01=0x0050, text=» ANK A1,PTORD FOLLOWING ORDER OR COMMAND? «, t00=0x003e, t01=0x0010}
0x6114…612e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT300 YES «, t00=0x003e, t01=0x0042}
0x612e…6162 Head {h00=0x0030, h01=0x0050, text=» LDK A7,NULL FILL WITH NULLS TO END OF FIELD«, t00=0x003e, t01=0x005c}
0x6162…6188 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003e, t01=0x0090}
0x6188…61b0 Head {h00=0x0024, h01=0x0050, text=» RF(Z) PT210 YES, PROCESS IT DK1«, t00=0x003e, t01=0x00b6}
0x61b0…61c4 Head {h00=0x0010, h01=0x0050, text=»PT200 EQU * «, t00=0x003e, t01=0x00de}
0x61c4…61e6 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003e, t01=0x00f2}
0x61e6…6208 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003e, t01=0x0114}
0x6208…622e Head {h00=0x0022, h01=0x0050, text=» RF(Z) PT800 YES, KUNTA KINTE «, t00=0x003e, t01=0x0136}
0x622e…6246 Head {h00=0x0014, h01=0x0050, text=»PT210 EQU * DK1«, t00=0x003e, t01=0x015c}
0x6246…6258 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x003e, t01=0x0174}
0x6258…6276 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x003e, t01=0x0186}
0x6276…6290 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT400 YES «, t00=0x003f, t01=0x0014}
0x6290…62b4 Head {h00=0x0020, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. «, t00=0x003f, t01=0x002e}
0x62b4…62cc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x003f, t01=0x0052}
0x62cc…62de Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x003f, t01=0x006a}
0x62de…62f6 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x003f, t01=0x007c}
0x62f6…6308 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x0094}
0x6308…631a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x003f, t01=0x00a6}
0x631a…632c Head {h00=0x000e, h01=0x0050, text=» RB PT200 «, t00=0x003f, t01=0x00b8}
0x632c…6344 Head {h00=0x0014, h01=0x0050, text=»PT300 EQU * DK1«, t00=0x003f, t01=0x00ca}
0x6344…636a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 AT POS. ZERO ? DK1 «, t00=0x003f, t01=0x00e2}
0x636a…6394 Head {h00=0x0026, h01=0x0050, text=» RF(Z) PT410 YES, PROCESS IT. DK1 «, t00=0x003f, t01=0x0108}
0x6394…63a8 Head {h00=0x0010, h01=0x0050, text=»PT400 EQU * «, t00=0x003f, t01=0x0132}
0x63a8…63ca Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x003f, t01=0x0146}
0x63ca…63ec Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 END OF BUFFER? «, t00=0x003f, t01=0x0168}
0x63ec…6410 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PT700 YES OS AND DOS «, t00=0x003f, t01=0x018a}
0x6410…6428 Head {h00=0x0014, h01=0x0050, text=»PT410 EQU * DK1«, t00=0x0040, t01=0x001e}
0x6428…6444 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0040, t01=0x0036}
0x6444…6462 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/80 ATTRIBUTE?«, t00=0x0040, t01=0x0052}
0x6462…647c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PT500 YES «, t00=0x0040, t01=0x0070}
0x647c…6494 Head {h00=0x0014, h01=0x0050, text=»PT420 EQU * DK1«, t00=0x0040, t01=0x008a}
0x6494…64a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x00a2}
0x64a6…64b8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x00b4}
0x64b8…64ca Head {h00=0x000e, h01=0x0050, text=» RB PT400 «, t00=0x0040, t01=0x00c6}
0x64ca…64de Head {h00=0x0010, h01=0x0050, text=»PT500 EQU * «, t00=0x0040, t01=0x00d8}
0x64de…6508 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET ATTRIBUTE AGAIN DK1«, t00=0x0040, t01=0x00ec}
0x6508…6526 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PROTECTED?«, t00=0x0040, t01=0x0116}
0x6526…6540 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) PT420 YES «, t00=0x0040, t01=0x0134}
0x6540…6552 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0040, t01=0x014e}
0x6552…6564 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0040, t01=0x0160}
0x6564…6586 Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0040, t01=0x0172}
0x6586…659a (65, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PT700 EQU * «, t00=0x0041, t01=0x0004}
0x659a…65b2 Head {h00=0x0014, h01=0x0050, text=» ORKL A10,PTORD «, t00=0x0041, t01=0x0018}
0x65b2…65c6 Head {h00=0x0010, h01=0x0050, text=»PT800 EQU * «, t00=0x0041, t01=0x0030}
0x65c6…65e4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0041, t01=0x0044}
0x65e4…65f4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x0062}
0x65f4…6602 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0072}
0x6602…6648 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0041, t01=0x0080}
0x6648…668e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x00c6}
0x668e…66d4 Head {h00=0x0042, h01=0x0050, text=»* RA REPEAT TO ADDRESS * «, t00=0x0041, t01=0x010c}
0x66d4…671a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0041, t01=0x0152}
0x671a…6760 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0042, t01=0x0008}
0x6760…6774 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x004e}
0x6774…677e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0062}
0x677e…6798 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0042, t01=0x006c}
0x6798…67ba Head {h00=0x001e, h01=0x0050, text=»* A2= CHAR. TO BE REPEATED«, t00=0x0042, t01=0x0086}
0x67ba…67de Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0042, t01=0x00a8}
0x67de…67fc Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0042, t01=0x00cc}
0x67fc…6812 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0042, t01=0x00ea}
0x6812…683a Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0042, t01=0x0100}
0x683a…6850 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0042, t01=0x0128}
0x6850…686e Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0042, t01=0x013e}
0x686e…6886 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0042, t01=0x015c}
0x6886…68a6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0042, t01=0x0174}
0x68a6…68be (67, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0043, t01=0x0004}
0x68be…68d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0043, t01=0x001c}
0x68d6…68e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0034}
0x68e0…691a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0043, t01=0x003e}
0x691a…692a Head {h00=0x000c, h01=0x0050, text=»RA EQU *«, t00=0x0043, t01=0x0078}
0x692a…694c Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA1 NEXT LABEL «, t00=0x0043, t01=0x0088}
0x694c…6966 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x00aa}
0x6966…6978 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0043, t01=0x00c4}
0x6978…6994 Head {h00=0x0018, h01=0x0050, text=» RF RA900 FIRST BYTE«, t00=0x0043, t01=0x00d6}
0x6994…69c0 Head {h00=0x0028, h01=0x0050, text=»RA100 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0043, t01=0x00f2}
0x69c0…69e0 Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0043, t01=0x011e}
0x69e0…69f4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0043, t01=0x013e}
0x69f4…6a06 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0043, t01=0x0152}
0x6a06…6a28 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORAA2 NEXT LABEL «, t00=0x0043, t01=0x0164}
0x6a28…6a42 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0043, t01=0x0186}
0x6a42…6a54 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0010}
0x6a54…6a72 Head {h00=0x001a, h01=0x0050, text=» RF RA900 SECOND BYTE «, t00=0x0044, t01=0x0022}
0x6a72…6a9e Head {h00=0x0028, h01=0x0050, text=»RA200 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x0040}
0x6a9e…6ab6 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0044, t01=0x006c}
0x6ab6…6aca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0044, t01=0x0084}
0x6aca…6adc Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0044, t01=0x0098}
0x6adc…6b02 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LBVDU INVALID ADDRESS «, t00=0x0044, t01=0x00aa}
0x6b02…6b1c Head {h00=0x0016, h01=0x0050, text=» RF(NL) RA800 YES «, t00=0x0044, t01=0x00d0}
0x6b1c…6b3e Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORACH NEXT LABEL «, t00=0x0044, t01=0x00ea}
0x6b3e…6b58 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0044, t01=0x010c}
0x6b58…6b6a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0126}
0x6b6a…6b86 Head {h00=0x0018, h01=0x0050, text=» RF RA900 CHAR. BYTE«, t00=0x0044, t01=0x0138}
0x6b86…6bb2 Head {h00=0x0028, h01=0x0050, text=»RA250 EQU * ENTRY LABEL FROM RETTAB «, t00=0x0044, t01=0x0154}
0x6bb2…6bc8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,IORDER«, t00=0x0044, t01=0x0180}
0x6bc8…6be2 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0045, t01=0x0008}
0x6be2…6bf6 Head {h00=0x0010, h01=0x0050, text=»RA300 EQU * «, t00=0x0045, t01=0x0022}
0x6bf6…6c1c Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU-BUFFER«, t00=0x0045, t01=0x0036}
0x6c1c…6c34 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0045, t01=0x005c}
0x6c34…6c46 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0045, t01=0x0074}
0x6c46…6c5e Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0045, t01=0x0086}
0x6c5e…6c70 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0045, t01=0x009e}
0x6c70…6c82 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x00b0}
0x6c82…6ca6 Head {h00=0x0020, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP =1«, t00=0x0045, t01=0x00c2}
0x6ca6…6cca Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ALL REPEATED? =1 «, t00=0x0045, t01=0x00e6}
0x6cca…6ce6 Head {h00=0x0018, h01=0x0050, text=» RB(NE) RA300 NO =1 «, t00=0x0045, t01=0x010a}
0x6ce6…6d10 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x0045, t01=0x0126}
0x6d10…6d2e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0045, t01=0x0150}
0x6d2e…6d40 Head {h00=0x000e, h01=0x0050, text=» RF RA900 «, t00=0x0045, t01=0x016e}
0x6d40…6d54 Head {h00=0x0010, h01=0x0050, text=»RA800 EQU * «, t00=0x0045, t01=0x0180}
0x6d54…6d7a (70, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ORKL A10,THROWB THROW IT AWAY«, t00=0x0046, t01=0x0004}
0x6d7a…6d98 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0046, t01=0x002a}
0x6d98…6dac Head {h00=0x0010, h01=0x0050, text=»RA900 EQU * «, t00=0x0046, t01=0x0048}
0x6dac…6dbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x005c}
0x6dbc…6dca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x006c}
0x6dca…6e08 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x007a}
0x6e08…6e46 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00b8}
0x6e46…6e84 Head {h00=0x003a, h01=0x0050, text=»* EUA ERASE UNPRO. TO ADDRESS *«, t00=0x0046, t01=0x00f6}
0x6e84…6ec2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0134}
0x6ec2…6f00 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0046, t01=0x0172}
0x6f00…6f14 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0047, t01=0x0020}
0x6f14…6f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0034}
0x6f1e…6f38 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0047, t01=0x003e}
0x6f38…6f4c Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0047, t01=0x0058}
0x6f4c…6f62 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0047, t01=0x006c}
0x6f62…6f78 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0047, t01=0x0082}
0x6f78…6f8e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0047, t01=0x0098}
0x6f8e…6fa4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0047, t01=0x00ae}
0x6fa4…6fba Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x00c4}
0x6fba…6fd0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x00da}
0x6fd0…6fe8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0047, t01=0x00f0}
0x6fe8…7008 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0108}
0x7008…7020 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0047, t01=0x0128}
0x7020…7038 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0140}
0x7038…7042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0158}
0x7042…7082 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0047, t01=0x0162}
0x7082…7094 Head {h00=0x000e, h01=0x0050, text=»EUA EQU * «, t00=0x0048, t01=0x0012}
0x7094…70b6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA1 NEXT LABEL «, t00=0x0048, t01=0x0024}
0x70b6…70d0 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x0046}
0x70d0…70e2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0060}
0x70e2…7100 Head {h00=0x001a, h01=0x0050, text=» RF EUA900 FIRST BYTE «, t00=0x0048, t01=0x0072}
0x7100…712c Head {h00=0x0028, h01=0x0050, text=»EUA100 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x0090}
0x712c…714c Head {h00=0x001c, h01=0x0050, text=» LC A7,CONATT,A2 CONVERT«, t00=0x0048, t01=0x00bc}
0x714c…7160 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0048, t01=0x00dc}
0x7160…7172 Head {h00=0x000e, h01=0x0050, text=» SLL A7,6 «, t00=0x0048, t01=0x00f0}
0x7172…7194 Head {h00=0x001e, h01=0x0050, text=» LDK A1,IOEUA2 NEXT LABEL «, t00=0x0048, t01=0x0102}
0x7194…71ae Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0048, t01=0x0124}
0x71ae…71c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x013e}
0x71c0…71de Head {h00=0x001a, h01=0x0050, text=» RF EUA900 SECOND BYTE«, t00=0x0048, t01=0x0150}
0x71de…720a Head {h00=0x0028, h01=0x0050, text=»EUA200 EQU * ENTRY LABEL FROM RETTAB«, t00=0x0048, t01=0x016e}
0x720a…7222 Head {h00=0x0014, h01=0x0050, text=» LC A2,CONATT,A2«, t00=0x0049, t01=0x000a}
0x7222…7236 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0049, t01=0x0022}
0x7236…7248 Head {h00=0x000e, h01=0x0050, text=» ORR A7,A2«, t00=0x0049, t01=0x0036}
0x7248…726a Head {h00=0x001e, h01=0x0050, text=» LDK A1,IORDER NEXT LABEL «, t00=0x0049, t01=0x0048}
0x726a…7284 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0049, t01=0x006a}
0x7284…72a8 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 RESTORE ADDR. =6 «, t00=0x0049, t01=0x0084}
0x72a8…72ce Head {h00=0x0022, h01=0x0050, text=» CWK A1,LBVDU INVALID ADDRESS?«, t00=0x0049, t01=0x00a8}
0x72ce…72e8 Head {h00=0x0016, h01=0x0050, text=» RF(NL) EUA800 YES«, t00=0x0049, t01=0x00ce}
0x72e8…7306 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 SAVE A1 =6 «, t00=0x0049, t01=0x00e8}
0x7306…731c Head {h00=0x0012, h01=0x0050, text=» LDR A1,A4 =6«, t00=0x0049, t01=0x0106}
0x731c…734c Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASB SEARCH ATTR. BACKWARDS =6«, t00=0x0049, t01=0x011c}
0x734c…736c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 RESTORE A1 =6«, t00=0x0049, t01=0x014c}
0x736c…7394 Head {h00=0x0024, h01=0x0050, text=» STR A8,A14 SAVE DCBF-POINTER =5«, t00=0x0049, t01=0x016c}
0x7394…73c0 (74, 0, 398) Head {h00=0x0028, h01=0x0050, text=» SUKL A14,2 ADJUST STACK POINTER =5 «, t00=0x004a, t01=0x0004}
0x73c0…73ee Head {h00=0x002a, h01=0x0050, text=» CF A14,ERASUA ERASE UNPRO. TO ADDRESS«, t00=0x004a, t01=0x0030}
0x73ee…741a Head {h00=0x0028, h01=0x0050, text=» ADKL A14,2 ADJUST STACK POINTER =5 «, t00=0x004a, t01=0x005e}
0x741a…7446 Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A14 RESTORE DCBF-POINTER =5«, t00=0x004a, t01=0x008a}
0x7446…7464 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x004a, t01=0x00b6}
0x7464…748e Head {h00=0x0026, h01=0x0050, text=» ORKL A10,PTORD INDICATE PT ORDER «, t00=0x004a, t01=0x00d4}
0x748e…74a0 Head {h00=0x000e, h01=0x0050, text=» RF EUA900«, t00=0x004a, t01=0x00fe}
0x74a0…74b4 Head {h00=0x0010, h01=0x0050, text=»EUA800 EQU *«, t00=0x004a, t01=0x0110}
0x74b4…74d2 Head {h00=0x001a, h01=0x0050, text=» ORKL A10,THROWB RUBB.«, t00=0x004a, t01=0x0124}
0x74d2…74f0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x004a, t01=0x0142}
0x74f0…7504 Head {h00=0x0010, h01=0x0050, text=»EUA900 EQU *«, t00=0x004a, t01=0x0160}
0x7504…7514 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x0174}
0x7514…7522 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0184}
0x7522…7562 (75, 0, 400) Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004b, t01=0x0004}
0x7562…75a2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x0044}
0x75a2…75e2 Head {h00=0x003c, h01=0x0050, text=»* CHAR. < /20 BUT NOT ORDER *«, t00=0x004b, t01=0x0084}
0x75e2…7622 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x004b, t01=0x00c4}
0x7622…7662 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x004b, t01=0x0104}
0x7662…7676 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004b, t01=0x0144}
0x7676…7680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0158}
0x7680…769a Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x004b, t01=0x0162}
0x769a…76ae Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004b, t01=0x017c}
0x76ae…76d2 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004b, t01=0x0190}
0x76d2…76f0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004c, t01=0x0024}
0x76f0…7706 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004c, t01=0x0042}
0x7706…772e Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x004c, t01=0x0058}
0x772e…7744 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004c, t01=0x0080}
0x7744…775a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004c, t01=0x0096}
0x775a…7772 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x004c, t01=0x00ac}
0x7772…7792 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004c, t01=0x00c4}
0x7792…77aa Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x004c, t01=0x00e4}
0x77aa…77c2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004c, t01=0x00fc}
0x77c2…77cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0114}
0x77cc…7804 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x004c, t01=0x011e}
0x7804…7816 Head {h00=0x000e, h01=0x0050, text=»ESC EQU * «, t00=0x004c, t01=0x0156}
0x7816…7840 Head {h00=0x0026, h01=0x0050, text=» ORKL A10,LICREC INDICATE COMMAND «, t00=0x004c, t01=0x0168}
0x7840…7864 (77, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 STOP ORDER PROCESS«, t00=0x004d, t01=0x0004}
0x7864…7876 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004d, t01=0x0028}
0x7876…788a Head {h00=0x0010, h01=0x0050, text=»INVAL EQU * «, t00=0x004d, t01=0x003a}
0x788a…78b0 Head {h00=0x0022, h01=0x0050, text=» ORKL A10,/9800 END UNPACKING «, t00=0x004d, t01=0x004e}
0x78b0…78c2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x004d, t01=0x0074}
0x78c2…78d4 Head {h00=0x000e, h01=0x0050, text=» RF CHARET«, t00=0x004d, t01=0x0086}
0x78d4…78e8 Head {h00=0x0010, h01=0x0050, text=»NULCHA EQU *«, t00=0x004d, t01=0x0098}
0x78e8…78f8 Head {h00=0x000c, h01=0x0050, text=»NL EQU *«, t00=0x004d, t01=0x00ac}
0x78f8…7908 Head {h00=0x000c, h01=0x0050, text=»FF EQU *«, t00=0x004d, t01=0x00bc}
0x7908…7918 Head {h00=0x000c, h01=0x0050, text=»EM EQU *«, t00=0x004d, t01=0x00cc}
0x7918…7928 Head {h00=0x000c, h01=0x0050, text=»CR EQU *«, t00=0x004d, t01=0x00dc}
0x7928…794a Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x004d, t01=0x00ec}
0x794a…7968 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004d, t01=0x010e}
0x7968…7980 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004d, t01=0x012c}
0x7980…7992 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x004d, t01=0x0144}
0x7992…79aa Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004d, t01=0x0156}
0x79aa…79d4 Head {h00=0x0026, h01=0x0050, text=» XRKL A10,PTORD INDICATE PT ORDER «, t00=0x004d, t01=0x016e}
0x79d4…79e6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004e, t01=0x0008}
0x79e6…79f8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x001a}
0x79f8…7a12 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 CONTINUE«, t00=0x004e, t01=0x002c}
0x7a12…7a26 Head {h00=0x0010, h01=0x0050, text=»CHARET EQU *«, t00=0x004e, t01=0x0046}
0x7a26…7a36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x005a}
0x7a36…7a44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x006a}
0x7a44…7a8c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004e, t01=0x0078}
0x7a8c…7ad4 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00c0}
0x7ad4…7b1c Head {h00=0x0044, h01=0x0050, text=»* PACKSY PACK DC BUFFER IN SYSTEM MODE *«, t00=0x004e, t01=0x0108}
0x7b1c…7b64 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x004e, t01=0x0150}
0x7b64…7bac Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x004f, t01=0x0008}
0x7bac…7bc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004f, t01=0x0050}
0x7bc0…7bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0064}
0x7bca…7bdc Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x004f, t01=0x006e}
0x7bdc…7c00 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004f, t01=0x0080}
0x7c00…7c1e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x004f, t01=0x00a4}
0x7c1e…7c34 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004f, t01=0x00c2}
0x7c34…7c4a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004f, t01=0x00d8}
0x7c4a…7c6c Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x004f, t01=0x00ee}
0x7c6c…7c8c Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x004f, t01=0x0110}
0x7c8c…7cac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004f, t01=0x0130}
0x7cac…7cca Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x004f, t01=0x0150}
0x7cca…7ce2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004f, t01=0x016e}
0x7ce2…7cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0186}
0x7cec…7d34 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x004f, t01=0x0190}
0x7d34…7d48 Head {h00=0x0010, h01=0x0050, text=»PACKSY EQU *«, t00=0x0050, t01=0x0048}
0x7d48…7d5a Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0050, t01=0x005c}
0x7d5a…7d74 Head {h00=0x0016, h01=0x0050, text=» LDKL A9,0 COUNTER«, t00=0x0050, t01=0x006e}
0x7d74…7d9c Head {h00=0x0024, h01=0x0050, text=» LD A3,CURPOS,A11 GET START POS.«, t00=0x0050, t01=0x0088}
0x7d9c…7dc6 Head {h00=0x0026, h01=0x0050, text=» CWK A3,/800 ANY CHAR. ON DISPLAY?«, t00=0x0050, t01=0x00b0}
0x7dc6…7dde Head {h00=0x0014, h01=0x0050, text=» RF(E) PASY40 NO«, t00=0x0050, t01=0x00da}
0x7dde…7e0c Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0050, t01=0x00f2}
0x7e0c…7e1e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0050, t01=0x0120}
0x7e1e…7e46 Head {h00=0x0024, h01=0x0050, text=» SUR A1,A3 GET LENGTH OF MESSAGE«, t00=0x0050, t01=0x0132}
0x7e46…7e6c Head {h00=0x0022, h01=0x0050, text=» RF(NN) PASY10 NOT WRAP AROUND«, t00=0x0050, t01=0x015a}
0x7e6c…7e98 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0050, t01=0x0180}
0x7e98…7ebc Head {h00=0x0020, h01=0x0050, text=» SUR A1,A3 GET LENGTH AGAIN «, t00=0x0051, t01=0x001c}
0x7ebc…7ed0 Head {h00=0x0010, h01=0x0050, text=»PASY10 EQU *«, t00=0x0051, t01=0x0040}
0x7ed0…7ef4 Head {h00=0x0020, h01=0x0050, text=» CWK A1,256 ILLEGAL LENGTH? «, t00=0x0051, t01=0x0054}
0x7ef4…7f0e Head {h00=0x0016, h01=0x0050, text=» RF(NG) PASY20 NO «, t00=0x0051, t01=0x0078}
0x7f0e…7f30 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,256 ADJUST LENGTH«, t00=0x0051, t01=0x0092}
0x7f30…7f44 Head {h00=0x0010, h01=0x0050, text=»PASY20 EQU *«, t00=0x0051, t01=0x00b4}
0x7f44…7f5a Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0051, t01=0x00c8}
0x7f5a…7f6e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0051, t01=0x00de}
0x7f6e…7f82 Head {h00=0x0010, h01=0x0050, text=»PASY30 EQU *«, t00=0x0051, t01=0x00f2}
0x7f82…7fa2 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A9 ALL EXAMINED?«, t00=0x0051, t01=0x0106}
0x7fa2…7fbc Head {h00=0x0016, h01=0x0050, text=» RF(E) PASY40 YES «, t00=0x0051, t01=0x0126}
0x7fbc…7fe6 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR IN VDU BUFFER «, t00=0x0051, t01=0x0140}
0x7fe6…7ff8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0051, t01=0x016a}
0x7ff8…8018 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0051, t01=0x017c}
0x8018…803e Head {h00=0x0022, h01=0x0050, text=» RB(E) PASY30 YES, DON'T STORE«, t00=0x0052, t01=0x000c}
0x803e…806c Head {h00=0x002a, h01=0x0050, text=» CF A14,PDCCH STORE CHAR. IN DC BUFFER«, t00=0x0052, t01=0x0032}
0x806c…807e Head {h00=0x000e, h01=0x0050, text=» RB PASY30«, t00=0x0052, t01=0x0060}
0x807e…8092 Head {h00=0x0010, h01=0x0050, text=»PASY40 EQU *«, t00=0x0052, t01=0x0072}
0x8092…80ba Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE LAST IN CHAIN«, t00=0x0052, t01=0x0086}
0x80ba…80dc Head {h00=0x001e, h01=0x0050, text=» CF A14,DCWRIT SEND BUFFER«, t00=0x0052, t01=0x00ae}
0x80dc…8106 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A12 GET BUFFER TO RELEASE «, t00=0x0052, t01=0x00d0}
0x8106…812c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0052, t01=0x00fa}
0x812c…8138 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0120}
0x8138…8148 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0052, t01=0x012c}
0x8148…8156 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x013c}
0x8156…819c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0052, t01=0x014a}
0x819c…81e2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0052, t01=0x0190}
0x81e2…8228 Head {h00=0x0042, h01=0x0050, text=»* UNPSYS UNPACK DC BUFFER IN SYSTEM MODE * «, t00=0x0053, t01=0x0046}
0x8228…826e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0053, t01=0x008c}
0x826e…82b4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0053, t01=0x00d2}
0x82b4…82c8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0053, t01=0x0118}
0x82c8…82d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x012c}
0x82d2…82e6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0053, t01=0x0136}
0x82e6…830a Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0053, t01=0x014a}
0x830a…8328 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0053, t01=0x016e}
0x8328…834a Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0053, t01=0x018c}
0x834a…8372 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0054, t01=0x001e}
0x8372…8394 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0054, t01=0x0046}
0x8394…83b4 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0054, t01=0x0068}
0x83b4…83cc Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0054, t01=0x0088}
0x83cc…83ec Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0054, t01=0x00a0}
0x83ec…8404 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0054, t01=0x00c0}
0x8404…841c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0054, t01=0x00d8}
0x841c…8426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00f0}
0x8426…846c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0054, t01=0x00fa}
0x846c…8480 Head {h00=0x0010, h01=0x0050, text=»UNPSYS EQU *«, t00=0x0054, t01=0x0140}
0x8480…8492 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0054, t01=0x0154}
0x8492…84aa Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0054, t01=0x0166}
0x84aa…84bc Head {h00=0x000e, h01=0x0050, text=» ORK A1,3 «, t00=0x0054, t01=0x017e}
0x84bc…84d4 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0054, t01=0x0190}
0x84d4…84ea Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP4ON«, t00=0x0055, t01=0x0018}
0x84ea…8518 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0055, t01=0x002e}
0x8518…853a Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 CURSOR ADDRESS «, t00=0x0055, t01=0x005c}
0x853a…8550 Head {h00=0x0012, h01=0x0050, text=» ADKL A3,BVDU «, t00=0x0055, t01=0x007e}
0x8550…8576 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 VDU BUFFER ADDRESS«, t00=0x0055, t01=0x0094}
0x8576…85a6 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET DC BUFFER ADDRESS «, t00=0x0055, t01=0x00ba}
0x85a6…85cc Head {h00=0x0022, h01=0x0050, text=» SUR A9,A9 INDEX IN DC BUFFER «, t00=0x0055, t01=0x00ea}
0x85cc…85e0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0055, t01=0x0110}
0x85e0…85f6 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0055, t01=0x0124}
0x85f6…8620 Head {h00=0x0026, h01=0x0050, text=» CF A14,LINE GET INTERNAL LINEFLAG«, t00=0x0055, t01=0x013a}
0x8620…8634 Head {h00=0x0010, h01=0x0050, text=»UNPS05 EQU *«, t00=0x0055, t01=0x0164}
0x8634…8662 Head {h00=0x002a, h01=0x0050, text=» CF A14,GDCCH GET CHAR. IN DC BUFFER «, t00=0x0055, t01=0x0178}
0x8662…8684 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 ANYTHING LEFT? «, t00=0x0056, t01=0x0016}
0x8684…869e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) UNPS60 NO «, t00=0x0056, t01=0x0038}
0x869e…86b8 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/31 BIND? «, t00=0x0056, t01=0x0052}
0x86b8…86da Head {h00=0x001e, h01=0x0050, text=» RF(E) UNPS50 YES,PERHAPS «, t00=0x0056, t01=0x006c}
0x86da…86ee Head {h00=0x0010, h01=0x0050, text=»UNPS07 EQU *«, t00=0x0056, t01=0x008e}
0x86ee…8708 Head {h00=0x0016, h01=0x0050, text=» CWK A2,/20 ORDER?«, t00=0x0056, t01=0x00a2}
0x8708…8722 Head {h00=0x0016, h01=0x0050, text=» RF(NL) UNPS40 NO «, t00=0x0056, t01=0x00bc}
0x8722…8740 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/0A NEW LINE? «, t00=0x0056, t01=0x00d6}
0x8740…875a Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS10 NO «, t00=0x0056, t01=0x00f4}
0x875a…8782 Head {h00=0x0024, h01=0x0050, text=» CF A14,NLROUT PERFORM NEW LINE «, t00=0x0056, t01=0x010e}
0x8782…8794 Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0056, t01=0x0136}
0x8794…87a8 Head {h00=0x0010, h01=0x0050, text=»UNPS10 EQU *«, t00=0x0056, t01=0x0148}
0x87a8…87c0 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1C IFS?«, t00=0x0056, t01=0x015c}
0x87c0…87da Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS20 NO «, t00=0x0056, t01=0x0174}
0x87da…87fc Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2A REPLACE WITH *«, t00=0x0056, t01=0x018e}
0x87fc…880e Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0057, t01=0x0020}
0x880e…8822 Head {h00=0x0010, h01=0x0050, text=»UNPS20 EQU *«, t00=0x0057, t01=0x0032}
0x8822…883a Head {h00=0x0014, h01=0x0050, text=» CWK A2,/1E IRS?«, t00=0x0057, t01=0x0046}
0x883a…8854 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS30 NO «, t00=0x0057, t01=0x005e}
0x8854…8876 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/3B REPLACE WITH ;«, t00=0x0057, t01=0x0078}
0x8876…8888 Head {h00=0x000e, h01=0x0050, text=» RF UNPS40«, t00=0x0057, t01=0x009a}
0x8888…889c Head {h00=0x0010, h01=0x0050, text=»UNPS30 EQU *«, t00=0x0057, t01=0x00ac}
0x889c…88b6 Head {h00=0x0016, h01=0x0050, text=» CWK A2,NULL NULL?«, t00=0x0057, t01=0x00c0}
0x88b6…88d0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UNPS40 NO «, t00=0x0057, t01=0x00da}
0x88d0…88f6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/20 REPLACE WITH SPACE«, t00=0x0057, t01=0x00f4}
0x88f6…890a Head {h00=0x0010, h01=0x0050, text=»UNPS40 EQU *«, t00=0x0057, t01=0x011a}
0x890a…892c Head {h00=0x001e, h01=0x0050, text=» CF A14,LINWRP CHECK WRAP «, t00=0x0057, t01=0x012e}
0x892c…8952 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 STORE IN VDU BUFFER«, t00=0x0057, t01=0x0150}
0x8952…896a Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0057, t01=0x0176}
0x896a…897c Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0057, t01=0x018e}
0x897c…8994 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0058, t01=0x0010}
0x8994…89a6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0058, t01=0x0028}
0x89a6…89b8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0058, t01=0x003a}
0x89b8…89ca Head {h00=0x000e, h01=0x0050, text=» RB UNPS05«, t00=0x0058, t01=0x004c}
0x89ca…89de Head {h00=0x0010, h01=0x0050, text=»UNPS50 EQU *«, t00=0x0058, t01=0x005e}
0x89de…89f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x0072}
0x89f4…8a16 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE SHURE OF BIND?«, t00=0x0058, t01=0x0088}
0x8a16…8a32 Head {h00=0x0018, h01=0x0050, text=» RF(Z) UNPS55 ALMOST«, t00=0x0058, t01=0x00aa}
0x8a32…8a44 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,2«, t00=0x0058, t01=0x00c6}
0x8a44…8a56 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,2«, t00=0x0058, t01=0x00d8}
0x8a56…8a6c Head {h00=0x0012, h01=0x0050, text=» CF A14,GDCCH «, t00=0x0058, t01=0x00ea}
0x8a6c…8a7e Head {h00=0x000e, h01=0x0050, text=» RB UNPS07«, t00=0x0058, t01=0x0100}
0x8a7e…8a92 Head {h00=0x0010, h01=0x0050, text=»UNPS55 EQU *«, t00=0x0058, t01=0x0112}
0x8a92…8abc Head {h00=0x0026, h01=0x0050, text=» LDK A1,MYJOB INDICATE MY JOB MODE«, t00=0x0058, t01=0x0126}
0x8abc…8ae6 Head {h00=0x0026, h01=0x0050, text=» ADKL A1,/8000 NEW MODE ACTIVATION«, t00=0x0058, t01=0x0150}
0x8ae6…8b00 Head {h00=0x0016, h01=0x0050, text=» ST A1,SNAMOD,A11 «, t00=0x0058, t01=0x017a}
0x8b00…8b1e (89, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDKL A10,1 NO DISPLAY«, t00=0x0059, t01=0x0004}
0x8b1e…8b30 Head {h00=0x000e, h01=0x0050, text=» RF UNPS70«, t00=0x0059, t01=0x0022}
0x8b30…8b44 Head {h00=0x0010, h01=0x0050, text=»UNPS60 EQU *«, t00=0x0059, t01=0x0034}
0x8b44…8b5c Head {h00=0x0014, h01=0x0050, text=» LDKL A5,LBVDU+1«, t00=0x0059, t01=0x0048}
0x8b5c…8b6e Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0059, t01=0x0060}
0x8b6e…8ba0 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x0059, t01=0x0072}
0x8ba0…8bb4 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0059, t01=0x00a4}
0x8bb4…8bc8 Head {h00=0x0010, h01=0x0050, text=»UNPS70 EQU *«, t00=0x0059, t01=0x00b8}
0x8bc8…8bf8 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x0059, t01=0x00cc}
0x8bf8…8c1e Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0059, t01=0x00fc}
0x8c1e…8c2a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0122}
0x8c2a…8c3a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0059, t01=0x012e}
0x8c3a…8c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x013e}
0x8c48…8c8c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0059, t01=0x014c}
0x8c8c…8cd0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0059, t01=0x0190}
0x8cd0…8d08 Head {h00=0x0034, h01=0x0050, text=»* GETNXT GET AND CHECK NEXT BUFFER «, t00=0x005a, t01=0x0044}
0x8d08…8d4c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x005a, t01=0x007c}
0x8d4c…8d90 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x00c0}
0x8d90…8da4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005a, t01=0x0104}
0x8da4…8dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0118}
0x8dae…8dc8 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x005a, t01=0x0122}
0x8dc8…8de8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005a, t01=0x013c}
0x8de8…8e06 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x005a, t01=0x015c}
0x8e06…8e1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005a, t01=0x017a}
0x8e1e…8e28 (91, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0004}
0x8e28…8e6c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x000e}
0x8e6c…8e80 Head {h00=0x0010, h01=0x0050, text=»GETNXT EQU *«, t00=0x005b, t01=0x0052}
0x8e80…8e92 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005b, t01=0x0066}
0x8e92…8ec0 Head {h00=0x002a, h01=0x0050, text=» CF A14,SAVE2 SAVE UNPACK INFORMATION «, t00=0x005b, t01=0x0078}
0x8ec0…8ef0 Head {h00=0x002c, h01=0x0050, text=» LD A8,BUFPNT,A11 GET BUFFER TO RELEASE «, t00=0x005b, t01=0x00a6}
0x8ef0…8f16 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x005b, t01=0x00d6}
0x8f16…8f2c Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=2 «, t00=0x005b, t01=0x00fc}
0x8f2c…8f44 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005b, t01=0x0112}
0x8f44…8f6a Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005b, t01=0x012a}
0x8f6a…8f84 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC10 YES«, t00=0x005b, t01=0x0150}
0x8f84…8fb2 Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELDS«, t00=0x005b, t01=0x016a}
0x8fb2…8fbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0008}
0x8fbe…8fd0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005c, t01=0x0014}
0x8fd0…8fe4 Head {h00=0x0010, h01=0x0050, text=»GETC10 EQU *«, t00=0x005c, t01=0x0026}
0x8fe4…9004 Head {h00=0x001c, h01=0x0050, text=» CF A14,WAIT SYNCHRONIZE«, t00=0x005c, t01=0x003a}
0x9004…902a Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBEL,A8 SAVE LENGTH =4«, t00=0x005c, t01=0x005a}
0x902a…9048 Head {h00=0x001a, h01=0x0050, text=» ST A2,DCLENG,A11 . =4«, t00=0x005c, t01=0x0080}
0x9048…905a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x005c, t01=0x009e}
0x905a…9070 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005c, t01=0x00b0}
0x9070…9092 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 GET RETURN CODE«, t00=0x005c, t01=0x00c6}
0x9092…90be Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 FIRST OR MODDLE IN CHAIN? «, t00=0x005c, t01=0x00e8}
0x90be…90d8 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC30 NO «, t00=0x005c, t01=0x0114}
0x90d8…9100 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005c, t01=0x012e}
0x9100…9130 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005c, t01=0x0156}
0x9130…9148 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005c, t01=0x0186}
0x9148…9160 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005d, t01=0x000e}
0x9160…9186 Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x005d, t01=0x0026}
0x9186…91a0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GETC20 YES«, t00=0x005d, t01=0x004c}
0x91a0…91d4 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005d, t01=0x0066}
0x91d4…91e8 Head {h00=0x0010, h01=0x0050, text=»GETC20 EQU *«, t00=0x005d, t01=0x009a}
0x91e8…9214 Head {h00=0x0028, h01=0x0050, text=» XRKL A10,LICREC RESET LAST IN CHAIN«, t00=0x005d, t01=0x00ae}
0x9214…9236 Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005d, t01=0x00da}
0x9236…9248 Head {h00=0x000e, h01=0x0050, text=» RF GETC60«, t00=0x005d, t01=0x00fc}
0x9248…925c Head {h00=0x0010, h01=0x0050, text=»GETC30 EQU *«, t00=0x005d, t01=0x010e}
0x925c…9286 Head {h00=0x0026, h01=0x0050, text=» SRC A1,1 LAST IN CHAIN RECEIVED? «, t00=0x005d, t01=0x0122}
0x9286…92a0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETC90 NO «, t00=0x005d, t01=0x014c}
0x92a0…92b4 Head {h00=0x0010, h01=0x0050, text=»GETC40 EQU *«, t00=0x005d, t01=0x0166}
0x92b4…92dc Head {h00=0x0024, h01=0x0050, text=» LDR A1,A10 GET INTERNAL STATUS «, t00=0x005d, t01=0x017a}
0x92dc…930c Head {h00=0x002c, h01=0x0050, text=» ORKL A10,LICREC LAST IN CHAIN RECEIVED «, t00=0x005e, t01=0x0012}
0x930c…933c Head {h00=0x002c, h01=0x0050, text=» ANKL A1,LICREC LAST IN CHAIN RECEIVED? «, t00=0x005e, t01=0x0042}
0x933c…9354 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC60 NO«, t00=0x005e, t01=0x0072}
0x9354…9388 Head {h00=0x0030, h01=0x0050, text=» CF A14,P2WCC TAKE CARE OF WCC AFTER UPDATE «, t00=0x005e, t01=0x008a}
0x9388…93aa Head {h00=0x001e, h01=0x0050, text=» ORKL A10,NEWCH NEW CHAIN «, t00=0x005e, t01=0x00be}
0x93aa…93be Head {h00=0x0010, h01=0x0050, text=»GETC60 EQU *«, t00=0x005e, t01=0x00e0}
0x93be…93ec Head {h00=0x002a, h01=0x0050, text=» ST A12,BUFPNT,A11 SAVE BUFFER ADDRESS«, t00=0x005e, t01=0x00f4}
0x93ec…9416 Head {h00=0x0026, h01=0x0050, text=» CF A14,SAVE2 SAVE INFORMATION =2 «, t00=0x005e, t01=0x0122}
0x9416…943c Head {h00=0x0022, h01=0x0050, text=» CF A14,GETBUF GET NEW BUFFER «, t00=0x005e, t01=0x014c}
0x943c…9462 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A8 GET BUFFER ADDRESS «, t00=0x005e, t01=0x0172}
0x9462…948a Head {h00=0x0024, h01=0x0050, text=» CF A14,READNW READ WITH NO WAIT«, t00=0x005f, t01=0x0008}
0x948a…94ba Head {h00=0x002c, h01=0x0050, text=» CF A14,REST2 RESTORE UNPACK INFORMATION«, t00=0x005f, t01=0x0030}
0x94ba…94ce Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x005f, t01=0x0060}
0x94ce…94f0 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,NEWCH NEW CHAIN? «, t00=0x005f, t01=0x0074}
0x94f0…9508 Head {h00=0x0014, h01=0x0050, text=» RF(Z) GETC80 NO«, t00=0x005f, t01=0x0096}
0x9508…951e Head {h00=0x0012, h01=0x0050, text=» IFT DISHOW=1 «, t00=0x005f, t01=0x00ae}
0x951e…953c Head {h00=0x001a, h01=0x0050, text=» XRKL A10,NEWCH RESET «, t00=0x005f, t01=0x00c4}
0x953c…9554 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x005f, t01=0x00e2}
0x9554…956a Head {h00=0x0012, h01=0x0050, text=» CCK A1,VDUCOD«, t00=0x005f, t01=0x00fa}
0x956a…9580 Head {h00=0x0012, h01=0x0050, text=» RF(NE) GETC70«, t00=0x005f, t01=0x0110}
0x9580…9596 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE2 «, t00=0x005f, t01=0x0126}
0x9596…95ac Head {h00=0x0012, h01=0x0050, text=» CF A14,DISMOD«, t00=0x005f, t01=0x013c}
0x95ac…95c2 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x005f, t01=0x0152}
0x95c2…95ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0168}
0x95ce…95e0 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x005f, t01=0x0174}
0x95e0…95f4 Head {h00=0x0010, h01=0x0050, text=»GETC70 EQU *«, t00=0x005f, t01=0x0186}
0x95f4…9616 Head {h00=0x001e, h01=0x0050, text=» LDK A1,ICOMN1 NEXT LABEL «, t00=0x0060, t01=0x000a}
0x9616…9630 Head {h00=0x0016, h01=0x0050, text=» ST A1,UNPMOD,A11 «, t00=0x0060, t01=0x002c}
0x9630…9644 Head {h00=0x0010, h01=0x0050, text=»GETC80 EQU *«, t00=0x0060, t01=0x0046}
0x9644…965e Head {h00=0x0016, h01=0x0050, text=» LD A8,BUFPNT,A11 «, t00=0x0060, t01=0x005a}
0x965e…9670 Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0060, t01=0x0074}
0x9670…968e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETUR N CODE«, t00=0x0060, t01=0x0086}
0x968e…96a2 Head {h00=0x0010, h01=0x0050, text=»GETC90 EQU *«, t00=0x0060, t01=0x00a4}
0x96a2…96ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00b8}
0x96ae…96be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00c4}
0x96be…96cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x00d4}
0x96cc…9712 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0060, t01=0x00e2}
0x9712…9758 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0060, t01=0x0128}
0x9758…979e Head {h00=0x0042, h01=0x0050, text=»* PUTCHA PUT CHAR. IN DC BUFFER * «, t00=0x0060, t01=0x016e}
0x979e…97e4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0061, t01=0x0024}
0x97e4…982a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x006a}
0x982a…983e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x00b0}
0x983e…9848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00c4}
0x9848…9862 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0061, t01=0x00ce}
0x9862…9882 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0061, t01=0x00e8}
0x9882…989a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0061, t01=0x0108}
0x989a…98b2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0061, t01=0x0120}
0x98b2…98bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0138}
0x98bc…9902 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0061, t01=0x0142}
0x9902…9916 Head {h00=0x0010, h01=0x0050, text=»PUTCHA EQU *«, t00=0x0061, t01=0x0188}
0x9916…9936 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 SBA TO STORE?«, t00=0x0062, t01=0x000c}
0x9936…9950 Head {h00=0x0016, h01=0x0050, text=» RF(N) PUTC10 YES «, t00=0x0062, t01=0x002c}
0x9950…9978 Head {h00=0x0024, h01=0x0050, text=» CWK A9,BUFFL+BUFFL BUFFER FULL?«, t00=0x0062, t01=0x0046}
0x9978…9992 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PUTC20 YES«, t00=0x0062, t01=0x006e}
0x9992…99a4 Head {h00=0x000e, h01=0x0050, text=» RF PUTC30«, t00=0x0062, t01=0x0088}
0x99a4…99b8 Head {h00=0x0010, h01=0x0050, text=»PUTC10 EQU *«, t00=0x0062, t01=0x009a}
0x99b8…99d6 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL-3«, t00=0x0062, t01=0x00ae}
0x99d6…9a02 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A9 ROOM FOR SBA AND ADDRESS?«, t00=0x0062, t01=0x00cc}
0x9a02…9a1c Head {h00=0x0016, h01=0x0050, text=» RF(NN) PUTC30 YES«, t00=0x0062, t01=0x00f8}
0x9a1c…9a30 Head {h00=0x0010, h01=0x0050, text=»PUTC20 EQU *«, t00=0x0062, t01=0x0112}
0x9a30…9a42 Head {h00=0x000e, h01=0x0050, text=» IFT SNA=1«, t00=0x0062, t01=0x0126}
0x9a42…9a6e Head {h00=0x0028, h01=0x0050, text=» CF A14,SAVE2 SAVE PACK INFORMATION «, t00=0x0062, t01=0x0138}
0x9a6e…9a9a Head {h00=0x0028, h01=0x0050, text=» LDK A1,1 INDICATE NOT LAST IN CHAIN«, t00=0x0062, t01=0x0164}
0x9a9a…9ac0 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCWRIT WRITE DC BUFFER«, t00=0x0062, t01=0x0190}
0x9ac0…9ad2 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0063, t01=0x0026}
0x9ad2…9ae8 Head {h00=0x0012, h01=0x0050, text=» CF A14,REST2 «, t00=0x0063, t01=0x0038}
0x9ae8…9b0c Head {h00=0x0020, h01=0x0050, text=» LDR A9,A9 TRANSMISSION OK? «, t00=0x0063, t01=0x004e}
0x9b0c…9b26 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) PUTC90 NO «, t00=0x0063, t01=0x0072}
0x9b26…9b46 Head {h00=0x001c, h01=0x0050, text=» SUR A9,A9 BUFFER INDEX «, t00=0x0063, t01=0x008c}
0x9b46…9b68 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A12 BUFFER ADDRESS«, t00=0x0063, t01=0x00ac}
0x9b68…9b74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00ce}
0x9b74…9b86 Head {h00=0x000e, h01=0x0050, text=» IFF SNA=1«, t00=0x0063, t01=0x00da}
0x9b86…9b9c Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0063, t01=0x00ec}
0x9b9c…9bae Head {h00=0x000e, h01=0x0050, text=» LDKL A1,*«, t00=0x0063, t01=0x0102}
0x9bae…9bc6 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0063, t01=0x0114}
0x9bc6…9bd2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0063, t01=0x012c}
0x9bd2…9be2 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0063, t01=0x0138}
0x9be2…9bee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0148}
0x9bee…9c02 Head {h00=0x0010, h01=0x0050, text=»PUTC30 EQU *«, t00=0x0063, t01=0x0154}
0x9c02…9c2e Head {h00=0x0028, h01=0x0050, text=» CF A14,PDCCH PUT CHAR. IN DC BUFFER«, t00=0x0063, t01=0x0168}
0x9c2e…9c4c (100, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0064, t01=0x0004}
0x9c4c…9c60 Head {h00=0x0010, h01=0x0050, text=»PUTC90 EQU *«, t00=0x0064, t01=0x0022}
0x9c60…9c70 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0036}
0x9c70…9c7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0046}
0x9c7e…9cb8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x0054}
0x9cb8…9cf2 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x008e}
0x9cf2…9d2c Head {h00=0x0036, h01=0x0050, text=»* PDCCH PUT CHAR. IN DC BUFFER *«, t00=0x0064, t01=0x00c8}
0x9d2c…9d66 Head {h00=0x0036, h01=0x0050, text=»* *«, t00=0x0064, t01=0x0102}
0x9d66…9da0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0064, t01=0x013c}
0x9da0…9db4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0064, t01=0x0176}
0x9db4…9dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x018a}
0x9dbe…9dd2 (101, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0065, t01=0x0004}
0x9dd2…9de8 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0065, t01=0x0018}
0x9de8…9dfe Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0065, t01=0x002e}
0x9dfe…9e14 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0065, t01=0x0044}
0x9e14…9e2a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0065, t01=0x005a}
0x9e2a…9e4c Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0065, t01=0x0070}
0x9e4c…9e6a Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0065, t01=0x0092}
0x9e6a…9e82 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0065, t01=0x00b0}
0x9e82…9e9a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0065, t01=0x00c8}
0x9e9a…9eb2 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0065, t01=0x00e0}
0x9eb2…9eca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0065, t01=0x00f8}
0x9eca…9ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0110}
0x9ed4…9f10 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0065, t01=0x011a}
0x9f10…9f24 Head {h00=0x0010, h01=0x0050, text=»PDCCH EQU * «, t00=0x0065, t01=0x0156}
0x9f24…9f4a Head {h00=0x0022, h01=0x0050, text=» CWK A9,BUFFL+BUFFL OVERFLOW? «, t00=0x0065, t01=0x016a}
0x9f4a…9f64 Head {h00=0x0016, h01=0x0050, text=» RF(NL) PDC100 YES«, t00=0x0065, t01=0x0190}
0x9f64…9f78 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0066, t01=0x001a}
0x9f78…9f8e Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0066, t01=0x002e}
0x9f8e…9fbc Head {h00=0x002a, h01=0x0050, text=»* CONVERSION DELETED * DK 82-03-30 *«, t00=0x0066, t01=0x0044}
0x9fbc…9fc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x0072}
0x9fc8…9fee Head {h00=0x0022, h01=0x0050, text=» SCR A2,A8 STORE IN DC-BUFFER «, t00=0x0066, t01=0x007e}
0x9fee…a000 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0066, t01=0x00a4}
0xa000…a012 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0066, t01=0x00b6}
0xa012…a026 Head {h00=0x0010, h01=0x0050, text=»PDC100 EQU *«, t00=0x0066, t01=0x00c8}
0xa026…a036 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00dc}
0xa036…a044 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ec}
0xa044…a08c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0066, t01=0x00fa}
0xa08c…a0d4 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0142}
0xa0d4…a11c Head {h00=0x0044, h01=0x0050, text=»* GDCCH GET CHAR. IN DC BUFFER * «, t00=0x0066, t01=0x018a}
0xa11c…a164 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0067, t01=0x0042}
0xa164…a1ac Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0067, t01=0x008a}
0xa1ac…a1c0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0067, t01=0x00d2}
0xa1c0…a1ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00e6}
0xa1ca…a1e4 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0067, t01=0x00f0}
0xa1e4…a1f8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0067, t01=0x010a}
0xa1f8…a21c Head {h00=0x0020, h01=0x0050, text=»* A3= POINTER IN VDU BUFFER «, t00=0x0067, t01=0x011e}
0xa21c…a232 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0067, t01=0x0142}
0xa232…a248 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0067, t01=0x0158}
0xa248…a25e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0067, t01=0x016e}
0xa25e…a280 Head {h00=0x001e, h01=0x0050, text=»* A8= ADDRESS IN DC-BUFFER«, t00=0x0067, t01=0x0184}
0xa280…a29e Head {h00=0x001a, h01=0x0050, text=»* A9= DC-BUFFER INDEX «, t00=0x0068, t01=0x0016}
0xa29e…a2b6 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0068, t01=0x0034}
0xa2b6…a2d6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0068, t01=0x004c}
0xa2d6…a2ee Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0068, t01=0x006c}
0xa2ee…a306 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0068, t01=0x0084}
0xa306…a310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x009c}
0xa310…a34c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0068, t01=0x00a6}
0xa34c…a360 Head {h00=0x0010, h01=0x0050, text=»GDCCH EQU * «, t00=0x0068, t01=0x00e2}
0xa360…a37e Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 PRESET ERROR«, t00=0x0068, t01=0x00f6}
0xa37e…a3a8 Head {h00=0x0026, h01=0x0050, text=» CW A9,DCLENG,A11 BUFFER EMPTIED? «, t00=0x0068, t01=0x0114}
0xa3a8…a3c2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) GDCC90 YES«, t00=0x0068, t01=0x013e}
0xa3c2…a3d4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0068, t01=0x0158}
0xa3d4…a3f0 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A8 GET CHAR.«, t00=0x0068, t01=0x016a}
0xa3f0…a404 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0068, t01=0x0186}
0xa404…a41a Head {h00=0x0012, h01=0x0050, text=» IFT EBCDIC=1 «, t00=0x0069, t01=0x000a}
0xa41a…a452 Head {h00=0x0034, h01=0x0050, text=»* EBCDIC-ASCII CONVERSION DELETED PR. 8625,DK* «, t00=0x0069, t01=0x0020}
0xa452…a45e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0058}
0xa45e…a470 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,1«, t00=0x0069, t01=0x0064}
0xa470…a482 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0069, t01=0x0076}
0xa482…a496 Head {h00=0x0010, h01=0x0050, text=»GDCC90 EQU *«, t00=0x0069, t01=0x0088}
0xa496…a4a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0069, t01=0x009c}
0xa4a6…a4b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x00ac}
0xa4b4…a4f8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x00ba}
0xa4f8…a53c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0069, t01=0x00fe}
0xa53c…a580 Head {h00=0x0040, h01=0x0050, text=»* PAID STORE AID IN BUFFER * «, t00=0x0069, t01=0x0142}
0xa580…a5c4 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0069, t01=0x0186}
0xa5c4…a608 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x006a, t01=0x003a}
0xa608…a61c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x007e}
0xa61c…a626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0092}
0xa626…a638 Head {h00=0x000e, h01=0x0050, text=»* A2= AID «, t00=0x006a, t01=0x009c}
0xa638…a650 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006a, t01=0x00ae}
0xa650…a668 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006a, t01=0x00c6}
0xa668…a672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00de}
0xa672…a6b4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x00e8}
0xa6b4…a6c6 Head {h00=0x000e, h01=0x0050, text=»PAID EQU *«, t00=0x006a, t01=0x012a}
0xa6c6…a6e6 Head {h00=0x001c, h01=0x0050, text=» CF A14,PDCCH STORE AID «, t00=0x006a, t01=0x013c}
0xa6e6…a6f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x015c}
0xa6f6…a704 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x016c}
0xa704…a746 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x017a}
0xa746…a788 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x002c}
0xa788…a7ca Head {h00=0x003e, h01=0x0050, text=»* BUFADR STORE BUFFER ADDRESS IN DC-BUFFER *«, t00=0x006b, t01=0x006e}
0xa7ca…a80c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x00b0}
0xa80c…a84e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x00f2}
0xa84e…a862 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x0134}
0xa862…a86c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0148}
0xa86c…a880 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006b, t01=0x0152}
0xa880…a896 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006b, t01=0x0166}
0xa896…a8ac Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006b, t01=0x017c}
0xa8ac…a8c2 (108, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006c, t01=0x0004}
0xa8c2…a8d8 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006c, t01=0x001a}
0xa8d8…a8ee Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x0030}
0xa8ee…a904 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x0046}
0xa904…a91c Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x005c}
0xa91c…a934 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x006c, t01=0x0074}
0xa934…a94c Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006c, t01=0x008c}
0xa94c…a964 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006c, t01=0x00a4}
0xa964…a96e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00bc}
0xa96e…a9b0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006c, t01=0x00c6}
0xa9b0…a9c4 Head {h00=0x0010, h01=0x0050, text=»BUFADR EQU *«, t00=0x006c, t01=0x0108}
0xa9c4…a9e4 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006c, t01=0x011c}
0xa9e4…a9f6 Head {h00=0x000e, h01=0x0050, text=» SRL A2,6 «, t00=0x006c, t01=0x013c}
0xa9f6…aa0a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006c, t01=0x014e}
0xaa0a…aa34 Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006c, t01=0x0162}
0xaa34…aa5c Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006c, t01=0x018c}
0xaa5c…aa7c Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 GET REL. POS.«, t00=0x006d, t01=0x0024}
0xaa7c…aa90 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x006d, t01=0x0044}
0xaa90…aaba Head {h00=0x0026, h01=0x0050, text=» LC A2,CONADR,A2 CONVERT TO ASCII «, t00=0x006d, t01=0x0058}
0xaaba…aae2 Head {h00=0x0024, h01=0x0050, text=» CF A14,PDCCH STORE IN DC-BUFFER«, t00=0x006d, t01=0x0082}
0xaae2…aaf2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x00aa}
0xaaf2…ab00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x00ba}
0xab00…ab44 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006d, t01=0x00c8}
0xab44…ab88 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006d, t01=0x010c}
0xab88…abcc Head {h00=0x0040, h01=0x0050, text=»* RESMDT RESET ALL MDT-BITS IN ATTRIBUTES *«, t00=0x006d, t01=0x0150}
0xabcc…ac10 (110, 0, 400) Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x006e, t01=0x0004}
0xac10…ac54 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x006e, t01=0x0048}
0xac54…ac68 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x008c}
0xac68…ac72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00a0}
0xac72…ac86 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x006e, t01=0x00aa}
0xac86…acaa Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x006e, t01=0x00be}
0xacaa…acc0 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x006e, t01=0x00e2}
0xacc0…acd6 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x006e, t01=0x00f8}
0xacd6…acec Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x006e, t01=0x010e}
0xacec…ad02 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006e, t01=0x0124}
0xad02…ad18 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006e, t01=0x013a}
0xad18…ad30 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006e, t01=0x0150}
0xad30…ad50 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006e, t01=0x0168}
0xad50…ad68 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x006e, t01=0x0188}
0xad68…ad80 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x0010}
0xad80…ad8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0028}
0xad8a…add0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x006f, t01=0x0032}
0xadd0…ade4 Head {h00=0x0010, h01=0x0050, text=»RESMDT EQU *«, t00=0x006f, t01=0x0078}
0xade4…ae08 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x006f, t01=0x008c}
0xae08…ae1e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x006f, t01=0x00b0}
0xae1e…ae32 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x006f, t01=0x00c6}
0xae32…ae46 Head {h00=0x0010, h01=0x0050, text=»RESM10 EQU *«, t00=0x006f, t01=0x00da}
0xae46…ae68 Head {h00=0x001e, h01=0x0050, text=» CWK A1,LBVDU ALL SCANNED?«, t00=0x006f, t01=0x00ee}
0xae68…ae82 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RESM90 YES«, t00=0x006f, t01=0x0110}
0xae82…ae9e Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x006f, t01=0x012a}
0xae9e…aebe Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8080 ATTRIBUTE?«, t00=0x006f, t01=0x0146}
0xaebe…aed6 Head {h00=0x0014, h01=0x0050, text=» RF(L) RESM20 NO«, t00=0x006f, t01=0x0166}
0xaed6…aef8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x006f, t01=0x017e}
0xaef8…af12 Head {h00=0x0016, h01=0x0050, text=» SCR A2,A3 RESTORE«, t00=0x0070, t01=0x0010}
0xaf12…af26 Head {h00=0x0010, h01=0x0050, text=»RESM20 EQU *«, t00=0x0070, t01=0x002a}
0xaf26…af38 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0070, t01=0x003e}
0xaf38…af4a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0070, t01=0x0050}
0xaf4a…af5c Head {h00=0x000e, h01=0x0050, text=» RB RESM10«, t00=0x0070, t01=0x0062}
0xaf5c…af70 Head {h00=0x0010, h01=0x0050, text=»RESM90 EQU *«, t00=0x0070, t01=0x0074}
0xaf70…af80 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0088}
0xaf80…af8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0098}
0xaf8e…afce Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0070, t01=0x00a6}
0xafce…b00e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x00e6}
0xb00e…b044 Head {h00=0x0032, h01=0x0050, text=»* P1WCC PROCESS WCC BEFORE UPDATE«, t00=0x0070, t01=0x0126}
0xb044…b084 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0070, t01=0x015c}
0xb084…b0c4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0071, t01=0x000c}
0xb0c4…b0d8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x004c}
0xb0d8…b0e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0060}
0xb0e2…b0f6 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0071, t01=0x006a}
0xb0f6…b10c Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0071, t01=0x007e}
0xb10c…b122 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0071, t01=0x0094}
0xb122…b138 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0071, t01=0x00aa}
0xb138…b14e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0071, t01=0x00c0}
0xb14e…b164 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0071, t01=0x00d6}
0xb164…b17a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0071, t01=0x00ec}
0xb17a…b192 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0071, t01=0x0102}
0xb192…b1b2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0071, t01=0x011a}
0xb1b2…b1ca Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0071, t01=0x013a}
0xb1ca…b1e2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0071, t01=0x0152}
0xb1e2…b1ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x016a}
0xb1ec…b228 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0071, t01=0x0174}
0xb228…b23c Head {h00=0x0010, h01=0x0050, text=»P1WCC EQU * «, t00=0x0072, t01=0x0020}
0xb23c…b25e Head {h00=0x001e, h01=0x0050, text=» LC A2,CONATT,A2 IN EBCDIC«, t00=0x0072, t01=0x0034}
0xb25e…b27a Head {h00=0x0018, h01=0x0050, text=» ST A2,WCC,A11 SAVE «, t00=0x0072, t01=0x0056}
0xb27a…b29c Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 RESET MDT-BITS? «, t00=0x0072, t01=0x0072}
0xb29c…b2b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P1W900 NO«, t00=0x0072, t01=0x0094}
0xb2b4…b2de Head {h00=0x0026, h01=0x0050, text=» CF A14,RESMDT RESET ALL MDT-BITS «, t00=0x0072, t01=0x00ac}
0xb2de…b2f2 Head {h00=0x0010, h01=0x0050, text=»P1W900 EQU *«, t00=0x0072, t01=0x00d6}
0xb2f2…b302 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00ea}
0xb302…b310 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x00fa}
0xb310…b352 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0072, t01=0x0108}
0xb352…b394 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0072, t01=0x014a}
0xb394…b3d6 Head {h00=0x003e, h01=0x0050, text=»* P2WCC TAKE CARE OF WCC AFTER UPDATE * «, t00=0x0072, t01=0x018c}
0xb3d6…b418 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0073, t01=0x003e}
0xb418…b45a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0073, t01=0x0080}
0xb45a…b46e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0073, t01=0x00c2}
0xb46e…b478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00d6}
0xb478…b498 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0073, t01=0x00e0}
0xb498…b4b0 Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0073, t01=0x0100}
0xb4b0…b4c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x0118}
0xb4c8…b4d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0130}
0xb4d2…b514 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0073, t01=0x013a}
0xb514…b528 Head {h00=0x0010, h01=0x0050, text=»P2WCC EQU * «, t00=0x0073, t01=0x017c}
0xb528…b54e Head {h00=0x0022, h01=0x0050, text=» CF A14,SAVE2 KEEP IT AWAY =4 «, t00=0x0073, t01=0x0190}
0xb54e…b564 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0074, t01=0x0026}
0xb564…b576 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0074, t01=0x003c}
0xb576…b58e Head {h00=0x0014, h01=0x0050, text=» ANK A7,4 SOUND?«, t00=0x0074, t01=0x004e}
0xb58e…b5a6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W100 NO«, t00=0x0074, t01=0x0066}
0xb5a6…b5c2 Head {h00=0x0018, h01=0x0050, text=» CF A14,SOUND SOUND «, t00=0x0074, t01=0x007e}
0xb5c2…b5d6 Head {h00=0x0010, h01=0x0050, text=»P2W100 EQU *«, t00=0x0074, t01=0x009a}
0xb5d6…b5ee Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 COPY? «, t00=0x0074, t01=0x00ae}
0xb5ee…b606 Head {h00=0x0014, h01=0x0050, text=» RF(Z) P2W300 NO«, t00=0x0074, t01=0x00c6}
0xb606…b624 Head {h00=0x001a, h01=0x0050, text=» LC A1,TCT01,A11 . =4 «, t00=0x0074, t01=0x00de}
0xb624…b642 Head {h00=0x001a, h01=0x0050, text=» CCK A1,VDUCOD VDU =4 «, t00=0x0074, t01=0x00fc}
0xb642…b666 Head {h00=0x0020, h01=0x0050, text=» RF(NE) P2W200 NO PRINTER =4«, t00=0x0074, t01=0x011a}
0xb666…b680 Head {h00=0x0016, h01=0x0050, text=» CF A14,COPY COPY «, t00=0x0074, t01=0x013e}
0xb680…b698 Head {h00=0x0014, h01=0x0050, text=» RF P2W300 . =4 «, t00=0x0074, t01=0x0158}
0xb698…b6b2 Head {h00=0x0016, h01=0x0050, text=»P2W200 EQU * . =4 «, t00=0x0074, t01=0x0170}
0xb6b2…b6d0 Head {h00=0x001a, h01=0x0050, text=» CF A14,COPP PRINT #8 «, t00=0x0074, t01=0x018a}
0xb6d0…b6e4 Head {h00=0x0010, h01=0x0050, text=»P2W300 EQU *«, t00=0x0075, t01=0x0018}
0xb6e4…b70a Head {h00=0x0022, h01=0x0050, text=» CF A14,REST2 TAKE IT BACK =4 «, t00=0x0075, t01=0x002c}
0xb70a…b71a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x0052}
0xb71a…b728 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0062}
0xb728…b772 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0075, t01=0x0070}
0xb772…b7bc Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x00ba}
0xb7bc…b806 Head {h00=0x0046, h01=0x0050, text=»* SAVE SAVE PACK AND UNPACK INFORMATION *«, t00=0x0075, t01=0x0104}
0xb806…b850 Head {h00=0x0046, h01=0x0050, text=»* *«, t00=0x0075, t01=0x014e}
0xb850…b89a Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0076, t01=0x0008}
0xb89a…b8ae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0076, t01=0x0052}
0xb8ae…b8b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0066}
0xb8b8…b8d4 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0076, t01=0x0070}
0xb8d4…b8e8 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0076, t01=0x008c}
0xb8e8…b908 Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0076, t01=0x00a0}
0xb908…b926 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0076, t01=0x00c0}
0xb926…b946 Head {h00=0x001c, h01=0x0050, text=»* A5= REL STTRIBUTE POS.«, t00=0x0076, t01=0x00de}
0xb946…b964 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0076, t01=0x00fe}
0xb964…b986 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0076, t01=0x011c}
0xb986…b9a6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0076, t01=0x013e}
0xb9a6…b9be Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0076, t01=0x015e}
0xb9be…b9d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0076, t01=0x0176}
0xb9d6…b9e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x018e}
0xb9e0…ba28 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0077, t01=0x0008}
0xba28…ba3c Head {h00=0x0010, h01=0x0050, text=»SAVE1 EQU * «, t00=0x0077, t01=0x0050}
0xba3c…ba66 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x0077, t01=0x0064}
0xba66…ba76 Head {h00=0x000c, h01=0x0050, text=» RF SAVE«, t00=0x0077, t01=0x008e}
0xba76…ba8a Head {h00=0x0010, h01=0x0050, text=»SAVE2 EQU * «, t00=0x0077, t01=0x009e}
0xba8a…baa2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x0077, t01=0x00b2}
0xbaa2…bab4 Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0077, t01=0x00ca}
0xbab4…bac8 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x0077, t01=0x00dc}
0xbac8…bada Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x0077, t01=0x00f0}
0xbada…baec Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0102}
0xbaec…bafe Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0077, t01=0x0114}
0xbafe…bb10 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x0126}
0xbb10…bb22 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0077, t01=0x0138}
0xbb22…bb34 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x014a}
0xbb34…bb46 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x0077, t01=0x015c}
0xbb46…bb58 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0077, t01=0x016e}
0xbb58…bb6a Head {h00=0x000e, h01=0x0050, text=» STR A6,A1«, t00=0x0077, t01=0x0180}
0xbb6a…bb7c (120, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0004}
0xbb7c…bb8e Head {h00=0x000e, h01=0x0050, text=» STR A7,A1«, t00=0x0078, t01=0x0016}
0xbb8e…bba0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0078, t01=0x0028}
0xbba0…bbb4 Head {h00=0x0010, h01=0x0050, text=» STR A10,A1 «, t00=0x0078, t01=0x003a}
0xbbb4…bbc4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x004e}
0xbbc4…bbd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x005e}
0xbbd2…bc1e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x006c}
0xbc1e…bc6a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00b8}
0xbc6a…bcb6 Head {h00=0x0048, h01=0x0050, text=»* RESTOR RESTORE PACK AND UNPACK INFORMATION * «, t00=0x0078, t01=0x0104}
0xbcb6…bd02 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0150}
0xbd02…bd4e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0079, t01=0x000c}
0xbd4e…bd62 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x0058}
0xbd62…bd6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x006c}
0xbd6c…bd88 Head {h00=0x0018, h01=0x0050, text=»* A1= STACK POINTER «, t00=0x0079, t01=0x0076}
0xbd88…bd9c Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0079, t01=0x0092}
0xbd9c…bdbc Head {h00=0x001c, h01=0x0050, text=»* A3= VDU BUFFER ADDRESS«, t00=0x0079, t01=0x00a6}
0xbdbc…bdda Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0079, t01=0x00c6}
0xbdda…bdfc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0079, t01=0x00e4}
0xbdfc…be1a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0079, t01=0x0106}
0xbe1a…be30 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0079, t01=0x0124}
0xbe30…be52 Head {h00=0x001e, h01=0x0050, text=»* A10= INTERNAL INDICATOR «, t00=0x0079, t01=0x013a}
0xbe52…be72 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x015c}
0xbe72…be8a Head {h00=0x0014, h01=0x0050, text=»* A12= RESERVED «, t00=0x0079, t01=0x017c}
0xbe8a…bea2 (122, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x0004}
0xbea2…beac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x001c}
0xbeac…bef4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x0026}
0xbef4…bf08 Head {h00=0x0010, h01=0x0050, text=»REST1 EQU * «, t00=0x007a, t01=0x006e}
0xbf08…bf32 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,STACK1 GET STACK ADDRESS «, t00=0x007a, t01=0x0082}
0xbf32…bf44 Head {h00=0x000e, h01=0x0050, text=» RF RESTOR«, t00=0x007a, t01=0x00ac}
0xbf44…bf58 Head {h00=0x0010, h01=0x0050, text=»REST2 EQU * «, t00=0x007a, t01=0x00be}
0xbf58…bf70 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,STACK2 «, t00=0x007a, t01=0x00d2}
0xbf70…bf84 Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x007a, t01=0x00ea}
0xbf84…bf98 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A11 «, t00=0x007a, t01=0x00fe}
0xbf98…bfac Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x007a, t01=0x0112}
0xbfac…bfbe Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0126}
0xbfbe…bfd2 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x007a, t01=0x0138}
0xbfd2…bfe4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x014c}
0xbfe4…bff8 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x007a, t01=0x015e}
0xbff8…c00a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007a, t01=0x0172}
0xc00a…c01e Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A1 «, t00=0x007a, t01=0x0184}
0xc01e…c030 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x0008}
0xc030…c044 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x007b, t01=0x001a}
0xc044…c056 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x002e}
0xc056…c06a Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A1 «, t00=0x007b, t01=0x0040}
0xc06a…c07c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x007b, t01=0x0054}
0xc07c…c090 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A1«, t00=0x007b, t01=0x0066}
0xc090…c0a0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x007a}
0xc0a0…c0ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x008a}
0xc0ae…c0ee Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007b, t01=0x0098}
0xc0ee…c12e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x00d8}
0xc12e…c16e Head {h00=0x003c, h01=0x0050, text=»* BUFFER POOL * «, t00=0x007b, t01=0x0118}
0xc16e…c1ae Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0158}
0xc1ae…c1ee Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x007c, t01=0x0008}
0xc1ee…c202 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x007c, t01=0x0048}
0xc202…c226 Head {h00=0x0020, h01=0x0050, text=» DATA *+2 POINTER FIRST FREE«, t00=0x007c, t01=0x005c}
0xc226…c23c Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=1 «, t00=0x007c, t01=0x0080}
0xc23c…c250 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0096}
0xc250…c262 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00aa}
0xc262…c278 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=2 «, t00=0x007c, t01=0x00bc}
0xc278…c28c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x00d2}
0xc28c…c29e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x00e6}
0xc29e…c2b4 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=3 «, t00=0x007c, t01=0x00f8}
0xc2b4…c2c8 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x010e}
0xc2c8…c2da Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x0122}
0xc2da…c2f0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=4 «, t00=0x007c, t01=0x0134}
0xc2f0…c304 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x014a}
0xc304…c316 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007c, t01=0x015e}
0xc316…c32c Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=5 «, t00=0x007c, t01=0x0170}
0xc32c…c340 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007c, t01=0x0186}
0xc340…c352 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x000a}
0xc352…c368 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=6 «, t00=0x007d, t01=0x001c}
0xc368…c37c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0032}
0xc37c…c38e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0046}
0xc38e…c3a4 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=7 «, t00=0x007d, t01=0x0058}
0xc3a4…c3b8 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x006e}
0xc3b8…c3ca Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0082}
0xc3ca…c3e0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=8 «, t00=0x007d, t01=0x0094}
0xc3e0…c3f4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00aa}
0xc3f4…c406 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00be}
0xc406…c41c Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=9 «, t00=0x007d, t01=0x00d0}
0xc41c…c430 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x00e6}
0xc430…c442 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x00fa}
0xc442…c458 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=10«, t00=0x007d, t01=0x010c}
0xc458…c46c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x0122}
0xc46c…c47e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0136}
0xc47e…c494 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=11«, t00=0x007d, t01=0x0148}
0xc494…c4a8 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007d, t01=0x015e}
0xc4a8…c4ba Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007d, t01=0x0172}
0xc4ba…c4d0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=12«, t00=0x007d, t01=0x0184}
0xc4d0…c4e4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x000a}
0xc4e4…c4f6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x001e}
0xc4f6…c50c Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=13«, t00=0x007e, t01=0x0030}
0xc50c…c520 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0046}
0xc520…c532 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x005a}
0xc532…c548 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=14«, t00=0x007e, t01=0x006c}
0xc548…c55c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0082}
0xc55c…c56e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0096}
0xc56e…c584 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=15«, t00=0x007e, t01=0x00a8}
0xc584…c598 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00be}
0xc598…c5aa Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x00d2}
0xc5aa…c5c0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=16«, t00=0x007e, t01=0x00e4}
0xc5c0…c5d4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x00fa}
0xc5d4…c5e6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x010e}
0xc5e6…c5fc Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=17«, t00=0x007e, t01=0x0120}
0xc5fc…c610 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0136}
0xc610…c622 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x014a}
0xc622…c638 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=18«, t00=0x007e, t01=0x015c}
0xc638…c64c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007e, t01=0x0172}
0xc64c…c65e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007e, t01=0x0186}
0xc65e…c674 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=19«, t00=0x007f, t01=0x0008}
0xc674…c688 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x001e}
0xc688…c69a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0032}
0xc69a…c6b0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=20«, t00=0x007f, t01=0x0044}
0xc6b0…c6c4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x005a}
0xc6c4…c6d6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x006e}
0xc6d6…c6ec Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=21«, t00=0x007f, t01=0x0080}
0xc6ec…c700 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0096}
0xc700…c712 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00aa}
0xc712…c728 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=22«, t00=0x007f, t01=0x00bc}
0xc728…c73c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x00d2}
0xc73c…c74e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x00e6}
0xc74e…c764 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=23«, t00=0x007f, t01=0x00f8}
0xc764…c778 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x010e}
0xc778…c78a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x0122}
0xc78a…c7a0 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=24«, t00=0x007f, t01=0x0134}
0xc7a0…c7b4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x014a}
0xc7b4…c7c6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x007f, t01=0x015e}
0xc7c6…c7dc Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=25«, t00=0x007f, t01=0x0170}
0xc7dc…c7f0 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x007f, t01=0x0186}
0xc7f0…c802 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x000a}
0xc802…c818 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=26«, t00=0x0080, t01=0x001c}
0xc818…c82c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0032}
0xc82c…c83e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0046}
0xc83e…c854 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=27«, t00=0x0080, t01=0x0058}
0xc854…c868 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x006e}
0xc868…c87a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0082}
0xc87a…c890 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=28«, t00=0x0080, t01=0x0094}
0xc890…c8a4 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x00aa}
0xc8a4…c8b6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x00be}
0xc8b6…c8cc Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=29«, t00=0x0080, t01=0x00d0}
0xc8cc…c8e0 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x00e6}
0xc8e0…c8f2 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x00fa}
0xc8f2…c908 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=30«, t00=0x0080, t01=0x010c}
0xc908…c91c Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x0122}
0xc91c…c92e Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0136}
0xc92e…c944 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=31«, t00=0x0080, t01=0x0148}
0xc944…c958 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0080, t01=0x015e}
0xc958…c96a Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0080, t01=0x0172}
0xc96a…c980 Head {h00=0x0012, h01=0x0050, text=» IFF BUFFNR=32«, t00=0x0080, t01=0x0184}
0xc980…c994 Head {h00=0x0010, h01=0x0050, text=» DATA *+LINK«, t00=0x0081, t01=0x000a}
0xc994…c9a6 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x001e}
0xc9a6…c9b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0030}
0xc9b2…c9c2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x003c}
0xc9c2…c9d4 Head {h00=0x000e, h01=0x0050, text=» RES BUFFL«, t00=0x0081, t01=0x004c}
0xc9d4…c9e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x005e}
0xc9e2…ca22 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x006c}
0xca22…ca62 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00ac}
0xca62…caa2 Head {h00=0x003c, h01=0x0050, text=»* GETBUF GET BUFFER * «, t00=0x0081, t01=0x00ec}
0xcaa2…cae2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0081, t01=0x012c}
0xcae2…cb22 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0081, t01=0x016c}
0xcb22…cb36 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0082, t01=0x001c}
0xcb36…cb40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0030}
0xcb40…cb60 Head {h00=0x001c, h01=0x0050, text=»* A8= DC-BUFFER ADDRESS «, t00=0x0082, t01=0x003a}
0xcb60…cb80 Head {h00=0x001c, h01=0x0050, text=»* A9= INDEX IN DC-BUFFER«, t00=0x0082, t01=0x005a}
0xcb80…cb98 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0082, t01=0x007a}
0xcb98…cbb6 Head {h00=0x001a, h01=0x0050, text=»* A12= BUFFER ADDRESS «, t00=0x0082, t01=0x0092}
0xcbb6…cbce Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0082, t01=0x00b0}
0xcbce…cbd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00c8}
0xcbd8…cc18 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0082, t01=0x00d2}
0xcc18…cc2c Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0082, t01=0x0112}
0xcc2c…cc44 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0082, t01=0x0126}
0xcc44…cc58 Head {h00=0x0010, h01=0x0050, text=»GETB10 EQU *«, t00=0x0082, t01=0x013e}
0xcc58…cc6c Head {h00=0x0010, h01=0x0050, text=» LDR* A8,A7 «, t00=0x0082, t01=0x0152}
0xcc6c…cc8e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETB90 BUFFER FREE«, t00=0x0082, t01=0x0166}
0xcc8e…cc9a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0082, t01=0x0188}
0xcc9a…ccb6 (131, 0, 400) Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASK «, t00=0x0083, t01=0x0004}
0xccb6…ccc8 Head {h00=0x000e, h01=0x0050, text=» RB GETB10«, t00=0x0083, t01=0x0020}
0xccc8…ccdc Head {h00=0x0010, h01=0x0050, text=»GETB90 EQU *«, t00=0x0083, t01=0x0032}
0xccdc…ccf0 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A8 «, t00=0x0083, t01=0x0046}
0xccf0…cd02 Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x0083, t01=0x005a}
0xcd02…cd14 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0083, t01=0x006c}
0xcd14…cd28 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0083, t01=0x007e}
0xcd28…cd3a Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0083, t01=0x0092}
0xcd3a…cd4a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0083, t01=0x00a4}
0xcd4a…cd58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x00b4}
0xcd58…cd9a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0083, t01=0x00c2}
0xcd9a…cddc Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0104}
0xcddc…ce1e Head {h00=0x003e, h01=0x0050, text=»* RELBUF RELEASE BUFFER * «, t00=0x0083, t01=0x0146}
0xce1e…ce60 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0188}
0xce60…cea2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x003a}
0xcea2…ceb6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0084, t01=0x007c}
0xceb6…cec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0090}
0xcec0…cedc Head {h00=0x0018, h01=0x0050, text=»* A8= BUFFER ADDRESS«, t00=0x0084, t01=0x009a}
0xcedc…cef4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0084, t01=0x00b6}
0xcef4…cf0c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0084, t01=0x00ce}
0xcf0c…cf16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00e6}
0xcf16…cf58 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0084, t01=0x00f0}
0xcf58…cf6c Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0084, t01=0x0132}
0xcf6c…cf84 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,BUFFER «, t00=0x0084, t01=0x0146}
0xcf84…cfa4 Head {h00=0x001c, h01=0x0050, text=» SUKL A8,2 POINT TO LINK«, t00=0x0084, t01=0x015e}
0xcfa4…cfb8 Head {h00=0x0010, h01=0x0050, text=»RELB10 EQU *«, t00=0x0084, t01=0x017e}
0xcfb8…cfcc (133, 2, 176) Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A7 «, t00=0x0085, t01=0x0004}
0xcfcc…cfe2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) RELB90 «, t00=0x0085, t01=0x0018}
0xcfe2…cff4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0085, t01=0x002e}
0xcff4…d006 Head {h00=0x000e, h01=0x0050, text=» RB RELB10«, t00=0x0085, t01=0x0040}
0xd006…d01a Head {h00=0x0010, h01=0x0050, text=»RELB90 EQU *«, t00=0x0085, t01=0x0052}
0xd01a…d02c Head {h00=0x000e, h01=0x0050, text=» STR A8,A7«, t00=0x0085, t01=0x0066}
0xd02c…d03c Head {h00=0x000c, h01=0x0050, text=» CMR A8 «, t00=0x0085, t01=0x0078}
0xd03c…d04c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0088}
0xd04c…d054 Head {h00=0x0004, h01=0x0050, t00=0x0085, t01=0x0098}
0xd054…d060 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0085, t01=0x00a0}
0xd060…d064 Head {h00=0x4004, h01=0x0000}
0xd064…d068 00 85 00 ac ┆ ┆
0xd068…d070 (134, 1, 8) 20 04 00 00 00 86 00 04 ┆ ┆
0xd070…d0c0 (135, 0, 400) 4d 20 42 55 46 46 45 52 00 6e 01 70 00 22 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 43 48 45 43 4b 20 52 45 54 55 52 4e 20 53 54 41 54 55 53 00 6f 00 10 00 2c 00 50 5c 52 46 28 4e 29 5c 43 49 31 30 30 5c 42 55 46 46 45 52 20 45 4d 50 54 59 2c ┆M BUFFER n p " P LDR A1,A1 CHECK RETURN STATUS o , P RF(N) CI100 BUFFER EMPTY,┆
0xd0c0…d110 20 57 41 49 54 20 46 4f 52 20 4e 45 58 54 00 6f 00 36 00 18 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 50 4f 50 20 41 34 20 00 6f 00 66 00 26 00 50 5c 52 46 5c 43 49 31 31 30 5c 52 45 54 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 ┆ WAIT FOR NEXT o 6 P LDR* A4,A15 POP A4 o f & P RF CI110 RETURN TO DEVICE DRI┆
0xd110…d160 56 45 52 20 00 6f 00 82 00 06 00 50 2a 20 00 6f 00 ac 00 06 00 50 2a 20 00 6f 00 b6 00 10 00 50 43 49 31 30 30 5c 45 51 55 5c 2a 20 00 6f 00 c0 00 18 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 50 4f 50 20 41 34 20 00 6f 00 d4 00 2a 00 50 ┆VER o P* o P* o PCI100 EQU * o P LDR* A4,A15 POP A4 o * P┆
0xd160…d1b0 5c 4c 44 4b 5c 41 32 2c 44 57 46 49 4e 50 5c 46 4c 41 47 20 22 49 4e 50 55 54 20 52 45 51 55 45 53 54 45 44 22 20 00 6f 00 f0 00 30 00 50 5c 4f 52 53 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 53 45 54 20 49 4e 50 55 54 20 52 45 51 55 45 53 54 ┆ LDK A2,DWFINP FLAG "INPUT REQUESTED" o 0 P ORS A2,DWTST,A6 SET INPUT REQUEST┆
0xd1b0…d200 45 44 20 49 4e 20 44 57 54 20 00 6f 01 1e 00 2c 00 50 5c 43 46 5c 41 31 35 2c 4e 44 53 41 56 38 5c 53 41 56 45 20 41 33 2d 41 35 2c 20 41 37 2d 41 38 20 49 4e 20 44 57 54 20 00 6f 01 52 00 20 00 50 5c 41 42 4c 5c 50 4c 44 49 53 50 5c 4c 4f ┆ED IN DWT o , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT o R P ABL PLDISP LO┆
0xd200…d250 (136, 0, 400) 43 41 4c 20 44 49 53 50 41 54 43 48 45 52 00 6f 01 82 00 06 00 50 2a 20 00 70 00 16 00 06 00 50 2a 20 00 70 00 20 00 3a 00 50 2a 20 20 20 20 45 4e 54 52 59 20 49 53 20 4d 41 44 45 20 48 45 52 45 20 57 48 45 4e 20 41 20 4e 45 57 20 42 55 46 ┆CAL DISPATCHER o P* p P* p : P* ENTRY IS MADE HERE WHEN A NEW BUF┆
0xd250…d2a0 46 45 52 20 48 41 53 20 41 52 52 49 56 45 44 20 00 70 00 2a 00 1e 00 50 2a 20 20 20 20 20 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 45 4e 54 52 59 3a 00 70 00 68 00 2c 00 50 2a 5c 41 31 20 20 3d 5c 4e 52 20 4f 46 20 43 48 41 52 41 43 54 45 ┆FER HAS ARRIVED p * P* REGISTERS ON ENTRY: p h , P* A1 = NR OF CHARACTE┆
0xd2a0…d2f0 52 53 20 4c 45 46 54 20 49 4e 20 42 55 46 46 45 52 20 00 70 00 8a 00 1a 00 50 2a 5c 41 32 20 20 3d 5c 42 49 54 53 20 30 2d 37 20 20 5a 45 52 4f 00 70 00 ba 00 1c 00 50 2a 5c 5c 42 49 54 53 20 38 2d 31 35 20 20 43 48 41 52 41 43 54 45 52 20 ┆RS LEFT IN BUFFER p P* A2 = BITS 0-7 ZERO p P* BITS 8-15 CHARACTER ┆
0xd2f0…d340 00 70 00 d8 00 1a 00 50 2a 5c 41 34 20 20 3d 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 70 00 f8 00 18 00 50 2a 5c 41 36 20 20 3d 5c 44 57 54 20 41 44 44 52 45 53 53 20 00 70 01 16 00 06 00 50 2a 20 00 70 01 32 00 10 00 50 49 4e 50 52 ┆ p P* A4 = BUFFER ADDRESS p P* A6 = DWT ADDRESS p P* p 2 PINPR┆
0xd340…d390 53 54 5c 45 51 55 5c 2a 00 70 01 3c 00 32 00 50 5c 4c 44 4b 4c 5c 41 33 2c 2f 46 46 46 46 2d 44 57 46 49 4e 50 5c 4d 41 53 4b 20 46 4f 52 20 49 4e 50 55 54 20 52 45 51 55 45 53 54 45 44 00 70 01 50 00 20 00 50 5c 41 4e 53 5c 41 33 2c 44 57 ┆ST EQU * p < 2 P LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED p P P ANS A3,DW┆
0xd390…d3e0 (137, 0, 400) 54 53 54 2c 41 36 5c 52 45 53 45 54 20 46 4c 41 47 20 00 70 01 86 00 28 00 50 5c 53 54 5c 41 34 2c 44 57 54 4c 44 31 2c 41 36 5c 4c 49 4e 4b 20 42 55 46 46 45 52 20 54 4f 20 44 57 54 20 00 71 00 1a 00 06 00 50 2a 20 00 71 00 46 00 2c 00 50 ┆TST,A6 RESET FLAG p ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT q P* q F , P┆
0xd3e0…d430 5c 43 46 5c 41 31 35 2c 4e 44 47 45 54 38 5c 47 45 54 20 41 33 2d 41 35 2c 20 41 37 2d 41 38 20 46 52 4f 4d 20 44 57 54 00 71 00 50 00 06 00 50 2a 20 00 71 00 80 00 0a 00 50 5c 45 4a 45 43 54 00 71 00 8a 00 06 00 50 2a 20 00 71 00 98 00 10 ┆ CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT q P P* q P EJECT q P* q ┆
0xd430…d480 00 50 43 49 31 31 30 5c 45 51 55 5c 2a 20 00 71 00 a2 00 20 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 00 71 00 b6 00 28 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 41 4e 59 20 43 48 41 52 20 4c 45 ┆ PCI110 EQU * q P* RETURN TO DEVICE DRIVER q ( P LDR A1,A1 ANY CHAR LE┆
0xd480…d4d0 46 54 20 49 4e 20 42 55 46 46 45 52 3f 20 00 71 00 da 00 1e 00 50 5c 52 46 28 5a 29 5c 43 49 31 32 30 5c 4e 4f 2c 20 43 4f 4e 54 49 4e 55 45 20 00 71 01 06 00 26 00 50 5c 4c 44 4b 5c 41 31 2c 31 5c 49 4e 44 49 43 41 54 45 20 4d 4f 52 45 20 ┆FT IN BUFFER? q P RF(Z) CI120 NO, CONTINUE q & P LDK A1,1 INDICATE MORE ┆
0xd4d0…d520 43 48 41 52 41 43 54 45 52 53 00 71 01 28 00 0e 00 50 5c 52 46 5c 43 49 31 33 30 20 00 71 01 52 00 06 00 50 2a 20 00 71 01 64 00 10 00 50 43 49 31 32 30 5c 45 51 55 5c 2a 20 00 71 01 6e 00 20 00 50 5c 43 4d 5c 44 57 54 4c 44 31 2c 41 36 5c ┆CHARACTERS q ( P RF CI130 q R P* q d PCI120 EQU * q n P CM DWTLD1,A6 ┆
0xd520…d570 (138, 0, 400) 55 4e 4c 49 4e 4b 20 42 55 46 46 45 52 20 00 71 01 82 00 10 00 50 43 49 31 33 30 5c 45 51 55 5c 2a 20 00 72 00 16 00 08 00 50 5c 45 4e 42 00 72 00 2a 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 72 00 36 00 06 00 50 2a 20 00 72 00 46 00 0a 00 50 ┆UNLINK BUFFER q PCI130 EQU * r P ENB r * P RTN A5 r 6 P* r F P┆
0xd570…d5c0 5c 45 4a 45 43 54 00 72 00 50 00 06 00 50 2a 20 00 72 00 5e 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ EJECT r P P* r ^ @ P********************************************************┆
0xd5c0…d610 2a 2a 2a 2a 00 72 00 68 00 06 00 50 2a 20 00 72 00 ac 00 14 00 50 2a 20 52 4f 55 54 49 4e 45 20 4e 41 4d 45 3a 20 00 72 00 b6 00 0c 00 50 2a 5c 50 4c 53 54 42 4c 00 72 00 ce 00 06 00 50 2a 20 00 72 00 de 00 10 00 50 2a 20 46 55 4e 43 54 49 ┆**** r h P* r P* ROUTINE NAME: r P* PLSTBL r P* r P* FUNCTI┆
0xd610…d660 4f 4e 3a 20 00 72 00 e8 00 34 00 50 2a 5c 54 48 49 53 20 52 4f 55 54 49 4e 45 20 44 45 46 49 4e 45 53 20 53 54 41 52 54 20 4f 46 20 41 4e 20 4f 55 54 50 55 54 20 42 4c 4f 43 4b 2e 00 72 00 fc 00 32 00 50 2a 5c 49 54 20 41 4c 4c 4f 43 41 54 ┆ON: r 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. r 2 P* IT ALLOCAT┆
0xd660…d6b0 45 53 20 41 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 2c 20 41 4e 44 20 4c 49 4e 4b 53 20 49 54 20 00 72 01 34 00 12 00 50 2a 5c 54 4f 20 54 48 45 20 44 57 54 2e 20 00 72 01 6a 00 06 00 50 2a 20 00 72 01 80 00 0c 00 50 2a 20 43 41 4c 4c ┆ES AN OUTPUT BUFFER, AND LINKS IT r 4 P* TO THE DWT. r j P* r P* CALL┆
0xd6b0…d700 (139, 0, 400) 3a 20 00 72 01 8a 00 14 00 50 2a 5c 41 42 49 5c 53 54 42 54 41 42 2c 41 31 20 00 73 00 0a 00 12 00 50 2a 5c 43 46 5c 41 35 2c 50 4c 53 54 42 4c 00 73 00 22 00 06 00 50 2a 20 00 73 00 38 00 0c 00 50 2a 20 49 4e 50 55 54 3a 00 73 00 42 00 34 ┆: r P* ABI STBTAB,A1 s P* CF A5,PLSTBL s " P* s 8 P* INPUT: s B 4┆
0xd700…d750 00 50 2a 5c 41 32 20 20 3d 5c 4d 41 58 49 4d 41 4c 20 4c 45 4e 47 54 48 20 4f 46 20 54 45 58 54 20 49 4e 20 42 4c 4f 43 4b 20 28 42 59 54 45 53 29 20 00 73 00 52 00 18 00 50 2a 5c 41 36 20 20 3d 5c 44 57 54 20 41 44 44 52 45 53 53 20 00 73 ┆ P* A2 = MAXIMAL LENGTH OF TEXT IN BLOCK (BYTES) s R P* A6 = DWT ADDRESS s┆
0xd750…d7a0 00 8a 00 06 00 50 2a 20 00 73 00 a6 00 0e 00 50 2a 20 4f 55 54 50 55 54 3a 20 00 73 00 b0 00 20 00 50 2a 5c 41 54 20 52 45 54 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 00 73 00 c2 00 18 00 50 2a 5c 41 31 20 20 3d 5c 52 45 ┆ P* s P* OUTPUT: s P* AT RETURN TO DEVICE DRIVER s P* A1 = RE┆
0xd7a0…d7f0 54 55 52 4e 20 43 4f 44 45 20 00 73 00 e6 00 0e 00 50 2a 5c 5c 30 20 49 46 20 4f 4b 00 73 01 02 00 16 00 50 2a 5c 5c 4e 4f 54 20 30 20 49 46 20 45 52 52 4f 52 20 00 73 01 14 00 30 00 50 2a 5c 41 32 20 20 3d 5c 44 45 56 49 43 45 20 53 54 41 ┆TURN CODE s P* 0 IF OK s P* NOT 0 IF ERROR s 0 P* A2 = DEVICE STA┆
0xd7f0…d840 54 55 53 20 28 49 46 20 52 45 4c 45 56 41 4e 54 2c 20 49 45 20 41 31 3d 30 29 00 73 01 2e 00 1a 00 50 2a 5c 43 52 20 20 3d 5c 43 4f 4e 54 45 4e 54 53 20 4f 46 20 41 31 00 73 01 62 00 16 00 50 2a 5c 49 4e 54 45 52 52 2e 5c 45 4e 41 42 4c 45 ┆TUS (IF RELEVANT, IE A1=0) s . P* CR = CONTENTS OF A1 s b P* INTERR. ENABLE┆
0xd840…d890 (140, 0, 400) 44 20 00 73 01 80 00 06 00 50 2a 20 00 74 00 0a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆D s P* t @ P************************************************************┆
0xd890…d8e0 00 74 00 14 00 06 00 50 2a 20 00 74 00 58 00 10 00 50 50 4c 53 54 42 4c 5c 45 51 55 5c 2a 00 74 00 62 00 10 00 50 50 52 53 54 42 4c 5c 45 51 55 5c 2a 00 74 00 76 00 08 00 50 5c 45 4e 42 00 74 00 8a 00 2c 00 50 5c 43 46 5c 41 31 35 2c 4e 44 ┆ t P* t X PPLSTBL EQU * t b PPRSTBL EQU * t v P ENB t , P CF A15,ND┆
0xd8e0…d930 53 41 56 38 5c 53 41 56 45 20 41 33 2d 41 35 2c 20 41 37 2d 41 38 20 49 4e 20 44 57 54 20 00 74 00 96 00 24 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 57 54 5c 41 35 20 3a 3d 20 43 57 54 20 41 44 44 52 45 53 53 00 74 00 c6 00 06 00 50 2a 20 ┆SAV8 SAVE A3-A5, A7-A8 IN DWT t $ P CF A15,GETCWT A5 := CWT ADDRESS t P* ┆
0xd930…d980 00 74 00 ee 00 0a 00 50 5c 45 4a 45 43 54 00 74 00 f8 00 06 00 50 2a 20 00 74 01 06 00 2e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4c 44 31 2c 41 36 5c 42 55 46 46 45 52 20 41 4c 52 45 41 44 59 20 41 4c 4c 4f 43 41 54 45 44 3f 00 74 01 10 00 28 ┆ t P EJECT t P* t . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? t (┆
0xd980…d9d0 00 50 5c 41 42 4c 28 4e 5a 29 5c 4e 44 52 45 50 4f 5c 59 45 53 2c 20 53 45 54 20 4f 4b 20 26 20 52 45 54 55 52 4e 00 74 01 42 00 26 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 4c 43 53 5c 41 31 20 3a 3d 20 53 54 41 54 55 53 20 26 20 49 4e 48 20 ┆ P ABL(NZ) NDREPO YES, SET OK & RETURN t B & P CF A15,GETLCS A1 := STATUS & INH ┆