POST
IDENT POST POST 1
TITLE INITIALIZATION OF THE TRANSLATED CODE POST 2
* FOR A LISTING OF THE SNODEF COMDECK, CALLED BELOW, SEE MAINLUP. POST 3
LIST -L POST 4
*CALL,SNODEF POST 5
LIST L POST 6
* INIT POST 7
EXT STNPRL POST 8
* MAINLUP POST 9
EXT NEXTMIC,SNDMIC,FAIL POST 10
EXT CHEK,SCATS,MCOPTBL,JPB1 POST 11
* UTILITY POST 12
EXT ITOS,SSTOS,STOSFX6,PTOPX4,ICX1X6,ZROX7,SSTOSF,ITOSF POST 13
* IO POST 14
EXT OPEN POST 15
* POST POST 16
ENTRY POST0,SMESS POST 17
* POST 18
*LOWCORE POST 19
EXT HBCSTAT POST 20
* QCMPL POST 21
EXT QCMPL POST 22
EJECT POST 23
SMESS DIS ,* SUCCESSFUL COMPILATION* POST 24
* POST 25
* POST 26
POST0 SA2 STATWD . DEBUGGING AID POST 27
LX2 60-3 POST 28
PL X2,POST0A POST 29
TRACE . TURN ON TRACE POST 30
TRACE LIST . AND SET MODE TO -LIST- POST 31
POST0A SA1 MINHS POST 32
SX7 UNDFTYP POST 33
SA2 X1+STNPRL+1 POST 34
SB1 1 . B1 IS THE CONSTANT 1 POST 35
LX7 55 . UNDEFINED FUD TO X7 POST 36
MX0 60-12 POST 37
POST1 LX2 1 . LOOP TO FIND FIRST STANDARD POST 38
AX2 19 . PROCEDURE IN THE CHAIN WHICH HAS POST 39
PL X2,POST2 . BEEN USED POST 40
BX3 -X0*X2 POST 41
LX2 21 POST 42
NG X2,POST1A . ULESS APPLY OR COMPILE POST 43
SA7 A2+0 . UNDEFINE THE FUNCTION POST 44
POST1A SB5 X3 POST 45
SA2 X1+B5 POST 46
EQ POST1 POST 47
POST2 AX2 12 POST 48
SX2 X2+0 . NEW HS BASE TO X2 POST 49
IX0 X2-X1 . STATIC DISPLACEMENT TO X0 AND B7 POST 50
BX7 X2 . RELOCATE MINHS POST 51
SA7 A1 POST 52
SA2 MAXSTAT POST 53
SB7 X0 POST 54
BX6 X6-X6 POST 55
SA6 X2 . MARK THE END OF HEAP STORAGE POST 56
SB3 X2 . END OF HS TO B3 POST 57
SB2 LITTYP-1 POST 58
SA2 X1+2 . INITIALIZE A2 POST 59
EQ B7,B0,POST11A . BYPASS IF NO DISPLACEMENT POST 60
POST3 SA2 A2+B1 . NEXT RECORD HEADING POST 61
SB5 X2 POST 62
ZR X2,POST9 . BRANCH IF END OF HEAP STORAGE POST 63
BX7 X2 POST 64
EQ B5,B0,POST5 POST 65
IX7 X2+X0 . RELOCATE THE HASH-LINK POST 66
POST5 AX2 55 . TYPE OF RECORD TO B5 POST 67
SA7 A2+B7 POST 68
SB5 X2+37B POST 69
SB4 B2+B1 . LITERAL TYPE POST 70
SX1 B5-B4 . REMEMBER IF LITERAL POST 71
LT B4,B5,POST5B . BRANCH IF VAR,CALL OR LABEL POST 72
SX6 B5-FILTYP POST 73
ZR X6,POST8 . BRANCH IF I/O BUFFER POST 74
SA2 A2+1 POST 75
SB4 B2-B1 . INTEGER TYPE POST 76
IX7 X2+X0 . RELOCATE FIRST POST 77
LX7 42 POST 78
LT B5,B4,POST5A . BRANCH IF REAL POST 79
IX7 X7+X0 . RELOCATE LAST POST 80
POST5A LX7 18 POST 81
SA7 A2+B7 POST 82
ZR X1,POST6 . BRANCH IF LITERAL POST 83
POST5B SA2 A2+1 . COPY ONE WORD POST 84
BX6 X2 POST 85
SA6 A2+B7 POST 86
LT B5,B4,POST3 . BRANCH IF REAL POST 87
AX6 55 POST 88
LX2 60-18 POST 89
SX6 X6-INTY POST 90
NG X6,POST6 . BRANCH IF NOT INTY/OUTTY POST 91
IX6 X2+X0 . RELOCATE FET POINTER IN F2 POST 92
LX6 18 POST 93
SA6 A6 POST 94
POST6 SA2 A2+B1 . COPY BCD WITH LINKS RELOCATED POST 95
SB5 X2 POST 96
EQ B5,B0,POST7 POST 97
IX7 X2+X0 POST 98
SA7 A2+B7 POST 99
EQ POST6 POST 100
POST7 BX6 X2 . LAST WORD WITH ZERO LINK POST 101
SA6 A2+B7 POST 102
EQ POST3 POST 103
POST8 AX7 18 . MOVE I/O BUFFER POST 104
SB5 X7 . BYPASS TO B5 POST 105
SA1 A2+B1 POST 106
BX7 X1 POST 107
SA7 A1+B7 . COPY REFERENCE COUNT POST 108
SA1 A1+B1 POST 109
BX6 X1 POST 110
SA6 A1+B7 . COPY LFN, ETC. POST 111
SX7 A2+B7 . OUTSTRM IS SET TO THE BASE POST 112
SA7 OUTSTRM . OF THE LAST FILTYP BLOCK WHICH IS POST 113
SA1 A1+B1 . THE STANDARD OUTPUT BLOCK IN FACT POST 114
IX6 X1+X0 POST 115
SA6 A1+B7 . INITIALIZE FIRST POST 116
SX6 X6 POST 117
SA6 A6+B1 . - IN POST 118
SA6 A6+B1 . - OUT POST 119
SA1 A1+FET.LIM-FET.FRST POST 120
IX7 X1+X0 POST 121
SA7 A6+B1 . - LIMIT POST 122
SX2 A2-B1 POST 123
SA2 X2+B5 . NEXT BLOCK-1 TO A2 POST 124
EQ POST3 POST 125
* POST 126
POST9 SB5 HASHLN . LOOP TO RELOCATE NONZERO ENTRIES POST 127
POST10 SB5 B5-1 . IN THE HASH - TABLE POST 128
SA1 B5+HASHTBL POST 129
SX2 X1 POST 130
ZR X2,POST11D POST 131
IX1 X1+X0 POST 132
POST11D BX7 X1 POST 133
LX1 30 POST 134
SX2 X1+0 POST 135
ZR X2,POST11E POST 136
IX7 X1+X0 POST 137
LX7 30 POST 138
POST11E SA7 A1 POST 139
NE B5,B0,POST10 POST 140
* INITIALIZE POINTERS AND THE DUMMY FHB POST 141
SA1 MINHS POST 142
BX6 X6-X6 POST 143
SA6 X1 POST 144
SA6 A6+B1 . CLEAR THE TWO SPECIAL WORDS POST 145
SX1 FRETYP . INITIALIZE DUMMY FHB POST 146
SX7 A6+B1 POST 147
LX1 55 POST 148
SX6 X7 POST 149
BX7 X7+X1 . MERGE HSTY POST 150
LX7 60-36 POST 151
BX7 X7+X6 POST 152
SA6 FHBLRP . INITIALIZE ROVING POINTER POST 153
LX7 36 POST 154
SA7 X7 POST 155
SA1 FILLIST . RELOCATE FILLIST POST 156
BX7 X1 POST 157
IX7 X1+X0 POST 158
SA7 A1 POST 159
POST11A SA5 PRGBASE POST 160
SX4 B7 POST 161
SB5 X5 . SAVE OLD PRGBASE POST 162
SB6 B0-B6 POST 163
SB6 B6+B1 . ADDRESS OF LAST MICRO-OPERATION POST 164
SX2 CODTYP POST 165
SX1 B5-B6 . PROGRAM LENGTH TO X1 POST 166
LX2 55 POST 167
SB4 X1+B1 POST 168
SX1 X1+B1 . BYPASS OF HB POST 169
LX1 18 POST 170
BX7 X1+X2 . HEAP BLOCK WORD 0 POST 171
MX0 42 POST 172
SA7 B3+B7 POST 173
SA1 CODLIST POST 174
SX6 B3+B7 POST 175
NZ X1,POST11B POST 176
SX1 B3+B7 POST 177
POST11B LX6 18 . FORMAT OF CODLIST IS POST 178
SX5 X1 . 18/LAST,18/FIRST POST 179
BX6 X5+X6 POST 180
SA6 A1 POST 181
AX1 18 POST 182
ZR X1,POST11C POST 183
SA1 X1 POST 184
AX6 18 POST 185
BX6 X6+X1 POST 186
POST11C SA6 A1 POST 187
SB4 A7+B4 . NEW PROGRAM BASE TO B4 POST 188
SX5 B7 POST 189
MX6 42 POST 190
LX4 18 . RELOCATION CONST. FOR LOW ORDER POST 191
LX5 36 . RELOCATION CONST. FOR HIGH ORDER POST 192
LX6 18 . MICOP-S POST 193
BX0 -X0 POST 194
POST12 SA1 B6 . NEXT WORD OF MICOP-S POST 195
ZR X1,POST17 . FINISHED IF ZERO POST 196
BX7 -X0*X1 POST 197
SA2 X1+MCOPTBL POST 198
SX3 X2 . ABS ADDRESS OF LOW ORDER MICOP POST 199
BX7 X7+X3 . TO X3 POST 200
EQ B7,B0,POST14 . BYPASS IF NO RELOCATION POST 201
AX1 18 POST 202
SB2 X1 . LOW ORDER ADDRESS POST 203
GE B0,B2,POST13 . POSITIVE ADDRESSES HAVE TO POST 204
IX7 X7+X4 . BE RELOCATED POST 205
POST13 NG X2,POST14 . BRANCH IF GOTO OR CALL POST 206
AX1 18 POST 207
SB2 X1 POST 208
EQ B2,B0,POST14 . RELOCATE HIGH ORDER ADDRESS POST 209
IX7 X7+X5 POST 210
POST14 SA7 A7+B1 . STORE WORD POST 211
SB6 B6+B1 POST 212
EQ POST12 POST 213
* POST 214
* POST 215
POST17 SA1 LBLLINK . WE SHALL PROCESS ALL LABELS POST 216
SX5 B3+B7 . DEFINED DURING THE RECENT POST 217
LX5 18 . COMPILATION POST 218
POST18 ZR X1,POST24 POST 219
SA1 X1+B7 POST 220
SX7 X1+B4 . X1 IS RELATIVE TO PRGBASE POST 221
BX7 X7+X5 . MERGE CODE HB BASE TO F2 POST 222
SA7 A1+0 . STORE CPD POST 223
AX1 18 . LINK TO X1 POST 224
EQ POST18 POST 225
* POST 226
POST24 SX6 B4 . BOTTOM OF STACK TO X6 POST 227
SA4 MAXSTAK POST 228
SB3 X4 POST 229
SA3 COMPB7 . RESTORE FL POINTER POST 230
SB3 B0-B3 . POSTIVE MAXSTAK TO B3 POST 231
SX0 B7 POST 232
POST25 SA1 B5 . PUSH THE STACK TO ITS PLACE POST 233
SB5 B5+B1 POST 234
BX7 X1 POST 235
SA7 B4 POST 236
SB4 B4+B1 POST 237
LT B5,B3,POST25 POST 238
SB7 X3 POST 239
SB6 A7 . RESTORE STACK TOP POINTER POST 240
SA6 MAXHS POST 241
BX4 X5 . BASE OF THE CODE HB TO X4 POST 242
SA6 MINSTAK POST 243
SA2 VARLINK POST 244
POST26 ZR X2,POST27 . ASSIGN A NULL VALUE TO ALL VARI- POST 245
IX2 X2+X0 . ABLES DEFINED IN THE RECENT POST 246
SA3 X2 . COMPILATION POST 247
RJ ZROX7 POST 248
SA7 X2 POST 249
SX2 X3 POST 250
EQ POST26 POST 251
* NOW THE CODE IS READY TO RUN. IT BEGINS AT X6-1 POST 252
POST27 SA1 NXTWRD POST 253
SA5 X6 . BEGIN EXECUTION OF THE PROGRAM POST 254
SX0 B1+B1 . =2 POST 255
* IF FIRST COMPILATION, REOPEN OUTPUT FILE AND GO POST 256
NG X1,POST29 POST 257
SX7 CTY . IF RESULT OF COMPILE, PUT POST 258
SX6 X6-1 . REFERENCE TO THE COMPILED POST 259
BX6 X6+X4 . MERGE BASE POST 260
SA4 B6-1 . CODE TO THE TOP OF THE STACK POST 261
SA5 X4 POST 262
LX7 55 POST 263
BX6 X7+X6 POST 264
SA6 A4 POST 265
BX7 X7+X0 POST 266
SA7 B6 . CTY STACK HEADER POST 267
SA1 FRSTWRD POST 268
ZR X1,NEXTMIC . FREE THE REMAINDER OF THE POST 269
SX7 B7 . ARGUMENT STRING POST 270
SB7 X1 POST 271
POST28 SA1 X1 POST 272
SX1 X1 POST 273
NZ X1,POST28 POST 274
SA7 A1 POST 275
JP NEXTMIC . ALL DONE POST 276
POST29 STREAM OUTSTRM POST 277
RJ OPEN . INFORM SCOPE OF THE NEW BUFFER LOC.POST 278
SA1 HBCSTAT POST 279
ZR X1,NEXTMIC POST 280
SA2 MINHS POST 281
SX3 QCMPL POST 282
IX3 X2-X3 POST 283
PL X3,NEXTMIC . TRC IS IN POST 284
MX7 1 . TRC IS NOT IN POST 285
SA7 A1 POST 286
EQ NEXTMIC POST 287
* POST 288
* POST 289
END POST 290