home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-04_2000_CSW_Side_A.d64 / badline-test.src < prev    next >
Text File  |  2023-02-26  |  2KB  |  105 lines
  1.  
  2.  
  3.               org $0801
  4.  
  5.  
  6.  
  7.               adr $080b, 64
  8.  
  9.               byt $9e,"2061",0,0,0
  10.  
  11.  
  12.  
  13. result1       = $fb
  14.  
  15. result2       = $fc
  16.  
  17.  
  18.  
  19. jmp_in:
  20.  
  21.               jsr $e544
  22.  
  23.               lda #lo(text)
  24.  
  25.               ldy #hi(text)
  26.  
  27.               jsr $ab1e
  28.  
  29.               sei
  30.  
  31.               lda #$35
  32.  
  33.               sta $01
  34.  
  35.               lda #$60
  36.  
  37.               sta $d000
  38.  
  39.               sta $d001
  40.  
  41.               lda #1
  42.  
  43.               sta $d027
  44.  
  45.               sta $d015
  46.  
  47.               lda #$7f
  48.  
  49.               sta $dc0d
  50.  
  51.               lda $dc0d
  52.  
  53.               lda #1
  54.  
  55.               sta $d01a
  56.  
  57.               lda #lo(irq1)
  58.  
  59.               sta $fffe
  60.  
  61.               lda #hi(irq1)
  62.  
  63.               sta $ffff
  64.  
  65.               lda #$1b
  66.  
  67.               sta $d011
  68.  
  69.               lda #$64
  70.  
  71.               sta $d012
  72.  
  73.               ldx #0
  74.  
  75.               lda #$63
  76.  
  77.               cmp $d012
  78.  
  79.               bne *-3
  80.  
  81.               cli
  82.  
  83. endless:
  84.  
  85.               nop
  86.  
  87.               nop
  88.  
  89.               inx
  90.  
  91.               jmp endless
  92.  
  93.  
  94.  
  95. irq1:
  96.  
  97.               stx result1
  98.  
  99.               lda #1
  100.  
  101.               sta $d019
  102.  
  103.               lda #lo(irq2)
  104.  
  105.               sta $fffe
  106.  
  107.               lda #$67
  108.  
  109.               sta $d012
  110.  
  111.               ldx #0
  112.  
  113.               lda #$66
  114.  
  115.               cmp $d012
  116.  
  117.               bne *-3
  118.  
  119.               rti
  120.  
  121.  
  122.  
  123. irq2:
  124.  
  125.               stx result2
  126.  
  127.               lda result1
  128.  
  129.               ldx #9
  130.  
  131.               jsr hexout
  132.  
  133.               lda result2
  134.  
  135.               ldx #92
  136.  
  137.               jsr hexout
  138.  
  139.               lda #1
  140.  
  141.               sta $d019
  142.  
  143.               lda #lo(irq1)
  144.  
  145.               sta $fffe
  146.  
  147.               lda #$64
  148.  
  149.               sta $d012
  150.  
  151.               ldx #0
  152.  
  153.               lda #$63
  154.  
  155.               cmp $d012
  156.  
  157.               bne *-3
  158.  
  159.               rti
  160.  
  161.  
  162.  
  163. hexout:
  164.  
  165.               pha
  166.  
  167.               lsr
  168.  
  169.               lsr
  170.  
  171.               lsr
  172.  
  173.               lsr
  174.  
  175.               jsr hexout2
  176.  
  177.               pla
  178.  
  179.               and #$0f
  180.  
  181. hexout2:
  182.  
  183.               clc
  184.  
  185.               adc #$30
  186.  
  187.               cmp #$3a
  188.  
  189.               bcc hexout_l1
  190.  
  191.               sbc #$39
  192.  
  193. hexout_l1:
  194.  
  195.               sta $0400,x
  196.  
  197.               inx
  198.  
  199.               rts
  200.  
  201.  
  202.  
  203. text:
  204.  
  205.               byt "badline:",$0d,$0d,"no badline:",0
  206.  
  207.  
  208.  
  209.