Guest User

Untitled

a guest
Jun 21st, 2012
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.10 KB | None | 0 0
  1. ; da65 V2.13.3 - (C) Copyright 2000-2009, Ullrich von Bassewitz
  2. ; Created: 2012-06-21 01:09:19
  3. ; Input file: test.img
  4. ; Page: 1
  5.  
  6.  
  7. .setcpu "65C02"
  8.  
  9. L050F := $050F
  10. L0512 := $0512
  11. L051C := $051C
  12. L051F := $051F
  13. L0522 := $0522
  14. L052A := $052A
  15. L053D := $053D
  16. L0558 := $0558
  17. L055F := $055F
  18. L0568 := $0568
  19. L058D := $058D
  20. ldx #$FF
  21. txs
  22. cld
  23. lda #$00
  24. sta $00
  25. lda #$FF
  26. sta $01
  27. jsr L0512
  28. jmp L050F
  29. jsr L055F
  30. ldx #$00
  31. lda #$23
  32. sta $0310
  33. jmp L0522
  34. jmp L051C
  35. ldx #$00
  36. lda #$20
  37. ldy #$00
  38. sta ($00),y
  39. ldy #$00
  40. ldx #$00
  41. lda ($00),y
  42. cmp #$80
  43. jsr L058D
  44. beq LFF9A
  45. jmp L053D
  46. LFF9A: jmp L0558
  47. ldy #$00
  48. ldx #$00
  49. lda ($00),y
  50. sta $0310
  51. ldy #$00
  52. ldx #$00
  53. lda ($00),y
  54. pha
  55. clc
  56. adc #$01
  57. ldy #$00
  58. sta ($00),y
  59. pla
  60. jmp L052A
  61. jmp L051F
  62. jsr L0568
  63. rts
  64. ldy $00
  65. bne LFFC5
  66. dec $01
  67. LFFC5: dec $00
  68. rts
  69. inc $00
  70. bne LFFCE
  71. inc $01
  72. LFFCE: rts
  73. bne LFFFB
  74. ldx #$00
  75. txa
  76. rts
  77. beq LFFFB
  78. ldx #$00
  79. txa
  80. rts
  81. beq LFFFB
  82. bmi LFFFB
  83. ldx #$00
  84. txa
  85. rts
  86. beq LFFE7
  87. bpl LFFFB
  88. LFFE7: ldx #$00
  89. txa
  90. rts
  91. beq LFFFB
  92. bcc LFFFB
  93. ldx #$00
  94. txa
  95. rts
  96. beq LFFF7
  97. bcs LFFFB
  98. LFFF7: ldx #$00
  99. txa
  100. rts
  101. LFFFB: ldx #$00
  102. lda #$01
  103. rts
Advertisement
Add Comment
Please, Sign In to add comment