You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

romsf.src 2.0KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
  1. *=rom
  2. cchksm .byte $97
  3. adjsm .byte $46
  4. ;
  5. jclear lda pcr2 ; enable write
  6. and #$ff-$e0
  7. ora #$c0
  8. sta pcr2
  9. ;
  10. lda #$ff ; make port an output
  11. sta ddra2
  12. ;
  13. lda #$55 ; write a 1f pattern
  14. sta data2
  15. ;
  16. ldx #$03 ; $03*256 chars
  17. ldy #00
  18. 1$ bvc *
  19. clv
  20. dey
  21. bne 1$
  22. ;
  23. dex
  24. bne 1$
  25. ;
  26. rts
  27. ;
  28. ;
  29. ;############################################################################
  30. ;######################### $00C0 PATCH AREA ###########################
  31. ;############################################################################
  32. ;
  33. freec0 ; $C0 patch area
  34. ;------------------------------------------------------
  35. ; patch 25 GCB 11/20/86 block read fix
  36. ptch25 ldy lindx
  37. jmp rndget
  38. ;------------------------------------------------------
  39. ; patch 26 GCB 11/20/86 write to stack area bug
  40. ptch26 sta nbkl,x ;didn't we just do this??
  41. sta nbkh,x
  42. lda #0
  43. sta lstchr,x
  44. rts
  45. ;------------------------------------------------------
  46. ; patch27 GCB 11/20/86 set decimal mode without disablind IRQ's
  47. ptch27 php
  48. sei
  49. lda #0
  50. sed
  51. 1$ cpx #0
  52. beq 2$
  53. clc
  54. adc #1
  55. dex
  56. jmp 1$
  57. 2$ plp
  58. jmp hex5
  59. ;-------------------------------------------------------
  60. ; ptch28 GCB 11/20/86 disk full bug
  61. ptch28 cmp #3
  62. bcs 1$
  63. lda #dskful
  64. jsr errmsg
  65. 1$ lda #1
  66. rts
  67. ;--------------------------------------------------------------
  68. ; new track table to allow controller to access 40 tracks correctly
  69. fourty_trk_num
  70. .byte $29,$1f,$19,$12
  71. ;--------------------------------------------------------------
  72. ; add copyright notice for legal types
  73. .byte 'COPYRIGHT (C)1985 COMMODORE ELECTRONICS, LTD.',$0d
  74. .byte 'ALL RIGHTS RESERVED',$0d
  75. ;--------------------------------------------------------------
  76. ;
  77. ;############################################################################
  78. ;
  79. ;
  80. *=$C100
  81. ; .end