
Apple II Computer Info
BRL Speed
BRL Speed
DA 0 ;= ID of transient commands
ASC 'MERLIN' ;= ID of special EXE file
*========================================
* End of optional structure for EXE file.
*----------------------------------------
Speed PHK
PLB
TSC
STA STACKPNT
TYA
CLC
ADC #8 ;Bypass the "MERLINGS"
STA PNT ; identifier - it is not
TXA ; checked for in this
ADC #0 ; example
STA PNT+2
lda #$8d
jsr OUTPUT
jsr RtnSpcs
print "SPEED shell command by Greg A. DaCosta"
jsr RtnSpcs
print "Copyright 1989, Desert Sun Software"
SEP %00110000
LDY #0
]LOOP LDX #0 ;Look for "SPEED" in order
PHY ; to align index to the
]LUP LDA [PNT],Y ; following part of cmd.
BEQ :EX ;Something wrong if taken
AND #%01011111
CMP cmdWORD+1,X
BEQ :NX
PLY
INY
BRA ]LOOP
:NX INX
INY
CPX #5 ;all letters?
BLT ]LUP
PLA ;Pop pushed Y
DEY
]LUP INY
LDA [PNT],Y
AND #$7F ;Not needed
BEQ :EX ;Nothing after "SPEED" so
CMP #'*' ; do nothing.
BLT ]LUP ;Bypass delimiter & spaces
LDX #0
]LUP LDA [PNT],Y
Apple II Computer Technical Information : Apple II Family Hardware Info
ftp://ground.ecn.uiowa.edu/2/apple2/miscinfo/hardware : May 2001 : 527 of 572
Comentários a estes Manuais