home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / autos.assembler (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.3 KB  |  105 lines
  1. 100 SYS9*4096 : .OPT OO
  2. 101 *=49152
  3. 102 ;
  4. 103 ;
  5. 104 ;
  6. 105 ;##############################
  7. 106 ;* * *  P - BASIC - V2.   * * *
  8. 107 ;##############################
  9. 108 ;
  10. 109 ; ****************************
  11. 110 ;*GESCHRIEBEN1984VON*
  12. 111 ;**
  13. 112 ;*JANKUSCH(J-KSOFT)*
  14. 113 ;**
  15. 114 ; ****************************
  16. 115 ;
  17. 116 ;
  18. 117 ;##############################
  19. 118 ;####### VEKTORSETZUNG ########
  20. 119 ;##############################
  21. 120 ;
  22. 121 LDA #<ERKENNUNG   : STA $0308
  23. 122 LDA #>ERKENNUNG   : STA $0309
  24. 123 ;
  25. 124 LDA #<DATAS       : LDY #>DATAS
  26. 125 JMP $AB1E
  27. 126 ;
  28. 127 ;
  29. 128 ;##############################
  30. 129 ;######### ERKENNUNG ##########
  31. 130 ;##############################
  32. 131 ERKENNUNG JSR $0073 : CMP BEFEHL
  33. 132 BEQ ENTSCHEIDUNG
  34. 133 JMP $A7E7
  35. 134 ;
  36. 135 ENTSCHEIDUNG JSR $0073
  37. 136 CMP #147   : BEQ LOAD
  38. 137 CMP #148   : BEQ SAVE
  39. 138 CMP #162   : BEQ NEW1
  40. 139 JMP $AF08
  41. 140 ;
  42. 141 NEW1         JMP NEW
  43. 142 ;
  44. 143 ;
  45. 144 ;##############################
  46. 145 ;########### DATAS ############
  47. 146 ;##############################
  48. 147 DATAS .ASC "[147][144] [208]-[194]ASIC-[214]2.  "
  49. 148 .BYTE 13 : .ASC "[195]-64 & [214][195]-1541"
  50. 149 .BYTE 13 : .ASC "[195]OPYRIGHT (C)"
  51. 150 .BYTE 9,14,8,0
  52. 151 ;
  53. 152 ;##############################
  54. 153 ;######## BEFEHL .LOAD ########
  55. 154 ;##############################
  56. 155 LOAD LDA #0 : STA $9D
  57. 156 JSR $0073   : JSR $E1D4
  58. 157 LDA #00     : LDX $2B  : LDY $2C
  59. 158 STA $0A     : JSR $FFD5
  60. 159 STX $2D     : STY $2E
  61. 160 JMP NEW
  62. 161 ;
  63. 162 ;##############################
  64. 163 ;####### BEFEHL .SAVE #########
  65. 164 ;##############################
  66. 165 SAVE LDA #00
  67. 166 STA $9D     : JSR $0073 : JSR $E1D4
  68. 167 ;
  69. 168 LDX #00
  70. 169 VERSCHIEBUNG  LDA ROUTINE,X
  71. 170 STA $0340,X : INX
  72. 171 CMP #$FF    : BNE VERSCHIEBUNG
  73. 172 ;
  74. 173 LDA #<806   : STA $2B
  75. 174 LDA #>806   : STA $2C
  76. 175 LDA #<832   : STA 804   : STA 806
  77. 176 LDA #>832   : STA 805   : STA 807
  78. 177 ;
  79. 178 JSR $E544   : JSR $E159
  80. 179 ;
  81. 180 NEW LDA #1  : STA $2B
  82. 181 LDA #8      : STA $2C
  83. 182 LDA #$57    : STA 804
  84. 183 LDA #$F1    : STA 805   : STA 807
  85. 184 LDA #$CA    : STA 806
  86. 185 LDA #237    : STA 808
  87. 186 LDA #0      : STA 198   : JMP $A831
  88. 187 ;
  89. 188 ;
  90. 189 ;******* STEUERROUTIENE *******
  91. 190 ;
  92. 191 ROUTINE LDA #1 : STA $2B
  93. 192 LDA #8         : STA $2C
  94. 193 LDA #$57       : STA 804
  95. 194 LDA #$F1       : STA 805 : STA 807
  96. 195 LDA #$CA       : STA 806
  97. 196 LDA #225       : STA 808
  98. 197 ;
  99. 198 JSR $A659      : JMP $A7AE
  100. 199 ;
  101. 200 .BYTE $FF
  102. 201 ;
  103. 202 BEFEHL .BYTE "!"
  104. 203 ;
  105.