home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  66 lines

  1. 10 U JSR DIS;SET UP ADDRESS COUNTER
  2. 20 ;
  3. 30 JSR OFILE;OPEN WRITE CHANNEL
  4. 40 ;
  5. 50 LDX #$03
  6. 60 JSR OUTCHN
  7. 70 LDA #$01;BASIC LINE LINK (LO)
  8. 80 JSR PRINT
  9. 90 LDA #$08;BASIC LINE LINK (HI)
  10. 100 JSR PRINT
  11. 110 ;
  12. 120 LDA #$0E;ADJUST FOR LINE 10
  13. 130 STA LINK;10 *= $XXXX
  14. 140 JSR PRINT
  15. 150 LDA #$08
  16. 160 STA LINK+1
  17. 170 JSR PRINT
  18. 180 ;
  19. 190 LDA LINE;PRINT LINE # TO SCREEN
  20. 200 JSR PRINT
  21. 210 LDA LINE+1
  22. 220 JSR PRINT
  23. 230 ;
  24. 240 LDY #$00;SET UP LINE IN BUFFER
  25. 250 LINLP LDA AST,Y;*= $XXXX
  26. 260 BEQ LINLP1
  27. 270 JSR PRINT
  28. 280 INY
  29. 290 JMP LINLP
  30. 300 ;
  31. 310 LINLP1 JSR PRINT
  32. 320 JSR CLRCHN;CLOSE WRITE CHANNEL
  33. 330 ;
  34. 340 JSR FINDMN;START UN-ASSEMBLY
  35. 350 ;
  36. 360 JMP START
  37. 370 ;
  38. 380 DIS LDY #$00
  39. 390 JSR SETADD
  40. 400 STA $22;HI BYTE BEGIN ADDRESS
  41. 410 JSR SETADD
  42. 420 STA $23
  43. 430 JSR HEX;WHEN RETURN HI BYTE BEGIN IN HEX
  44. 440 STA $FC
  45. 450 JSR SETADD
  46. 460 STA $22;LO BYTE BEGIN ADDRESS
  47. 470 JSR SETADD
  48. 480 STA $23
  49. 490 JSR HEX;LO BYTE BEGIN ADDRESS
  50. 500 STA $FB
  51. 510 JSR SETADD
  52. 520 STA $22;HI BYTE END ADDRESS
  53. 530 JSR SETADD
  54. 540 STA $23
  55. 550 JSR HEX; CONVERT ADD TO HEX
  56. 560 STA $FE;HI BYTE END ADDRESS
  57. 570 JSR SETADD
  58. 580 STA $22;LO BYTE END ADDRESS
  59. 590 JSR SETADD
  60. 600 STA $23
  61. 610 JSR HEX
  62. 620 STA $FD;LO BYTE END ADDRESS
  63. 630 RTS
  64. 640 ST JMP START
  65. 650 .FILE UNASSM3
  66.