Listing of file='ASMUPG.BAS;01' on disk='vmedia/chip_27-sector.ccvf'
10 REM ASSEMBLER UPGRADE COORDINATOR 20 REM BY JAMES C. MINOR 30 REM 39 BRYN MAWR ROAD 40 REM ROCHESTER, NEW YORK 14624 50 REM (716) 247-7069 60 REM 70 PLOT 30,16,12,14,29,18,3,23,4 80 PRINT "ASSEMBLER UPGRADE" 90 PRINT TAB( 26);"COORDINATOR" 100 PLOT 15,3,0,12 160 PRINT :PRINT TAB( 6);"INSERT YOUR DISK WITH YOUR ASSEMBLER FILE (ASM.PRG)" 170 PRINT TAB( 23);" AND PRESS RETURN" 175 PRINT :PRINT TAB( 31);:INPUT DU 180 PLOT 27,4:PRINT "LOAD ASM.PRG 8A00":PLOT 27,27 190 OFFSET= 2048:REM OFFSET=800H TO LEAVE ROOM FOR THIS PROGRAM 200 PLOT 12,3,0,8 210 PRINT "NOW INSERT THE DISK WITH THE UPGRADE APPENDAGE FILE (PRNMST.PRG)" 220 PRINT 230 PRINT TAB( 20);"PRESS RETURN WHEN READY" 240 PRINT :PRINT TAB( 31);:INPUT DU 250 PLOT 27,4:PRINT "LOAD PRNMST.PRG 95EE":PLOT 27,27 300 POKE 37527,205:POKE 37528,238:REM CALL PRNMST 310 POKE 37581,205:POKE 37582,241:POKE 37583,141:REM CALL SYMPRT 320 POKE 37719,144:REM MOVE START OF IBUF 330 POKE 37725,9:REM REDUCE SIZE OF IBUF 340 POKE 37894,205:POKE 37895,244:POKE 37896,141:REM CALL PRNOUT 350 POKE 37938,247:POKE 37939,141:REM REDIRECT LO TO LOTAB 400 PLOT 12,3,0,8 410 PRINT TAB( 15);"INSERT THE DISK ON WHICH YOU WANT" 420 PRINT TAB( 10);"TO STORE YOUR UPGRADED ASSEMBLER (ASM2.PRG) 430 PRINT :PRINT 440 PRINT TAB( 20);"PRESS RETURN WHEN READY" 450 PRINT :PRINT TAB( 31);:INPUT DU 460 PLOT 27,4:PRINT "SAVE ASM2.PRG 8200-90ED 8200 8A00":PLOT 27,27 500 PLOT 12,3,0,6 510 PRINT TAB( 10);"YOUR ASSEMBLER HAS NOW BEEN UPGRADED" 520 PRINT :PRINT 530 PRINT "TO INVOKE IT SIMPLY TYPE RUN ASM2 IN FCS RATHER THAN RUN ASM" 540 PRINT :PRINT 550 PRINT "ONCE YOU ARE SATISFIED THAT THE UPGRADE WAS SUCCESFUL" 560 PRINT "YOU MAY DELETE THE FILES USED IN UPGRADING (OTHER THAN ASM2)" 570 PRINT "AS THEY ARE NO LONGER NEEDED" 580 END