Advertisement
yugorin

Art Studio bitmap display asm C64

Oct 13th, 2016
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. :BasicUpstart2(main)
  2.  
  3. .var _useBinFolderForBreakpoints = cmdLineVars.get("usebin") == "true"
  4.  
  5. .var _createDebugFiles = cmdLineVars.get("afo") == "true"
  6.  
  7. .print "File creation " + [_createDebugFiles
  8.     ? "enabled (creating breakpoint file)"
  9.     : "disabled (no breakpoint file created)"]
  10.  
  11. .var brkFile
  12.  
  13. .if(_createDebugFiles) {
  14.     .if(_useBinFolderForBreakpoints)
  15.         .eval brkFile = createFile("bin/breakpoints.txt")
  16.     else
  17.         .eval brkFile = createFile("breakpoints.txt")
  18. }
  19.  
  20. .macro break() {
  21. .if(_createDebugFiles) {
  22.     .eval brkFile.writeln("break " + toHexString(*))
  23.     }
  24. }
  25.  
  26. main:      
  27.  
  28.      lda $d011
  29.      ora #%00100000    
  30.      sta $d011        
  31.  
  32.  
  33.     lda $d016
  34.     ora #%00011000
  35.     sta $d016
  36.  
  37.  
  38.         lda $d018
  39.         ora #%00011000
  40.         sta $d018
  41.  
  42.    
  43. ldx #$00   
  44. loop:
  45. lda $2000
  46. sta $0400,x
  47. lda $2000+256
  48. sta $0500,x
  49. lda $2000+512
  50. sta $0600,x
  51. lda $2000+768
  52. sta $0700,x
  53.  
  54.  
  55. lda $3f40,x
  56. sta $d800,x
  57. lda $3f40+256,x
  58. sta $d900,x
  59. lda $3f40+512,x
  60. sta $da00,x
  61. lda $3f40+768,x
  62. sta $db00,x
  63.  
  64. inx
  65. bne loop
  66.  
  67.  
  68. jmp *
  69.  
  70. *= $2000-2
  71. .import binary "smrlogo.art"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement