home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Revealed_02_1993-11-01_Camelot.d64 / razsaver_prg < prev    next >
Text File  |  2023-02-26  |  2KB  |  126 lines
  1. razsave
  2.          sei
  3.          lda #$37
  4.          sta $01
  5.          lda #$2d
  6.          sta $0423
  7.          lda end
  8.          sta zp1
  9.          lda end+1
  10.          sta zp1+1
  11.          ldy #$05
  12.          jsr plotnum
  13.          ldy #$00
  14.          lda start
  15.          sta zp1
  16.          lda start+1
  17.          sta zp1+1
  18.          jsr plotnum
  19.          jsr plotfilenam
  20.          lda #$61
  21.          sta $b9
  22.          jsr $f3d5
  23.          lda $ba
  24.          jsr listen
  25.          lda $b9
  26.          jsr listensa
  27.          ldy #$00
  28.          lda zp1
  29.          jsr ciout
  30.          lda zp1+1
  31.          jsr ciout
  32. writter
  33.          lda zp1+1
  34.          cmp end+1
  35.          bne norm1
  36.          lda zp1
  37.          cmp end
  38.          beq rfinish
  39. norm1
  40.          jsr plotnum
  41.          sei
  42.          lda $01
  43.          pha
  44.          and #%11111000
  45.          sta $01
  46.          lda (zp1),y
  47.          tax
  48.          pla
  49.          sta $01
  50.          txa
  51.          jsr ciout
  52.          sei
  53.          clc
  54.          lda zp1
  55.          adc #$01
  56.          sta zp1
  57.          lda zp1+1
  58.          adc #$00
  59.          sta zp1+1
  60.          jmp writter
  61. rfinish
  62.          jsr plotnum
  63.          sei
  64.          lda $01
  65.          pha
  66.          and #%11111000
  67.          sta $01
  68.          lda (zp1),y
  69.          tax
  70.          pla
  71.          sta $01
  72.          txa
  73.          jsr ciout
  74.          sei
  75.          jsr unlisten
  76.          bit $b9
  77.          bmi razv1
  78.          lda $ba
  79.          jsr listen
  80.          lda $b9
  81.          and #$ef
  82.          ora #$e0
  83.          jsr listensa
  84.          jsr unlisten
  85. razv1
  86.          clc
  87.          rts
  88. plotnum
  89.          lda zp1
  90.          and #$0f
  91.          tax
  92.          lda hextab,x
  93.          sta $0400+$22,y
  94.          lda zp1
  95.          lsr a
  96.          lsr a
  97.          lsr a
  98.          lsr a
  99.          tax
  100.          lda hextab,x
  101.          sta $0400+$21,y
  102.          lda zp1+1
  103.          and #$0f
  104.          tax
  105.          lda hextab,x
  106.          sta $0400+$20,y
  107.          lda zp1+1
  108.          lsr a
  109.          lsr a
  110.          lsr a
  111.          lsr a
  112.          tax
  113.          lda hextab,x
  114.          sta $0400+$1f,y
  115.          rts
  116. plotfilenam
  117.          ldy filel
  118. razloop1
  119.          lda filename,y
  120.          sta $0400,y
  121.          dey
  122.          bpl razloop1
  123.          rts
  124.  
  125.  
  126.