/^ JUNE 29 1976 /OVERLAYS TO FRTS /UPDATED TO V 3.05 / /1 ADDS THE COMMANDECODER TO MQ PATCH (LP) / /2 THE "ERROR"PATCH FROM OS8/NEWSLETTER NUMBER 13 /3 OPTIONALLY THE FREE FORMAT PATCH FROM SAME SOURCE / TO INCLUDE THIS REMOVE THE / ON THE NEXT LINE / FT=1 / /4 ETOS PATCH ADDED / TO ASSEBLE ETOS PATCH ADD / ETOS=1 /5 PATCH FTRS TO AVOID USING LOC IN LAST FIELD IF BATC ACTIVE / NOTE THE TEST ALSO FALLS OUT IF INCORE TD8'ES /6 ROBERT PHELPS PATCH TO USE USR / ALSO CHNAGED FRTS-CD SWITCHES TO USE LOC 7400 IN FRTS / COMPATIBLE WITH ETOS AND NO-8E MACHINES / INSTALLING THE PATCHES / / 1. ASSEMBLE: / / .PAL FRTSX / / 2.OVERLAY: / / .LOAD SYS:FRTS.SV/I-BN$ N.B.ALTMODE / *FRTSX$ / / 3.SAVE: / / .SAVE SYS:FRTS 0-7577,12000-13777,15400-17577;200=2000 / / CHANGES TO FRTS VERSION NR *5534 3040 /VERSION N X *4020 /INSERT FLAGCLEARS HERE AC=0 6435 / COMMAND DECODER SWITCHES A-L SENT TO LOC 7400 / ONLY LAST SET OF SWITCHES AVAILABLE WHEN PROGRAM STARTS / / DO NOT USE THE SWITCHES :E(F)(G)H(L) / THOSE IN BRACKETS CAN BE USED WITH CERTAIN CAUTION / / FIELD 1 TSTSWS=3400 *3442 JMP EXTRA *3523 EXTRA, TAD I LINK CDF 0 DCA I LINC2 CDF 10 JMP I TSTSWS / LINK, 7643 LINC2, 7400 /BLOCK THE USE PARTS OF THE BUFFER FIELD 0 *7371 7401 /BLOCK THE BUFFER LOCATION FIELD 1 *7372 7401 /5555555555555555 /SETS ANEW LIMIT TO UPPER CORE UNDER BATCH OR TD8E FIELD 1 *2744 2000 /WAS 4600 3000 /WAS 200 /SUM SHOULD BE = 5000 / / /666666666666666666666666 / / MOVE HIGCOR INTO RESIDENT CORE FIELD 1 *2475 CLA CLL TAD LINK3 DCA 10 TAD 23 DCA I 10 DCA I 10 TAD 25 DCA I 10 TAD 26 DCA I 10 NOP JMP I 2566 LINK3, 120 /INPUT ERROR PATCHES FOR FRTS /BY JIM CRAPUCHETTES /SE OS8 NEWSLETTER FOR COMMENTS / USAGE / CALL CHKEOF(ERR) / READ(4, / ON LEGAL INPUT ERR=0 / ON EOF IER>0 / ON BAD INPUT ERR<0 /FROM FRTS VEOFSW= 16 EOLSW= 25 ERR= 34 MCDF= 36 HAND= 100 TTY= 320 FIELD 0 /2400-2477 IS FULL IN V3C USE PAGE 0 /121-124 ARE USED BY USR PATCH *125 AINER1, INERX *2435 JMP INER1 *2440 INER1, JMS I AINER1 *2506 JMP INER1 *2630 JMS I AINER1 *4614 INERR *7371 LPBUFE /WE USE 7400 BEFORE REMEMBER ? *7401 INERX, 0 CLA TAD HAND TAD MTTY SNA CLA TAD VEOFSW SNA INERR, JMS I ERR JMS I MCDF DCA .+1 HLT STA DCA I VEOFSW+1 CDF 0 TAD LIT40 DCA EOLSW JMP I INERX MTTY, -TTY LIT40, 40 LPBUFE=. FIELD 1 *6450 JMP DINERR *6516 JMP DINERR *6521 DINERR, JMS I AINER3 *6563 AINER3, INERX *7372 LPBUFE IFDEF FT< /NOT TESTED FOR VERSION V3C OF OS8 ! /THE PATCH FOR "TOTALY FREE INPUT" FIELD 0 *2177 2571 *2571 3064 5200 *2443 7200 *5535 624 > /ETOS PATCHES IFDEF ETOS< FIELD 0 *353 5763 /FPHLT *1341 NOP /ION *3127 NOP /JMS ECHO *4002 CLA CLL /6601 TAD KST /ETC 6047 /SET STATUS JMP 4032 KST, .+1 4375 201 7600 7600 *4032 CLA CLL *5534 3005 /VERSION FIELD 1 *2315 NOP /LINC *2621 NOP /FPST *2473 NOP;NOP /SKIP FPP START *3727 NOP /FPICL NOP /FPCOM *7453 NOP /6666 >