Super-Side-Sektor laden

Einsprung von $A5C9:

A574: A6 50     LDX $50
A576: A9 FE     LDA #$FE         Super-Side-Sektor im Puffer ?
A578: DD 02 01  CMP $0102,X
A57B: D0 01     BNE $A57E        nein, ==>
A57D: 60        RTS              ja ==>

Einsprung von $A57B, $A4FD:

A57E: A9 80     LDA #$80         <-- Super-Side-Sektor lesen
A580: 2C         B $2C

Einsprung von $9CC4, $A513:

A581: A9 90     LDA #$90         <-- Super-Side-Sektor schreiben
A583: 48        PHA
A584: A6 50     LDX $50
A586: BD 10 01  LDA $0110,X      T&S holen
A589: 85 4D     STA $4D
A58B: BD 09 01  LDA $0109,X
A58E: 85 4E     STA $4E          (fuer den Fehlerfall vorsichts-
A590: A9 FF     LDA #$FF         halber) Flag: 'kein Side-Sektor
A592: 9D 02 01  STA $0102,X      geladen' setzen
A595: BD 65 02  LDA $0265,X
A598: 85 6C     STA $6C
A59A: 20 88 95  JSR $9588        T&S an DC uebergeben
A59D: 68        PLA
A59E: 20 E4 94  JSR $94E4        Job aufrufen
A5A1: A6 50     LDX $50
A5A3: A9 FE     LDA #$FE         $fe: Flag fuer
A5A5: 9D 02 01  STA $0102,X      'Super-Side-Sektor geladen'
A5A8: 60        RTS

    Previous Page / Next Page