home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  71 lines
  1. 10 BEG LDA #$93;SCREEN FORMAT
  2. 20 JSR PRINT
  3. 30 LDA #$00
  4. 40 STA $D020
  5. 50 STA $D021
  6. 60 LDA #$17
  7. 70 STA $D018;LOWER CASE
  8. 80 ;
  9. 90 START LDX #$FF;RESET THE STACK
  10. 100 TXS
  11. 110 ;
  12. 120 LDA #$0A;SET UP FIRST LINE # (10)
  13. 130 STA LINE
  14. 140 LDA #$00
  15. 150 STA LINE+1
  16. 160 ;
  17. 170 JSR SCRN;PRINT INTRO SCREEN
  18. 180 ;
  19. 190 JSR GETADD;GET BEGINNING & ENDING ADDRESS
  20. 200 STY $24;HOLDS # OF BYTES IN "U" ADRESSES
  21. 210 LDY #$00;CLEAR BUFFERS FOR DRIVE #
  22. 220 STY BUF0
  23. 230 STY BUF1
  24. 240 STY BUF2
  25. 250 ;
  26. 260 DLP LDA DNUM,Y;PRINT DRIVE # PROMPT
  27. 270 BEQ GDRV
  28. 280 JSR PRINT
  29. 290 INY
  30. 300 JMP DLP
  31. 310 ;
  32. 320 GDRV LDY #$00
  33. 330 GDRV1 JSR $FFCF;GET DRIVE #
  34. 340 CMP #$0D
  35. 350 BEQ GD1
  36. 360 STA BUF0,Y
  37. 370 INY
  38. 380 JMP GDRV1
  39. 390 ;
  40. 400 GD1 LDA BUF1;IF 0 1 NUMBER FOR DRIVE
  41. 410 BEQ GD2
  42. 420 LDA BUF0;STRIP ASCII BITS DRIVE #
  43. 430 AND #%00001111
  44. 440 STA BUF0
  45. 450 LDA BUF1
  46. 460 AND #%00001111
  47. 470 STA BUF1
  48. 480 CLC
  49. 490 GD1A LDA #$0A;ADD TEN TO 1ST BYTE
  50. 500 ADC BUF2
  51. 510 STA BUF2
  52. 520 DEC BUF0;IF = 1 THEN = 0 NOW HAVE 10
  53. 530 BEQ GD1B
  54. 540 ;
  55. 550 JMP GD1A;# GREATER THAN 10
  56. 560 GD1B LDA BUF1
  57. 570 ADC BUF2;IF BUF1 HAD 1 THEN = 11
  58. 580 STA DRV;IN OPEN FILE ROUTINE
  59. 590 JMP GD3
  60. 600 ;
  61. 610 GD2 LDA BUF0;ONE BYTE DRIVE #
  62. 620 AND #%00001111;STRIP ASCII BITS
  63. 630 STA DRV;AND STORE IN OPEN FILE
  64. 640 ;
  65. 650 GD3 JSR CR
  66. 660 LDA ADDBUF;GET COMMAND U
  67. 670 CMP #"U
  68. 680 BEQ U
  69. 690 JMP ($A002);BAD COMM[175] [164] BASIC
  70. 700 .FILE UNASSM2
  71.