home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / autoboot (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  47 lines
  1. 10 REM AUTOBOOT FROM COMPUTE 9/84 PG 130
  2. 20 REM ENTERED FOR CUON LIBRARY BY SAM BARRETT
  3. 100 PRINT"[147] AUTOBOOT ":T=18:S=1:D$="0":OPEN15,8,15,"I"+D$
  4. 110 OPEN 2,8,2,"#"+"0"
  5. 120 REM **** LOCATE TARGET
  6. 130 INPUT"FILENAME";NA$:LN=LEN(NA$)
  7. 140 GOSUB210:GOSUB300
  8. 150 IFT=0THENPRINTNA$" NOT FOUND":GOTO540
  9. 160 GOTO140
  10. 170 GOTO540
  11. 180 REM***POINT TO BYTE AND GET IT INTO X.
  12. 190 PRINT#15,"B-P:"2,L:GET#2,A$:IFA$=""THENA$=CHR$(0)
  13. 200 X=ASC(A$):RETURN
  14. 210 PRINT"TRACK"T" SECTOR"S
  15. 220 PRINT#15,"U1:"2;D$;T;S
  16. 230 L=0:GOSUB180:T=X:L=1:GOSUB180:S=X:RETURN
  17. 240 REM *** CHECK FOR FULL MATCH
  18. 250 FORJ=ITOI+LN:L=J:GOSUB180:IFX=0ORX=160THEN270
  19. 260 X$=X$+CHR$(X):NEXTJ
  20. 270 IFX$<>NA$THENX$="":RETURN
  21. 280 L=I-2:GOSUB180:TT=X:L=I-1:GOSUB180:SS=X:PRINT
  22. 290 GOTO340
  23. 300 REM *** CHECK THROUGH ONE BLOCK FOR NAME MATCH
  24. 310 FORI=5TO230STEP32
  25. 320 L=I:GOSUB180:IFCHR$(X)=LEFT$(NA$,1)THENGOSUB240
  26. 330 NEXTI:RETURN
  27. 340 REM *** ACCESS 1ST SECTOR OF TARGET PROGRAM
  28. 350 T=TT:S=SS:GOSUB210
  29. 360 L=2:GOSUB180:AL=X:L=3:GOSUB180:AH=X:SA=AL+AH*256
  30. 370 IFSA<>256THENPRINT:PRINTNA$" IS NOT PREPARED FOR AUTOBOOT":GOTO540
  31. 380 REM *** ESTABLISH FALSE STACK
  32. 400 PRINT#15,"U1:"2;DR;TT;SS:PRINT
  33. 410 FORPB=173TO254STEP2:PRINT#15,"B-P:"2;PB
  34. 420 PRINT#2,CHR$(96);
  35. 430 PRINT#15,"B-P:"2;PB+1
  36. 440 PRINT#2,CHR$(3);:PRINT"*";:NEXT:PRINT
  37. 450 PRINT#15,"U2:"2;DR;TT;SS
  38. 460 GOSUB210:PRINT
  39. 470 REM ***PUT AUTOBOOT CODE ONTO PAGE 3
  40. 481 DATA165,175,133,46,165,174,133,45,32,89,166,32
  41. 491 DATA 142,166,76,174,167
  42. 500 PRINT#15,"U1:"2;DR;T;S
  43. 510 FORPB=105TO121:READBY:PRINT#15,"B-P:"2;PB
  44. 520 PRINT#2,CHR$(BY);:PRINT". ";:NEXT:PRINT:PRINTNA$" CAN NOW BOOT ITSELF"
  45. 530 PRINT#15,"U2:"2;DR;T;S
  46. 540 CLOSE2:CLOSE15
  47.