Plus/4 Kernal Disassembly $c99c-$c9c9
Suche
Index
FAQ
Kontakt
Zurück
; $C99C: SCRATCH
SCRATCH:jsr     LCB1F        ; process DOS command
        jsr     LCCAF        ; syntax check
        jsr     AYSURE       ; "Are you shure ?"
        bne     LC996        ; no, end 
        ldy     #$0F         ; get table-offset        
        jsr     BCMD         ; process DOS command          
        jsr     LCCCF        ; get status 
        bit     $81          ; direct mode ?
        bmi     LC996        ;
        lda     #$0D
        jsr     BSOUT        ; print cr  
        ldy     #$00         ; fetch address ..
LC9BA:  lda     #$7A         ; .. of DS$ 
        jsr     L0494        ; get message char
        beq     LC9C7        ; end marker ? 
        jsr     BSOUT        ; print char 
        iny      
        bne     LC9BA        ; get whole message  
LC9C7:  lda     #$0D          
        jmp     BSOUT        ; print cr

 

Letzte Änderung: 2019-01-06 09:50:31
  Rubrik:  C16
Rubriken-Übersicht
 155 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!