home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / protokoll.src < prev    next >
Text File  |  1995-03-30  |  7KB  |  333 lines
  1.  
  2. ;=======================================
  3. ; BASIC-ZEILE MIT SYS-ADRESSE
  4. ;=======================================
  5.  
  6.              * = $0801 ;PROG.START
  7.  
  8.              .BYTE $0D,$08,$B2,$07
  9.              .BYTE $9E,$28,$32,$30
  10.              .BYTE $36,$35,$29,$00
  11.              .BYTE $00,$00,$EA,$EA
  12.              .BYTE $EA,$EA,$EA,$EA
  13.  
  14. ;=======================================
  15. ; INITIALISIERUNG
  16. ;=======================================
  17.  
  18. ;---------------------------------------
  19. ; KOPIEREN DES BASIC AUS DEM ROM INS RAM
  20. ;---------------------------------------
  21.  
  22.              VON1 = $A000
  23.              BIS1 = $C000
  24.  
  25.              LDA# <VON1
  26.              STA $FA
  27.              LDA# >VON1
  28.              STA $FB
  29.              LDA# <BIS1
  30.              STA $FC
  31.              LDA# >BIS1
  32.              STA $FD
  33.  
  34.              LDY# 0
  35.  
  36. KOP2         LDA ($FA),Y
  37.              STA ($FA),Y
  38.  
  39.              INC $FA
  40.              BNE KOP3
  41.              INC $FB
  42.  
  43. KOP3         LDX $FD
  44.              CPX $FB
  45.              BNE KOP2
  46.              LDX $FC
  47.              CPX $FA
  48.              BNE KOP2
  49.  
  50. ;---------------------------------------
  51. ; KERNAL AUS DEM ROM INS RAM
  52. ;---------------------------------------
  53.  
  54.              VON2 = $E000
  55.              BIS2 = $0000
  56.  
  57.              LDA# <VON2
  58.              STA $FA
  59.              LDA# >VON2
  60.              STA $FB
  61.              LDA# <BIS2
  62.              STA $FC
  63.              LDA# >BIS2
  64.              STA $FD
  65.  
  66.              LDY# 0
  67.  
  68. KOPB         LDA ($FA),Y
  69.              STA ($FA),Y
  70.  
  71.              INC $FA
  72.              BNE KOPC
  73.              INC $FB
  74.  
  75. KOPC         LDX $FD
  76.              CPX $FB
  77.              BNE KOPB
  78.              LDX $FC
  79.              CPX $FA
  80.              BNE KOPB
  81.  
  82. ;---------------------------------------
  83. ; VERLEGEN BIS ZIEL-1 NACH $E422
  84. ; KOPIEREN
  85. ;---------------------------------------
  86.  
  87. COP1         LDA# <VERLEGEN
  88.              STA $FA
  89.              LDA# >VERLEGEN
  90.              STA $FB
  91.              LDA# $22
  92.              STA $FC
  93.              LDA# $E4
  94.              STA $FD
  95.  
  96.              LDY# $00
  97.  
  98. COP2         LDA ($FA),Y
  99.              STA ($FC),Y
  100.  
  101.              INC $FC
  102.              BNE COP3
  103.              INC $FD
  104.  
  105. COP3         INC $FA
  106.              BNE COP4
  107.              INC $FB
  108.  
  109. COP4         LDX $FB
  110.              CPX# >ZIEL
  111.              BNE COP2
  112.              LDX $FA
  113.              CPX# <ZIEL
  114.              BNE COP2
  115.  
  116. ;---------------------------------------
  117. ; ZIEL BIS HILFE-1 NACH $E460
  118. ; KOPIEREN
  119. ;---------------------------------------
  120.  
  121. COPA         LDA# <ZIEL
  122.              STA $FA
  123.              LDA# >ZIEL
  124.              STA $FB
  125.              LDA# $60
  126.              STA $FC
  127.              LDA# $E4
  128.              STA $FD
  129.  
  130.              LDY# $00
  131.  
  132. COPB         LDA ($FA),Y
  133.              STA ($FC),Y
  134.  
  135.              INC $FC
  136.              BNE COPC
  137.              INC $FD
  138.  
  139. COPC         INC $FA
  140.              BNE COPD
  141.              INC $FB
  142.  
  143. COPD         LDX $FB
  144.              CPX# >HILFE
  145.              BNE COPB
  146.              LDX $FA
  147.              CPX# <HILFE
  148.              BNE COPB
  149.  
  150. ;---------------------------------------
  151. ; CHROUT BEI $E716 AUF ERWEITERUNG
  152. ; ZEIGEN LASSEN   (DRUCKER-AUSGABE)
  153. ;---------------------------------------
  154.  
  155. CHR1         LDA# $4C
  156.              LDX# $60   ; JMP $E460
  157.              LDY# $E4
  158.              STA $E716
  159.              STX $E717
  160.              STY $E718
  161.  
  162. ;---------------------------------------
  163. ; IRQ BEI $EA31 AUF ERWEITERUNG ZEIGEN
  164. ; LASSEN  (TASTEN-ABFRAGE)
  165. ;---------------------------------------
  166.  
  167. IRQ1
  168.              LDX# $25     ; JSR $E422+3
  169.              LDY# $E4
  170.  
  171.              STX $EA32
  172.              STY $EA33
  173.  
  174. ;---------------------------------------
  175. ; KONTROLLREGISTER AUF NULL SETZEN
  176. ;---------------------------------------
  177.  
  178. KON1         LDA# 0
  179.              STA $E445 ;KONTROLLE
  180.  
  181. ;---------------------------------------
  182. ; NEUES KERNEL EINSCHALTEN
  183. ;---------------------------------------
  184.  
  185. NEU          LDA# .53
  186.              STA $01
  187.  
  188. ;---------------------------------------
  189. ; TEXT AUSGEBEN
  190. ;---------------------------------------
  191.  
  192.              LDX# $00
  193. AUSGEBEN     LDA TEXT,X
  194.              BEQ AUSGEBEN1
  195.              JSR $FFD2 ;CHROUT
  196.              INX
  197.              BNE AUSGEBEN
  198.  
  199. AUSGEBEN1    RTS ;BASIC
  200.  
  201. ;=======================================
  202. ; HAUPTROUTINEN, DIE INS KERNAL
  203. ; KOPIERT WERDEN
  204. ;=======================================
  205.  
  206. ;---------------------------------------
  207. ; JMP $A644 DER AUSGABE-ROUTINE DER EIN-
  208. ; SCHALTMELDUNG VORVERLEGEN
  209. ;---------------------------------------
  210.  
  211. VERLEGEN     .BYTE $4C,$44,$A6
  212.  
  213. ;---------------------------------------
  214. ; IRQ-ABFRAGE
  215. ;---------------------------------------
  216.  
  217. SPRUNG       LDX $028D
  218.  
  219.              CPX# $07 ;SHIFT CTRL C=
  220.              BNE SPRUNG1
  221.  
  222.              INC $D021 ;HINTERGRUND
  223.              DEC $D021 ;BESTAETIGUNG
  224.  
  225.              CPX $E446 ;SPEICHER
  226.              BEQ SPRUNG1
  227.  
  228.              LDA $E445 ;KONTROLLE
  229.              EOR# $EA
  230.              STA $E445 ;KONTROLLE
  231.  
  232. SPRUNG1      STX $E446 ;SPEICHER
  233.  
  234.              JMP $FFEA ;IRQ WEITER
  235.  
  236. ;---------------------------------------
  237.  
  238. KONTROLLE    NOP
  239.  
  240. ;---------------------------------------
  241.  
  242. SPEICHER     NOP
  243.  
  244. ;---------------------------------------
  245. ; PROTOKOLL AUF DRUCKER
  246. ;---------------------------------------
  247.  
  248. ZIEL         PHA
  249.              LDA $E445 ;KONTROLLE
  250.              BEQ ZIEL1
  251.  
  252.              TXA
  253.              PHA
  254.              TYA
  255.              PHA
  256.              LDY# $01 ;GROSS/GRAFIK
  257.              LDA $D018
  258.              ROR
  259.              ROR
  260.              BCC GROSS
  261.              LDY# $07 ;GROSS/KLEIN
  262.  
  263. GROSS        LDA# $04
  264.              LDX# $04 ;DRUCKER
  265.              JSR $FFBA ;SETFLS
  266.              LDA# $00
  267.              JSR $FFBD ;SETNAM
  268.              JSR $FFC0 ;OPEN
  269.              BCS FEHLER ;FEHLERMELDUNG
  270.              LDX# 4 ;DRUCKER
  271.              JSR $FFC9 ;CHKOUT
  272.              PLA
  273.              TAY
  274.              PLA
  275.              TAX
  276.  
  277.              PLA
  278.              JSR $FFD2 ;CHROUT
  279.              PHA
  280.              TXA
  281.              PHA
  282.              TYA
  283.              PHA
  284.              LDA# 4
  285.              JSR $FFC3 ;CLOSE
  286.              LDA# $03 ;AUSGABEGERAET
  287.              STA $9A ;BILDSCHIRM
  288.  
  289. FEHLER       PLA
  290.              TAY
  291.              PLA
  292.              TAX
  293.  
  294. ZIEL1        PLA
  295.              PHA
  296.              STA $D7
  297.              JMP $E719 ;CHROUT WEITER
  298.  
  299. ;---------------------------------------
  300.  
  301. HILFE        NOP  ;KOPIERHILFE
  302.  
  303. ;---------------------------------------
  304.  
  305. TEXT     .BYTE $0D
  306.          .BYTE 'INITIALISIERUNG '
  307.          .BYTE 'BEENDET',$0D
  308.          .BYTE 'EIN- UND AUSSCHALTEN: '
  309.          .BYTE 'SHIFT + C= + CTRL',$0D
  310.          .BYTE 'NACH EINEM RESET MIT '
  311.          .BYTE 'POKE 1,53 WIEDER ',$0D
  312.          .BYTE 'AKTIVIERBAR!',$0D
  313.          .BYTE $0D,$00
  314.  
  315. .END
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.