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