home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / UNASM.RAM.ARC / UNASSM6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  59 lines
  1. 10 LDA BUF1
  2. 20 CMP #$10;IF EQUAL HAVE A BRANCH INST.
  3. 30 BNE U64;TWO BYTE ADDRESS
  4. 40 ;
  5. 50 CLC
  6. 60 LDA $FB;LO BYTE ADDRESS COUNTER
  7. 70 ADC #$02
  8. 80 STA $24;ADJUST ADRESS COUNTER
  9. 90 LDA $FC;HI BYTE ADRESS COUNTER
  10. 100 ADC #$00;MAKE HI BYTE CORRECT
  11. 110 STA $25
  12. 120 ;
  13. 130 LDY #$01
  14. 140 LDA ($FB),Y;# OF BYTES TO BRANCH
  15. 150 BMI U65;BRANCH BACKWARDS
  16. 160 ;
  17. 170 CLC
  18. 180 ADC $24;ADD BRACNH FOWARD TO,THE
  19. 190 STA $24;ADDRESS COUNTER
  20. 200 LDA $25
  21. 210 ADC #$00
  22. 220 STA $25
  23. 230 JMP HEX1
  24. 240 ;
  25. 250 U65 SEC;SUBTRACT BRANCH BACKWARDS
  26. 260 STA BUF3;TO THE ADDRESS COUNTER
  27. 270 LDA #$00
  28. 280 SBC BUF3
  29. 290 STA BUF3
  30. 300 SEC
  31. 310 LDA $24
  32. 320 SBC BUF3
  33. 330 STA $24
  34. 340 LDA $25
  35. 350 SBC #$00
  36. 360 STA $25
  37. 370 ;
  38. 380 HEX1 LDA $25;PRINT ADRESS IN ASCII
  39. 390 JSR HEXCON
  40. 400 LDA $24
  41. 410 JSR HEXCON
  42. 420 JMP INCR
  43. 430 ;
  44. 440 U64 LDY BUF2;# OF BYTES IN ADDRESS
  45. 450 DEY
  46. 460 ;
  47. 470 U61 LDA ($FB),Y;PRINT TWO BYTE ADDRESS
  48. 480 JSR HEXCON
  49. 490 DEY
  50. 500 BNE U61
  51. 510 ;
  52. 520 CHKTYP LDA TYPE,X
  53. 530 CMP #$24
  54. 540 BCS U71
  55. 550 INC BUF0;# OF SPACES AFTER ADDRESS
  56. 560 INC BUF0;USED IN DIS-ASSEMBLER
  57. 570 BNE INCR
  58. 580 .FILE UNASSM7
  59.