Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 31

1236 * 1237 * THE NEXT 4 HEADERS POINT TO INSTALLATION-DEPENDENT TERMINAL I/O 1238 * ROUTINES. 1239 * 1240 * HEAD FNUL,EMIT,EMIT **** EMIT 1241 000604 TLNK SET * 1242 00604 002305 VFD 1,0,1,FNUL,6,4,8,'305 1243 * =<FNUL,4>,'E' 1244 00605 146711 BCI 1,MI 1245 00606 052000 VFD 8,'124 ='T' 1246 00607 0 000527 DAC LINK 1247 000604 LINK SET TLNK 1248 000610 EMIT EQU * 1249 00610 0 01 05665 JMP PEMT 1250 * HEAD FNUL,KEY,KEY **** KEY 1251 000611 TLNK SET * 1252 00611 001713 VFD 1,0,1,FNUL,6,3,8,'313 1253 * =<FNUL,3>,'K' 1254 00612 142531 VFD 8,'305,8,'131 ='EY' 1255 00613 0 000604 DAC LINK 1256 000611 LINK SET TLNK 1257 000614 KEY EQU * 1258 00614 0 01 05717 JMP PKEY 1259 * HEAD FNUL,?TERMINAL,QTRM **** ?TERMINAL 1260 000615 TLNK SET * 1261 00615 004677 VFD 1,0,1,FNUL,6,9,8,'277 1262 * =<FNUL,9>,'?' 1263 00616 152305 BCI 3,TERMIN 00617 151315 00620 144716 1264 00621 140514 VFD 8,'301,8,'114 ='AL' 1265 00622 0 000611 DAC LINK 1266 000615 LINK SET TLNK 1267 000623 QTRM EQU * 1268 00623 0 01 05736 JMP PQTR 1269 * HEAD FNUL,CR,CR **** CR 1270 000624 TLNK SET * 1271 00624 001303 VFD 1,0,1,FNUL,6,2,8,'303 1272 * =<FNUL,2>,'C' 1273 00625 051000 VFD 8,'122 ='R' 1274 00626 0 000615 DAC LINK 1275 000624 LINK SET TLNK 1276 000627 CR EQU * 1277 00627 0 01 05745 JMP PCR 1278 EJCT
  Previous Page Single Page Next Page