Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0066/star.mac
There is 1 other file named star.mac in the archive. Click here to see a list.
; VER = '6.0.'
TITLE .MAIN.
OPDEF UFERR$ [1B8]
OPDEF CFERR$ [2B8]
OPDEF FCALV$ [3B8]
OPDEF FCALN$ [4B8]
OPDEF DASGN$ [5B8]
OPDEF DCONC$ [6B8]
OPDEF DICNV$ [7B8]
OPDEF DRCNV$ [10B8]
OPDEF AREFV$ [11B8]
OPDEF AREFN$ [12B8]
Q10002: JSP 14,S$$ILZ##
XWD ^D0,Q10000
JRST Q10003
JSP 14,S$$STE##
XWD ^D1,Q10004
MOVE 1,S10087
MOVEM 1,@N10086
Q10004:
; &STLIMIT = 9999999
JSP 14,S$$STE##
XWD ^D2,
MOVE ^D1,K10088
MOVEM 1,S$$KWD##+^D13
;*SNO* DEFINE('LPAD(LPAD,N,SYM)')
;*SNO* DEFINE('RPAD(RPAD,N,SYM)')
; &TRIM = 1
JSP 14,S$$STE##
XWD ^D3,
JSP 14,S$$CPE##
;* TRACE('ADDR') TRACE('INREG') TRACE('R')
;* TRACE('TYPE') TRACE('L.TYPE') TRACE('R.TYPE')
;* TRACE('R.F') TRACE('L.F') TRACE('LR')
;* TRACE('ADDR') TRACE('L.ADDR') TRACE('R.ADDR')
; DEFINE('ASS(T1,T2,T3,T4)')
JSP 14,S$$STE##
XWD ^D4,Q10005
MOVE 1,S10089
FCALV$ ^D1,F10066
Q10005:
; DEFINE('ASSNL(T2,T3,T4)T1','ASS')
JSP 14,S$$STE##
XWD ^D5,Q10006
MOVE 1,S10090
PUSH 16,1
MOVE 1,S10091
FCALV$ ^D2,F10066
Q10006:
; DEFINE('CALL(SUBROUT)')
JSP 14,S$$STE##
XWD ^D6,Q10007
MOVE 1,S10092
FCALV$ ^D1,F10066
Q10007:
; DEFINE('CALLSRT()')
JSP 14,S$$STE##
XWD ^D7,Q10008
MOVE 1,S10093
FCALV$ ^D1,F10066
Q10008:
; DEFINE('CHAR(STRING)')
JSP 14,S$$STE##
XWD ^D8,Q10009
MOVE 1,S10094
FCALV$ ^D1,F10066
Q10009:
; DEFINE('CKSBSET()')
JSP 14,S$$STE##
XWD ^D9,Q10010
MOVE 1,S10095
FCALV$ ^D1,F10066
Q10010:
; DEFINE('CKREG()')
JSP 14,S$$STE##
XWD ^D10,Q10011
MOVE 1,S10096
FCALV$ ^D1,F10066
Q10011:
; DEFINE('CKREGD()')
JSP 14,S$$STE##
XWD ^D11,Q10012
MOVE 1,S10097
FCALV$ ^D1,F10066
Q10012:
; DEFINE('CKTYPE(POS,CHAR)')
JSP 14,S$$STE##
XWD ^D12,Q10013
MOVE 1,S10098
FCALV$ ^D1,F10066
Q10013:
; DEFINE('CKTYPET(POS,CHAR,TYPE)','CKTYPE')
JSP 14,S$$STE##
XWD ^D13,Q10014
MOVE 1,S10099
PUSH 16,1
MOVE 1,S10100
FCALV$ ^D2,F10066
Q10014:
; DEFINE('CLRREG()')
JSP 14,S$$STE##
XWD ^D14,Q10015
MOVE 1,S10101
FCALV$ ^D1,F10066
Q10015:
; DEFINE('COMMENT(STATE)')
JSP 14,S$$STE##
XWD ^D15,Q10016
MOVE 1,S10102
FCALV$ ^D1,F10066
Q10016:
; DEFINE('COMPILE()ADDR,THISOP')
JSP 14,S$$STE##
XWD ^D16,Q10017
MOVE 1,S10103
FCALV$ ^D1,F10066
Q10017:
; DEFINE('COMPLR()')
JSP 14,S$$STE##
XWD ^D17,Q10018
MOVE 1,S10104
FCALV$ ^D1,F10066
Q10018:
; DEFINE('COMPOP()')
JSP 14,S$$STE##
XWD ^D18,Q10019
MOVE 1,S10105
FCALV$ ^D1,F10066
Q10019:
; DEFINE('DEC2OCT(N)')
JSP 14,S$$STE##
XWD ^D19,Q10020
MOVE 1,S10106
FCALV$ ^D1,F10066
Q10020:
; DEFINE('DO.CALL(OPERAND)')
JSP 14,S$$STE##
XWD ^D20,Q10021
MOVE 1,S10107
FCALV$ ^D1,F10066
Q10021:
; DEFINE('DS(BASE,LEN)')
JSP 14,S$$STE##
XWD ^D21,Q10022
MOVE 1,S10108
FCALV$ ^D1,F10066
Q10022:
; DEFINE('ENDOFF()')
JSP 14,S$$STE##
XWD ^D22,Q10023
MOVE 1,S10109
FCALV$ ^D1,F10066
Q10023:
; DEFINE('ERROR(MESS,ETYPE)')
JSP 14,S$$STE##
XWD ^D23,Q10024
MOVE 1,S10110
FCALV$ ^D1,F10066
Q10024:
; DEFINE('FILLTAB(FILLTAB,TEMP)')
JSP 14,S$$STE##
XWD ^D24,Q10025
MOVE 1,S10111
FCALV$ ^D1,F10066
Q10025:
; DEFINE('FLIP()')
JSP 14,S$$STE##
XWD ^D25,Q10026
MOVE 1,S10112
FCALV$ ^D1,F10066
Q10026:
; DEFINE('GEN()')
JSP 14,S$$STE##
XWD ^D26,Q10027
MOVE 1,S10113
FCALV$ ^D1,F10066
Q10027:
; DEFINE('GENCALL(LOC)')
JSP 14,S$$STE##
XWD ^D27,Q10028
MOVE 1,S10114
FCALV$ ^D1,F10066
Q10028:
; DEFINE('GENLAB(LABEL)')
JSP 14,S$$STE##
XWD ^D28,Q10029
MOVE 1,S10115
FCALV$ ^D1,F10066
Q10029:
; DEFINE('GENLD()')
JSP 14,S$$STE##
XWD ^D29,Q10030
MOVE 1,S10116
FCALV$ ^D1,F10066
Q10030:
; DEFINE('GENLOAD(R,ADDR)')
JSP 14,S$$STE##
XWD ^D30,Q10031
MOVE 1,S10117
FCALV$ ^D1,F10066
Q10031:
; DEFINE('GENLOG(OP,LOC)')
JSP 14,S$$STE##
XWD ^D31,Q10032
MOVE 1,S10118
FCALV$ ^D1,F10066
Q10032:
; DEFINE('GETCONT(PARM,WHEN)BASELOC,LREG')
JSP 14,S$$STE##
XWD ^D32,Q10033
MOVE 1,S10119
FCALV$ ^D1,F10066
Q10033:
; DEFINE('GETLAB()')
JSP 14,S$$STE##
XWD ^D33,Q10034
MOVE 1,S10120
FCALV$ ^D1,F10066
Q10034:
; DEFINE('GETREG()')
JSP 14,S$$STE##
XWD ^D34,Q10035
MOVE 1,S10121
FCALV$ ^D1,F10066
Q10035:
; DEFINE('GETTYPE(POS)')
JSP 14,S$$STE##
XWD ^D35,Q10036
MOVE 1,S10122
FCALV$ ^D1,F10066
Q10036:
; DEFINE('INIT()')
JSP 14,S$$STE##
XWD ^D36,Q10037
MOVE 1,S10123
FCALV$ ^D1,F10066
Q10037:
; DEFINE('OFFLOC(LOC)')
JSP 14,S$$STE##
XWD ^D37,Q10038
MOVE 1,S10124
FCALV$ ^D1,F10066
Q10038:
; DEFINE('OFFREG(R)')
JSP 14,S$$STE##
XWD ^D38,Q10039
MOVE 1,S10125
FCALV$ ^D1,F10066
Q10039:
; DEFINE('PUT(STRING)')
JSP 14,S$$STE##
XWD ^D39,Q10040
MOVE 1,S10126
FCALV$ ^D1,F10066
Q10040:
; DEFINE('PUTREG(R,ADDR)')
JSP 14,S$$STE##
XWD ^D40,Q10041
MOVE 1,S10127
FCALV$ ^D1,F10066
Q10041:
; DEFINE('RADIX(RADIX)')
JSP 14,S$$STE##
XWD ^D41,Q10042
MOVE 1,S10128
FCALV$ ^D1,F10066
Q10042:
; DEFINE('SETTYPE(POS,CHAR)')
JSP 14,S$$STE##
XWD ^D42,Q10043
MOVE 1,S10129
FCALV$ ^D1,F10066
Q10043:
; DEFINE('STATSRT()')
JSP 14,S$$STE##
XWD ^D43,Q10044
MOVE 1,S10130
FCALV$ ^D1,F10066
Q10044:
; DEFINE('TABSTM()')
JSP 14,S$$STE##
XWD ^D44,Q10045
MOVE 1,S10131
FCALV$ ^D1,F10066
Q10045:
;**
; IDTAB = TABLE(10,5)
JSP 14,S$$STE##
XWD ^D45,Q10046
MOVE 1,I10133
PUSH 16,1
MOVE 1,I10134
FCALV$ ^D2,F10064
MOVEM 1,@N10132
Q10046:
; DATA('ID(TAB.LEN,TAB.OFF,TAB.TYPE,TAB.BASE,TAB.MASK,TAB.RANGE)')
JSP 14,S$$STE##
XWD ^D46,Q10047
MOVE 1,S10135
FCALV$ ^D1,F10060
Q10047:
; REENT.OFF = TABLE(10,5)
JSP 14,S$$STE##
XWD ^D47,Q10048
MOVE 1,I10133
PUSH 16,1
MOVE 1,I10134
FCALV$ ^D2,F10064
MOVEM 1,@N10136
Q10048:
; DSCONT = TABLE(10,5)
JSP 14,S$$STE##
XWD ^D48,Q10049
MOVE 1,I10133
PUSH 16,1
MOVE 1,I10134
FCALV$ ^D2,F10064
MOVEM 1,@N10137
Q10049:
;**
; BLANK = ' ' TAB
JSP 14,S$$STE##
XWD ^D49,Q10050
MOVE 1,S10139
PUSH 16,1
MOVE 1,@N10030
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10138
Q10050:
; CB = SPAN(BLANK)
JSP 14,S$$STE##
XWD ^D50,Q10052
MOVE 1,@N10138
JSP 11,S$$MBT##
EXP .
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D2,Q10051
MOVE 1,^D1(15)
JSP 11,S$$SPN##
JRST S$$PTS##
Q10051:
MOVEM 1,@N10140
Q10052:
; B = CB ! NULL
JSP 14,S$$STE##
XWD ^D51,Q10056
MOVE 1,@N10140
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10142
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-3,Q10055
JSP 11,S$$APS##
XWD .-.,Q10054
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JRST Q10053
Q10054:
JSP 11,S$$APF##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
Q10053:
JRST S$$PTS##
Q10055:
MOVEM 1,@N10141
Q10056:
; DIGIT = '0123456789'
JSP 14,S$$STE##
XWD ^D52,Q10057
MOVE 1,S10144
MOVEM 1,@N10143
Q10057:
; NUMB = SPAN(DIGIT)
JSP 14,S$$STE##
XWD ^D53,Q10059
MOVE 1,@N10143
JSP 11,S$$MBT##
EXP .
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D2,Q10058
MOVE 1,^D1(15)
JSP 11,S$$SPN##
JRST S$$PTS##
Q10058:
MOVEM 1,@N10145
Q10059:
; LITERAL = (ANY('+-') ! '') NUMB
;. ! '=' ANY('AC') LEN(1) $ T1 BREAK(*T1) *T1
JSP 14,S$$STE##
XWD ^D54,
JSP 14,S$$CPE##
; LET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$'
JSP 14,S$$STE##
XWD ^D55,Q10064
MOVE 1,S10153
MOVEM 1,@N10152
Q10064:
; AVAR = ANY(LET) (SPAN(LET DIGIT) ! NULL)
JSP 14,S$$STE##
XWD ^D56,Q10068
MOVE 1,@N10152
JSP 11,S$$MBT##
EXP .
PUSH 16,1
MOVE 1,@N10152
PUSH 16,1
MOVE 1,@N10143
JSP 14,S$$CNC##
EXP ^D2
JSP 11,S$$MBT##
EXP .
PUSH 16,1
MOVE 1,@N10142
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-4,Q10067
MOVE 1,^D1(15)
JSP 11,S$$ANY##
JSP 11,S$$APS##
XWD .-.,Q10066
MOVE 1,^D2(15)
JSP 11,S$$SPN##
JRST Q10065
Q10066:
JSP 11,S$$APF##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
Q10065:
JRST S$$PTS##
Q10067:
MOVEM 1,@N10154
Q10068:
; VAR = ANY(LET) (SPAN(DIGIT) ! NULL)
JSP 14,S$$STE##
XWD ^D57,Q10072
MOVE 1,@N10152
JSP 11,S$$MBT##
EXP .
PUSH 16,1
MOVE 1,@N10143
JSP 11,S$$MBT##
EXP .
PUSH 16,1
MOVE 1,@N10142
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-4,Q10071
MOVE 1,^D1(15)
JSP 11,S$$ANY##
JSP 11,S$$APS##
XWD .-.,Q10070
MOVE 1,^D2(15)
JSP 11,S$$SPN##
JRST Q10069
Q10070:
JSP 11,S$$APF##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
Q10069:
JRST S$$PTS##
Q10071:
MOVEM 1,@N10155
Q10072:
; MINUS = DUPL('-',28)
JSP 14,S$$STE##
XWD ^D58,Q10073
MOVE 1,S10157
PUSH 16,1
MOVE 1,I10158
FCALV$ ^D2,F10065
MOVEM 1,@N10156
Q10073:
;**
; OPS = 'DO' ! 'IFANY' ! 'IF' ! 'BFIELDE' ! 'FIELD' !
;. 'BBLOCKE' ! 'BLOCK' ! 'BEGIN' ! 'FINISH' !
;. 'YBLOCKE' ! 'BBLOCK' ! 'BFIELD' ! 'YBLOCK' ! 'CALLS'
JSP 14,S$$STE##
XWD ^D59,Q10089
JSP 14,S$$GPB##
XWD ^D-1,Q10088
BYTE (2)2(16)1(18).+1
JSP 11,S$$APS##
XWD .-.,Q10075
MOVE 1,S10160
JSP 11,S$$MST##
JRST Q10074
Q10075:
JSP 11,S$$APR##
XWD .-.,Q10076
MOVE 1,S10161
JSP 11,S$$MST##
JRST Q10074
Q10076:
JSP 11,S$$APR##
XWD .-.,Q10077
MOVE 1,S10162
JSP 11,S$$MST##
JRST Q10074
Q10077:
JSP 11,S$$APR##
XWD .-.,Q10078
MOVE 1,S10163
JSP 11,S$$MST##
JRST Q10074
Q10078:
JSP 11,S$$APR##
XWD .-.,Q10079
MOVE 1,S10164
JSP 11,S$$MST##
JRST Q10074
Q10079:
JSP 11,S$$APR##
XWD .-.,Q10080
MOVE 1,S10165
JSP 11,S$$MST##
JRST Q10074
Q10080:
JSP 11,S$$APR##
XWD .-.,Q10081
MOVE 1,S10166
JSP 11,S$$MST##
JRST Q10074
Q10081:
JSP 11,S$$APR##
XWD .-.,Q10082
MOVE 1,S10167
JSP 11,S$$MST##
JRST Q10074
Q10082:
JSP 11,S$$APR##
XWD .-.,Q10083
MOVE 1,S10168
JSP 11,S$$MST##
JRST Q10074
Q10083:
JSP 11,S$$APR##
XWD .-.,Q10084
MOVE 1,S10169
JSP 11,S$$MST##
JRST Q10074
Q10084:
JSP 11,S$$APR##
XWD .-.,Q10085
MOVE 1,S10170
JSP 11,S$$MST##
JRST Q10074
Q10085:
JSP 11,S$$APR##
XWD .-.,Q10086
MOVE 1,S10171
JSP 11,S$$MST##
JRST Q10074
Q10086:
JSP 11,S$$APR##
XWD .-.,Q10087
MOVE 1,S10172
JSP 11,S$$MST##
JRST Q10074
Q10087:
JSP 11,S$$APF##
MOVE 1,S10173
JSP 11,S$$MST##
Q10074:
JRST S$$PTS##
Q10088:
MOVEM 1,@N10159
Q10089:
; CARD.PARSE = POS(0) (BREAK(BLANK) ! NULL) . LABEL CB
;. OPS . OPCODE B REM . OPERAND
JSP 14,S$$STE##
XWD ^D60,Q10093
MOVE 1,@N10138
JSP 11,S$$MBT##
EXP .
PUSH 16,1
MOVE 1,@N10142
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10140
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10159
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10141
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-6,Q10092
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
JSP 11,S$$APS##
XWD .-.,Q10091
MOVE 1,^D1(15)
JSP 11,S$$BRK##
JRST Q10090
Q10091:
JSP 11,S$$APF##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
Q10090:
MOVE 1,N10176
JSP 11,S$$CVA##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
JSP 11,S$$VAS##
MOVE 1,^D4(15)
JSP 11,S$$PTX##
MOVE 1,N10177
JSP 11,S$$CVA##
MOVE 1,^D5(15)
JSP 11,S$$PTX##
JSP 11,S$$VAS##
JSP 11,S$$REM##
MOVE 1,N10178
JSP 11,S$$CVA##
JRST S$$PTS##
Q10092:
MOVEM 1,@N10174
Q10093:
; OPER.PARSE = POS(0) '(' (
;. BREAK(',') . LEFT ',' BREAK(',') . OPR ','
;. BREAK(')') . RIGHT !
;. BREAK(',') . OPR ',' BREAK(')') . LEFT '' . RIGHT
;. ) ')' RPOS(0)
JSP 14,S$$STE##
XWD ^D61,Q10097
JSP 14,S$$GPB##
XWD ^D-1,Q10096
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,S10180
JSP 11,S$$MST##
JSP 11,S$$APS##
XWD .-.,Q10095
JSP 11,S$$VAS##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,N10182
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,N10183
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVEI 1,B10184
JSP 11,S$$BRK##
MOVE 1,N10185
JSP 11,S$$CVA##
JRST Q10094
Q10095:
JSP 11,S$$APF##
JSP 11,S$$VAS##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,N10183
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVEI 1,B10184
JSP 11,S$$BRK##
MOVE 1,N10182
JSP 11,S$$CVA##
JSP 11,S$$VAS##
MOVE 1,N10185
JSP 11,S$$CVA##
Q10094:
MOVE 1,S10184
JSP 11,S$$MST##
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
JRST S$$PTS##
Q10096:
MOVEM 1,@N10179
Q10097:
; CALL.PARSE = POS(0) (
;. BREAK(',') . SUB ',(' BAL . ARGS ')' !
;. REM . SUB '' . ARGS
;. ) RPOS(0)
JSP 14,S$$STE##
XWD ^D62,Q10101
JSP 14,S$$GPB##
XWD ^D-1,Q10100
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$APS##
XWD .-.,Q10099
JSP 11,S$$VAS##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,N10187
JSP 11,S$$CVA##
MOVE 1,S10188
JSP 11,S$$MST##
JSP 11,S$$VAS##
PUSHJ 16,S$$BAL##
MOVE 1,N10189
JSP 11,S$$CVA##
MOVE 1,S10184
JSP 11,S$$MST##
JRST Q10098
Q10099:
JSP 11,S$$APF##
JSP 11,S$$VAS##
JSP 11,S$$REM##
MOVE 1,N10187
JSP 11,S$$CVA##
JSP 11,S$$VAS##
MOVE 1,N10189
JSP 11,S$$CVA##
Q10098:
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
JRST S$$PTS##
Q10100:
MOVEM 1,@N10186
Q10101:
; BREAK.TAB = BREAK(',') . T1 ',' BREAK('"') . T2 '"'
JSP 14,S$$STE##
XWD ^D63,Q10103
JSP 14,S$$GPB##
XWD ^D-1,Q10102
BYTE (2)2(16)1(18).+1
JSP 11,S$$VAS##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,N10151
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVEI 1,B10191
JSP 11,S$$BRK##
MOVE 1,N10192
JSP 11,S$$CVA##
MOVE 1,S10191
JSP 11,S$$MST##
JRST S$$PTS##
Q10102:
MOVEM 1,@N10190
Q10103:
;**
; BFIELD.PARSE = POS(0) VAR . N1 ',' AVAR . BASE
JSP 14,S$$STE##
XWD ^D64,Q10105
MOVE 1,@N10155
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10154
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-3,Q10104
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,N10194
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
MOVE 1,N10195
JSP 11,S$$CVA##
JRST S$$PTS##
Q10104:
MOVEM 1,@N10193
Q10105:
; FIELD.PARSE = POS(0) VAR . N1 ',' NUMB . OFF ',(' NUMB . LOW ','
;. NUMB . HIGH ')'
JSP 14,S$$STE##
XWD ^D65,Q10107
MOVE 1,@N10155
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-5,Q10106
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,N10194
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
MOVE 1,N10197
JSP 11,S$$CVA##
MOVE 1,S10188
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
MOVE 1,N10198
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D4(15)
JSP 11,S$$PTX##
MOVE 1,N10199
JSP 11,S$$CVA##
MOVE 1,S10184
JSP 11,S$$MST##
JRST S$$PTS##
Q10106:
MOVEM 1,@N10196
Q10107:
; BLOCK.PARSE = POS(0) VAR . N1 ',(' NUMB . OFF ','
;. NUMB . LEN ')'
JSP 14,S$$STE##
XWD ^D66,Q10109
MOVE 1,@N10155
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-4,Q10108
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,N10194
JSP 11,S$$CVA##
MOVE 1,S10188
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
MOVE 1,N10197
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
MOVE 1,N10029
JSP 11,S$$CVA##
MOVE 1,S10184
JSP 11,S$$MST##
JRST S$$PTS##
Q10108:
MOVEM 1,@N10200
Q10109:
; BBLOCK.PARSE = POS(0) VAR . N1 ',(' AVAR . BASE ','
;. NUMB . LEN ')'
JSP 14,S$$STE##
XWD ^D67,Q10111
MOVE 1,@N10155
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10154
JSP 11,S$$MKP##
PUSH 16,1
MOVE 1,@N10145
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-4,Q10110
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,N10194
JSP 11,S$$CVA##
MOVE 1,S10188
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D2(15)
JSP 11,S$$PTX##
MOVE 1,N10195
JSP 11,S$$CVA##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVE 1,^D3(15)
JSP 11,S$$PTX##
MOVE 1,N10029
JSP 11,S$$CVA##
MOVE 1,S10184
JSP 11,S$$MST##
JRST S$$PTS##
Q10110:
MOVEM 1,@N10201
Q10111:
;**
; LF = 0
JSP 14,S$$STE##
XWD ^D68,Q10112
MOVE 1,I10175
MOVEM 1,@N10202
Q10112:
; BF = 1
JSP 14,S$$STE##
XWD ^D69,Q10113
MOVE 1,I10150
MOVEM 1,@N10203
Q10113:
; TF = 2
JSP 14,S$$STE##
XWD ^D70,Q10114
MOVE 1,I10205
MOVEM 1,@N10204
Q10114:
; DF = 3
JSP 14,S$$STE##
XWD ^D71,Q10115
MOVE 1,I10207
MOVEM 1,@N10206
Q10115:
;*******
;**
;** TYPE FLAGS TO IDENTIFY EACH TYPE
;**
;**POS NAME CONTENTS
;**--- ---- --------
;**0 LF(LEN FLD) Y(BYTE), W(WORD), 1(1 BIT), L(LT 1 WD), G(GT 1
;**1 BF(BASE FLD) B(BASED), -(NONBASED)
;**2 TF(TYPE FLD) B(BLOCK), F(FIELD)
;**3 DF(DEF FLD) E(DEFINED), -(UNDEF)
;********
;**
;**
; SW.REG = '1'
JSP 14,S$$STE##
XWD ^D72,Q10116
MOVE 1,S10209
MOVEM 1,@N10208
Q10116:
; CLRREG()
JSP 14,S$$STE##
XWD ^D73,Q10117
FCALV$ ^D0,F10210
Q10117:
; INIT()
JSP 14,S$$STE##
XWD ^D74,Q10118
FCALV$ ^D0,F10211
Q10118:
; SCSC = SC SC
JSP 14,S$$STE##
XWD ^D75,Q10119
MOVE 1,@N10213
PUSH 16,1
MOVE 1,@N10213
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10212
Q10119:
; BRANCH = LOGOP<'<>'>
JSP 14,S$$STE##
XWD ^D76,Q10120
MOVE 1,S10216
AREFV$ ^D1,N10215
MOVEM 1,@N10214
Q10120:
; VER = 'VERSION ' VER ' ' DATE() ' WECO<-ERC<-STONE'
JSP 14,S$$STE##
XWD ^D77,Q10121
MOVE 1,S10217
PUSH 16,1
MOVE 1,@N10086
PUSH 16,1
MOVE 1,S10218
PUSH 16,1
FCALV$ ^D0,F10044
PUSH 16,1
MOVE 1,S10219
JSP 14,S$$CNC##
EXP ^D5
MOVEM 1,@N10086
Q10121:
; OUTPUT = VER
JSP 14,S$$STE##
XWD ^D78,Q10122
MOVE 1,@N10086
MOVEM 1,@S$$OUT##
Q10122:
; COMMENT(OUTPUT)
JSP 14,S$$STE##
XWD ^D79,Q10123
MOVE 1,@S$$OUT##
FCALV$ ^D1,F10220
Q10123:
; SWITCH.CK = POS(0) ('*' ! '')
;. ('+' REM . T1 . T2 !
;. '-' REM . T1 '' . T2)
JSP 14,S$$STE##
XWD ^D80,Q10129
JSP 14,S$$GPB##
XWD ^D-1,Q10128
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$APS##
XWD .-.,Q10125
MOVE 1,S10222
JSP 11,S$$MST##
JRST Q10124
Q10125:
JSP 11,S$$APF##
Q10124:
JSP 11,S$$APS##
XWD .-.,Q10127
MOVE 1,S10223
JSP 11,S$$MST##
JSP 11,S$$VAS##
JSP 11,S$$VAS##
JSP 11,S$$REM##
MOVE 1,N10151
JSP 11,S$$CVA##
MOVE 1,N10192
JSP 11,S$$CVA##
JRST Q10126
Q10127:
JSP 11,S$$APF##
MOVE 1,S10157
JSP 11,S$$MST##
JSP 11,S$$VAS##
JSP 11,S$$REM##
MOVE 1,N10151
JSP 11,S$$CVA##
JSP 11,S$$VAS##
MOVE 1,N10192
JSP 11,S$$CVA##
Q10126:
JRST S$$PTS##
Q10128:
MOVEM 1,@N10221
Q10129:
; GET.THIS.OP = POS(0) BAL . THISOP (',' ! ' ' REM ! RPOS(0))
JSP 14,S$$STE##
XWD ^D81,Q10134
JSP 14,S$$GPB##
XWD ^D-1,Q10133
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
PUSHJ 16,S$$BAL##
MOVE 1,N10225
JSP 11,S$$CVA##
JSP 11,S$$APS##
XWD .-.,Q10131
MOVE 1,S10181
JSP 11,S$$MST##
JRST Q10130
Q10131:
JSP 11,S$$APR##
XWD .-.,Q10132
MOVE 1,S10139
JSP 11,S$$MST##
JSP 11,S$$REM##
JRST Q10130
Q10132:
JSP 11,S$$APF##
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
Q10130:
JRST S$$PTS##
Q10133:
MOVEM 1,@N10224
Q10134:
; CK.LIT = POS(0) LITERAL RPOS(0)
JSP 14,S$$STE##
XWD ^D82,Q10136
MOVE 1,@N10146
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D2,Q10135
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,^D1(15)
JSP 11,S$$PTX##
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
JRST S$$PTS##
Q10135:
MOVEM 1,@N10226
Q10136:
; GET.VAR.X = POS(0) VAR . X
JSP 14,S$$STE##
XWD ^D83,Q10138
MOVE 1,@N10155
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$GPB##
XWD ^D-2,Q10137
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,N10228
JSP 11,S$$CVA##
JRST S$$PTS##
Q10137:
MOVEM 1,@N10227
Q10138:
;**
; IDTAB<'#1'> = ID(100,0,'WBB-')
JSP 14,S$$STE##
XWD ^D84,Q10139
MOVE 1,S10229
AREFN$ ^D1,N10132
PUSH 16,1
MOVE 1,I10231
PUSH 16,1
MOVE 1,I10175
PUSH 16,1
MOVE 1,S10232
FCALV$ ^D3,F10230
JSP 11,S$$ASG##
Q10139:
; IDTAB<'#2'> = ID(ADDR.WORD,0,'W-B-')
JSP 14,S$$STE##
XWD ^D85,Q10140
MOVE 1,S10233
AREFN$ ^D1,N10132
PUSH 16,1
MOVE 1,@N10234
PUSH 16,1
MOVE 1,I10175
PUSH 16,1
MOVE 1,S10235
FCALV$ ^D3,F10230
JSP 11,S$$ASG##
Q10140:
; IDTAB<'#3'> = ID(ADDR.WORD,0,'WBF-',SCSC '3')
JSP 14,S$$STE##
XWD ^D86,Q10141
MOVE 1,S10236
AREFN$ ^D1,N10132
PUSH 16,1
MOVE 1,@N10234
PUSH 16,1
MOVE 1,I10175
PUSH 16,1
MOVE 1,S10237
PUSH 16,1
MOVE 1,@N10212
PUSH 16,1
MOVE 1,S10238
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D4,F10230
JSP 11,S$$ASG##
Q10141:
; IDTAB<'#4'> = ID(ADDR.WORD,0,'WBF-',SCSC '4')
JSP 14,S$$STE##
XWD ^D87,Q10142
MOVE 1,S10239
AREFN$ ^D1,N10132
PUSH 16,1
MOVE 1,@N10234
PUSH 16,1
MOVE 1,I10175
PUSH 16,1
MOVE 1,S10237
PUSH 16,1
MOVE 1,@N10212
PUSH 16,1
MOVE 1,S10240
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D4,F10230
JSP 11,S$$ASG##
Q10142:
;**
;LOOP CARD = INPUT :F(END)
L10241:
JSP 14,S$$STE##
XWD ^D88,S$$SXT##
MOVE 1,@S$$INP##
MOVEM 1,@N10242
; STATENO = STATENO + 1
JSP 14,S$$STE##
XWD ^D89,Q10143
DICNV$ @N10243
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10243
Q10143:
; OUTPUT = RPAD(STATENO,8) CARD
JSP 14,S$$STE##
XWD ^D90,Q10144
MOVE 1,@N10243
PUSH 16,1
MOVE 1,I10244
FCALV$ ^D2,F10080
PUSH 16,1
MOVE 1,@N10242
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@S$$OUT##
Q10144:
; CARD POS(72) REM = :F(CKSW)
JSP 14,S$$STE##
XWD ^D91,L10246
MOVE 1,@N10242
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10245
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$REM##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10242
; CARD = TRIM(CARD)
JSP 14,S$$STE##
XWD ^D92,Q10145
MOVE 1,@N10242
FCALV$ ^D1,F10051
MOVEM 1,@N10242
Q10145:
;CKSW CARD SWITCH.CK :F(TRYCOM)
L10246:
JSP 14,S$$STE##
XWD ^D93,L10247
MOVE 1,@N10242
PUSH 16,1
MOVE 1,@N10221
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
; $('SW.' T1) = T2 :(LOOP)
JSP 14,S$$STE##
XWD ^D94,L10241
MOVE 1,S10248
PUSH 16,1
MOVE 1,@N10151
JSP 14,S$$CNC##
EXP ^D2
JSP 14,S$$IVN##
PUSH 16,1
MOVE 1,@N10192
JSP 11,S$$ASG##
JRST L10241
;TRYCOM CARD POS(0) ANY('*/;') :S(ASSEMC)
L10247:
JSP 14,S$$STE##
XWD ^D95,Q10146
MOVE 1,@N10242
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVEI 1,B10249
JSP 11,S$$ANY##
JSP 11,S$$MTS##
JRST L10250
Q10146:
; IDENT(CARD) :S(ASSEMC)
JSP 14,S$$STE##
XWD ^D96,Q10147
MOVE 1,@N10242
FCALV$ ^D1,F10072
JRST L10250
Q10147:
; CARD CARD.PARSE :F(ASSEMB)
JSP 14,S$$STE##
XWD ^D97,L10251
MOVE 1,@N10242
PUSH 16,1
MOVE 1,@N10174
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
; ( COMMENT(MINUS) COMMENT(OUTPUT) )
JSP 14,S$$STE##
XWD ^D98,Q10148
MOVE 1,@N10156
FCALV$ ^D1,F10220
PUSH 16,1
MOVE 1,@S$$OUT##
FCALV$ ^D1,F10220
JSP 14,S$$CNC##
EXP ^D2
Q10148:
; THENSW = '1'
JSP 14,S$$STE##
XWD ^D99,Q10149
MOVE 1,S10209
MOVEM 1,@N10252
Q10149:
; ( IDENT(OPCODE,'FINISH') ENDOFF() )
JSP 14,S$$STE##
XWD ^D100,Q10150
MOVE 1,@N10177
PUSH 16,1
MOVE 1,S10168
FCALV$ ^D2,F10072
PUSH 16,1
FCALV$ ^D0,F10253
JSP 14,S$$CNC##
EXP ^D2
Q10150:
; ( STATSRT() CALL(OPCODE) ) :(LOOP)
JSP 14,S$$STE##
XWD ^D101,L10241
FCALV$ ^D0,F10254
PUSH 16,1
MOVE 1,@N10177
FCALV$ ^D1,F10255
JSP 14,S$$CNC##
EXP ^D2
JRST L10241
;**
;ASSEMC COMMENT(CARD) :(LOOP)
L10250:
JSP 14,S$$STE##
XWD ^D102,L10241
MOVE 1,@N10242
FCALV$ ^D1,F10220
JRST L10241
;**
;ASSEMB PUT(CARD) :(LOOP)
L10251:
JSP 14,S$$STE##
XWD ^D103,L10241
MOVE 1,@N10242
FCALV$ ^D1,F10256
JRST L10241
;**
;********
;** STATEMENT HANDLING
;********
;DO COMPILE() :F(RETURN)S(DO)
L10160:
JSP 14,S$$STE##
XWD ^D104,S$$SRT##
FCALV$ ^D0,F10257
JRST L10160
;**
;IFANY BTYPE = 'Y'
L10161:
JSP 14,S$$STE##
XWD ^D105,Q10151
MOVE 1,S10259
MOVEM 1,@N10258
Q10151:
;IFANY2 LAB1 = GETLAB()
L10260:
JSP 14,S$$STE##
XWD ^D106,Q10152
FCALV$ ^D0,F10262
MOVEM 1,@N10261
Q10152:
; LAB2 = GETLAB()
JSP 14,S$$STE##
XWD ^D107,Q10153
FCALV$ ^D0,F10262
MOVEM 1,@N10263
Q10153:
; THENSW =
JSP 14,S$$STE##
XWD ^D108,Q10154
SETZM @N10252
Q10154:
; LLAB = IDENT(BTYPE,'Y') LAB1 :S(IFANY1)
JSP 14,S$$STE##
XWD ^D109,Q10155
MOVE 1,@N10258
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,@N10261
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10264
JRST L10265
Q10155:
; LLAB = LAB2
JSP 14,S$$STE##
XWD ^D110,Q10156
MOVE 1,@N10263
MOVEM 1,@N10264
Q10156:
;IFANY1 COMPILE() :S(IFANY1)
L10265:
JSP 14,S$$STE##
XWD ^D111,Q10157
FCALV$ ^D0,F10257
JRST L10265
Q10157:
; GENLAB(LAB2)
JSP 14,S$$STE##
XWD ^D112,Q10158
MOVE 1,@N10263
FCALV$ ^D1,F10266
Q10158:
; ( IDENT(THENSW) ERROR('NO THEN IN IF') ) :(RETURN)
JSP 14,S$$STE##
XWD ^D113,S$$SRT##
MOVE 1,@N10252
FCALV$ ^D1,F10072
PUSH 16,1
MOVE 1,S10268
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
JRST S$$SRT##
;**
;IF BTYPE = 'N' :(IFANY2)
L10162:
JSP 14,S$$STE##
XWD ^D114,L10260
MOVE 1,S10269
MOVEM 1,@N10258
JRST L10260
;**
;BFIELD T = 'WBF-' :(TB)
L10171:
JSP 14,S$$STE##
XWD ^D115,L10271
MOVE 1,S10237
MOVEM 1,@N10270
JRST L10271
;BBLOCK T = 'WBB-' :(TB)
L10170:
JSP 14,S$$STE##
XWD ^D116,L10271
MOVE 1,S10232
MOVEM 1,@N10270
JRST L10271
;YBLOCK T = 'Y-B-' :(TB)
L10172:
JSP 14,S$$STE##
XWD ^D117,L10271
MOVE 1,S10272
MOVEM 1,@N10270
JRST L10271
;YBBLOCK T = 'YBB-' :(TB)
L10273:
JSP 14,S$$STE##
XWD ^D118,L10271
MOVE 1,S10274
MOVEM 1,@N10270
JRST L10271
;BFIELDE T = 'WBFE' :(TB)
L10163:
JSP 14,S$$STE##
XWD ^D119,L10271
MOVE 1,S10275
MOVEM 1,@N10270
JRST L10271
;BBLOCKE T = 'WBBE' :(TB)
L10165:
JSP 14,S$$STE##
XWD ^D120,L10271
MOVE 1,S10276
MOVEM 1,@N10270
JRST L10271
;BLOCK T = 'W-B-' :(TB)
L10166:
JSP 14,S$$STE##
XWD ^D121,L10271
MOVE 1,S10235
MOVEM 1,@N10270
JRST L10271
;FIELD T = '--F-' :(TB)
L10164:
JSP 14,S$$STE##
XWD ^D122,L10271
MOVE 1,S10277
MOVEM 1,@N10270
JRST L10271
;TB TYPE = T
L10271:
JSP 14,S$$STE##
XWD ^D123,Q10159
MOVE 1,@N10270
MOVEM 1,@N10278
Q10159:
; LEN = 1
JSP 14,S$$STE##
XWD ^D124,Q10160
MOVE 1,I10150
MOVEM 1,@N10029
Q10160:
; Y =
JSP 14,S$$STE##
XWD ^D125,Q10161
SETZM @N10259
Q10161:
; OPCODE POS(0) 'Y' . Y =
JSP 14,S$$STE##
XWD ^D126,Q10162
MOVE 1,@N10177
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,S10259
JSP 11,S$$MST##
MOVE 1,N10259
JSP 11,S$$CVA##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10177
Q10162:
; OPCODE RPOS(1) 'E' =
JSP 14,S$$STE##
XWD ^D127,Q10163
MOVE 1,@N10177
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10150
CAIE 1,(13)
POPJ 16,
MOVE 1,S10279
JSP 11,S$$MST##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10177
Q10163:
; OPERAND $(OPCODE '.PARSE') :S(TABSTOR)
JSP 14,S$$STE##
XWD ^D128,Q10164
MOVE 1,@N10178
PUSH 16,1
MOVE 1,@N10177
PUSH 16,1
MOVE 1,S10280
JSP 14,S$$CNC##
EXP ^D2
JSP 14,S$$IVV##
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
JRST L10281
Q10164:
; ERROR('SYNTAX') :(RETURN)
JSP 14,S$$STE##
XWD ^D129,S$$SRT##
MOVE 1,S10282
FCALV$ ^D1,F10267
JRST S$$SRT##
;TABSTOR LOW = REMDR(LOW,WSIZE)
L10281:
JSP 14,S$$STE##
XWD ^D130,Q10165
MOVE 1,@N10198
DASGN$ 2,Q10001+^D0
MOVE 1,@N10283
DASGN$ 2,Q10001+^D1
SUB 16,S$$STB##
MOVEM 16,S$$STS##
JSA 16,F$$RMD##
JUMP 0,Q10001+^D0
JUMP 0,Q10001+^D1
ADD 16,S$$STB##
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10198
Q10165:
; HIGH = REMDR(HIGH,WSIZE)
JSP 14,S$$STE##
XWD ^D131,Q10166
MOVE 1,@N10199
DASGN$ 2,Q10001+^D0
MOVE 1,@N10283
DASGN$ 2,Q10001+^D1
SUB 16,S$$STB##
MOVEM 16,S$$STS##
JSA 16,F$$RMD##
JUMP 0,Q10001+^D0
JUMP 0,Q10001+^D1
ADD 16,S$$STB##
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10199
Q10166:
; RANGE = LOW ',' HIGH
JSP 14,S$$STE##
XWD ^D132,Q10167
MOVE 1,@N10198
PUSH 16,1
MOVE 1,S10181
PUSH 16,1
MOVE 1,@N10199
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10284
Q10167:
; ( EQ(LOW,0) EQ(HIGH + 1,WSIZE) SETTYPE(LF,'W') )
JSP 14,S$$STE##
XWD ^D133,Q10168
MOVE 1,@N10198
PUSH 16,1
MOVE 1,I10175
FCALV$ ^D2,F10075
PUSH 16,1
DICNV$ @N10199
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
PUSH 16,1
MOVE 1,@N10283
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10286
FCALV$ ^D2,F10285
JSP 14,S$$CNC##
EXP ^D3
Q10168:
; ( EQ(LOW,HIGH) IDENT(OPCODE,'FIELD') SETTYPE(LF,'1') )
JSP 14,S$$STE##
XWD ^D134,Q10169
MOVE 1,@N10198
PUSH 16,1
MOVE 1,@N10199
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10177
PUSH 16,1
MOVE 1,S10164
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10209
FCALV$ ^D2,F10285
JSP 14,S$$CNC##
EXP ^D3
Q10169:
; T1 = HIGH + 1 - LOW
JSP 14,S$$STE##
XWD ^D135,Q10170
DICNV$ @N10199
ADD ^D1,K10150
PUSH 17,1
DICNV$ @N10198
POP 17,0
SUB ^D0,1
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10151
Q10170:
; ( EQ(T1,HSIZE) EQ(REMDR(LOW,HSIZE),0) SETTYPE(LF,'H') )
JSP 14,S$$STE##
XWD ^D136,Q10171
MOVE 1,@N10151
PUSH 16,1
MOVE 1,@N10287
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10198
DASGN$ 2,Q10001+^D0
MOVE 1,@N10287
DASGN$ 2,Q10001+^D1
SUB 16,S$$STB##
MOVEM 16,S$$STS##
JSA 16,F$$RMD##
JUMP 0,Q10001+^D0
JUMP 0,Q10001+^D1
ADD 16,S$$STB##
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
PUSH 16,1
MOVE 1,I10175
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10288
FCALV$ ^D2,F10285
JSP 14,S$$CNC##
EXP ^D3
Q10171:
; ( EQ(T1,BSIZE) EQ(REMDR(LOW,BSIZE),0) SETTYPE(LF,'Y') )
JSP 14,S$$STE##
XWD ^D137,Q10172
MOVE 1,@N10151
PUSH 16,1
MOVE 1,@N10289
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10198
DASGN$ 2,Q10001+^D0
MOVE 1,@N10289
DASGN$ 2,Q10001+^D1
SUB 16,S$$STB##
MOVEM 16,S$$STS##
JSA 16,F$$RMD##
JUMP 0,Q10001+^D0
JUMP 0,Q10001+^D1
ADD 16,S$$STB##
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
PUSH 16,1
MOVE 1,I10175
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10285
JSP 14,S$$CNC##
EXP ^D3
Q10172:
; ( GT(LEN,1) \CKTYPE(BF,'B') ERROR('WARNING..NON-BASED LEN>1') )
JSP 14,S$$STE##
XWD ^D138,Q10174
MOVE 1,@N10029
PUSH 16,1
MOVE 1,I10150
FCALV$ ^D2,F10078
PUSH 16,1
JSP 14,S$$NGS##
EXP Q10173
MOVE 1,@N10203
PUSH 16,1
MOVE 1,S10141
FCALV$ ^D2,F10100
JRST S$$NGF##
Q10173:
MOVE 1,S10290
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
Q10174:
; LEN = DIFFER(Y,'Y') ADDR.WORD * LEN
JSP 14,S$$STE##
XWD ^D139,Q10175
MOVE 1,@N10259
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10071
PUSH 16,1
MOVE 1,@N10234
PUSH 16,1
MOVE 1,@N10029
JSP 14,S$$MUL##
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10029
Q10175:
; OFF = DIFFER(Y,'Y') ADDR.WORD * OFF
JSP 14,S$$STE##
XWD ^D140,Q10176
MOVE 1,@N10259
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10071
PUSH 16,1
MOVE 1,@N10234
PUSH 16,1
MOVE 1,@N10197
JSP 14,S$$MUL##
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10197
Q10176:
; ( CKTYPE(LF,'-') ERROR('ILLEGAL RANGE...BYTE ASSUMED')
;. SETTYPE(LF,'Y') )
JSP 14,S$$STE##
XWD ^D141,Q10177
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10157
FCALV$ ^D2,F10100
PUSH 16,1
MOVE 1,S10291
FCALV$ ^D1,F10267
PUSH 16,1
MOVE 1,@N10202
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10285
JSP 14,S$$CNC##
EXP ^D3
Q10177:
; TABSTM()
JSP 14,S$$STE##
XWD ^D142,Q10178
FCALV$ ^D0,F10292
Q10178:
; ( CKTYPE(DF,'E') DS(BASE,LEN) )
JSP 14,S$$STE##
XWD ^D143,Q10179
MOVE 1,@N10206
PUSH 16,1
MOVE 1,S10279
FCALV$ ^D2,F10100
PUSH 16,1
MOVE 1,@N10195
PUSH 16,1
MOVE 1,@N10029
FCALV$ ^D2,F10293
JSP 14,S$$CNC##
EXP ^D2
Q10179:
; IDTAB<N1> = ID(LEN,OFF,TYPE,BASE,MASK,RANGE)
JSP 14,S$$STE##
XWD ^D144,Q10180
MOVE 1,@N10194
AREFN$ ^D1,N10132
PUSH 16,1
MOVE 1,@N10029
PUSH 16,1
MOVE 1,@N10197
PUSH 16,1
MOVE 1,@N10278
PUSH 16,1
MOVE 1,@N10195
PUSH 16,1
MOVE 1,@N10294
PUSH 16,1
MOVE 1,@N10284
FCALV$ ^D6,F10230
JSP 11,S$$ASG##
Q10180:
; MASK =
JSP 14,S$$STE##
XWD ^D145,Q10181
SETZM @N10294
Q10181:
; LOW = ; HIGH = ; OFF = ; BASE = :(RETURN)
JSP 14,S$$STE##
XWD ^D146,Q10182
SETZM @N10198
Q10182:
JSP 14,S$$STE##
XWD ^D147,Q10183
SETZM @N10199
Q10183:
JSP 14,S$$STE##
XWD ^D148,Q10184
SETZM @N10197
Q10184:
JSP 14,S$$STE##
XWD ^D149,S$$SRT##
SETZM @N10195
JRST S$$SRT##
;**
;DO.CALL
L10295:
JSP 14,S$$STE##
XWD ^D150,
;CALLS OPERAND CALL.PARSE :F(ERR)
L10173:
JSP 14,S$$STE##
XWD ^D151,L10296
MOVE 1,@N10178
PUSH 16,1
MOVE 1,@N10186
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
; CALLLAB = GETLAB()
JSP 14,S$$STE##
XWD ^D152,Q10185
FCALV$ ^D0,F10262
MOVEM 1,@N10297
Q10185:
; NARG = 0
JSP 14,S$$STE##
XWD ^D153,Q10186
MOVE 1,I10175
MOVEM 1,@N10298
Q10186:
; TAB.BASE(IDTAB<'#1'>) = CALLLAB
JSP 14,S$$STE##
XWD ^D154,Q10187
MOVE 1,S10229
AREFV$ ^D1,N10132
FCALN$ ^D1,F10299
PUSH 16,1
MOVE 1,@N10297
JSP 11,S$$ASG##
Q10187:
; TP2 = IDTAB<'#2'>
JSP 14,S$$STE##
XWD ^D155,Q10188
MOVE 1,S10233
AREFV$ ^D1,N10132
MOVEM 1,@N10300
Q10188:
; TAB.OFF(TP2) = 0
JSP 14,S$$STE##
XWD ^D156,Q10189
MOVE 1,@N10300
FCALN$ ^D1,F10301
PUSH 16,1
MOVE 1,I10175
JSP 11,S$$ASG##
Q10189:
; REENT.OFF<CALLLAB> = DIFFER(SW.REENT) TOTSTORE
JSP 14,S$$STE##
XWD ^D157,Q10190
MOVE 1,@N10297
AREFN$ ^D1,N10136
PUSH 16,1
MOVE 1,@N10302
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10303
JSP 14,S$$CNC##
EXP ^D2
JSP 11,S$$ASG##
Q10190:
; CALLSRT()
JSP 14,S$$STE##
XWD ^D158,Q10191
FCALV$ ^D0,F10304
Q10191:
;CALLLP ARGS POS(0) SPAN(LET DIGIT) . ARG (',' ! RPOS(0)) = :F(CALLEND)
L10305:
JSP 14,S$$STE##
XWD ^D159,L10307
MOVE 1,@N10189
PUSH 16,1
MOVE 1,@N10152
PUSH 16,1
MOVE 1,@N10143
JSP 14,S$$CNC##
EXP ^D2
JSP 11,S$$MBT##
EXP .
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
MOVE 1,^D1(15)
JSP 11,S$$SPN##
MOVE 1,N10306
JSP 11,S$$CVA##
JSP 11,S$$APS##
XWD .-.,Q10193
MOVE 1,S10181
JSP 11,S$$MST##
JRST Q10192
Q10193:
JSP 11,S$$APF##
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
Q10192:
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10189
; NARG = NARG + 1
JSP 14,S$$STE##
XWD ^D160,Q10194
DICNV$ @N10298
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10298
Q10194:
; OPERAND = '(#1#2,<-[,' ARG ')'
JSP 14,S$$STE##
XWD ^D161,Q10195
MOVE 1,S10308
PUSH 16,1
MOVE 1,@N10306
PUSH 16,1
MOVE 1,S10184
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10178
Q10195:
; COMPILE()
JSP 14,S$$STE##
XWD ^D162,Q10196
FCALV$ ^D0,F10257
Q10196:
; TAB.OFF(TP2) = TAB.OFF(TP2) + ADDR.WORD :(CALLLP)
JSP 14,S$$STE##
XWD ^D163,L10305
MOVE 1,@N10300
FCALN$ ^D1,F10301
PUSH 16,1
MOVE 1,@N10300
FCALV$ ^D1,F10301
PUSH 16,1
MOVE 1,@N10234
JSP 14,S$$ADD##
JSP 11,S$$ASG##
JRST L10305
;CALLEND CLRREG() GENCALL(SUB) :(RETURN)
L10307:
JSP 14,S$$STE##
XWD ^D164,S$$SRT##
FCALV$ ^D0,F10210
PUSH 16,1
MOVE 1,@N10187
FCALV$ ^D1,F10309
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
JRST S$$SRT##
;**
;COMPILE OPERAND "=C" LEN(1) $ T1 BREAK(*T1) . T2 *T1
;. = "=A'" CHAR(T2) "'" :S(COMPILE)
L10257:
JSP 14,S$$STE##
XWD ^D165,
JSP 14,S$$CPE##
; OPERAND GET.THIS.OP = :F(COMPERR)
JSP 14,S$$STE##
XWD ^D166,L10314
MOVE 1,@N10178
PUSH 16,1
MOVE 1,@N10224
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10178
; THISOP OPER.PARSE :S(COMP1)
JSP 14,S$$STE##
XWD ^D167,Q10197
MOVE 1,@N10225
PUSH 16,1
MOVE 1,@N10179
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
JRST L10315
Q10197:
; IDENT(THISOP,'THEN') :S(O.THEN)
JSP 14,S$$STE##
XWD ^D168,Q10198
MOVE 1,@N10225
PUSH 16,1
MOVE 1,S10316
FCALV$ ^D2,F10072
JRST L10317
Q10198:
; ERROR('FUNNY OPERAND') :(FRETURN)
JSP 14,S$$STE##
XWD ^D169,S$$FRT##
MOVE 1,S10318
FCALV$ ^D1,F10267
JRST S$$FRT##
;COMPERR DIFFER(OPERAND)
;. ERROR('INCORRECT OPERAND:' OPERAND) :(FRETURN)
L10314:
JSP 14,S$$STE##
XWD ^D170,S$$FRT##
MOVE 1,@N10178
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,S10319
PUSH 16,1
MOVE 1,@N10178
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
JRST S$$FRT##
;COMP1 SAVECOM = THISOP
L10315:
JSP 14,S$$STE##
XWD ^D171,Q10199
MOVE 1,@N10225
MOVEM 1,@N10320
Q10199:
; IDENT(THENSW) :S(O.LOG)
JSP 14,S$$STE##
XWD ^D172,Q10200
MOVE 1,@N10252
FCALV$ ^D1,F10072
JRST L10321
Q10200:
; OP = JUMPLOC<OPR>
JSP 14,S$$STE##
XWD ^D173,Q10201
MOVE 1,@N10183
AREFV$ ^D1,N10323
MOVEM 1,@N10322
Q10201:
; DIFFER(OP) :S(GOTOP)
JSP 14,S$$STE##
XWD ^D174,Q10202
MOVE 1,@N10322
FCALV$ ^D1,F10071
JRST L10324
Q10202:
; OPR POS(0) ('<-<-' ! '->->') . OPR REM . RIGHT :S(COMP1)
JSP 14,S$$STE##
XWD ^D175,Q10205
MOVE 1,@N10183
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
JSP 11,S$$APS##
XWD .-.,Q10204
MOVE 1,S10325
JSP 11,S$$MST##
JRST Q10203
Q10204:
JSP 11,S$$APF##
MOVE 1,S10326
JSP 11,S$$MST##
Q10203:
MOVE 1,N10183
JSP 11,S$$CVA##
JSP 11,S$$VAS##
JSP 11,S$$REM##
MOVE 1,N10185
JSP 11,S$$CVA##
JSP 11,S$$MTS##
JRST L10315
Q10205:
;COMPUN1 OPR POS(0) '<-[/' = :F(COMPUN)
L10327:
JSP 14,S$$STE##
XWD ^D176,L10329
MOVE 1,@N10183
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,S10328
JSP 11,S$$MST##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10183
; ( DS(SCSC '4',ADDR.WORD) DS(SCSC '3',ADDR.WORD) )
JSP 14,S$$STE##
XWD ^D177,Q10206
MOVE 1,@N10212
PUSH 16,1
MOVE 1,S10240
JSP 14,S$$CNC##
EXP ^D2
PUSH 16,1
MOVE 1,@N10234
FCALV$ ^D2,F10293
PUSH 16,1
MOVE 1,@N10212
PUSH 16,1
MOVE 1,S10238
JSP 14,S$$CNC##
EXP ^D2
PUSH 16,1
MOVE 1,@N10234
FCALV$ ^D2,F10293
JSP 14,S$$CNC##
EXP ^D2
Q10206:
; CKSBSET() :F(COMFULL)
JSP 14,S$$STE##
XWD ^D178,L10331
FCALV$ ^D0,F10330
; RIGHT = EQ(RIGHT,1) OPR :S(COMPLS)
JSP 14,S$$STE##
XWD ^D179,Q10207
MOVE 1,@N10185
PUSH 16,1
MOVE 1,I10150
FCALV$ ^D2,F10075
PUSH 16,1
MOVE 1,@N10183
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10185
JRST L10332
Q10207:
; RIGHT = RIGHT * CONVERT(OPR,'INTEGER') :F(COMMUL)
JSP 14,S$$STE##
XWD ^D180,L10333
MOVE 1,@N10185
PUSH 16,1
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10048
FCALV$ ^D2,F10062
JSP 14,S$$MUL##
MOVEM 1,@N10185
;COMPLS OPR = '+' :(COMP1)
L10332:
JSP 14,S$$STE##
XWD ^D181,L10315
MOVE 1,S10223
MOVEM 1,@N10183
JRST L10315
;COMMUL OPERAND = '(#4,<-,' RIGHT '),'
;. '(#4,*,' OPR '),(' LEFT ',+,#4),'
;. OPERAND :(COMPILE)
L10333:
JSP 14,S$$STE##
XWD ^D182,L10257
MOVE 1,S10334
PUSH 16,1
MOVE 1,@N10185
PUSH 16,1
MOVE 1,S10335
PUSH 16,1
MOVE 1,S10336
PUSH 16,1
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10337
PUSH 16,1
MOVE 1,@N10182
PUSH 16,1
MOVE 1,S10338
PUSH 16,1
MOVE 1,@N10178
JSP 14,S$$CNC##
EXP ^D9
MOVEM 1,@N10178
JRST L10257
;COMFULL OPERAND = '(#3,<-[,' LEFT '),(#4,<-[,' RIGHT
;. '),(#4,-,#3),'
;. '(#4,*,' OPR '),(' LEFT ',+,#4),'
;. OPERAND :(COMPILE)
L10331:
JSP 14,S$$STE##
XWD ^D183,L10257
MOVE 1,S10339
PUSH 16,1
MOVE 1,@N10182
PUSH 16,1
MOVE 1,S10340
PUSH 16,1
MOVE 1,@N10185
PUSH 16,1
MOVE 1,S10341
PUSH 16,1
MOVE 1,S10336
PUSH 16,1
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10337
PUSH 16,1
MOVE 1,@N10182
PUSH 16,1
MOVE 1,S10338
PUSH 16,1
MOVE 1,@N10178
JSP 14,S$$CNC##
EXP ^D11
MOVEM 1,@N10178
JRST L10257
;COMPUN OPR POS(0) AVAR RPOS(0) :S(COMPUN2)
L10329:
JSP 14,S$$STE##
XWD ^D184,Q10208
MOVE 1,@N10183
PUSH 16,1
MOVE 1,@N10154
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,^D1(15)
JSP 11,S$$PTX##
HRRZ 1,K10175
CAIE 1,(13)
POPJ 16,
JSP 11,S$$MTS##
JRST L10342
Q10208:
; ERROR('UNDEFINED OPERATION...' OPR) :(RETURN)
JSP 14,S$$STE##
XWD ^D185,S$$SRT##
MOVE 1,S10343
PUSH 16,1
MOVE 1,@N10183
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JRST S$$SRT##
;COMPUN2 DO.CALL(OPR ',(' LEFT ',' RIGHT ')') :(RETURN)
L10342:
JSP 14,S$$STE##
XWD ^D186,S$$SRT##
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10188
PUSH 16,1
MOVE 1,@N10182
PUSH 16,1
MOVE 1,S10181
PUSH 16,1
MOVE 1,@N10185
PUSH 16,1
MOVE 1,S10184
JSP 14,S$$CNC##
EXP ^D6
FCALV$ ^D1,F10295
JRST S$$SRT##
;GOTOP IDENT(OPR,'GOTO') :S(O.GOTO)
L10324:
JSP 14,S$$STE##
XWD ^D187,Q10209
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10344
FCALV$ ^D2,F10072
JRST L10345
Q10209:
; OPR = IDENT(OPR,'<-[') CKSBSET() '+' :S(COMP1)
JSP 14,S$$STE##
XWD ^D188,Q10210
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10346
FCALV$ ^D2,F10072
PUSH 16,1
FCALV$ ^D0,F10330
PUSH 16,1
MOVE 1,S10223
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10183
JRST L10315
Q10210:
; COMPLR()
JSP 14,S$$STE##
XWD ^D189,Q10211
FCALV$ ^D0,F10347
Q10211:
; OPGO = 'O.' OP :($OPGO)
JSP 14,S$$STE##
XWD ^D190,Q10212
MOVE 1,S10349
PUSH 16,1
MOVE 1,@N10322
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10348
Q10212:
MOVEI 14,S$$BGT##
MOVEM 14,S$$FLP##
MOVE 1,@N10348
JSP 14,S$$ILB##
;**
;O.THEN THENSW = '1'
L10317:
JSP 14,S$$STE##
XWD ^D191,Q10213
MOVE 1,S10209
MOVEM 1,@N10252
Q10213:
; ( IDENT(BTYPE,'Y') GENLOG(BRANCH,LAB2)
;. GENLAB(LAB1) ) :(RETURN)
JSP 14,S$$STE##
XWD ^D192,S$$SRT##
MOVE 1,@N10258
PUSH 16,1
MOVE 1,S10259
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,@N10214
PUSH 16,1
MOVE 1,@N10263
FCALV$ ^D2,F10350
PUSH 16,1
MOVE 1,@N10261
FCALV$ ^D1,F10266
JSP 14,S$$CNC##
EXP ^D3
JRST S$$SRT##
;**
;O.LOG LEFT CK.LIT :F(O.LOGOK)
L10321:
JSP 14,S$$STE##
XWD ^D193,L10351
MOVE 1,@N10182
PUSH 16,1
MOVE 1,@N10226
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
; T1 = LEFT ; LEFT = RIGHT ; RIGHT = T1
JSP 14,S$$STE##
XWD ^D194,Q10214
MOVE 1,@N10182
MOVEM 1,@N10151
Q10214:
JSP 14,S$$STE##
XWD ^D195,Q10215
MOVE 1,@N10185
MOVEM 1,@N10182
Q10215:
JSP 14,S$$STE##
XWD ^D196,Q10216
MOVE 1,@N10151
MOVEM 1,@N10185
Q10216:
; OPR = REPLACE(OPR,'<>','><')
JSP 14,S$$STE##
XWD ^D197,Q10217
MOVE 1,@N10183
PUSH 16,1
MOVE 1,S10216
PUSH 16,1
MOVE 1,S10352
FCALV$ ^D3,F10083
MOVEM 1,@N10183
Q10217:
;O.LOGOK COMPLR()
L10351:
JSP 14,S$$STE##
XWD ^D198,Q10218
FCALV$ ^D0,F10347
Q10218:
; OP = IDENT(BTYPE,'N') COMPOP() :S(O.LOG1)
JSP 14,S$$STE##
XWD ^D199,Q10219
MOVE 1,@N10258
PUSH 16,1
MOVE 1,S10269
FCALV$ ^D2,F10072
PUSH 16,1
FCALV$ ^D0,F10353
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10322
JRST L10354
Q10219:
; OP = LOGOP<OPR>
JSP 14,S$$STE##
XWD ^D200,Q10220
MOVE 1,@N10183
AREFV$ ^D1,N10215
MOVEM 1,@N10322
Q10220:
;O.LOG1 ( IDENT(OP) ERROR('UNDEF RELATION OP') )
L10354:
JSP 14,S$$STE##
XWD ^D201,Q10221
MOVE 1,@N10322
FCALV$ ^D1,F10072
PUSH 16,1
MOVE 1,S10355
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
Q10221:
; GENLOG(OP,LLAB) :(RETURN)
JSP 14,S$$STE##
XWD ^D202,S$$SRT##
MOVE 1,@N10322
PUSH 16,1
MOVE 1,@N10264
FCALV$ ^D2,F10350
JRST S$$SRT##
;**
;COMPOP OPR '\' = :S(COMPOP1)
L10353:
JSP 14,S$$STE##
XWD ^D203,Q10222
MOVE 1,@N10183
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
MOVE 1,S10356
JSP 11,S$$MST##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10183
JRST L10357
Q10222:
; OPR = '\' OPR
JSP 14,S$$STE##
XWD ^D204,Q10223
MOVE 1,S10356
PUSH 16,1
MOVE 1,@N10183
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10183
Q10223:
;COMPOP1 COMPOP = LOGOP<OPR> :(RETURN)
L10357:
JSP 14,S$$STE##
XWD ^D205,S$$SRT##
MOVE 1,@N10183
AREFV$ ^D1,N10215
MOVEM 1,@N10353
JRST S$$SRT##
;**
;COMPLR GETCONT(LEFT,2) ; L.ENTRY = ENTRY
L10347:
JSP 14,S$$STE##
XWD ^D206,Q10224
MOVE 1,@N10182
PUSH 16,1
MOVE 1,I10205
FCALV$ ^D2,F10358
Q10224:
JSP 14,S$$STE##
XWD ^D207,Q10225
MOVE 1,@N10360
MOVEM 1,@N10359
Q10225:
; L.ADDR = ADDR ; L.TYPE = TYPE ; L.F = GETTYPE(LF)
JSP 14,S$$STE##
XWD ^D208,Q10226
MOVE 1,@N10362
MOVEM 1,@N10361
Q10226:
JSP 14,S$$STE##
XWD ^D209,Q10227
MOVE 1,@N10278
MOVEM 1,@N10363
Q10227:
JSP 14,S$$STE##
XWD ^D210,Q10228
MOVE 1,@N10202
FCALV$ ^D1,F10365
MOVEM 1,@N10364
Q10228:
; GETCONT(RIGHT,1) ; R.ENTRY = ENTRY
JSP 14,S$$STE##
XWD ^D211,Q10229
MOVE 1,@N10185
PUSH 16,1
MOVE 1,I10150
FCALV$ ^D2,F10358
Q10229:
JSP 14,S$$STE##
XWD ^D212,Q10230
MOVE 1,@N10360
MOVEM 1,@N10366
Q10230:
; R.ADDR = ADDR ; R.TYPE = TYPE ; R.F = GETTYPE(LF)
JSP 14,S$$STE##
XWD ^D213,Q10231
MOVE 1,@N10362
MOVEM 1,@N10367
Q10231:
JSP 14,S$$STE##
XWD ^D214,Q10232
MOVE 1,@N10278
MOVEM 1,@N10368
Q10232:
JSP 14,S$$STE##
XWD ^D215,Q10233
MOVE 1,@N10202
FCALV$ ^D1,F10365
MOVEM 1,@N10369
Q10233:
; IDENT(L.F,R.F) :S(COMPLR1)
JSP 14,S$$STE##
XWD ^D216,Q10234
MOVE 1,@N10364
PUSH 16,1
MOVE 1,@N10369
FCALV$ ^D2,F10072
JRST L10370
Q10234:
; TYPE = L.TYPE
JSP 14,S$$STE##
XWD ^D217,Q10235
MOVE 1,@N10363
MOVEM 1,@N10278
Q10235:
; ( \( CKTYPE(BF,'BF') DIFFER(SW.CONV) )
;. ERROR('LEFT AND RIGHT SIZES DIFFER') ) :S(COMPLR1)
JSP 14,S$$STE##
XWD ^D218,Q10237
JSP 14,S$$NGS##
EXP Q10236
MOVE 1,@N10203
PUSH 16,1
MOVE 1,S10203
FCALV$ ^D2,F10100
PUSH 16,1
MOVE 1,@N10371
FCALV$ ^D1,F10071
JSP 14,S$$CNC##
EXP ^D2
JRST S$$NGF##
Q10236:
MOVE 1,S10372
FCALV$ ^D1,F10267
JRST L10370
Q10237:
; ERROR('WARNING...LEFT SIZE CHANGED TO SIZE OF RIGHT')
JSP 14,S$$STE##
XWD ^D219,Q10238
MOVE 1,S10373
FCALV$ ^D1,F10267
Q10238:
; L.F = R.F
JSP 14,S$$STE##
XWD ^D220,Q10239
MOVE 1,@N10369
MOVEM 1,@N10364
Q10239:
; SETTYPE(LF,R.F)
JSP 14,S$$STE##
XWD ^D221,Q10240
MOVE 1,@N10202
PUSH 16,1
MOVE 1,@N10369
FCALV$ ^D2,F10285
Q10240:
; L.TYPE = TYPE
JSP 14,S$$STE##
XWD ^D222,Q10241
MOVE 1,@N10278
MOVEM 1,@N10363
Q10241:
; TAB.TYPE( L.ENTRY ) = L.TYPE
JSP 14,S$$STE##
XWD ^D223,Q10242
MOVE 1,@N10359
FCALN$ ^D1,F10374
PUSH 16,1
MOVE 1,@N10363
JSP 11,S$$ASG##
Q10242:
; TAB.RANGE( L.ENTRY ) = TAB.RANGE( R.ENTRY )
JSP 14,S$$STE##
XWD ^D224,Q10243
MOVE 1,@N10359
FCALN$ ^D1,F10375
PUSH 16,1
MOVE 1,@N10366
FCALV$ ^D1,F10375
JSP 11,S$$ASG##
Q10243:
; TAB.MASK( L.ENTRY ) = TAB.MASK( R.ENTRY )
JSP 14,S$$STE##
XWD ^D225,Q10244
MOVE 1,@N10359
FCALN$ ^D1,F10376
PUSH 16,1
MOVE 1,@N10366
FCALV$ ^D1,F10376
JSP 11,S$$ASG##
Q10244:
;COMPLR1 LR = L.F R.F :(RETURN)
L10370:
JSP 14,S$$STE##
XWD ^D226,S$$SRT##
MOVE 1,@N10364
PUSH 16,1
MOVE 1,@N10369
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10377
JRST S$$SRT##
;**
;GETCONT CHAR.CNT = 0 ; OFF = 0 ; LOAD.CNT = 0
L10358:
JSP 14,S$$STE##
XWD ^D227,Q10245
MOVE 1,I10175
MOVEM 1,@N10378
Q10245:
JSP 14,S$$STE##
XWD ^D228,Q10246
MOVE 1,I10175
MOVEM 1,@N10197
Q10246:
JSP 14,S$$STE##
XWD ^D229,Q10247
MOVE 1,I10175
MOVEM 1,@N10379
Q10247:
; PARM GET.VAR.X = :S(GETC)
JSP 14,S$$STE##
XWD ^D230,Q10248
MOVE 1,@N10380
PUSH 16,1
MOVE 1,@N10227
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10380
JRST L10381
Q10248:
; PARM CK.LIT :F(GETERR)
JSP 14,S$$STE##
XWD ^D231,L10382
MOVE 1,@N10380
PUSH 16,1
MOVE 1,@N10226
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
; ( IDENT(WHEN,2) ERROR('LITERAL ON THE LEFT') )
JSP 14,S$$STE##
XWD ^D232,Q10249
MOVE 1,@N10383
PUSH 16,1
MOVE 1,I10205
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,S10384
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
Q10249:
;CKCCH TYPE = L.TYPE
L10385:
JSP 14,S$$STE##
XWD ^D233,Q10250
MOVE 1,@N10363
MOVEM 1,@N10278
Q10250:
; PARM POS(0) "=A" LEN(1) RTAB(1) . ADDR :S(RETURN)
JSP 14,S$$STE##
XWD ^D234,Q10251
MOVE 1,@N10380
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,S10386
JSP 11,S$$MST##
HRRZ 1,K10150
JSP 11,S$$LEN##
JSP 11,S$$VAS##
HRRZ 1,K10150
JSP 11,S$$RTB##
MOVE 1,N10362
JSP 11,S$$CVA##
JSP 11,S$$MTS##
JRST S$$SRT##
Q10251:
; ADDR = '#' RADIX(PARM) :(RETURN)
JSP 14,S$$STE##
XWD ^D235,S$$SRT##
MOVE 1,S10387
PUSH 16,1
MOVE 1,@N10380
FCALV$ ^D1,F10388
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10362
JRST S$$SRT##
;GETERR ( DIFFER(PARM) ERROR('STRANGE OPERAND...' PARM) )
;. :(RETURN)
L10382:
JSP 14,S$$STE##
XWD ^D236,S$$SRT##
MOVE 1,@N10380
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,S10389
PUSH 16,1
MOVE 1,@N10380
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
JRST S$$SRT##
;GETC GEN()
L10381:
JSP 14,S$$STE##
XWD ^D237,Q10252
FCALV$ ^D0,F10390
Q10252:
; PARM GET.VAR.X = :S(GETC)F(GETERR)
JSP 14,S$$STE##
XWD ^D238,L10382
MOVE 1,@N10380
PUSH 16,1
MOVE 1,@N10227
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10380
JRST L10381
;**
;GEN CHAR.CNT = CHAR.CNT + 1
L10390:
JSP 14,S$$STE##
XWD ^D239,Q10253
DICNV$ @N10378
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10378
Q10253:
; ENTRY = IDTAB<X>
JSP 14,S$$STE##
XWD ^D240,Q10254
MOVE 1,@N10228
AREFV$ ^D1,N10132
MOVEM 1,@N10360
Q10254:
; ( IDENT(ENTRY) ERROR('UNDEFINED ELEMENT...' X) ) :S(RETURN)
JSP 14,S$$STE##
XWD ^D241,Q10255
MOVE 1,@N10360
FCALV$ ^D1,F10072
PUSH 16,1
MOVE 1,S10391
PUSH 16,1
MOVE 1,@N10228
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
JRST S$$SRT##
Q10255:
; TYPE = TAB.TYPE(ENTRY)
JSP 14,S$$STE##
XWD ^D242,Q10256
MOVE 1,@N10360
FCALV$ ^D1,F10374
MOVEM 1,@N10278
Q10256:
; OFF = OFF + TAB.OFF(ENTRY)
JSP 14,S$$STE##
XWD ^D243,Q10257
MOVE 1,@N10197
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10301
JSP 14,S$$ADD##
MOVEM 1,@N10197
Q10257:
; ( DIFFER(TAB.BASE(ENTRY)) GT(CHAR.CNT,1)
;. ERROR('MISPLACED BASE:' X) )
JSP 14,S$$STE##
XWD ^D244,Q10258
MOVE 1,@N10360
FCALV$ ^D1,F10299
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10378
PUSH 16,1
MOVE 1,I10150
FCALV$ ^D2,F10078
PUSH 16,1
MOVE 1,S10392
PUSH 16,1
MOVE 1,@N10228
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D3
Q10258:
; EQ(CHAR.CNT,1) :F(GEBASE)
JSP 14,S$$STE##
XWD ^D245,L10393
MOVE 1,@N10378
PUSH 16,1
MOVE 1,I10150
FCALV$ ^D2,F10075
; ( IDENT(TAB.BASE(ENTRY)) ERROR('MISPLACED BASE:' X) )
JSP 14,S$$STE##
XWD ^D246,Q10259
MOVE 1,@N10360
FCALV$ ^D1,F10299
FCALV$ ^D1,F10072
PUSH 16,1
MOVE 1,S10392
PUSH 16,1
MOVE 1,@N10228
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
Q10259:
; BASELOC = TAB.BASE(ENTRY)
JSP 14,S$$STE##
XWD ^D247,Q10260
MOVE 1,@N10360
FCALV$ ^D1,F10299
MOVEM 1,@N10394
Q10260:
; TAB.MASK(ENTRY) = TAB.MASK(ENTRY) - 1
JSP 14,S$$STE##
XWD ^D248,Q10261
MOVE 1,@N10360
FCALN$ ^D1,F10376
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10376
DICNV$ 0
SUB ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
JSP 11,S$$ASG##
Q10261:
; ADDR =
JSP 14,S$$STE##
XWD ^D249,Q10262
SETZM @N10362
Q10262:
; DIFFER(SW.REENT) :F(GEBASE)
JSP 14,S$$STE##
XWD ^D250,L10393
MOVE 1,@N10302
FCALV$ ^D1,F10071
; ( DIFFER(SW.REG) IDENT(BASELOC,'REG') ) :S(GEBASE)
JSP 14,S$$STE##
XWD ^D251,Q10263
MOVE 1,@N10208
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10394
PUSH 16,1
MOVE 1,S10395
FCALV$ ^D2,F10072
JSP 14,S$$CNC##
EXP ^D2
JRST L10393
Q10263:
; LREG = REENT.REG
JSP 14,S$$STE##
XWD ^D252,Q10264
MOVE 1,@N10397
MOVEM 1,@N10396
Q10264:
; OFF = OFF + REENT.OFF<BASELOC>
JSP 14,S$$STE##
XWD ^D253,Q10265
MOVE 1,@N10197
PUSH 16,1
MOVE 1,@N10394
AREFV$ ^D1,N10136
JSP 14,S$$ADD##
MOVEM 1,@N10197
Q10265:
; BASELOC =
JSP 14,S$$STE##
XWD ^D254,Q10266
SETZM @N10394
Q10266:
;GEBASE ( CKTYPE(TF,'B') DIFFER(PARM) ) :S(RETURN)
L10393:
JSP 14,S$$STE##
XWD ^D255,Q10267
MOVE 1,@N10204
PUSH 16,1
MOVE 1,S10141
FCALV$ ^D2,F10100
PUSH 16,1
MOVE 1,@N10380
FCALV$ ^D1,F10071
JSP 14,S$$CNC##
EXP ^D2
JRST S$$SRT##
Q10267:
; LOAD.CNT = LOAD.CNT + 1
JSP 14,S$$STE##
XWD ^D256,Q10268
DICNV$ @N10379
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10379
Q10268:
; GENLD()
JSP 14,S$$STE##
XWD ^D257,Q10269
FCALV$ ^D0,F10398
Q10269:
; OFF = ; BASELOC = :(RETURN)
JSP 14,S$$STE##
XWD ^D258,Q10270
SETZM @N10197
Q10270:
JSP 14,S$$STE##
XWD ^D259,S$$SRT##
SETZM @N10394
JRST S$$SRT##
;**
;GENLD R = GETREG()
L10398:
JSP 14,S$$STE##
XWD ^D260,Q10271
FCALV$ ^D0,F10400
MOVEM 1,@N10399
Q10271:
; ( DIFFER(ADDR) CKREG() CKREGD()
;. PUTREG(R,ADDR) GENLOAD(R,ADDR) )
JSP 14,S$$STE##
XWD ^D261,Q10272
MOVE 1,@N10362
FCALV$ ^D1,F10071
PUSH 16,1
FCALV$ ^D0,F10401
PUSH 16,1
FCALV$ ^D0,F10402
PUSH 16,1
MOVE 1,@N10399
PUSH 16,1
MOVE 1,@N10362
FCALV$ ^D2,F10403
PUSH 16,1
MOVE 1,@N10399
PUSH 16,1
MOVE 1,@N10362
FCALV$ ^D2,F10404
JSP 14,S$$CNC##
EXP ^D5
Q10272:
; OFF = EQ(OFF) :S(NOOFF)
JSP 14,S$$STE##
XWD ^D262,Q10273
MOVE 1,@N10197
FCALV$ ^D1,F10075
MOVEM 1,@N10197
JRST L10405
Q10273:
; OFF = RADIX(OFF)
JSP 14,S$$STE##
XWD ^D263,Q10274
MOVE 1,@N10197
FCALV$ ^D1,F10388
MOVEM 1,@N10197
Q10274:
;NOOFF BASELOC = DIFFER(BASELOC) DIFFER(OFF) BASELOC '+'
L10405:
JSP 14,S$$STE##
XWD ^D264,Q10275
MOVE 1,@N10394
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10197
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10394
PUSH 16,1
MOVE 1,S10223
JSP 14,S$$CNC##
EXP ^D4
MOVEM 1,@N10394
Q10275:
; LREG = DIFFER(LREG) '(' LREG ')'
JSP 14,S$$STE##
XWD ^D265,Q10276
MOVE 1,@N10396
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,S10180
PUSH 16,1
MOVE 1,@N10396
PUSH 16,1
MOVE 1,S10184
JSP 14,S$$CNC##
EXP ^D4
MOVEM 1,@N10396
Q10276:
; ADDR = BASELOC OFF LREG
JSP 14,S$$STE##
XWD ^D266,Q10277
MOVE 1,@N10394
PUSH 16,1
MOVE 1,@N10197
PUSH 16,1
MOVE 1,@N10396
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10362
Q10277:
; LREG = R :(RETURN)
JSP 14,S$$STE##
XWD ^D267,S$$SRT##
MOVE 1,@N10399
MOVEM 1,@N10396
JRST S$$SRT##
;**
;PUT PUNCH = STRING :(RETURN)
L10256:
JSP 14,S$$STE##
XWD ^D268,S$$SRT##
MOVE 1,@N10407
MOVEM 1,@N10406
JRST S$$SRT##
;**
;**SNO*LPAD LPAD = DUPL(SYM,N - SIZE(LPAD)) LPAD :(RETURN)
;**SNO*RPAD SYM = IDENT(SYM) ' '
;**SNO* RPAD = RPAD DUPL(SYM,N - SIZE(RPAD)) :(RETURN)
;**
;GENLAB ( DIFFER(LABEL) ASS(LABEL) CLRREG() ) :(RETURN)
L10266:
JSP 14,S$$STE##
XWD ^D269,S$$SRT##
MOVE 1,@N10176
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10176
FCALV$ ^D1,F10091
PUSH 16,1
FCALV$ ^D0,F10210
JSP 14,S$$CNC##
EXP ^D3
JRST S$$SRT##
;**
;FILLTAB TEMP BREAK.TAB = :F(RETURN)
L10408:
JSP 14,S$$STE##
XWD ^D270,S$$SRT##
MOVE 1,@N10409
PUSH 16,1
MOVE 1,@N10190
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10409
; FILLTAB<T1> = T2 :(FILLTAB)
JSP 14,S$$STE##
XWD ^D271,L10408
MOVE 1,@N10151
AREFN$ ^D1,N10408
PUSH 16,1
MOVE 1,@N10192
JSP 11,S$$ASG##
JRST L10408
;**
;ERR ERROR('SYNTAX') :(RETURN)
L10296:
JSP 14,S$$STE##
XWD ^D272,S$$SRT##
MOVE 1,S10282
FCALV$ ^D1,F10267
JRST S$$SRT##
;**
;ERROR MESS = DIFFER(THISOP) MESS ':' THISOP
L10267:
JSP 14,S$$STE##
XWD ^D273,Q10278
MOVE 1,@N10225
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10410
PUSH 16,1
MOVE 1,S10411
PUSH 16,1
MOVE 1,@N10225
JSP 14,S$$CNC##
EXP ^D4
MOVEM 1,@N10410
Q10278:
; TTYOUT = DIFFER(CARD) STATENO TAB CARD CRLF
JSP 14,S$$STE##
XWD ^D274,Q10279
MOVE 1,@N10242
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10243
PUSH 16,1
MOVE 1,@N10030
PUSH 16,1
MOVE 1,@N10242
PUSH 16,1
MOVE 1,@N10413
JSP 14,S$$CNC##
EXP ^D5
MOVEM 1,@N10412
Q10279:
; CARD =
JSP 14,S$$STE##
XWD ^D275,Q10280
SETZM @N10242
Q10280:
; TTYOUT = 'ERROR-' MESS CRLF
JSP 14,S$$STE##
XWD ^D276,Q10281
MOVE 1,S10414
PUSH 16,1
MOVE 1,@N10410
PUSH 16,1
MOVE 1,@N10413
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10412
Q10281:
; OUTPUT = '**********' MESS
JSP 14,S$$STE##
XWD ^D277,Q10282
MOVE 1,S10415
PUSH 16,1
MOVE 1,@N10410
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@S$$OUT##
Q10282:
; COMMENT(OUTPUT) :(RETURN)
JSP 14,S$$STE##
XWD ^D278,S$$SRT##
MOVE 1,@S$$OUT##
FCALV$ ^D1,F10220
JRST S$$SRT##
;**
;SETTYPE TYPE POS(POS) LEN(1) = CHAR :(RETURN)
L10285:
JSP 14,S$$STE##
XWD ^D279,S$$SRT##
MOVE 1,@N10278
PUSH 16,1
MOVE 1,@N10032
JSP 11,S$$MID##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,^D1(15)
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
HRRZ 1,K10150
JSP 11,S$$LEN##
JSP 11,S$$RPS##
MOVE 1,@N10312
JSP 14,S$$RPL##
MOVEM 1,@N10278
JRST S$$SRT##
;**
;GETTYPE TYPE POS(POS) LEN(1) . GETTYPE :(RETURN)
L10365:
JSP 14,S$$STE##
XWD ^D280,S$$SRT##
MOVE 1,@N10278
PUSH 16,1
MOVE 1,@N10032
JSP 11,S$$MID##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,^D1(15)
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JSP 11,S$$VAS##
HRRZ 1,K10150
JSP 11,S$$LEN##
MOVE 1,N10365
JSP 11,S$$CVA##
JSP 11,S$$MTS##
JRST S$$SRT##
;**
;CKTYPE TYPE POS(POS) CHAR :F(FRETURN)S(RETURN)
L10100:
JSP 14,S$$STE##
XWD ^D281,S$$FRT##
MOVE 1,@N10278
PUSH 16,1
MOVE 1,@N10032
JSP 11,S$$MID##
PUSH 16,1
MOVE 1,@N10312
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D3,0
HRRZ 1,^D1(15)
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,^D2(15)
JSP 11,S$$PTX##
JSP 11,S$$MTS##
JRST S$$SRT##
;**
;DEC2OCT N = CONVERT(N,'INTEGER') :F(FRETURN)
L10416:
JSP 14,S$$STE##
XWD ^D282,S$$FRT##
MOVE 1,@N10269
PUSH 16,1
MOVE 1,S10048
FCALV$ ^D2,F10062
MOVEM 1,@N10269
; ( GT(N,MAXSIZE) ERROR('GT MAX SIZE...' N) ) :S(FRETURN)
JSP 14,S$$STE##
XWD ^D283,Q10283
MOVE 1,@N10269
PUSH 16,1
MOVE 1,@N10417
FCALV$ ^D2,F10078
PUSH 16,1
MOVE 1,S10418
PUSH 16,1
MOVE 1,@N10269
JSP 14,S$$CNC##
EXP ^D2
FCALV$ ^D1,F10267
JSP 14,S$$CNC##
EXP ^D2
JRST S$$FRT##
Q10283:
; DEC2OCT = LT(N,0) '-' DEC2OCT(0 - N) :S(RETURN)
JSP 14,S$$STE##
XWD ^D284,Q10284
MOVE 1,@N10269
PUSH 16,1
MOVE 1,I10175
FCALV$ ^D2,F10073
PUSH 16,1
MOVE 1,S10157
PUSH 16,1
MOVE ^D1,K10175
PUSH 17,1
DICNV$ @N10269
POP 17,0
SUB ^D0,1
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
FCALV$ ^D1,F10416
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10416
JRST S$$SRT##
Q10284:
;D2O DEC2OCT = REMDR(N,8) DEC2OCT
L10419:
JSP 14,S$$STE##
XWD ^D285,Q10285
MOVE 1,@N10269
DASGN$ 2,Q10001+^D0
SUB 16,S$$STB##
MOVEM 16,S$$STS##
JSA 16,F$$RMD##
JUMP 0,Q10001+^D0
JUMP 0,K10244
ADD 16,S$$STB##
MOVE 1,0
TLO 1,1B18
TLZ 1,1B19
PUSH 16,1
MOVE 1,@N10416
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10416
Q10285:
; N = GT(N,7) N / 8 :F(RETURN)S(D2O)
JSP 14,S$$STE##
XWD ^D286,S$$SRT##
MOVE 1,@N10269
PUSH 16,1
MOVE 1,I10420
FCALV$ ^D2,F10078
PUSH 16,1
DICNV$ @N10269
IDIV ^D1,K10244
TLO 1,1B18
TLZ 1,1B19
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10269
JRST L10419
;**
;FLIP T1 = L.ADDR ; L.ADDR = R.ADDR ; R.ADDR = T1
L10421:
JSP 14,S$$STE##
XWD ^D287,Q10286
MOVE 1,@N10361
MOVEM 1,@N10151
Q10286:
JSP 14,S$$STE##
XWD ^D288,Q10287
MOVE 1,@N10367
MOVEM 1,@N10361
Q10287:
JSP 14,S$$STE##
XWD ^D289,Q10288
MOVE 1,@N10151
MOVEM 1,@N10367
Q10288:
; T1 = L.ENTRY ; L.ENTRY = R.ENTRY ; R.ENTRY = T1
JSP 14,S$$STE##
XWD ^D290,Q10289
MOVE 1,@N10359
MOVEM 1,@N10151
Q10289:
JSP 14,S$$STE##
XWD ^D291,Q10290
MOVE 1,@N10366
MOVEM 1,@N10359
Q10290:
JSP 14,S$$STE##
XWD ^D292,Q10291
MOVE 1,@N10151
MOVEM 1,@N10366
Q10291:
; T1 = L.F ; L.F = R.F ; R.F = T1
JSP 14,S$$STE##
XWD ^D293,Q10292
MOVE 1,@N10364
MOVEM 1,@N10151
Q10292:
JSP 14,S$$STE##
XWD ^D294,Q10293
MOVE 1,@N10369
MOVEM 1,@N10364
Q10293:
JSP 14,S$$STE##
XWD ^D295,Q10294
MOVE 1,@N10151
MOVEM 1,@N10369
Q10294:
; LR = L.F R.F :(RETURN)
JSP 14,S$$STE##
XWD ^D296,S$$SRT##
MOVE 1,@N10364
PUSH 16,1
MOVE 1,@N10369
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10377
JRST S$$SRT##
;**
;GETLAB L.CNT = L.CNT + 1
L10262:
JSP 14,S$$STE##
XWD ^D297,Q10295
DICNV$ @N10422
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10422
Q10295:
; GETLAB = SC L.CNT :(RETURN)
JSP 14,S$$STE##
XWD ^D298,S$$SRT##
MOVE 1,@N10213
PUSH 16,1
MOVE 1,@N10422
JSP 14,S$$CNC##
EXP ^D2
MOVEM 1,@N10262
JRST S$$SRT##
;**
;DS ( IDENT(BASE,'REG') DIFFER(SW.REG) ) :S(RETURN)
L10293:
JSP 14,S$$STE##
XWD ^D299,Q10296
MOVE 1,@N10195
PUSH 16,1
MOVE 1,S10395
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,@N10208
FCALV$ ^D1,F10071
JSP 14,S$$CNC##
EXP ^D2
JRST S$$SRT##
Q10296:
; SAVEDS (POS(0) ! '"') BASE ',' :S(RETURN)
JSP 14,S$$STE##
XWD ^D300,Q10299
MOVE 1,@N10423
PUSH 16,1
MOVE 1,@N10195
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
JSP 11,S$$APS##
XWD .-.,Q10298
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
JRST Q10297
Q10298:
JSP 11,S$$APF##
MOVE 1,S10191
JSP 11,S$$MST##
Q10297:
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$MTS##
JRST S$$SRT##
Q10299:
; LEN = ((LEN + ADDR.WORD - 1) / ADDR.WORD) * ADDR.WORD
JSP 14,S$$STE##
XWD ^D301,Q10300
MOVE 1,@N10029
PUSH 16,1
MOVE 1,@N10234
JSP 14,S$$ADD##
DICNV$ 0
SUB ^D1,K10150
PUSH 17,1
DICNV$ @N10234
POP 17,0
IDIV ^D0,1
MOVE 1,0
PUSH 17,1
DICNV$ @N10234
POP 17,0
IMUL ^D1,0
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10029
Q10300:
; DIFFER(SW.REENT) :F(DSNR)
JSP 14,S$$STE##
XWD ^D302,L10424
MOVE 1,@N10302
FCALV$ ^D1,F10071
; REENT.OFF<BASE> = TOTSTORE
JSP 14,S$$STE##
XWD ^D303,Q10301
MOVE 1,@N10195
AREFN$ ^D1,N10136
PUSH 16,1
MOVE 1,@N10303
JSP 11,S$$ASG##
Q10301:
; TOTSTORE = TOTSTORE + LEN :(RETURN)
JSP 14,S$$STE##
XWD ^D304,S$$SRT##
MOVE 1,@N10303
PUSH 16,1
MOVE 1,@N10029
JSP 14,S$$ADD##
MOVEM 1,@N10303
JRST S$$SRT##
;DSNR SAVEDS = SAVEDS BASE ',' LEN '"' :(RETURN)
L10424:
JSP 14,S$$STE##
XWD ^D305,S$$SRT##
MOVE 1,@N10423
PUSH 16,1
MOVE 1,@N10195
PUSH 16,1
MOVE 1,S10181
PUSH 16,1
MOVE 1,@N10029
PUSH 16,1
MOVE 1,S10191
JSP 14,S$$CNC##
EXP ^D5
MOVEM 1,@N10423
JRST S$$SRT##
;**
;CHAR CHAR = GETLAB()
L10312:
JSP 14,S$$STE##
XWD ^D306,Q10302
FCALV$ ^D0,F10262
MOVEM 1,@N10312
Q10302:
; SAVEDC = SAVEDC CHAR ',' STRING '"' :(RETURN)
JSP 14,S$$STE##
XWD ^D307,S$$SRT##
MOVE 1,@N10425
PUSH 16,1
MOVE 1,@N10312
PUSH 16,1
MOVE 1,S10181
PUSH 16,1
MOVE 1,@N10407
PUSH 16,1
MOVE 1,S10191
JSP 14,S$$CNC##
EXP ^D5
MOVEM 1,@N10425
JRST S$$SRT##
;**
;ENDOFF IDTAB = CONVERT(IDTAB,'ARRAY')
L10253:
JSP 14,S$$STE##
XWD ^D308,Q10303
MOVE 1,@N10132
PUSH 16,1
MOVE 1,S10063
FCALV$ ^D2,F10062
MOVEM 1,@N10132
Q10303:
; OUTPUT =
JSP 14,S$$STE##
XWD ^D309,Q10304
SETZM @S$$OUT##
Q10304:
; OUTPUT =
JSP 14,S$$STE##
XWD ^D310,Q10305
SETZM @S$$OUT##
Q10305:
; OUTPUT = 'NAME LOCATN LEN OFF #REF TYPE'
JSP 14,S$$STE##
XWD ^D311,Q10306
MOVE 1,S10426
MOVEM 1,@S$$OUT##
Q10306:
; OUTPUT = REPLACE(OUTPUT,LET,MINUS)
JSP 14,S$$STE##
XWD ^D312,Q10307
MOVE 1,@S$$OUT##
PUSH 16,1
MOVE 1,@N10152
PUSH 16,1
MOVE 1,@N10156
FCALV$ ^D3,F10083
MOVEM 1,@S$$OUT##
Q10307:
; I =
JSP 14,S$$STE##
XWD ^D313,Q10308
SETZM @N10427
Q10308:
;ENDLP I = I + 1
L10428:
JSP 14,S$$STE##
XWD ^D314,Q10309
DICNV$ @N10427
ADD ^D1,K10150
TLO 1,1B18
TLZ 1,1B19
MOVEM 1,@N10427
Q10309:
; NAME = IDTAB<I,1> :F(RETURN)
JSP 14,S$$STE##
XWD ^D315,S$$SRT##
MOVE 1,@N10427
PUSH 16,1
MOVE 1,I10150
AREFV$ ^D2,N10132
MOVEM 1,@N10429
; NAME POS(0) '#' :S(ENDLP)
JSP 14,S$$STE##
XWD ^D316,Q10310
MOVE 1,@N10429
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D-1,0
BYTE (2)2(16)1(18).+1
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,S10387
JSP 11,S$$MST##
JSP 11,S$$MTS##
JRST L10428
Q10310:
; ENTRY = IDTAB<I,2>
JSP 14,S$$STE##
XWD ^D317,Q10311
MOVE 1,@N10427
PUSH 16,1
MOVE 1,I10205
AREFV$ ^D2,N10132
MOVEM 1,@N10360
Q10311:
; NREF = -TAB.MASK(ENTRY)
JSP 14,S$$STE##
XWD ^D318,Q10312
MOVE 1,@N10360
FCALV$ ^D1,F10376
JSP 14,S$$NEG##
MOVEM 1,@N10430
Q10312:
; NREF = LE(NREF,0)
JSP 14,S$$STE##
XWD ^D319,Q10313
MOVE 1,@N10430
PUSH 16,1
MOVE 1,I10175
FCALV$ ^D2,F10074
MOVEM 1,@N10430
Q10313:
; OUTPUT = RPAD(NAME,6,'.') RPAD(TAB.BASE(ENTRY),8,'.')
;. RPAD(TAB.LEN(ENTRY),4,'.') RPAD(TAB.OFF(ENTRY),4,'.')
;. RPAD(NREF,5,'.') TAB.TYPE(ENTRY)
;. :(ENDLP)
JSP 14,S$$STE##
XWD ^D320,L10428
MOVE 1,@N10429
PUSH 16,1
MOVE 1,I10431
PUSH 16,1
MOVE 1,S10432
FCALV$ ^D3,F10080
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10299
PUSH 16,1
MOVE 1,I10244
PUSH 16,1
MOVE 1,S10432
FCALV$ ^D3,F10080
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10433
PUSH 16,1
MOVE 1,I10434
PUSH 16,1
MOVE 1,S10432
FCALV$ ^D3,F10080
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10301
PUSH 16,1
MOVE 1,I10434
PUSH 16,1
MOVE 1,S10432
FCALV$ ^D3,F10080
PUSH 16,1
MOVE 1,@N10430
PUSH 16,1
MOVE 1,I10134
PUSH 16,1
MOVE 1,S10432
FCALV$ ^D3,F10080
PUSH 16,1
MOVE 1,@N10360
FCALV$ ^D1,F10374
JSP 14,S$$CNC##
EXP ^D6
MOVEM 1,@S$$OUT##
JRST L10428
;**
;CALL :($SUBROUT)
L10255:
JSP 14,S$$STE##
XWD ^D321,Q10314
Q10314:
MOVEI 14,S$$BGT##
MOVEM 14,S$$FLP##
MOVE 1,@N10435
JSP 14,S$$ILB##
;********
;** OPTIMIZATION
;********
;**
;CKREG LREG = IDENT(ADDR,'REG') DIFFER(SW.REG)
;. BASE.REG :S(FRETURN)
L10401:
JSP 14,S$$STE##
XWD ^D322,Q10315
MOVE 1,@N10362
PUSH 16,1
MOVE 1,S10395
FCALV$ ^D2,F10072
PUSH 16,1
MOVE 1,@N10208
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10436
JSP 14,S$$CNC##
EXP ^D3
MOVEM 1,@N10396
JRST S$$FRT##
Q10315:
; DIFFER(SW.OPT1) :F(RETURN)
JSP 14,S$$STE##
XWD ^D323,S$$SRT##
MOVE 1,@N10437
FCALV$ ^D1,F10071
; ADDR POS(0) ANY(LET) :F(RETURN)
JSP 14,S$$STE##
XWD ^D324,S$$SRT##
MOVE 1,@N10362
PUSH 16,1
MOVE 1,@N10152
JSP 11,S$$MBT##
EXP .
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,^D1(15)
JSP 11,S$$ANY##
JSP 11,S$$MTS##
; INREG '"' ADDR ',' BREAK('"') . LREG :S(FRETURN)F(RETURN)
JSP 14,S$$STE##
XWD ^D325,S$$SRT##
MOVE 1,@N10438
PUSH 16,1
MOVE 1,@N10362
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,S10191
JSP 11,S$$MST##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,S10181
JSP 11,S$$MST##
JSP 11,S$$VAS##
MOVEI 1,B10191
JSP 11,S$$BRK##
MOVE 1,N10396
JSP 11,S$$CVA##
JSP 11,S$$MTS##
JRST S$$FRT##
;**
;PUTREG OFFREG(R)
L10403:
JSP 14,S$$STE##
XWD ^D326,Q10316
MOVE 1,@N10399
FCALV$ ^D1,F10439
Q10316:
; INREG = INREG ADDR ',' R '"' :(RETURN)
JSP 14,S$$STE##
XWD ^D327,S$$SRT##
MOVE 1,@N10438
PUSH 16,1
MOVE 1,@N10362
PUSH 16,1
MOVE 1,S10181
PUSH 16,1
MOVE 1,@N10399
PUSH 16,1
MOVE 1,S10191
JSP 14,S$$CNC##
EXP ^D5
MOVEM 1,@N10438
JRST S$$SRT##
;**
;OFFREG INREG '"' BREAK(',') ',' R = :F(RETURN)S(OFFREG)
L10439:
JSP 14,S$$STE##
XWD ^D328,S$$SRT##
MOVE 1,@N10438
PUSH 16,1
MOVE 1,@N10399
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,S10191
JSP 11,S$$MST##
MOVEI 1,B10181
JSP 11,S$$BRK##
MOVE 1,S10181
JSP 11,S$$MST##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10438
JRST L10439
;**
;CLRREG INREG = '"' :(RETURN)
L10210:
JSP 14,S$$STE##
XWD ^D329,S$$SRT##
MOVE 1,S10191
MOVEM 1,@N10438
JRST S$$SRT##
;**
;OFFLOC INREG '"' LOC ',' BREAK('"') = :F(RETURN)S(OFFLOC)
L10440:
JSP 14,S$$STE##
XWD ^D330,S$$SRT##
MOVE 1,@N10438
PUSH 16,1
MOVE 1,@N10441
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,S10191
JSP 11,S$$MST##
MOVE 1,^D1(15)
JSP 11,S$$PTX##
MOVE 1,S10181
JSP 11,S$$MST##
MOVEI 1,B10191
JSP 11,S$$BRK##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10438
JRST L10440
;**
;CKSBSET OFF = 0 ; RT = RIGHT
L10330:
JSP 14,S$$STE##
XWD ^D331,Q10317
MOVE 1,I10175
MOVEM 1,@N10197
Q10317:
JSP 14,S$$STE##
XWD ^D332,Q10318
MOVE 1,@N10185
MOVEM 1,@N10442
Q10318:
; RT POS(0) LEFT = :F(FRETURN)
JSP 14,S$$STE##
XWD ^D333,S$$FRT##
MOVE 1,@N10442
PUSH 16,1
MOVE 1,@N10182
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
HRRZ 1,K10175
HRRZ 2,@S$$SJC##
SUBI 2,(1)
CAIE 2,(13)
POPJ 16,
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10442
;CKBLK RT GET.VAR.X = :F(FRETURN)
L10443:
JSP 14,S$$STE##
XWD ^D334,S$$FRT##
MOVE 1,@N10442
PUSH 16,1
MOVE 1,@N10227
JSP 11,S$$MKP##
PUSH 16,1
JSP 14,S$$MTX##
XWD ^D2,0
MOVE 1,^D1(15)
JSP 11,S$$PTX##
JSP 11,S$$RPS##
SETZ 1,
JSP 14,S$$RPL##
MOVEM 1,@N10442
; ENTRY.X = IDTAB<X>
JSP 14,S$$STE##
XWD ^D335,Q10319
MOVE 1,@N10228
AREFV$ ^D1,N10132
MOVEM 1,@N10444
Q10319:
; ( DIFFER(ENTRY.X) CKTYPET(TF,'B',TAB.TYPE(ENTRY.X)) )
;. :F(FRETURN)
JSP 14,S$$STE##
XWD ^D336,S$$FRT##
MOVE 1,@N10444
FCALV$ ^D1,F10071
PUSH 16,1
MOVE 1,@N10204
PUSH 16,1
MOVE 1,S10141
PUSH 16,1
MOVE 1,@N10444
FCALV$ ^D1,F10374
FCALV$ ^D3,F10445
JSP 14,S$$CNC##
EXP ^D2
; OFF = OFF + TAB.OFF(ENTRY.X)
JSP 14,S$$STE##
XWD ^D337,Q10320
MOVE 1,@N10197
PUSH 16,1
MOVE 1,@N10444
FCALV$ ^D1,F10301
JSP 14,S$$ADD##
MOVEM 1,@N10197
Q10320:
; DIFFER(RT) :S(CKBLK)
JSP 14,S$$STE##
XWD ^D338,Q10321
MOVE 1,@N10442
FCALV$ ^D1,F10071
JRST L10443
Q10321:
; RIGHT = OFF :(RETURN)
JSP 14,S$$STE##
XWD ^D339,S$$SRT##
MOVE 1,@N10197
MOVEM 1,@N10185
JRST S$$SRT##
;**
Q10003=Q10002+3
JRST S$$SXT##
Q10001: BLOCK ^D2
K10088: EXP ^D9999999
I10133: EXP ^D10!1B0
I10134: EXP ^D5!1B0
K10150: EXP ^D1
I10150: EXP ^D1!1B0
I10158: EXP ^D28!1B0
K10175: EXP ^D0
I10175: EXP ^D0!1B0
I10205: EXP ^D2!1B0
I10207: EXP ^D3!1B0
I10231: EXP ^D100!1B0
K10244: EXP ^D8
I10244: EXP ^D8!1B0
K10245: EXP ^D72
I10420: EXP ^D7!1B0
I10431: EXP ^D6!1B0
I10434: EXP ^D4!1B0
A10029: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'LEN'
A10030: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'TAB'
A10032: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'POS'
A10044: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'DATE'
S10048: POINT 7,A10048,35
A10048: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'INTEGER'
A10051: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'TRIM'
A10060: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'DATA'
A10062: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CONVERT'
S10063: POINT 7,A10063,35
A10063: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'ARRAY'
A10064: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'TABLE'
A10065: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'DUPL'
A10066: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'DEFINE'
A10071: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'DIFFER'
A10072: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'IDENT'
A10073: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'LT'
A10074: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'LE'
A10075: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'EQ'
A10078: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'GT'
A10080: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'RPAD'
A10083: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'REPLACE'
A10085: BYTE (2)2(16)^D2+1(18)^D6
ASCII '.MAIN.'
A10086: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'VER'
S10087: POINT 7,A10087,35
A10087: BYTE (2)2(16)^D1+1(18)^D4
ASCII '6.0.'
S10089: POINT 7,A10089,35
A10089: BYTE (2)2(16)^D4+1(18)^D16
ASCII 'ASS(T1,T2,T3,T4)'
S10090: POINT 7,A10090,35
A10090: BYTE (2)2(16)^D4+1(18)^D17
ASCII 'ASSNL(T2,T3,T4)T1'
A10091: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'ASS'
S10092: POINT 7,A10092,35
A10092: BYTE (2)2(16)^D3+1(18)^D13
ASCII 'CALL(SUBROUT)'
S10093: POINT 7,A10093,35
A10093: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'CALLSRT()'
S10094: POINT 7,A10094,35
A10094: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'CHAR(STRING)'
S10095: POINT 7,A10095,35
A10095: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'CKSBSET()'
S10096: POINT 7,A10096,35
A10096: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CKREG()'
S10097: POINT 7,A10097,35
A10097: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'CKREGD()'
S10098: POINT 7,A10098,35
A10098: BYTE (2)2(16)^D4+1(18)^D16
ASCII 'CKTYPE(POS,CHAR)'
S10099: POINT 7,A10099,35
A10099: BYTE (2)2(16)^D5+1(18)^D22
ASCII 'CKTYPET(POS,CHAR,TYPE)'
A10100: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'CKTYPE'
S10101: POINT 7,A10101,35
A10101: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'CLRREG()'
S10102: POINT 7,A10102,35
A10102: BYTE (2)2(16)^D3+1(18)^D14
ASCII 'COMMENT(STATE)'
S10103: POINT 7,A10103,35
A10103: BYTE (2)2(16)^D4+1(18)^D20
ASCII 'COMPILE()ADDR,THISOP'
S10104: POINT 7,A10104,35
A10104: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'COMPLR()'
S10105: POINT 7,A10105,35
A10105: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'COMPOP()'
S10106: POINT 7,A10106,35
A10106: BYTE (2)2(16)^D2+1(18)^D10
ASCII 'DEC2OCT(N)'
S10107: POINT 7,A10107,35
A10107: BYTE (2)2(16)^D4+1(18)^D16
ASCII 'DO.CALL(OPERAND)'
S10108: POINT 7,A10108,35
A10108: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'DS(BASE,LEN)'
S10109: POINT 7,A10109,35
A10109: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'ENDOFF()'
S10110: POINT 7,A10110,35
A10110: BYTE (2)2(16)^D4+1(18)^D17
ASCII 'ERROR(MESS,ETYPE)'
S10111: POINT 7,A10111,35
A10111: BYTE (2)2(16)^D5+1(18)^D21
ASCII 'FILLTAB(FILLTAB,TEMP)'
S10112: POINT 7,A10112,35
A10112: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'FLIP()'
S10113: POINT 7,A10113,35
A10113: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'GEN()'
S10114: POINT 7,A10114,35
A10114: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'GENCALL(LOC)'
S10115: POINT 7,A10115,35
A10115: BYTE (2)2(16)^D3+1(18)^D13
ASCII 'GENLAB(LABEL)'
S10116: POINT 7,A10116,35
A10116: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'GENLD()'
S10117: POINT 7,A10117,35
A10117: BYTE (2)2(16)^D3+1(18)^D15
ASCII 'GENLOAD(R,ADDR)'
S10118: POINT 7,A10118,35
A10118: BYTE (2)2(16)^D3+1(18)^D14
ASCII 'GENLOG(OP,LOC)'
S10119: POINT 7,A10119,35
A10119: BYTE (2)2(16)^D6+1(18)^D30
ASCII 'GETCONT(PARM,WHEN)BASELOC,LREG'
S10120: POINT 7,A10120,35
A10120: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'GETLAB()'
S10121: POINT 7,A10121,35
A10121: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'GETREG()'
S10122: POINT 7,A10122,35
A10122: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'GETTYPE(POS)'
S10123: POINT 7,A10123,35
A10123: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'INIT()'
S10124: POINT 7,A10124,35
A10124: BYTE (2)2(16)^D3+1(18)^D11
ASCII 'OFFLOC(LOC)'
S10125: POINT 7,A10125,35
A10125: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'OFFREG(R)'
S10126: POINT 7,A10126,35
A10126: BYTE (2)2(16)^D3+1(18)^D11
ASCII 'PUT(STRING)'
S10127: POINT 7,A10127,35
A10127: BYTE (2)2(16)^D3+1(18)^D14
ASCII 'PUTREG(R,ADDR)'
S10128: POINT 7,A10128,35
A10128: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'RADIX(RADIX)'
S10129: POINT 7,A10129,35
A10129: BYTE (2)2(16)^D4+1(18)^D17
ASCII 'SETTYPE(POS,CHAR)'
S10130: POINT 7,A10130,35
A10130: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'STATSRT()'
S10131: POINT 7,A10131,35
A10131: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'TABSTM()'
A10132: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'IDTAB'
S10135: POINT 7,A10135,35
A10135: BYTE (2)2(16)^D12+1(18)^D56
ASCII 'ID(TAB.LEN,TAB.OFF,TAB.TYPE,TAB.BASE,TAB.MASK,TAB.RANGE)'
A10136: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'REENT.OFF'
A10137: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'DSCONT'
A10138: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'BLANK'
S10139: POINT 7,A10139,35
A10139: BYTE (2)2(16)^D1+1(18)^D1
ASCII ' '
A10140: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'CB'
A10141: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'B'
A10142: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'NULL'
A10143: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'DIGIT'
S10144: POINT 7,A10144,35
A10144: BYTE (2)2(16)^D2+1(18)^D10
ASCII '0123456789'
A10145: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'NUMB'
A10146: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'LITERAL'
B10147: EXP ^D0
XWD ^D0,^D8
XWD ^D0,^D0
XWD ^D0,^D4
A10147: BYTE (2)2(16)^D1+1(18)^D2
ASCII '+-'
S10148: POINT 7,A10148,35
A10148: BYTE (2)2(16)^D1+1(18)^D1
ASCII '='
B10149: EXP ^D0
XWD ^D0,^D256
XWD ^D0,^D0
XWD ^D0,^D256
A10149: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'AC'
A10151: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'T1'
A10152: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'LET'
S10153: POINT 7,A10153,35
A10153: BYTE (2)2(16)^D6+1(18)^D28
ASCII 'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$'
A10154: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'AVAR'
A10155: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'VAR'
A10156: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'MINUS'
S10157: POINT 7,A10157,35
A10157: BYTE (2)2(16)^D1+1(18)^D1
ASCII '-'
A10159: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'OPS'
A10160: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'DO'
A10161: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'IFANY'
A10162: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'IF'
A10163: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'BFIELDE'
A10164: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'FIELD'
A10165: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'BBLOCKE'
A10166: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'BLOCK'
S10167: POINT 7,A10167,35
A10167: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'BEGIN'
S10168: POINT 7,A10168,35
A10168: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'FINISH'
S10169: POINT 7,A10169,35
A10169: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'YBLOCKE'
A10170: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'BBLOCK'
A10171: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'BFIELD'
A10172: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'YBLOCK'
A10173: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'CALLS'
A10174: BYTE (2)2(16)^D2+1(18)^D10
ASCII 'CARD.PARSE'
A10176: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'LABEL'
A10177: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'OPCODE'
A10178: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'OPERAND'
A10179: BYTE (2)2(16)^D2+1(18)^D10
ASCII 'OPER.PARSE'
S10180: POINT 7,A10180,35
A10180: BYTE (2)2(16)^D1+1(18)^D1
ASCII '('
B10181: EXP ^D8
XWD ^D0,^D0
XWD ^D0,^D0
XWD ^D0,^D0
S10181: POINT 7,A10181,35
A10181: BYTE (2)2(16)^D1+1(18)^D1
ASCII ','
A10182: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LEFT'
A10183: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'OPR'
B10184: EXP ^D0
XWD ^D0,^D4
XWD ^D0,^D0
XWD ^D0,^D0
S10184: POINT 7,A10184,35
A10184: BYTE (2)2(16)^D1+1(18)^D1
ASCII ')'
A10185: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'RIGHT'
A10186: BYTE (2)2(16)^D2+1(18)^D10
ASCII 'CALL.PARSE'
A10187: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'SUB'
S10188: POINT 7,A10188,35
A10188: BYTE (2)2(16)^D1+1(18)^D2
ASCII ',('
A10189: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'ARGS'
A10190: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'BREAK.TAB'
B10191: EXP ^D0
XWD ^D0,^D0
XWD ^D0,^D1
XWD ^D0,^D0
S10191: POINT 7,A10191,35
A10191: BYTE (2)2(16)^D1+1(18)^D1
ASCII '"'
A10192: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'T2'
A10193: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'BFIELD.PARSE'
A10194: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'N1'
A10195: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'BASE'
A10196: BYTE (2)2(16)^D3+1(18)^D11
ASCII 'FIELD.PARSE'
A10197: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'OFF'
A10198: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'LOW'
A10199: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'HIGH'
A10200: BYTE (2)2(16)^D3+1(18)^D11
ASCII 'BLOCK.PARSE'
A10201: BYTE (2)2(16)^D3+1(18)^D12
ASCII 'BBLOCK.PARSE'
A10202: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'LF'
A10203: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'BF'
A10204: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'TF'
A10206: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'DF'
A10208: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'SW.REG'
S10209: POINT 7,A10209,35
A10209: BYTE (2)2(16)^D1+1(18)^D1
ASCII '1'
A10210: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'CLRREG'
A10211: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'INIT'
A10212: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'SCSC'
A10213: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'SC'
A10214: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'BRANCH'
A10215: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'LOGOP'
S10216: POINT 7,A10216,35
A10216: BYTE (2)2(16)^D1+1(18)^D2
ASCII '<>'
S10217: POINT 7,A10217,35
A10217: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'VERSION '
S10218: POINT 7,A10218,35
A10218: BYTE (2)2(16)^D1+1(18)^D1
ASCII ' '
S10219: POINT 7,A10219,35
A10219: BYTE (2)2(16)^D4+1(18)^D19
ASCII ' WECO<-ERC<-STONE'
A10220: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMMENT'
A10221: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'SWITCH.CK'
S10222: POINT 7,A10222,35
A10222: BYTE (2)2(16)^D1+1(18)^D1
ASCII '*'
S10223: POINT 7,A10223,35
A10223: BYTE (2)2(16)^D1+1(18)^D1
ASCII '+'
A10224: BYTE (2)2(16)^D3+1(18)^D11
ASCII 'GET.THIS.OP'
A10225: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'THISOP'
A10226: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'CK.LIT'
A10227: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'GET.VAR.X'
A10228: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'X'
S10229: POINT 7,A10229,35
A10229: BYTE (2)2(16)^D1+1(18)^D2
ASCII '#1'
A10230: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'ID'
S10232: POINT 7,A10232,35
A10232: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'WBB-'
S10233: POINT 7,A10233,35
A10233: BYTE (2)2(16)^D1+1(18)^D2
ASCII '#2'
A10234: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'ADDR.WORD'
S10235: POINT 7,A10235,35
A10235: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'W-B-'
S10236: POINT 7,A10236,35
A10236: BYTE (2)2(16)^D1+1(18)^D2
ASCII '#3'
S10237: POINT 7,A10237,35
A10237: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'WBF-'
S10238: POINT 7,A10238,35
A10238: BYTE (2)2(16)^D1+1(18)^D1
ASCII '3'
S10239: POINT 7,A10239,35
A10239: BYTE (2)2(16)^D1+1(18)^D2
ASCII '#4'
S10240: POINT 7,A10240,35
A10240: BYTE (2)2(16)^D1+1(18)^D1
ASCII '4'
A10241: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LOOP'
A10242: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'CARD'
A10243: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'STATENO'
A10246: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'CKSW'
A10247: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'TRYCOM'
S10248: POINT 7,A10248,35
A10248: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'SW.'
B10249: EXP ^D0
XWD ^D0,^D0
XWD ^D0,^D4
XWD ^D0,^D72
A10249: BYTE (2)2(16)^D1+1(18)^D3
ASCII '*/;'
A10250: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'ASSEMC'
A10251: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'ASSEMB'
A10252: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'THENSW'
A10253: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'ENDOFF'
A10254: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'STATSRT'
A10255: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'CALL'
A10256: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'PUT'
A10257: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPILE'
A10258: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'BTYPE'
A10259: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'Y'
A10260: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'IFANY2'
A10261: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LAB1'
A10262: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GETLAB'
A10263: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LAB2'
A10264: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LLAB'
A10265: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'IFANY1'
A10266: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GENLAB'
A10267: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'ERROR'
S10268: POINT 7,A10268,35
A10268: BYTE (2)2(16)^D3+1(18)^D13
ASCII 'NO THEN IN IF'
A10269: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'N'
A10270: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'T'
A10271: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'TB'
S10272: POINT 7,A10272,35
A10272: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'Y-B-'
A10273: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'YBBLOCK'
S10274: POINT 7,A10274,35
A10274: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'YBB-'
S10275: POINT 7,A10275,35
A10275: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'WBFE'
S10276: POINT 7,A10276,35
A10276: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'WBBE'
S10277: POINT 7,A10277,35
A10277: BYTE (2)2(16)^D1+1(18)^D4
ASCII '--F-'
A10278: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'TYPE'
S10279: POINT 7,A10279,35
A10279: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'E'
S10280: POINT 7,A10280,35
A10280: BYTE (2)2(16)^D2+1(18)^D6
ASCII '.PARSE'
A10281: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'TABSTOR'
S10282: POINT 7,A10282,35
A10282: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'SYNTAX'
A10283: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'WSIZE'
A10284: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'RANGE'
A10285: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'SETTYPE'
S10286: POINT 7,A10286,35
A10286: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'W'
A10287: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'HSIZE'
S10288: POINT 7,A10288,35
A10288: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'H'
A10289: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'BSIZE'
S10290: POINT 7,A10290,35
A10290: BYTE (2)2(16)^D5+1(18)^D24
ASCII 'WARNING..NON-BASED LEN>1'
S10291: POINT 7,A10291,35
A10291: BYTE (2)2(16)^D6+1(18)^D28
ASCII 'ILLEGAL RANGE...BYTE ASSUMED'
A10292: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'TABSTM'
A10293: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'DS'
A10294: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'MASK'
A10295: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'DO.CALL'
A10296: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'ERR'
A10297: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CALLLAB'
A10298: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'NARG'
A10299: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'TAB.BASE'
A10300: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'TP2'
A10301: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'TAB.OFF'
A10302: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'SW.REENT'
A10303: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'TOTSTORE'
A10304: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CALLSRT'
A10305: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'CALLLP'
A10306: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'ARG'
A10307: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CALLEND'
S10308: POINT 7,A10308,35
A10308: BYTE (2)2(16)^D2+1(18)^D10
ASCII '(#1#2,<-[,'
A10309: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'GENCALL'
S10310: POINT 7,A10310,35
A10310: BYTE (2)2(16)^D1+1(18)^D2
ASCII '=C'
A10311: BYTE (2)2(16)^D1+1(18)^D3
ASCII "=A'"
A10312: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'CHAR'
A10313: BYTE (2)2(16)^D1+1(18)^D1
ASCII "'"
A10314: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPERR'
A10315: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'COMP1'
S10316: POINT 7,A10316,35
A10316: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'THEN'
A10317: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'O.THEN'
S10318: POINT 7,A10318,35
A10318: BYTE (2)2(16)^D3+1(18)^D13
ASCII 'FUNNY OPERAND'
S10319: POINT 7,A10319,35
A10319: BYTE (2)2(16)^D4+1(18)^D18
ASCII 'INCORRECT OPERAND:'
A10320: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'SAVECOM'
A10321: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'O.LOG'
A10322: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'OP'
A10323: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'JUMPLOC'
A10324: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'GOTOP'
S10325: POINT 7,A10325,35
A10325: BYTE (2)2(16)^D1+1(18)^D4
ASCII '<-<-'
S10326: POINT 7,A10326,35
A10326: BYTE (2)2(16)^D1+1(18)^D4
ASCII '->->'
A10327: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPUN1'
S10328: POINT 7,A10328,35
A10328: BYTE (2)2(16)^D1+1(18)^D4
ASCII '<-[/'
A10329: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'COMPUN'
A10330: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CKSBSET'
A10331: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMFULL'
A10332: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'COMPLS'
A10333: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'COMMUL'
S10334: POINT 7,A10334,35
A10334: BYTE (2)2(16)^D2+1(18)^D7
ASCII '(#4,<-,'
S10335: POINT 7,A10335,35
A10335: BYTE (2)2(16)^D1+1(18)^D2
ASCII '),'
S10336: POINT 7,A10336,35
A10336: BYTE (2)2(16)^D2+1(18)^D6
ASCII '(#4,*,'
S10337: POINT 7,A10337,35
A10337: BYTE (2)2(16)^D1+1(18)^D3
ASCII '),('
S10338: POINT 7,A10338,35
A10338: BYTE (2)2(16)^D2+1(18)^D7
ASCII ',+,#4),'
S10339: POINT 7,A10339,35
A10339: BYTE (2)2(16)^D2+1(18)^D8
ASCII '(#3,<-[,'
S10340: POINT 7,A10340,35
A10340: BYTE (2)2(16)^D2+1(18)^D10
ASCII '),(#4,<-[,'
S10341: POINT 7,A10341,35
A10341: BYTE (2)2(16)^D3+1(18)^D12
ASCII '),(#4,-,#3),'
A10342: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPUN2'
S10343: POINT 7,A10343,35
A10343: BYTE (2)2(16)^D5+1(18)^D22
ASCII 'UNDEFINED OPERATION...'
S10344: POINT 7,A10344,35
A10344: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'GOTO'
A10345: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'O.GOTO'
S10346: POINT 7,A10346,35
A10346: BYTE (2)2(16)^D1+1(18)^D3
ASCII '<-['
A10347: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'COMPLR'
A10348: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'OPGO'
S10349: POINT 7,A10349,35
A10349: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'O.'
A10350: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GENLOG'
A10351: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'O.LOGOK'
S10352: POINT 7,A10352,35
A10352: BYTE (2)2(16)^D1+1(18)^D2
ASCII '><'
A10353: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'COMPOP'
A10354: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'O.LOG1'
S10355: POINT 7,A10355,35
A10355: BYTE (2)2(16)^D4+1(18)^D17
ASCII 'UNDEF RELATION OP'
S10356: POINT 7,A10356,35
A10356: BYTE (2)2(16)^D1+1(18)^D1
ASCII '\'
A10357: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPOP1'
A10358: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'GETCONT'
A10359: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'L.ENTRY'
A10360: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'ENTRY'
A10361: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'L.ADDR'
A10362: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'ADDR'
A10363: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'L.TYPE'
A10364: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'L.F'
A10365: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'GETTYPE'
A10366: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'R.ENTRY'
A10367: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'R.ADDR'
A10368: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'R.TYPE'
A10369: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'R.F'
A10370: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'COMPLR1'
A10371: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'SW.CONV'
S10372: POINT 7,A10372,35
A10372: BYTE (2)2(16)^D6+1(18)^D27
ASCII 'LEFT AND RIGHT SIZES DIFFER'
S10373: POINT 7,A10373,35
A10373: BYTE (2)2(16)^D9+1(18)^D44
ASCII 'WARNING...LEFT SIZE CHANGED TO SIZE OF RIGHT'
A10374: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'TAB.TYPE'
A10375: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'TAB.RANGE'
A10376: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'TAB.MASK'
A10377: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'LR'
A10378: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'CHAR.CNT'
A10379: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'LOAD.CNT'
A10380: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'PARM'
A10381: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'GETC'
A10382: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GETERR'
A10383: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'WHEN'
S10384: POINT 7,A10384,35
A10384: BYTE (2)2(16)^D4+1(18)^D19
ASCII 'LITERAL ON THE LEFT'
A10385: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'CKCCH'
S10386: POINT 7,A10386,35
A10386: BYTE (2)2(16)^D1+1(18)^D2
ASCII '=A'
S10387: POINT 7,A10387,35
A10387: BYTE (2)2(16)^D1+1(18)^D1
ASCII '#'
A10388: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'RADIX'
S10389: POINT 7,A10389,35
A10389: BYTE (2)2(16)^D4+1(18)^D18
ASCII 'STRANGE OPERAND...'
A10390: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'GEN'
S10391: POINT 7,A10391,35
A10391: BYTE (2)2(16)^D4+1(18)^D20
ASCII 'UNDEFINED ELEMENT...'
S10392: POINT 7,A10392,35
A10392: BYTE (2)2(16)^D3+1(18)^D15
ASCII 'MISPLACED BASE:'
A10393: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GEBASE'
A10394: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'BASELOC'
S10395: POINT 7,A10395,35
A10395: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'REG'
A10396: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'LREG'
A10397: BYTE (2)2(16)^D2+1(18)^D9
ASCII 'REENT.REG'
A10398: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'GENLD'
A10399: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'R'
A10400: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'GETREG'
A10401: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'CKREG'
A10402: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'CKREGD'
A10403: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'PUTREG'
A10404: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'GENLOAD'
A10405: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'NOOFF'
A10406: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'PUNCH'
A10407: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'STRING'
A10408: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'FILLTAB'
A10409: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'TEMP'
A10410: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'MESS'
S10411: POINT 7,A10411,35
A10411: BYTE (2)2(16)^D1+1(18)^D1
ASCII ':'
A10412: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'TTYOUT'
A10413: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'CRLF'
S10414: POINT 7,A10414,35
A10414: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'ERROR-'
S10415: POINT 7,A10415,35
A10415: BYTE (2)2(16)^D2+1(18)^D10
ASCII '**********'
A10416: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'DEC2OCT'
A10417: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'MAXSIZE'
S10418: POINT 7,A10418,35
A10418: BYTE (2)2(16)^D3+1(18)^D14
ASCII 'GT MAX SIZE...'
A10419: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'D2O'
A10421: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'FLIP'
A10422: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'L.CNT'
A10423: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'SAVEDS'
A10424: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'DSNR'
A10425: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'SAVEDC'
S10426: POINT 7,A10426,35
A10426: BYTE (2)2(16)^D7+1(18)^D31
ASCII 'NAME LOCATN LEN OFF #REF TYPE'
A10427: BYTE (2)2(16)^D1+1(18)^D1
ASCII 'I'
A10428: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'ENDLP'
A10429: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'NAME'
A10430: BYTE (2)2(16)^D1+1(18)^D4
ASCII 'NREF'
S10432: POINT 7,A10432,35
A10432: BYTE (2)2(16)^D1+1(18)^D1
ASCII '.'
A10433: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'TAB.LEN'
A10435: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'SUBROUT'
A10436: BYTE (2)2(16)^D2+1(18)^D8
ASCII 'BASE.REG'
A10437: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'SW.OPT1'
A10438: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'INREG'
A10439: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'OFFREG'
A10440: BYTE (2)2(16)^D2+1(18)^D6
ASCII 'OFFLOC'
A10441: BYTE (2)2(16)^D1+1(18)^D3
ASCII 'LOC'
A10442: BYTE (2)2(16)^D1+1(18)^D2
ASCII 'RT'
A10443: BYTE (2)2(16)^D1+1(18)^D5
ASCII 'CKBLK'
A10444: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'ENTRY.X'
A10445: BYTE (2)2(16)^D2+1(18)^D7
ASCII 'CKTYPET'
Q10322: BYTE (2)2(16)^D130+1(18)0
REPEAT ^D130,<0>
Q10323: BYTE (2)2(16)^D265*4+1(18)-^D265
EXP 0
BYTE (5)5(31)0
POINT 7,A10445,35
F10445: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10444,35
N10444: BYTE (4)4(14)0(18)Q10322+^D130
EXP 0
BYTE (5)3(31)0
POINT 7,A10443,35
JRST L10443
EXP 0
BYTE (5)1(31)0
POINT 7,A10442,35
N10442: BYTE (4)4(14)0(18)Q10322+^D129
EXP 0
BYTE (5)1(31)0
POINT 7,A10441,35
N10441: BYTE (4)4(14)0(18)Q10322+^D128
EXP 0
BYTE (5)3(31)0
POINT 7,A10440,35
JRST L10440
EXP 0
BYTE (5)5(31)0
POINT 7,A10439,35
F10439: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10439,35
JRST L10439
EXP 0
BYTE (5)1(31)0
POINT 7,A10438,35
N10438: BYTE (4)4(14)0(18)Q10322+^D127
EXP 0
BYTE (5)1(31)0
POINT 7,A10437,35
N10437: BYTE (4)4(14)0(18)Q10322+^D126
EXP 0
BYTE (5)1(31)0
POINT 7,A10436,35
N10436: BYTE (4)4(14)0(18)Q10322+^D125
EXP 0
BYTE (5)1(31)0
POINT 7,A10435,35
N10435: BYTE (4)4(14)0(18)Q10322+^D124
EXP 0
BYTE (5)5(31)0
POINT 7,A10433,35
F10433: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10430,35
N10430: BYTE (4)4(14)0(18)Q10322+^D123
EXP 0
BYTE (5)1(31)0
POINT 7,A10429,35
N10429: BYTE (4)4(14)0(18)Q10322+^D122
EXP 0
BYTE (5)3(31)0
POINT 7,A10428,35
JRST L10428
EXP 0
BYTE (5)1(31)0
POINT 7,A10427,35
N10427: BYTE (4)4(14)0(18)Q10322+^D121
EXP 0
BYTE (5)1(31)0
POINT 7,A10425,35
N10425: BYTE (4)4(14)0(18)Q10322+^D120
EXP 0
BYTE (5)3(31)0
POINT 7,A10424,35
JRST L10424
EXP 0
BYTE (5)1(31)0
POINT 7,A10423,35
N10423: BYTE (4)4(14)0(18)Q10322+^D119
EXP 0
BYTE (5)1(31)0
POINT 7,A10422,35
N10422: BYTE (4)4(14)0(18)Q10322+^D118
EXP 0
BYTE (5)3(31)0
POINT 7,A10421,35
JRST L10421
EXP 0
BYTE (5)3(31)0
POINT 7,A10419,35
JRST L10419
EXP 0
BYTE (5)1(31)0
POINT 7,A10417,35
N10417: BYTE (4)4(14)0(18)Q10322+^D117
EXP 0
BYTE (5)5(31)0
POINT 7,A10416,35
F10416: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10416,35
JRST L10416
EXP 0
BYTE (5)1(31)0
POINT 7,A10416,35
N10416: BYTE (4)4(14)0(18)Q10322+^D116
EXP 0
BYTE (5)1(31)0
POINT 7,A10413,35
N10413: BYTE (4)4(14)0(18)Q10322+^D115
EXP 0
BYTE (5)1(31)0
POINT 7,A10412,35
N10412: BYTE (4)4(14)0(18)Q10322+^D114
EXP 0
BYTE (5)1(31)0
POINT 7,A10410,35
N10410: BYTE (4)4(14)0(18)Q10322+^D113
EXP 0
BYTE (5)1(31)0
POINT 7,A10409,35
N10409: BYTE (4)4(14)0(18)Q10322+^D112
EXP 0
BYTE (5)3(31)0
POINT 7,A10408,35
JRST L10408
EXP 0
BYTE (5)1(31)0
POINT 7,A10408,35
N10408: BYTE (4)4(14)0(18)Q10322+^D111
EXP 0
BYTE (5)1(31)0
POINT 7,A10407,35
N10407: BYTE (4)4(14)0(18)Q10322+^D110
EXP 0
BYTE (5)1(31)0
POINT 7,A10406,35
N10406: BYTE (4)4(14)0(18)Q10322+^D109
EXP 0
BYTE (5)3(31)0
POINT 7,A10405,35
JRST L10405
EXP 0
BYTE (5)5(31)0
POINT 7,A10404,35
F10404: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10403,35
F10403: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10403,35
JRST L10403
EXP 0
BYTE (5)5(31)0
POINT 7,A10402,35
F10402: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10401,35
F10401: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10401,35
JRST L10401
EXP 0
BYTE (5)5(31)0
POINT 7,A10400,35
F10400: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10399,35
N10399: BYTE (4)4(14)0(18)Q10322+^D108
EXP 0
BYTE (5)5(31)0
POINT 7,A10398,35
F10398: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10398,35
JRST L10398
EXP 0
BYTE (5)1(31)0
POINT 7,A10397,35
N10397: BYTE (4)4(14)0(18)Q10322+^D107
EXP 0
BYTE (5)1(31)0
POINT 7,A10396,35
N10396: BYTE (4)4(14)0(18)Q10322+^D106
EXP 0
BYTE (5)1(31)0
POINT 7,A10394,35
N10394: BYTE (4)4(14)0(18)Q10322+^D105
EXP 0
BYTE (5)3(31)0
POINT 7,A10393,35
JRST L10393
EXP 0
BYTE (5)5(31)0
POINT 7,A10390,35
F10390: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10390,35
JRST L10390
EXP 0
BYTE (5)5(31)0
POINT 7,A10388,35
F10388: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10385,35
JRST L10385
EXP 0
BYTE (5)1(31)0
POINT 7,A10383,35
N10383: BYTE (4)4(14)0(18)Q10322+^D104
EXP 0
BYTE (5)3(31)0
POINT 7,A10382,35
JRST L10382
EXP 0
BYTE (5)3(31)0
POINT 7,A10381,35
JRST L10381
EXP 0
BYTE (5)1(31)0
POINT 7,A10380,35
N10380: BYTE (4)4(14)0(18)Q10322+^D103
EXP 0
BYTE (5)1(31)0
POINT 7,A10379,35
N10379: BYTE (4)4(14)0(18)Q10322+^D102
EXP 0
BYTE (5)1(31)0
POINT 7,A10378,35
N10378: BYTE (4)4(14)0(18)Q10322+^D101
EXP 0
BYTE (5)1(31)0
POINT 7,A10377,35
N10377: BYTE (4)4(14)0(18)Q10322+^D100
EXP 0
BYTE (5)5(31)0
POINT 7,A10376,35
F10376: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10375,35
F10375: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10374,35
F10374: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10371,35
N10371: BYTE (4)4(14)0(18)Q10322+^D99
EXP 0
BYTE (5)3(31)0
POINT 7,A10370,35
JRST L10370
EXP 0
BYTE (5)1(31)0
POINT 7,A10369,35
N10369: BYTE (4)4(14)0(18)Q10322+^D98
EXP 0
BYTE (5)1(31)0
POINT 7,A10368,35
N10368: BYTE (4)4(14)0(18)Q10322+^D97
EXP 0
BYTE (5)1(31)0
POINT 7,A10367,35
N10367: BYTE (4)4(14)0(18)Q10322+^D96
EXP 0
BYTE (5)1(31)0
POINT 7,A10366,35
N10366: BYTE (4)4(14)0(18)Q10322+^D95
EXP 0
BYTE (5)5(31)0
POINT 7,A10365,35
F10365: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10365,35
JRST L10365
EXP 0
BYTE (5)1(31)0
POINT 7,A10365,35
N10365: BYTE (4)4(14)0(18)Q10322+^D94
EXP 0
BYTE (5)1(31)0
POINT 7,A10364,35
N10364: BYTE (4)4(14)0(18)Q10322+^D93
EXP 0
BYTE (5)1(31)0
POINT 7,A10363,35
N10363: BYTE (4)4(14)0(18)Q10322+^D92
EXP 0
BYTE (5)1(31)0
POINT 7,A10362,35
N10362: BYTE (4)4(14)0(18)Q10322+^D91
EXP 0
BYTE (5)1(31)0
POINT 7,A10361,35
N10361: BYTE (4)4(14)0(18)Q10322+^D90
EXP 0
BYTE (5)1(31)0
POINT 7,A10360,35
N10360: BYTE (4)4(14)0(18)Q10322+^D89
EXP 0
BYTE (5)1(31)0
POINT 7,A10359,35
N10359: BYTE (4)4(14)0(18)Q10322+^D88
EXP 0
BYTE (5)5(31)0
POINT 7,A10358,35
F10358: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10358,35
JRST L10358
EXP 0
BYTE (5)3(31)0
POINT 7,A10357,35
JRST L10357
EXP 0
BYTE (5)3(31)0
POINT 7,A10354,35
JRST L10354
EXP 0
BYTE (5)5(31)0
POINT 7,A10353,35
F10353: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10353,35
JRST L10353
EXP 0
BYTE (5)1(31)0
POINT 7,A10353,35
N10353: BYTE (4)4(14)0(18)Q10322+^D87
EXP 0
BYTE (5)3(31)0
POINT 7,A10351,35
JRST L10351
EXP 0
BYTE (5)5(31)0
POINT 7,A10350,35
F10350: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10348,35
N10348: BYTE (4)4(14)0(18)Q10322+^D86
EXP 0
BYTE (5)5(31)0
POINT 7,A10347,35
F10347: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10347,35
JRST L10347
EXP 0
BYTE (5)3(31)0
POINT 7,A10345,35
L10345: UFERR$ ^D8,S$$PGL##
EXP 0
BYTE (5)3(31)0
POINT 7,A10342,35
JRST L10342
EXP 0
BYTE (5)3(31)0
POINT 7,A10333,35
JRST L10333
EXP 0
BYTE (5)3(31)0
POINT 7,A10332,35
JRST L10332
EXP 0
BYTE (5)3(31)0
POINT 7,A10331,35
JRST L10331
EXP 0
BYTE (5)5(31)0
POINT 7,A10330,35
F10330: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10330,35
JRST L10330
EXP 0
BYTE (5)3(31)0
POINT 7,A10329,35
JRST L10329
EXP 0
BYTE (5)3(31)0
POINT 7,A10327,35
JRST L10327
EXP 0
BYTE (5)3(31)0
POINT 7,A10324,35
JRST L10324
EXP 0
BYTE (5)1(31)0
POINT 7,A10323,35
N10323: BYTE (4)4(14)0(18)Q10322+^D85
EXP 0
BYTE (5)1(31)0
POINT 7,A10322,35
N10322: BYTE (4)4(14)0(18)Q10322+^D84
EXP 0
BYTE (5)3(31)0
POINT 7,A10321,35
JRST L10321
EXP 0
BYTE (5)1(31)0
POINT 7,A10320,35
N10320: BYTE (4)4(14)0(18)Q10322+^D83
EXP 0
BYTE (5)3(31)0
POINT 7,A10317,35
JRST L10317
EXP 0
BYTE (5)3(31)0
POINT 7,A10315,35
JRST L10315
EXP 0
BYTE (5)3(31)0
POINT 7,A10314,35
JRST L10314
EXP 0
BYTE (5)5(31)0
POINT 7,A10312,35
F10312: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10312,35
JRST L10312
EXP 0
BYTE (5)1(31)0
POINT 7,A10312,35
N10312: BYTE (4)4(14)0(18)Q10322+^D82
EXP 0
BYTE (5)5(31)0
POINT 7,A10309,35
F10309: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10307,35
JRST L10307
EXP 0
BYTE (5)1(31)0
POINT 7,A10306,35
N10306: BYTE (4)4(14)0(18)Q10322+^D81
EXP 0
BYTE (5)3(31)0
POINT 7,A10305,35
JRST L10305
EXP 0
BYTE (5)5(31)0
POINT 7,A10304,35
F10304: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10303,35
N10303: BYTE (4)4(14)0(18)Q10322+^D80
EXP 0
BYTE (5)1(31)0
POINT 7,A10302,35
N10302: BYTE (4)4(14)0(18)Q10322+^D79
EXP 0
BYTE (5)5(31)0
POINT 7,A10301,35
F10301: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10300,35
N10300: BYTE (4)4(14)0(18)Q10322+^D78
EXP 0
BYTE (5)5(31)0
POINT 7,A10299,35
F10299: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10298,35
N10298: BYTE (4)4(14)0(18)Q10322+^D77
EXP 0
BYTE (5)1(31)0
POINT 7,A10297,35
N10297: BYTE (4)4(14)0(18)Q10322+^D76
EXP 0
BYTE (5)3(31)0
POINT 7,A10296,35
JRST L10296
EXP 0
BYTE (5)5(31)0
POINT 7,A10295,35
F10295: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10295,35
JRST L10295
EXP 0
BYTE (5)1(31)0
POINT 7,A10294,35
N10294: BYTE (4)4(14)0(18)Q10322+^D75
EXP 0
BYTE (5)5(31)0
POINT 7,A10293,35
F10293: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10293,35
JRST L10293
EXP 0
BYTE (5)5(31)0
POINT 7,A10292,35
F10292: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10289,35
N10289: BYTE (4)4(14)0(18)Q10322+^D74
EXP 0
BYTE (5)1(31)0
POINT 7,A10287,35
N10287: BYTE (4)4(14)0(18)Q10322+^D73
EXP 0
BYTE (5)5(31)0
POINT 7,A10285,35
F10285: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10285,35
JRST L10285
EXP 0
BYTE (5)1(31)0
POINT 7,A10284,35
N10284: BYTE (4)4(14)0(18)Q10322+^D72
EXP 0
BYTE (5)1(31)0
POINT 7,A10283,35
N10283: BYTE (4)4(14)0(18)Q10322+^D71
EXP 0
BYTE (5)3(31)0
POINT 7,A10281,35
JRST L10281
EXP 0
BYTE (5)1(31)0
POINT 7,A10278,35
N10278: BYTE (4)4(14)0(18)Q10322+^D70
EXP 0
BYTE (5)3(31)0
POINT 7,A10273,35
JRST L10273
EXP 0
BYTE (5)3(31)0
POINT 7,A10271,35
JRST L10271
EXP 0
BYTE (5)1(31)0
POINT 7,A10270,35
N10270: BYTE (4)4(14)0(18)Q10322+^D69
EXP 0
BYTE (5)1(31)0
S10269: POINT 7,A10269,35
N10269: BYTE (4)4(14)0(18)Q10322+^D68
EXP 0
BYTE (5)5(31)0
POINT 7,A10267,35
F10267: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10267,35
JRST L10267
EXP 0
BYTE (5)5(31)0
POINT 7,A10266,35
F10266: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10266,35
JRST L10266
EXP 0
BYTE (5)3(31)0
POINT 7,A10265,35
JRST L10265
EXP 0
BYTE (5)1(31)0
POINT 7,A10264,35
N10264: BYTE (4)4(14)0(18)Q10322+^D67
EXP 0
BYTE (5)1(31)0
POINT 7,A10263,35
N10263: BYTE (4)4(14)0(18)Q10322+^D66
EXP 0
BYTE (5)5(31)0
POINT 7,A10262,35
F10262: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10262,35
JRST L10262
EXP 0
BYTE (5)1(31)0
POINT 7,A10262,35
N10262: BYTE (4)4(14)0(18)Q10322+^D65
EXP 0
BYTE (5)1(31)0
POINT 7,A10261,35
N10261: BYTE (4)4(14)0(18)Q10322+^D64
EXP 0
BYTE (5)3(31)0
POINT 7,A10260,35
JRST L10260
EXP 0
BYTE (5)1(31)0
S10259: POINT 7,A10259,35
N10259: BYTE (4)4(14)0(18)Q10322+^D63
EXP 0
BYTE (5)1(31)0
POINT 7,A10258,35
N10258: BYTE (4)4(14)0(18)Q10322+^D62
EXP 0
BYTE (5)5(31)0
POINT 7,A10257,35
F10257: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10257,35
JRST L10257
EXP 0
BYTE (5)5(31)0
POINT 7,A10256,35
F10256: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10256,35
JRST L10256
EXP 0
BYTE (5)5(31)0
POINT 7,A10255,35
F10255: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10255,35
JRST L10255
EXP 0
BYTE (5)5(31)0
POINT 7,A10254,35
F10254: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10253,35
F10253: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10253,35
JRST L10253
EXP 0
BYTE (5)1(31)0
POINT 7,A10252,35
N10252: BYTE (4)4(14)0(18)Q10322+^D61
EXP 0
BYTE (5)3(31)0
POINT 7,A10251,35
JRST L10251
EXP 0
BYTE (5)3(31)0
POINT 7,A10250,35
JRST L10250
EXP 0
BYTE (5)3(31)0
POINT 7,A10247,35
JRST L10247
EXP 0
BYTE (5)3(31)0
POINT 7,A10246,35
JRST L10246
EXP 0
BYTE (5)1(31)0
POINT 7,A10243,35
N10243: BYTE (4)4(14)0(18)Q10322+^D60
EXP 0
BYTE (5)1(31)0
POINT 7,A10242,35
N10242: BYTE (4)4(14)0(18)Q10322+^D59
EXP 0
BYTE (5)3(31)0
POINT 7,A10241,35
JRST L10241
EXP 0
BYTE (5)1(31)0
POINT 7,A10234,35
N10234: BYTE (4)4(14)0(18)Q10322+^D58
EXP 0
BYTE (5)5(31)0
POINT 7,A10230,35
F10230: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10228,35
N10228: BYTE (4)4(14)0(18)Q10322+^D57
EXP 0
BYTE (5)1(31)0
POINT 7,A10227,35
N10227: BYTE (4)4(14)0(18)Q10322+^D56
EXP 0
BYTE (5)1(31)0
POINT 7,A10226,35
N10226: BYTE (4)4(14)0(18)Q10322+^D55
EXP 0
BYTE (5)1(31)0
POINT 7,A10225,35
N10225: BYTE (4)4(14)0(18)Q10322+^D54
EXP 0
BYTE (5)1(31)0
POINT 7,A10224,35
N10224: BYTE (4)4(14)0(18)Q10322+^D53
EXP 0
BYTE (5)1(31)0
POINT 7,A10221,35
N10221: BYTE (4)4(14)0(18)Q10322+^D52
EXP 0
BYTE (5)5(31)0
POINT 7,A10220,35
F10220: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10215,35
N10215: BYTE (4)4(14)0(18)Q10322+^D51
EXP 0
BYTE (5)1(31)0
POINT 7,A10214,35
N10214: BYTE (4)4(14)0(18)Q10322+^D50
EXP 0
BYTE (5)1(31)0
POINT 7,A10213,35
N10213: BYTE (4)4(14)0(18)Q10322+^D49
EXP 0
BYTE (5)1(31)0
POINT 7,A10212,35
N10212: BYTE (4)4(14)0(18)Q10322+^D48
EXP 0
BYTE (5)5(31)0
POINT 7,A10211,35
F10211: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10210,35
F10210: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
POINT 7,A10210,35
JRST L10210
EXP 0
BYTE (5)1(31)0
POINT 7,A10208,35
N10208: BYTE (4)4(14)0(18)Q10322+^D47
EXP 0
BYTE (5)1(31)0
POINT 7,A10206,35
N10206: BYTE (4)4(14)0(18)Q10322+^D46
EXP 0
BYTE (5)1(31)0
POINT 7,A10204,35
N10204: BYTE (4)4(14)0(18)Q10322+^D45
EXP 0
BYTE (5)1(31)0
S10203: POINT 7,A10203,35
N10203: BYTE (4)4(14)0(18)Q10322+^D44
EXP 0
BYTE (5)1(31)0
POINT 7,A10202,35
N10202: BYTE (4)4(14)0(18)Q10322+^D43
EXP 0
BYTE (5)1(31)0
POINT 7,A10201,35
N10201: BYTE (4)4(14)0(18)Q10322+^D42
EXP 0
BYTE (5)1(31)0
POINT 7,A10200,35
N10200: BYTE (4)4(14)0(18)Q10322+^D41
EXP 0
BYTE (5)1(31)0
POINT 7,A10199,35
N10199: BYTE (4)4(14)0(18)Q10322+^D40
EXP 0
BYTE (5)1(31)0
POINT 7,A10198,35
N10198: BYTE (4)4(14)0(18)Q10322+^D39
EXP 0
BYTE (5)1(31)0
POINT 7,A10197,35
N10197: BYTE (4)4(14)0(18)Q10322+^D38
EXP 0
BYTE (5)1(31)0
POINT 7,A10196,35
N10196: BYTE (4)4(14)0(18)Q10322+^D37
EXP 0
BYTE (5)1(31)0
POINT 7,A10195,35
N10195: BYTE (4)4(14)0(18)Q10322+^D36
EXP 0
BYTE (5)1(31)0
POINT 7,A10194,35
N10194: BYTE (4)4(14)0(18)Q10322+^D35
EXP 0
BYTE (5)1(31)0
POINT 7,A10193,35
N10193: BYTE (4)4(14)0(18)Q10322+^D34
EXP 0
BYTE (5)1(31)0
POINT 7,A10192,35
N10192: BYTE (4)4(14)0(18)Q10322+^D33
EXP 0
BYTE (5)1(31)0
POINT 7,A10190,35
N10190: BYTE (4)4(14)0(18)Q10322+^D32
EXP 0
BYTE (5)1(31)0
POINT 7,A10189,35
N10189: BYTE (4)4(14)0(18)Q10322+^D31
EXP 0
BYTE (5)1(31)0
POINT 7,A10187,35
N10187: BYTE (4)4(14)0(18)Q10322+^D30
EXP 0
BYTE (5)1(31)0
POINT 7,A10186,35
N10186: BYTE (4)4(14)0(18)Q10322+^D29
EXP 0
BYTE (5)1(31)0
POINT 7,A10185,35
N10185: BYTE (4)4(14)0(18)Q10322+^D28
EXP 0
BYTE (5)1(31)0
POINT 7,A10183,35
N10183: BYTE (4)4(14)0(18)Q10322+^D27
EXP 0
BYTE (5)1(31)0
POINT 7,A10182,35
N10182: BYTE (4)4(14)0(18)Q10322+^D26
EXP 0
BYTE (5)1(31)0
POINT 7,A10179,35
N10179: BYTE (4)4(14)0(18)Q10322+^D25
EXP 0
BYTE (5)1(31)0
POINT 7,A10178,35
N10178: BYTE (4)4(14)0(18)Q10322+^D24
EXP 0
BYTE (5)1(31)0
POINT 7,A10177,35
N10177: BYTE (4)4(14)0(18)Q10322+^D23
EXP 0
BYTE (5)1(31)0
POINT 7,A10176,35
N10176: BYTE (4)4(14)0(18)Q10322+^D22
EXP 0
BYTE (5)1(31)0
POINT 7,A10174,35
N10174: BYTE (4)4(14)0(18)Q10322+^D21
EXP 0
BYTE (5)3(31)0
S10173: POINT 7,A10173,35
JRST L10173
EXP 0
BYTE (5)3(31)0
S10172: POINT 7,A10172,35
JRST L10172
EXP 0
BYTE (5)3(31)0
S10171: POINT 7,A10171,35
JRST L10171
EXP 0
BYTE (5)3(31)0
S10170: POINT 7,A10170,35
JRST L10170
EXP 0
BYTE (5)3(31)0
S10166: POINT 7,A10166,35
JRST L10166
EXP 0
BYTE (5)3(31)0
S10165: POINT 7,A10165,35
JRST L10165
EXP 0
BYTE (5)3(31)0
S10164: POINT 7,A10164,35
JRST L10164
EXP 0
BYTE (5)3(31)0
S10163: POINT 7,A10163,35
JRST L10163
EXP 0
BYTE (5)3(31)0
S10162: POINT 7,A10162,35
JRST L10162
EXP 0
BYTE (5)3(31)0
S10161: POINT 7,A10161,35
JRST L10161
EXP 0
BYTE (5)3(31)0
S10160: POINT 7,A10160,35
JRST L10160
EXP 0
BYTE (5)1(31)0
POINT 7,A10159,35
N10159: BYTE (4)4(14)0(18)Q10322+^D20
EXP 0
BYTE (5)1(31)0
POINT 7,A10156,35
N10156: BYTE (4)4(14)0(18)Q10322+^D19
EXP 0
BYTE (5)1(31)0
POINT 7,A10155,35
N10155: BYTE (4)4(14)0(18)Q10322+^D18
EXP 0
BYTE (5)1(31)0
POINT 7,A10154,35
N10154: BYTE (4)4(14)0(18)Q10322+^D17
EXP 0
BYTE (5)1(31)0
POINT 7,A10152,35
N10152: BYTE (4)4(14)0(18)Q10322+^D16
EXP 0
BYTE (5)1(31)0
POINT 7,A10151,35
N10151: BYTE (4)4(14)0(18)Q10322+^D15
EXP 0
BYTE (5)1(31)0
POINT 7,A10146,35
N10146: BYTE (4)4(14)0(18)Q10322+^D14
EXP 0
BYTE (5)1(31)0
POINT 7,A10145,35
N10145: BYTE (4)4(14)0(18)Q10322+^D13
EXP 0
BYTE (5)1(31)0
POINT 7,A10143,35
N10143: BYTE (4)4(14)0(18)Q10322+^D12
EXP 0
BYTE (5)1(31)0
POINT 7,A10142,35
N10142: BYTE (4)4(14)0(18)Q10322+^D11
EXP 0
BYTE (5)1(31)0
S10141: POINT 7,A10141,35
N10141: BYTE (4)4(14)0(18)Q10322+^D10
EXP 0
BYTE (5)1(31)0
POINT 7,A10140,35
N10140: BYTE (4)4(14)0(18)Q10322+^D9
EXP 0
BYTE (5)1(31)0
POINT 7,A10138,35
N10138: BYTE (4)4(14)0(18)Q10322+^D8
EXP 0
BYTE (5)1(31)0
POINT 7,A10137,35
N10137: BYTE (4)4(14)0(18)Q10322+^D7
EXP 0
BYTE (5)1(31)0
POINT 7,A10136,35
N10136: BYTE (4)4(14)0(18)Q10322+^D6
EXP 0
BYTE (5)1(31)0
POINT 7,A10132,35
N10132: BYTE (4)4(14)0(18)Q10322+^D5
EXP 0
BYTE (5)5(31)0
POINT 7,A10100,35
F10100: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)3(31)0
S10100: POINT 7,A10100,35
JRST L10100
EXP 0
BYTE (5)5(31)0
S10091: POINT 7,A10091,35
F10091: BYTE (4)4(4)0(5)20(5)0(18)S$$UDF##
EXP 0
BYTE (5)1(31)0
POINT 7,A10086,35
N10086: BYTE (4)4(14)0(18)Q10322+^D4
EXP 0
BYTE (5)5(31)0
POINT 7,A10083,35
F10083: BYTE (4)4(4)0(5)^D3(5)0(18)P$$RPL##
EXP 0
BYTE (5)5(31)0
POINT 7,A10080,35
F10080: BYTE (4)4(4)0(5)^D3(5)0(18)P$$RPD##
EXP 0
BYTE (5)5(31)0
POINT 7,A10078,35
F10078: BYTE (4)4(4)0(5)^D2(5)0(18)P$$GTP##
EXP 0
BYTE (5)5(31)0
POINT 7,A10075,35
F10075: BYTE (4)4(4)0(5)^D2(5)0(18)P$$EQP##
EXP 0
BYTE (5)5(31)0
POINT 7,A10074,35
F10074: BYTE (4)4(4)0(5)^D2(5)0(18)P$$LEP##
EXP 0
BYTE (5)5(31)0
POINT 7,A10073,35
F10073: BYTE (4)4(4)0(5)^D2(5)0(18)P$$LTP##
EXP 0
BYTE (5)5(31)0
POINT 7,A10072,35
F10072: BYTE (4)4(4)0(5)^D2(5)0(18)P$$IDT##
EXP 0
BYTE (5)5(31)0
POINT 7,A10071,35
F10071: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DIF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10066,35
F10066: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DEF##
EXP 0
BYTE (5)5(31)0
POINT 7,A10065,35
F10065: BYTE (4)4(4)0(5)^D2(5)0(18)P$$DUP##
EXP 0
BYTE (5)5(31)0
POINT 7,A10064,35
F10064: BYTE (4)4(4)0(5)^D2(5)0(18)P$$TBL##
EXP 0
BYTE (5)5(31)0
POINT 7,A10062,35
F10062: BYTE (4)4(4)0(5)^D2(5)0(18)P$$CNV##
EXP 0
BYTE (5)5(31)0
POINT 7,A10060,35
F10060: BYTE (4)4(4)0(5)^D1(5)0(18)P$$DAT##
EXP 0
BYTE (5)5(31)0
POINT 7,A10051,35
F10051: BYTE (4)4(4)0(5)^D1(5)0(18)P$$TRM##
EXP 0
BYTE (5)5(31)0
POINT 7,A10044,35
F10044: BYTE (4)4(4)0(5)^D0(5)0(18)P$$DTE##
EXP 0
BYTE (5)1(31)0
POINT 7,A10032,35
N10032: BYTE (4)4(14)0(18)Q10322+^D3
EXP 0
BYTE (5)1(31)0
POINT 7,A10030,35
N10030: BYTE (4)4(14)0(18)Q10322+^D2
EXP 0
BYTE (5)1(31)0
POINT 7,A10029,35
N10029: BYTE (4)4(14)0(18)Q10322+^D1
POINT 7,A10085,35
Q10000: XWD 0,Q10322
XWD Q10323,^D0
EXP Q10323
END Q10002