home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISASSEMB.ARC / UNOP3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  491 b   |  27 lines
  1. 50 SETADD CPY $24;# OF BYTES IN BEGIN & END ADDRESSES
  2. 60 BCS ST
  3. 70 INY
  4. 80 LDA ADDBUF,Y;GET THE COMMAND D P OR X
  5. 90 CMP #$20
  6. 100 BEQ SETADD
  7. 110 CMP #$2C; COMMA
  8. 120 BEQ SETADD
  9. 130 CMP #$30;ZERO
  10. 140 BCC ST;# < 0
  11. 150 CMP #$3A
  12. 160 BCS U32;# > 9
  13. 170 SBC #$2F;BECOMES REAL #, #$31 - #$2F = #$01
  14. 180 U32 CMP #$41
  15. 190 BCC U33; A OR >
  16. 200 SBC #$37
  17. 210 U33 CMP #$10
  18. 220 BCS ST;# > G
  19. 230 RTS
  20. 240 HEX LDA $22;CHANGE # TO HEX
  21. 250 ASL:ASL:ASL:ASL
  22. 260 STA $22
  23. 270 LDA $23
  24. 280 ORA $22
  25. 290 RTS
  26. 300 .FILE UNOP4
  27.