home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cc.umanitoba.ca software
/
ftp.cc.umanitoba.ca-software-.zip
/
ftp.cc.umanitoba.ca-software-
/
mac_network
/
Comet.3.0.8.sit.bin
/
ibm-host-software
/
MAC7171.COPY
< prev
next >
Wrap
Text File
|
1988-06-30
|
58KB
|
719 lines
*---------------------------------------------------------------------* 00001000
* * 00002000
* MODULE NAME = MAC71 - UPDATE FOR Rice Univ 7171 * 00003000
* mod from MAC71MOD - UPDATE FOR PRINCETON 7171 * 00004000
* * 00005000
* DESCRIPTIVE NAME = 7171 HOST ASSEMBLED TEXT - UPDATE FOR PUCC NEEDS.* 00006000
* * 00007000
* COPYRIGHT = HOST LOADED YALE ASCII COMMUNICATIONS SYSTEM, * 00008000
* 5798-RRJ (C) YALE UNIVERSITY 1984 * 00009000
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 * 00010000
* * 00011000
* NON-COMMERCIAL USE AND DISTRIBUTION IS ALLOWED PROVIDED THAT THE * 00012000
* ABOVE COPYRIGHT STATEMENT IS REPRODUCED, ALONG WITH THIS RESTRICTION, 00013000
* ON EACH COPY AND THAT COPIES OF FUNCTIONAL ENHANCEMENTS ARE SENT TO * 00014000
* YALE UNIVERSITY COMPUTER CENTER, PO BOX 2112, NEW HAVEN, CT. 06520 * 00015000
* OR TO WILLAMS@YALEVM ON BITNET. * 00016000
* * 00017000
* FUNCTION = * 00018000
* * 00019000
* THIS COPY FILE CONTAINS THE DEFINITIONS OF MACROS REQUIRED * 00020000
* TO GENERATE A TERMINAL DEFINITION TABLE (TDT) ON A S/370 HOST. * 00021000
* THIS FILE HAS TO BE INCLUDED INTO A MACRO LIBRARY WHICH WILL * 00022000
* BE USED DURING AN ASSEMBLY OF A TDT SOURCE FILE. * 00023000
* * 00024000
* PROCESSOR = S/370 ASSEMBLER * 00025000
* * 00026000
* STATUS = VERSION 1, RELEASE 1 * 00027000
* * 00028000
* 851121 jln Fix comma in Copyright; Comment out ROM equates * 00029000
* 860311 jln Add new 7171 E.C. Functions; minor cleanup * 00030000
*---------------------------------------------------------------------* 00031000
* 00032000
* INLINE MACROS 00033000
MACRO 00034000
TERMTYPS &DUMMY 00035000
.*------------------------------------------------------------* 00036000
.* MACRO NAME = TERMTYPS * 00037000
.* DESCRIPTION = GENERATE LIST OF VALID TERMINAL TYPES * 00038000
.*------------------------------------------------------------* 00039000
GBLB &TYPSDEF 00040000
GBLC &CNAME(500),&CVAL(500) 00041000
GBLA &CI,&HITS(500),&CX 00042000
GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00043000
LCLA &I,&J,&N 00044000
LCLC &HEX,&C 00045000
AIF (&TYPSDEF).LOOP 00046000
RITTERM DS 0H 00047000
&TYPSDEF SETB (1) 00048000
.LOOP ANOP 00049000
&I SETA &I+1 00050000
AIF ('&SYSLIST(&I)' EQ '+').ELINE 00051000
AIF ('&SYSLIST(&I)' EQ '-').EDISP 00052000
AIF ('&SYSLIST(&I)' EQ '%').ECONT 00053000
AIF ('&SYSLIST(&I)' EQ '').DONE 00054000
&N SETA K'&SYSLIST(&I) 00055000
&J SETA 1 00056000
&HEX SETC '' 00057000
.NAMELP AIF (&J GT &N).GENNAME 00058000
&C SETC '&SYSLIST(&I)'(&J,1) 00059000
CNLOC &C,&CHARNAM 00060000
&HEX SETC '&HEX.&CVAL(&CX)' 00061000
&J SETA &J+1 00062000
AGO .NAMELP 00063000
.GENNAME ANOP 00064000
&HEX SETC '&HEX.2020202020202020'(1,16) 00065000
DC XL8'&HEX' 00066000
DC Y(&SYSLIST(&I)) 00067000
AGO .LOOP 00068000
.DONE DC H'0' 00069000
.ECONT MEXIT *+860311: Continue function added 00070000
.ELINE DC H'-1' 00071000
MEXIT 00072000
.EDISP DC H'-2' 00073000
MEXIT 00074000
MEND , 00075000
MACRO 00076000
&LAB EADSTERM &IPT,&OPT,&ORIGIN=BLANK,&FLAGS=X'0080', X00077000
&HTRN=HTRAN,&TTRN=TTRAN,&RCHRS=EADSRCHS,&DELAY=0, X00078000
&SGR=EADSSGR,&PROW=0,&PCOL=0,&LROW=0,&LCOL=0, X00079000
&APROW=0,&APCOL=0,&ALROW=0,&ALCOL=0 00080000
.*+860311: P&L ROW/COLS added; default Flags ch/0/X'0080' jln 00081000
.*------------------------------------------------------------* 00082000
.* MACRO NAME = EADSTERM * 00083000
.* DESCRIPTION = GENERATE TERMINAL CONTROL DATA * 00084000
.*------------------------------------------------------------* 00085000
GBLA &EADSCSS,&EADSTRM 00086000
GBLC &CNAME(500),&CVAL(500) 00087000
GBLA &CI,&HITS(500),&CX 00088000
GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00089000
LCLA &I 00090000
LCLC &OPTX,&ORGVAL 00091000
&EADSTRM SETA &EADSTRM+1 00092000
&EADSCSS SETA 1 00093000
&OPTX SETC '&LAB+26' 860228: c/18/26/ 00094000
&I SETA 1 00095000
AIF ('&OPT' EQ '').OKOPT 00096000
&OPTX SETC '&OPT+26' 860228: c/18/26/ 00097000
&I SETA 100 00098000
.OKOPT ANOP 00099000
&ORGVAL SETC '&ORIGIN' 00100000
AIF (T'&ORIGIN EQ 'N').ORGOK 00101000
CNLOC &ORGVAL,&CHARNAM 00102000
&ORGVAL SETC 'X''&CVAL(&CX)''' 00103000
.ORGOK ANOP 00104000
DS 0H ALIGNMENT 00105000
&LAB DC AL2(&FLAGS) STATUS FLAGS 00106000
DC Y(&IPT) INPUT TABLE OFFSET 00107000
DC Y(&OPTX) 00108000
DC AL1(&ORGVAL,0) CURSOR ADDRESSING BASE 00109000
DC Y(&HTRN) 00110000
DC Y(&TTRN) 00111000
DC Y(&RCHRS) 00112000
AIF (&DELAY EQ 0).NODEL 00113000
.* DC AL2(&DELAY/3+1) 00114000
DC AL1(&DELAY,0) 00115000
AGO .DELOK 00116000
.NODEL DC AL2(0) 00117000
.DELOK ANOP 00118000
DC Y(&SGR) 00119000
DC AL1(&PROW) +860228: Physical Rows 00120000
DC AL1(&PCOL) +860228: Physical Cols 00121000
DC AL1(&LROW) +860228: Logical Rows 00122000
DC AL1(&LCOL) +860228: Logical Cols 00123000
DC AL1(&APROW) +860228: Alt Phys Rows 00124000
DC AL1(&APCOL) +860228: Alt Phys Cols 00125000
DC AL1(&ALROW) +860228: Alt Logi Rows 00126000
DC AL1(&ALCOL) +860228: Alt Logi Cols 00127000
SPACE 2 00128000
.OPTLOOP ANOP 00129000
AIF (&I GE 20).OPTDONE 00130000
DC Y(@&EADSTRM.@&I) 00131000
&I SETA &I+1 00132000
AGO .OPTLOOP 00133000
.OPTDONE MEND 00134000
MACRO 00135000
&LAB EADSCSS &CH,&EQU= 00136000
.*------------------------------------------------------------* 00137000
.* MACRO NAME = EADSCSS * 00138000
.* DESCRIPTION = GENERATE ONE OUTPUT CTRL SEQUENCE * 00139000
.*------------------------------------------------------------* 00140000
GBLA &EADSCSS,&EADSTRM 00141000
GBLC &CNAME(500),&CVAL(500) 00142000
GBLA &CI,&HITS(500),&CX 00143000
GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00144000
LCLA &I,&J,&K 00145000
LCLC &P,&HEX,&C 00146000
&I SETA 2 00147000
AIF ('&CH' EQ 'CONTINUE').FIRST 00148000
AIF ('&CH' EQ 'XX').FIRST 00149000
&I SETA 1 00150000
&P SETC '@&EADSTRM.@&EADSCSS' 00151000
&EADSCSS SETA &EADSCSS+1 00152000
AIF ('&LAB' EQ '').FIRST 00153000
&P SETC '&LAB' 00154000
AGO .FIRST 00155000
.AGAIN ANOP 00156000
&I SETA &I+1 00157000
.FIRST ANOP 00158000
AIF ('&EQU' EQ '').NOTEQU 00159000
&P EQU &EQU 00160000
MEXIT 00161000
.NOTEQU ANOP 00162000
AIF (T'&SYSLIST(&I) EQ 'N').SELFDEF 00163000
AIF ('&SYSLIST(&I)' EQ '').EXIT 00164000
AIF ('&SYSLIST(&I)' EQ 'CONTINUE').SUSPEND 00165000
AIF ('&SYSLIST(&I)' EQ 'XX').SUSPEND 00166000
AIF ('&SYSLIST(&I)'(1,1) EQ '(').CALLER 00167000
AIF ('&SYSLIST(&I)'(1,1) EQ '''').STRNG 00168000
AIF ('&SYSLIST(&I)'(1,2) EQ 'IN').INNAME 00169000
CNLOC &SYSLIST(&I),&CHARNAM 00170000
&HEX SETC '&HEX.&CVAL(&CX)' 00171000
AGO .AGAIN 00172000
.CALLER ANOP 00173000
&J SETA K'&SYSLIST(&I)-2 00174000
&C SETC '&SYSLIST(&I)'(2,&J) 00175000
CNLOC &C,&FILLNAM 00176000
&HEX SETC '&HEX.&CVAL(&CX)' 00177000
AGO .AGAIN 00178000
.STRNG ANOP 00179000
&J SETA 2 00180000
.NXTCHR AIF (&J GE K'&SYSLIST(&I)).AGAIN 00181000
&C SETC '&SYSLIST(&I)'(&J,1) 00182000
&J SETA &J+1 00183000
CNLOC &C,&CHARNAM 00184000
&HEX SETC '&HEX.&CVAL(&CX)' 00185000
AGO .NXTCHR 00186000
.SELFDEF ANOP 00187000
&J SETA &SYSLIST(&I)/16+1 00188000
&K SETA &SYSLIST(&I)-&J*16+17 00189000
&C SETC '0123456789ABCDEF'(&J,1) 00190000
&HEX SETC '&HEX.&C'.'0123456789ABCDEF'(&K,1) 00191000
AGO .AGAIN 00192000
.INNAME ANOP 00193000
&J SETA K'&SYSLIST(&I)-2 00194000
&C SETC '&SYSLIST(&I)'(3,&J) 00195000
CNLOC &C,&CALLNAM 00196000
&HEX SETC '&HEX.&CVAL(&CX)' 00197000
AGO .AGAIN 00198000
.SUSPEND ANOP 00199000
&P DC X'&HEX' 00200000
MEXIT 00201000
.EXIT ANOP 00202000
&P DC X'&HEX.FF' 00203000
MEND 00204000
MACRO 00205000
&LAB EADSNODE &CH,&OP,&LINK,&PAR,&PARM=0 00206000
.*------------------------------------------------------------* 00207000
.* MACRO NAME = EADSNODE * 00208000
.* DESCRIPTION = GENERATE ONE INPUT PARSE SEQUENCE NODE * 00209000
.*------------------------------------------------------------* 00210000
GBLC &CNAME(500),&CVAL(500) 00211000
GBLA &CI,&HITS(500),&CX 00212000
GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00213000
LCLC &MATCH,&BYTE,&DEST,&P 00214000
LCLA &L 00215000
CNLOC &CH,&CHARNAM 00216000
&MATCH SETC '&CVAL(&CX)' 00217000
&P SETC '&PAR' 00218000
AIF (T'&PAR EQ 'N').POK 00219000
AIF ('&P' NE '').PCHK 00220000
&P SETC '&PARM' 00221000
AIF (T'&PARM EQ 'N').POK 00222000
.PCHK ANOP 00223000
&L SETA K'&P-2 00224000
AIF (&L LE 0).PPFK 00225000
AIF ('&P'(1,2) NE 'IN').PPFK 00226000
&P SETC '&P'(3,&L) 00227000
CNLOC &P,&CALLNAM 00228000
&P SETC 'X''&CVAL(&CX)''' 00229000
AGO .POK 00230000
.PPFK CNLOC &P,&PARMNAM 00231000
&P SETC 'X''&CVAL(&CX)''' 00232000
.POK ANOP 00233000
AIF ('&OP' NE 'GOTO').ISCALL 00234000
&LAB DC Y(X'&MATCH.00'+&P),Y(&LINK) 00235000
MEXIT 00236000
.ISCALL AIF ('&OP' NE 'CALL').ERR1 00237000
CNLOC &LINK,&CALLNAM,FAIL=OK 00238000
AIF (&CX EQ 1).TRYPFK 00239000
.* &LAB DC Y(X'&MATCH.00'+&P),X'00&CVAL(&CX)' 00240000
&LAB DC Y(X'&MATCH.00'+&P),X'&CVAL(&CX).00' 00241000
MEXIT 00242000
.TRYPFK CNLOC &LINK,&ATTNNAM 00243000
&LAB DC Y(X'&MATCH.&CVAL(&CX)',X'0200') 00244000
MEXIT 00245000
.ERR1 MNOTE 8,'SECOND PARAMETER NOT CALL OR GOTO' 00246000
&LAB DC AL2(0,0) 00247000
MEND 00248000
MACRO 00249000
CNDEF &NAM,&VAL 00250000
GBLC &CNAME(500),&CVAL(500) 00251000
GBLA &CI,&HITS(500) 00252000
&CI SETA &CI+1 00253000
&CVAL(&CI) SETC '&VAL' 00254000
AIF ('&NAM '(1,1) EQ '''').QUOTE 00255000
&CNAME(&CI) SETC '&NAM' 00256000
AIF (K'&NAM LE 6).OK 00257000
&CNAME(&CI) SETC '&NAM'(1,6) 00258000
.OK MEXIT 00259000
.QUOTE ANOP 00260000
&CNAME(&CI) SETC '&NAM'(2,1) 00261000
MEND 00262000
MACRO 00263000
CNLOC &NAM,&START,&FAIL=MSG 00264000
GBLC &CNAME(500),&CVAL(500) 00265000
GBLA &CI,&HITS(500),&CX 00266000
LCLA &I 00267000
LCLC &C 00268000
&I SETA &START 00269000
&C SETC '&NAM' 00270000
AIF (K'&NAM LE 6).TEST 00271000
&C SETC '&NAM'(1,6) 00272000
.TEST AIF ('&CNAME(&I)' EQ '').NOFIND 00273000
AIF ('&CNAME(&I)' EQ '&C').FIND 00274000
&I SETA &I+1 00275000
AGO .TEST 00276000
.FIND ANOP 00277000
&CX SETA &I 00278000
&HITS(&CX) SETA &HITS(&CX)+1 00279000
MEXIT 00280000
.NOFIND ANOP 00281000
AIF ('&FAIL' EQ 'OK').NOMSG 00282000
MNOTE 8,'CHARACTER/NAME "&C" NOT FOUND' 00283000
.NOMSG ANOP 00284000
&CX SETA 1 00285000
MEND 00286000
MACRO 00287000
CNDMP 00288000
GBLC &CNAME(500),&CVAL(500) 00289000
GBLA &CI,&HITS(500) 00290000
LCLA &I 00291000
&I SETA 1 00292000
.REPORT MNOTE *,'&CNAME(&I) - &CVAL(&I) - &HITS(&I)' 00293000
&I SETA &I+1 00294000
AIF (&I LE &CI).REPORT 00295000
MEND 00296000
MACRO 00297000
&LAB EADSDATA &X 00298000
&LAB DC X'&X' 00299000
MEND 00300000
.*------------------------------------------------------------* 00301000
TITLE 'EADPCOMN - DEFINE ALL SYMBOLS' 00302000
GBLC &CNAME(500),&CVAL(500) 00303000
GBLA &CI 00304000
GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00305000
* *----------------------------------------------------* 00306000
* * ASCII CHARACTER NAMES AND VALUES * 00307000
* *----------------------------------------------------* 00308000
CNDEF BOZO,FF ERROR 00309000
&CHARNAM SETA 2 00310000
CNDEF ESC,1B 00311000
CNDEF \,1B 00312000
CNDEF SEQENDER,FF 00313000
CNDEF OTHERS,FE 00314000
CNDEF INDEX,F8 00315000
CNDEF MATCH,FA 00316000
CNDEF TABULATE,FC 00317000
CNDEF 0,30 00318000
CNDEF 1,31 00319000
CNDEF 2,32 00320000
CNDEF 3,33 00321000
CNDEF 4,34 00322000
CNDEF 5,35 00323000
CNDEF 6,36 00324000
CNDEF 7,37 00325000
CNDEF 8,38 00326000
CNDEF 9,39 00327000
CNDEF A,41 00328000
CNDEF B,42 00329000
CNDEF C,43 00330000
CNDEF D,44 00331000
CNDEF E,45 00332000
CNDEF F,46 00333000
CNDEF G,47 00334000
CNDEF H,48 00335000
CNDEF I,49 00336000
CNDEF J,4A 00337000
CNDEF K,4B 00338000
CNDEF L,4C 00339000
CNDEF M,4D 00340000
CNDEF N,4E 00341000
CNDEF O,4F 00342000
CNDEF P,50 00343000
CNDEF Q,51 00344000
CNDEF R,52 00345000
CNDEF S,53 00346000
CNDEF T,54 00347000
CNDEF U,55 00348000
CNDEF V,56 00349000
CNDEF W,57 00350000
CNDEF X,58 00351000
CNDEF Y,59 00352000
CNDEF Z,5A 00353000
CNDEF BLANK,20 00354000
CNDEF ' ',20 00355000
CNDEF NULL,00 00356000
CNDEF DEL,7F 00357000
CNDEF SOH,01 00358000
CNDEF STX,02 00359000
CNDEF ETX,03 00360000
CNDEF EOT,04 00361000
CNDEF ENQ,05 00362000
CNDEF WRU,05 00363000
CNDEF ACK,06 00364000
CNDEF BEL,07 00365000
CNDEF BS,08 00366000
CNDEF HT,09 00367000
CNDEF TAB,09 00368000
CNDEF LF,0A 00369000
CNDEF LINEFEED,0A 00370000
CNDEF VT,0B 00371000
CNDEF FF,0C 00372000
CNDEF FORMFEED,0C 00373000
CNDEF CR,0D 00374000
CNDEF SO,0E 00375000
CNDEF SI,0F 00376000
CNDEF DLE,10 00377000
CNDEF DC1,11 00378000
CNDEF XON,11 00379000
CNDEF DC2,12 00380000
CNDEF DC3,13 00381000
CNDEF XOFF,13 00382000
CNDEF DC4,14 00383000
CNDEF NAK,15 00384000
CNDEF SYN,16 00385000
CNDEF ETB,17 00386000
CNDEF CAN,18 00387000
CNDEF EM,19 00388000
CNDEF SUB,1A 00389000
CNDEF ESCAPE,1B 00390000
CNDEF FS,1C 00391000
CNDEF GS,1D 00392000
CNDEF RS,1E 00393000
CNDEF US,1F 00394000
CNDEF COLON,3A 00395000
CNDEF SEMI,3B 00396000
CNDEF LESS,3C 00397000
CNDEF EQUAL,3D 00398000
CNDEF GREATER,3E 00399000
CNDEF QUESTION,3F 00400000
CNDEF AT,40 00401000
CNDEF LBRACK,5B 00402000
CNDEF BSLASH,5C 00403000
CNDEF RBRACK,5D 00404000
CNDEF UPARROW,5E 00405000
CNDEF UNDER,5F 00406000
CNDEF ACCENT,60 00407000
CNDEF |,7C 00408000
CNDEF !,21 00409000
CNDEF ",22 00410000
CNDEF #,23 00411000
CNDEF $,24 00412000
CNDEF %,25 00413000
CNDEF &&,26 00414000
CNDEF '''',27 00415000
CNDEF '(',28 00416000
CNDEF ')',29 00417000
CNDEF *,2A 00418000
CNDEF +,2B 00419000
CNDEF ',',2C 00420000
CNDEF -,2D 00421000
CNDEF '.',2E 00422000
CNDEF /,2F 00423000
CNDEF :,3A 00424000
CNDEF ;,3B 00425000
CNDEF <,3C 00426000
CNDEF =,3D 00427000
CNDEF >,3E 00428000
CNDEF ?,3F 00429000
CNDEF @,40 00430000
CNDEF [,5B 00431000
CNDEF ],5D 00432000
CNDEF ~,5E 00433000
CNDEF _,5F 00434000
CNDEF a,61 00435000
CNDEF b,62 00436000
CNDEF c,63 00437000
CNDEF d,64 00438000
CNDEF e,65 00439000
CNDEF f,66 00440000
CNDEF g,67 00441000
CNDEF h,68 00442000
CNDEF i,69 00443000
CNDEF j,6A 00444000
CNDEF k,6B 00445000
CNDEF l,6C 00446000
CNDEF m,6D 00447000
CNDEF n,6E 00448000
CNDEF o,6F 00449000
CNDEF p,70 00450000
CNDEF q,71 00451000
CNDEF r,72 00452000
CNDEF s,73 00453000
CNDEF t,74 00454000
CNDEF u,75 00455000
CNDEF v,76 00456000
CNDEF w,77 00457000
CNDEF x,78 00458000
CNDEF y,79 00459000
CNDEF z,7A 00460000
CNDEF {,7B 00461000
CNDEF },7D 00462000
CNDEF ^,7E 00463000
CNDEF SPACE,20 00464000
CNDEF EXCLAIM,21 00465000
CNDEF DQUOTE,22 00466000
CNDEF POUND,23 00467000
CNDEF DOLLAR,24 00468000
CNDEF PERCENT,25 00469000
CNDEF AND,26 00470000
CNDEF QUOTE,27 00471000
CNDEF LPAREN,28 00472000
CNDEF RPAREN,29 00473000
CNDEF STAR,2A 00474000
CNDEF ASTERISK,2A 00475000
CNDEF PLUS,2B 00476000
CNDEF COMMA,2C 00477000
CNDEF HYPHEN,2D 00478000
CNDEF MINUS,2D 00479000
CNDEF PERIOD,2E 00480000
CNDEF DOT,2E 00481000
CNDEF SLASH,2F 00482000
CNDEF @0,30 00483000
CNDEF @1,31 00484000
CNDEF @2,32 00485000
CNDEF @3,33 00486000
CNDEF @4,34 00487000
CNDEF @5,35 00488000
CNDEF @6,36 00489000
CNDEF @7,37 00490000
CNDEF @8,38 00491000
CNDEF @9,39 00492000
CNDEF LCA,61 00493000
CNDEF LCB,62 00494000
CNDEF LCC,63 00495000
CNDEF LCD,64 00496000
CNDEF LCE,65 00497000
CNDEF LCF,66 00498000
CNDEF LCG,67 00499000
CNDEF LCH,68 00500000
CNDEF LCI,69 00501000
CNDEF LCJ,6A 00502000
CNDEF LCK,6B 00503000
CNDEF LCL,6C 00504000
CNDEF LCM,6D 00505000
CNDEF LCN,6E 00506000
CNDEF LCO,6F 00507000
CNDEF LCP,70 00508000
CNDEF LCQ,71 00509000
CNDEF LCR,72 00510000
CNDEF LCS,73 00511000
CNDEF LCT,74 00512000
CNDEF LCU,75 00513000
CNDEF LCV,76 00514000
CNDEF LCW,77 00515000
CNDEF LCX,78 00516000
CNDEF LCY,79 00517000
CNDEF LCZ,7A 00518000
CNDEF LBRACE,7B 00519000
CNDEF BAR,7C 00520000
CNDEF RBRACE,7D 00521000
CNDEF TILDE,7E 00522000
CNDEF NONE,FF 00523000
CNDEF , 00524000
* *----------------------------------------------------* 00525000
* * PUTCSS ROUTINE NAME * 00526000
* *----------------------------------------------------* 00527000
CNDEF BINX,FE 00528000
&FILLNAM SETA &CI 00529000
CNDEF BINY,FC 00530000
CNDEF CHARX,FA 00531000
CNDEF CHARY,F8 00532000
CNDEF USERX,F6 00533000
CNDEF USERY,F4 00534000
CNDEF DELAY,F2 00535000
CNDEF HARDCO,F0 00536000
CNDEF BINFLD,EE 00537000
CNDEF CHARFL,EC 00538000
CNDEF , 00539000
* *----------------------------------------------------* 00540000
* * EADSNODE CALL ROUTINE NAMES * 00541000
* *----------------------------------------------------* 00542000
CNDEF NULL,00 SOUND ALARM (IGNORE SEQUENCE) 00543000
&CALLNAM SETA &CI 00544000
CNDEF ECHO,01 NORMAL ECHO 00545000
CNDEF ATTN,02 ATTENTION GENERATING 00546000
CNDEF LEFT,03 CURSOR LEFT 00547000
CNDEF RIGHT,04 CURSOR RIGHT 00548000
CNDEF UP,05 CURSOR UP 00549000
CNDEF DOWN,06 CURSOR DOWN 00550000
CNDEF INSRT,07 TOGGLE INSERT MODE 00551000
CNDEF LPRT,08 ECHO BACK LOCAL PRINT SEQUENCE 00552000
CNDEF DELETE,09 DELETE CHARACTER 00553000
CNDEF TAB,0A FIELD TAB 00554000
CNDEF NL,0B NEWLINE 00555000
CNDEF EEOF,0C ERASE EOF 00556000
CNDEF HOME,0D HOME 00557000
CNDEF RESHOW,0E REDISPLAY SCREEN CONTENTS 00558000
CNDEF BTAB,0F FIELD BACKTAB 00559000
CNDEF DEFER,10 DEFERRED KEY EXECUTE 00560000
CNDEF CURSEL,11 CURSOR SELECT (EMULATE LIGHT PEN) 00561000
CNDEF EINP,12 ERASE INPUT 00562000
CNDEF DPFM,13 SPECIAL CHAR (DUP, FM, ETC.) 00563000
CNDEF APLON,14 APL MODE ON 00564000
CNDEF APLOFF,15 ASCII INPUT IN APL MODE 00565000
CNDEF APLEND,16 APL MODE OFF 00566000
CNDEF SETTAB,17 SET COLUMN TAB 00567000
CNDEF CLRTAB,18 DELETE ALL COLUMN TABS AND LEFT MARGIN 00568000
CNDEF SETMRG,19 SET LEFT MARGIN 00569000
CNDEF DELTAB,1A DELETE COLUMN TAB 00570000
CNDEF SETHOM,1B SET HOME LINE 00571000
CNDEF COLTAB,1C COLUMN TAB 00572000
CNDEF COLBAK,1D COLUMN BACKTAB 00573000
CNDEF INDENT,1E INDENT LEFT MARGIN 00574000
CNDEF UNDENT,1F UNDENT LEFT MARGIN 00575000
CNDEF SET,20 SET MODE OF OPERATION 00576000
CNDEF RESET,21 RESET MODE OF OPERATION 00577000
CNDEF PCON,22 RESTORE PACING 00578000
CNDEF PCOFF,23 SUPPRESS PACING 00579000
CNDEF DIAL,24 DIAL HOST 00580000
CNDEF DISC,25 KEYBOARD INITIATED LINE DROP 00581000
CNDEF INIT,26 RETURN TO ENTER TERMINAL TYPE MESSAGE 00582000
CNDEF ALTK,27 ALTERNATE KEYBOARD ARRANGEMENT (DVORAK) 00583000
CNDEF MULT,28 Mult Key Input Seq +860311 00584000
CNDEF RUBOUT,2C Destructive Backspace +860311 00585000
CNDEF PGUP,2F Logical Page Up +860311 00586000
CNDEF PGDN,30 Logical Page Down +860311 00587000
CNDEF , 00588000
CNDEF DUP,80 00589000
&PARMNAM SETA &CI 00590000
CNDEF FM,7F 00591000
CNDEF PA1,01 00592000
&ATTNNAM SETA &CI 00593000
CNDEF PA2,02 00594000
CNDEF PA3,03 00595000
CNDEF CLEAR,04 00596000
CNDEF PA4,05 00597000
CNDEF TREQ,06 00598000
CNDEF ENTER,0A 00599000
CNDEF PFK1,0B 00600000
CNDEF PFK2,0C 00601000
CNDEF PFK3,0D 00602000
CNDEF PFK4,0E 00603000
CNDEF PFK5,0F 00604000
CNDEF PFK6,10 00605000
CNDEF PFK7,11 00606000
CNDEF PFK8,12 00607000
CNDEF PFK9,13 00608000
CNDEF PFK10,14 00609000
CNDEF PFK11,15 00610000
CNDEF PFK12,16 00611000
CNDEF PFK13,17 00612000
CNDEF PFK14,18 00613000
CNDEF PFK15,19 00614000
CNDEF PFK16,1A 00615000
CNDEF PFK17,1B 00616000
CNDEF PFK18,1C 00617000
CNDEF PFK19,1D 00618000
CNDEF PFK20,1E 00619000
CNDEF PFK21,1F 00620000
CNDEF PFK22,20 00621000
CNDEF PFK23,21 00622000
CNDEF PFK24,22 00623000
CNDEF PFK25,23 00624000
CNDEF PFK26,24 00625000
CNDEF PFK27,25 00626000
CNDEF PFK28,26 00627000
CNDEF PFK29,27 00628000
CNDEF PFK30,28 00629000
CNDEF PFK31,29 00630000
CNDEF PFK32,2A 00631000
CNDEF PFK33,2B 00632000
CNDEF PFK34,2C 00633000
CNDEF PFK35,2D 00634000
CNDEF PFK36,2E 00635000
CNDEF , 00636000
PRINT ON 00637000
TITLE '7171 - PROGRAM HEADER' 00638000
IBM7171 CSECT 00639000
@7171 EQU IBM7171 00640000
ORG IBM7171+X'300' 00641000
* 00642000
*--------------------------------------------------------------------* 00643000
* THE FOLLOWING EQU'S WHICH START X'8YYY' ARE INDIRECT ADDRESS 00644000
* THE OTHERS ARE ABSOLUTE ADDRESS AND MAY CHANGE WITH THE ROM 00645000
* OR THE MACHINE. THE TRANSLATE TABLE VECTORS AND THE TERM 00646000
* TABLE ADDRESS ARE USED ABSOLUTE TO SAVE STORAGE SPACE IN RAM. 00647000
*--------------------------------------------------------------------* 00648000
NONE EQU X'FF' 00649000
.* Comment out any ROM Terminal Names which you may wish to redefine 00650000
.* and/or rename these equate(s) 00651000
$IBM3101 EQU X'8000'+@7171 00652000
$TVI912 EQU X'8002'+@7171 00653000
$TVI920 EQU X'8003'+@7171 00654000
$TVI950 EQU X'8004'+@7171 00655000
*TVI950R EQU X'8005'+@7171 00656000
*ADM31 EQU X'8006'+@7171 00657000
*ADM3A EQU X'8007'+@7171 00658000
$VT100 EQU X'8008'+@7171 00659000
*DM1520 EQU X'8009'+@7171 00660000
*DM1521 EQU X'800A'+@7171 00661000
*DM3045 EQU X'800B'+@7171 00662000
TYPETERM EQU X'800C'+@7171 00663000
$HARDCPY EQU X'800D'+@7171 00664000
PLOTTER EQU X'800E'+@7171 00665000
$IBM316X EQU X'8011'+@7171 00666000
ROLM3270 EQU X'8012'+@7171 00667000
* ROM MISC EQUATES 00668000
*RCHRS EQU X'8021'+@7171 00669000
*QWERTY1 EQU X'8022'+@7171 00670000
*QWERTY2 EQU X'8023'+@7171 00671000
*QWERTY3 EQU X'8024'+@7171 00672000
*BITMATCH EQU X'8025'+@7171 00673000
*TYPPFK EQU X'8026'+@7171 00674000
*FUNCPFK EQU X'8028'+@7171 00675000
*FUNBPFK EQU X'8029'+@7171 00676000
*FUNCX EQU X'802A'+@7171 00677000
*FUNCA EQU X'802B'+@7171 00678000
*RSETCHAR EQU X'802C'+@7171 00679000
*SETCHAR EQU X'802D'+@7171 00680000
*SETMTCH EQU X'802E'+@7171 00681000
*COMSET EQU X'802F'+@7171 00682000
*SGR EQU X'8030'+@7171 00683000
*DM3SGR EQU X'8031'+@7171 00684000
*ADM31ATR EQU X'8032'+@7171 00685000
*ADM31MOD EQU X'8033'+@7171 00686000
*IBM3101I EQU X'8035'+@7171 00687000
*IBMESC EQU X'8037'+@7171 00688000
*DM1520I EQU X'803C'+@7171 00689000
*DMESC EQU X'803E'+@7171 00690000
*DM3045I EQU X'8040'+@7171 00691000
*VT100I EQU X'8047'+@7171 00692000
*VTE EQU X'8049'+@7171 00693000
*VTPFKS EQU X'8053'+@7171 00694000
*ADM3AI EQU X'8055'+@7171 00695000
*A3AESC EQU X'8057'+@7171 00696000
*ADM31I EQU X'8058'+@7171 00697000
*A31ESC EQU X'805B'+@7171 00698000
*TVIDI EQU X'805F'+@7171 00699000
*TVDSOH EQU X'8060'+@7171 00700000
*TVII EQU X'8063'+@7171 00701000
*TVIESC EQU X'8066'+@7171 00702000
*TPTMI EQU X'806A'+@7171 00703000
*HCPYI EQU X'806D'+@7171 00704000
TTRAN EQU X'8070'+@7171 00705000
HTRAN EQU X'8071'+@7171 00706000
*HR77 EQU X'8072'+@7171 00707000
*HRDA EQU X'8073'+@7171 00708000
*HW77 EQU X'8074'+@7171 00709000
*HWDA EQU X'8075'+@7171 00710000
.* How PUCC did their xlate vector: 00711000
*HW3278 EQU X'49aa'+@7171 00712000
*HW3278AT EQU X'49aa'+@7171 00713000
*HW3278ES EQU X'49aa'+@7171 00714000
*HR3278 EQU X'49aa'+@7171 00715000
*HR3278AT EQU X'49aa'+@7171 00716000
*HR3278ES EQU X'49aa'+@7171 00717000
.* E-O-MAC71 COPY 00718000
