2016-08-30 20:26:19 +00:00
|
|
|
|
PR#3
|
|
|
|
|
PREFIX /A2OSX.SRC
|
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2016-08-31 15:38:48 +00:00
|
|
|
|
* https://www.cise.ufl.edu/~cop4600/cgi-bin/lxr/http/source.cgi/lib/ansi/gmtime.c
|
2016-08-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
2016-08-31 15:38:48 +00:00
|
|
|
|
SECSDAY .EQ 86400 60*60*24
|
|
|
|
|
CENTURY0 .EQ 19
|
|
|
|
|
YEAR0 .EQ 70
|
|
|
|
|
DAY0 .EQ 4 day 0 was a thursday
|
2016-08-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* S.CTime2Time
|
|
|
|
|
* In :
|
|
|
|
|
* PULLW = Src CTIME DWORD
|
|
|
|
|
* PULLW = Dst PTR To S.TIME
|
|
|
|
|
*--------------------------------------
|
2016-08-31 15:38:48 +00:00
|
|
|
|
S.CTime2Time >PULLW ZPQuickPtr1
|
|
|
|
|
>PULLW ZPQuickPtr2
|
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPQuickPtr1),y
|
|
|
|
|
sta S.CTime.DWORD,y
|
|
|
|
|
dey
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
stz S.CTime.DivDay
|
|
|
|
|
stz S.CTime.DivDay+1
|
|
|
|
|
|
|
|
|
|
.2 lda S.CTime.DWORD
|
|
|
|
|
sta S.CTime.ModDay
|
|
|
|
|
sec
|
|
|
|
|
sbc #SECSDAY
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.DWORD+1
|
|
|
|
|
sta S.CTime.ModDay+1
|
|
|
|
|
sbc /SECSDAY
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.DWORD+2
|
|
|
|
|
sta S.CTime.ModDay+2
|
|
|
|
|
sbc #0
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.DWORD+3
|
|
|
|
|
sbc #0
|
|
|
|
|
bcc .3 end of DIV/MOD ?
|
|
|
|
|
|
|
|
|
|
sta S.CTime.DWORD+3
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.DWORD+2
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.DWORD+1
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.DWORD
|
|
|
|
|
|
|
|
|
|
inc S.CTime.DivDay
|
|
|
|
|
bne .2
|
|
|
|
|
inc S.CTime.DivDay+1
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
.3 pla
|
|
|
|
|
pla
|
|
|
|
|
pla
|
|
|
|
|
stz S.CTime.Div60
|
|
|
|
|
stz S.CTime.Div60+1
|
|
|
|
|
|
|
|
|
|
.4 lda S.CTime.ModDay
|
|
|
|
|
sta S.CTime.Mod
|
|
|
|
|
sec
|
|
|
|
|
sbc #60
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.ModDay+1
|
|
|
|
|
sbc #0
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.ModDay+2
|
|
|
|
|
sbc #0
|
|
|
|
|
|
|
|
|
|
bcc .5
|
|
|
|
|
|
|
|
|
|
sta S.CTime.ModDay+2
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.ModDay+1
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.ModDay
|
|
|
|
|
|
|
|
|
|
inc S.CTime.Div60
|
|
|
|
|
bne .4
|
|
|
|
|
inc S.CTime.Div60+1
|
|
|
|
|
bne .4
|
|
|
|
|
|
|
|
|
|
.5 pla
|
|
|
|
|
pla
|
|
|
|
|
lda S.CTime.Mod
|
|
|
|
|
ldy #S.TIME.SECOND
|
|
|
|
|
sta (ZPQuickPtr2),y
|
|
|
|
|
|
|
|
|
|
stz S.CTime.Div3600
|
|
|
|
|
|
|
|
|
|
.6 lda S.CTime.Div60
|
|
|
|
|
sta S.CTime.Mod
|
|
|
|
|
sec
|
|
|
|
|
sbc #60
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda S.CTime.Div60+1
|
|
|
|
|
sbc #0
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
bcc .7
|
|
|
|
|
|
|
|
|
|
sta S.CTime.Div60+1
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.Div60
|
|
|
|
|
|
|
|
|
|
inc S.CTime.Div3600
|
|
|
|
|
bne .6
|
|
|
|
|
|
|
|
|
|
.7 pla
|
|
|
|
|
|
|
|
|
|
lda S.CTime.Mod
|
|
|
|
|
dey ldy #S.TIME.MINUTE
|
|
|
|
|
sta (ZPQuickPtr2),y
|
|
|
|
|
|
|
|
|
|
lda S.CTime.Div3600
|
|
|
|
|
dey ldy #S.TIME.HOUR
|
|
|
|
|
sta (ZPQuickPtr2),y
|
|
|
|
|
|
|
|
|
|
lda S.CTime.DivDay WDAY computation : (DivDay + DAY0) mod 7
|
2016-08-30 20:26:19 +00:00
|
|
|
|
clc
|
2016-08-31 15:38:48 +00:00
|
|
|
|
adc #DAY0
|
|
|
|
|
pha
|
|
|
|
|
lda S.CTime.DivDay+1
|
|
|
|
|
adc /DAY0
|
|
|
|
|
eor #$ff
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
.8 sta S.CTime.Mod
|
|
|
|
|
sec
|
|
|
|
|
sbc #7
|
|
|
|
|
bcs .8
|
|
|
|
|
inx
|
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
lda S.CTime.Mod
|
|
|
|
|
ldy #S.TIME.WDAY
|
|
|
|
|
sta (ZPQuickPtr2),y
|
|
|
|
|
|
|
|
|
|
lda #CENTURY0
|
|
|
|
|
sta S.CTime.Century
|
|
|
|
|
lda #YEAR0
|
|
|
|
|
sta S.CTime.Year
|
2016-09-02 06:09:44 +00:00
|
|
|
|
|
|
|
|
|
S.CTime2Time.Year
|
|
|
|
|
.1 ldy S.CTime.Century
|
2016-09-01 05:42:28 +00:00
|
|
|
|
lda S.CTime.Year
|
|
|
|
|
jsr S.IsLeapYearYA if Leap year CC
|
|
|
|
|
lda S.CTime.DivDay
|
|
|
|
|
sbc #365
|
|
|
|
|
pha
|
|
|
|
|
lda S.CTime.DivDay+1
|
|
|
|
|
sbc /365
|
2016-09-02 06:09:44 +00:00
|
|
|
|
bcc .2
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
2016-09-01 05:42:28 +00:00
|
|
|
|
sta S.CTime.DivDay+1
|
|
|
|
|
pla
|
|
|
|
|
sta S.CTime.DivDay
|
|
|
|
|
|
|
|
|
|
inc S.CTime.Year
|
|
|
|
|
lda S.CTime.Year
|
|
|
|
|
cmp #100
|
2016-09-02 06:09:44 +00:00
|
|
|
|
bne .1
|
2016-09-01 05:42:28 +00:00
|
|
|
|
stz S.CTime.Year
|
|
|
|
|
inc S.CTime.Century
|
2016-09-02 06:09:44 +00:00
|
|
|
|
bne .1
|
2016-09-01 05:42:28 +00:00
|
|
|
|
|
2016-09-02 06:09:44 +00:00
|
|
|
|
.2 pla
|
2016-09-01 05:42:28 +00:00
|
|
|
|
lda S.CTime.Century
|
|
|
|
|
* ldy #S.TIME.CENTURY
|
|
|
|
|
sta (ZPQuickPtr2)
|
|
|
|
|
ldy #S.TIME.YEAR
|
|
|
|
|
lda S.CTime.Year
|
|
|
|
|
sta (ZPQuickPtr2),y
|
|
|
|
|
|
2016-09-02 06:09:44 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
2016-09-01 05:42:28 +00:00
|
|
|
|
*--------------------------------------
|
2016-08-31 15:38:48 +00:00
|
|
|
|
S.CTime.DWORD .BS 4
|
|
|
|
|
S.CTime.DivDay .BS 2
|
|
|
|
|
S.CTime.ModDay .BS 3
|
|
|
|
|
S.CTime.Div60 .BS 2
|
|
|
|
|
S.CTime.Div3600 .BS 1
|
|
|
|
|
S.CTime.Mod .BS 1
|
|
|
|
|
S.CTime.Century .BS 1
|
|
|
|
|
S.CTime.Year .BS 1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* S.TimeYA get System Time
|
|
|
|
|
* In :
|
|
|
|
|
* Y,A = PTR to S.TIME
|
|
|
|
|
* Out :
|
|
|
|
|
* S.TIME filled with ProDOS MLI date/time
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.TimeYA >STYA ZPQuickPtr2
|
|
|
|
|
>MLICALL MLIGETTIME
|
|
|
|
|
>LDYAI DATELO
|
|
|
|
|
>STYA ZPQuickPtr1
|
|
|
|
|
bra S.PTime2Time.1
|
2016-08-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* In :
|
2016-08-31 15:38:48 +00:00
|
|
|
|
* PULLW = Src PDATE/TIME (DWORD)
|
2016-08-30 20:26:19 +00:00
|
|
|
|
* PULLW = Dst PTR To S.TIME
|
|
|
|
|
*--------------------------------------
|
2016-08-31 15:38:48 +00:00
|
|
|
|
S.PTime2Time >PULLW ZPQuickPtr1
|
|
|
|
|
>PULLW ZPQuickPtr2
|
|
|
|
|
|
|
|
|
|
S.PTime2Time.1 lda (ZPQuickPtr1) Get Year
|
|
|
|
|
lsr C is high bit of month
|
|
|
|
|
ldy #S.TIME.YEAR
|
|
|
|
|
sta (ZPQuickPtr2),y set year
|
|
|
|
|
pla save it for century adjust
|
|
|
|
|
|
|
|
|
|
ldy #1
|
|
|
|
|
lda (ZPQuickPtr1),y Get Month/day
|
|
|
|
|
pha save Day
|
|
|
|
|
ror
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
ldy #S.TIME.MONTH
|
|
|
|
|
sta (ZPQuickPtr2),y set month
|
|
|
|
|
|
|
|
|
|
pla get back day
|
|
|
|
|
and #$1F
|
|
|
|
|
iny
|
|
|
|
|
sta (ZPQuickPtr2),y set day
|
|
|
|
|
|
|
|
|
|
pla get back year
|
|
|
|
|
|
|
|
|
|
cmp #70 if before 70's CC
|
|
|
|
|
lda #19
|
|
|
|
|
adc #0 set date before 1970 -> 20xx
|
|
|
|
|
sta (ZPQuickPtr2) set Century
|
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
lda (ZPQuickPtr1),y Get Min
|
|
|
|
|
tax
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPQuickPtr1),y Get Hour
|
|
|
|
|
|
|
|
|
|
ldy #S.TIME.HOUR
|
|
|
|
|
sta (ZPQuickPtr2),y set hour
|
|
|
|
|
iny
|
|
|
|
|
txa
|
|
|
|
|
sta (ZPQuickPtr2),y set min
|
|
|
|
|
iny
|
|
|
|
|
lda #0
|
|
|
|
|
sta (ZPQuickPtr2),y set seconds (ProDOS does not provide it)
|
|
|
|
|
|
|
|
|
|
S.ComputeWDAY
|
|
|
|
|
|
|
|
|
|
|
2016-08-30 20:26:19 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* S.StrFTime
|
|
|
|
|
* In :
|
|
|
|
|
* PULLW = Src PTR To S.TIME
|
|
|
|
|
* PULLW = Src PTR To Format String
|
2016-09-05 06:10:04 +00:00
|
|
|
|
* PULLW = Dst PTR To PSTR Buf
|
2016-08-30 20:26:19 +00:00
|
|
|
|
* %a Abbreviated weekday name : Thu
|
|
|
|
|
* %A Full weekday name : Thursday
|
|
|
|
|
* %b Abbreviated month name : Aug
|
|
|
|
|
* %B Full month name : August
|
|
|
|
|
* %d Day of the month, zero-padded (01-31)
|
|
|
|
|
* %H Hour in 24h format (00-23) 14
|
|
|
|
|
* %I Hour in 12h format (01-12) 02
|
|
|
|
|
* %m Month as a decimal number (01-12) 08
|
|
|
|
|
* %M Minute (00-59) 55
|
|
|
|
|
* %p AM or PM designation PM
|
|
|
|
|
* %S Second (00-61) 02
|
|
|
|
|
* %w Weekday as a decimal number with Sunday as 0 (0-6)
|
|
|
|
|
* %y Year, last two digits (00-99)
|
|
|
|
|
* %Y Year four digits 2001
|
|
|
|
|
* PULLW = Dst PSTR Buffer
|
|
|
|
|
*--------------------------------------
|
2016-09-05 06:10:04 +00:00
|
|
|
|
S.StrFTime >PULLW ZPQuickPtr1
|
|
|
|
|
>PULLW ZPQuickPtr2
|
|
|
|
|
>PULLW S.StrFTime.addChar+1
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
.1 iny
|
|
|
|
|
lda (ZPQuickPtr2),y
|
|
|
|
|
cmp #'%'
|
|
|
|
|
beq .2
|
|
|
|
|
jsr S.StrFTime.addChar
|
|
|
|
|
.10 tya
|
|
|
|
|
cmp (ZPQuickPtr2)
|
|
|
|
|
bne .1
|
2016-08-30 20:26:19 +00:00
|
|
|
|
rts
|
2016-09-05 06:10:04 +00:00
|
|
|
|
|
|
|
|
|
.2 tya
|
|
|
|
|
cmp (ZPQuickPtr2)
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
ldx #S.StrFTime.jmp-S.StrFTime.Table
|
|
|
|
|
|
|
|
|
|
.3 lda (ZPQuickPtr2),y
|
|
|
|
|
cmp S.StrFTime.Table-1,x
|
|
|
|
|
beq .4
|
|
|
|
|
dex
|
|
|
|
|
bne .3
|
|
|
|
|
beq .10
|
|
|
|
|
|
|
|
|
|
.4 lda S.StrFTime.JMPL,x
|
|
|
|
|
sta .5+1
|
|
|
|
|
lda S.StrFTime.JMPH,x
|
|
|
|
|
sta .5+2
|
|
|
|
|
phy
|
|
|
|
|
.5 jsr $ffff
|
|
|
|
|
ply
|
|
|
|
|
bra .10
|
|
|
|
|
|
|
|
|
|
.8 rts
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.StrFTime.A
|
|
|
|
|
S.StrFTime.AA
|
|
|
|
|
S.StrFTime.B
|
|
|
|
|
S.StrFTime.BB
|
|
|
|
|
S.StrFTime.D ldy #S.TIME.DAY
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.HH ldy #S.TIME.HOUR
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.II
|
|
|
|
|
S.StrFTime.M ldy #S.TIME.MONTH
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.MM ldy #S.TIME.MINUTE
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.P
|
|
|
|
|
S.StrFTime.SS ldy #S.TIME.SECOND
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.W
|
|
|
|
|
S.StrFTime.YY ldy #S.TIME.CENTURY
|
|
|
|
|
jsr S.StrFTime.addDecPtr1Y
|
|
|
|
|
S.StrFTime.Y ldy #S.TIME.YEAR
|
|
|
|
|
bra S.StrFTime.addDecPtr1Y
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.StrFTime.addDecPtr1Y
|
|
|
|
|
lda (ZPQuickPtr1),y
|
|
|
|
|
S.StrFTime.addDecA
|
|
|
|
|
pha
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
lsr
|
|
|
|
|
ora #$30
|
|
|
|
|
jsr S.StrFTime.addChar
|
|
|
|
|
pla
|
|
|
|
|
and #$0f
|
|
|
|
|
ora #$30
|
|
|
|
|
S.StrFTime.addChar
|
|
|
|
|
sta $ffff
|
|
|
|
|
inc S.StrFTime.addChar+1
|
|
|
|
|
bne .1
|
|
|
|
|
inc S.StrFTime.addChar+2
|
|
|
|
|
.1 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.StrFTime.Table .AS "aAbBdHImMpSwyY"
|
|
|
|
|
S.StrFTime.JMPL .HS #S.StrFTime.A
|
|
|
|
|
.HS #S.StrFTime.AA
|
|
|
|
|
.HS #S.StrFTime.B
|
|
|
|
|
.HS #S.StrFTime.BB
|
|
|
|
|
.HS #S.StrFTime.D
|
|
|
|
|
.HS #S.StrFTime.HH
|
|
|
|
|
.HS #S.StrFTime.II
|
|
|
|
|
.HS #S.StrFTime.M
|
|
|
|
|
.HS #S.StrFTime.MM
|
|
|
|
|
.HS #S.StrFTime.P
|
|
|
|
|
.HS #S.StrFTime.SS
|
|
|
|
|
.HS #S.StrFTime.W
|
|
|
|
|
.HS #S.StrFTime.Y
|
|
|
|
|
.HS #S.StrFTime.YY
|
|
|
|
|
S.StrFTime.JMPH .HS /S.StrFTime.A
|
|
|
|
|
.HS /S.StrFTime.AA
|
|
|
|
|
.HS /S.StrFTime.B
|
|
|
|
|
.HS /S.StrFTime.BB
|
|
|
|
|
.HS /S.StrFTime.D
|
|
|
|
|
.HS /S.StrFTime.HH
|
|
|
|
|
.HS /S.StrFTime.II
|
|
|
|
|
.HS /S.StrFTime.M
|
|
|
|
|
.HS /S.StrFTime.MM
|
|
|
|
|
.HS /S.StrFTime.P
|
|
|
|
|
.HS /S.StrFTime.SS
|
|
|
|
|
.HS /S.StrFTime.W
|
|
|
|
|
.HS /S.StrFTime.Y
|
|
|
|
|
.HS /S.StrFTime.YY
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.StrFTime.SDAY >PSTRING "Mon"
|
|
|
|
|
>PSTRING "Tue"
|
|
|
|
|
>PSTRING "Wed"
|
|
|
|
|
>PSTRING "Thu"
|
|
|
|
|
>PSTRING "Fri"
|
|
|
|
|
>PSTRING "Sat"
|
|
|
|
|
>PSTRING "Sun"
|
|
|
|
|
S.StrFTime.LDAY >PSTRING "Monday"
|
|
|
|
|
>PSTRING "Tuesday"
|
|
|
|
|
>PSTRING "Wednesday"
|
|
|
|
|
>PSTRING "Thursday"
|
|
|
|
|
>PSTRING "Friday"
|
|
|
|
|
>PSTRING "Saturday"
|
|
|
|
|
>PSTRING "Sunday"
|
|
|
|
|
S.StrFTime.SMON >PSTRING "Jan"
|
|
|
|
|
>PSTRING "Feb"
|
|
|
|
|
>PSTRING "Mar"
|
|
|
|
|
>PSTRING "Apr"
|
|
|
|
|
>PSTRING "May"
|
|
|
|
|
>PSTRING "Jun"
|
|
|
|
|
>PSTRING "Jul"
|
|
|
|
|
>PSTRING "Aug"
|
|
|
|
|
>PSTRING "Sep"
|
|
|
|
|
>PSTRING "Oct"
|
|
|
|
|
>PSTRING "Nov"
|
|
|
|
|
>PSTRING "Dec"
|
|
|
|
|
S.StrFTime.LMON >PSTRING "January"
|
|
|
|
|
>PSTRING "February"
|
|
|
|
|
>PSTRING "March"
|
|
|
|
|
>PSTRING "April"
|
|
|
|
|
>PSTRING "May"
|
|
|
|
|
>PSTRING "June"
|
|
|
|
|
>PSTRING "July"
|
|
|
|
|
>PSTRING "August"
|
|
|
|
|
>PSTRING "September"
|
|
|
|
|
>PSTRING "October"
|
|
|
|
|
>PSTRING "November"
|
|
|
|
|
>PSTRING "December"
|
2016-08-30 20:26:19 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-01 05:42:28 +00:00
|
|
|
|
* Y = Century
|
|
|
|
|
* A = Year (0..99)
|
|
|
|
|
* if (year mod 400 = 0)
|
|
|
|
|
* or
|
|
|
|
|
* if not (year mod 100 = 0) and (year mod 4 = 0)
|
2016-08-31 15:38:48 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-01 05:42:28 +00:00
|
|
|
|
S.IsLeapYearYA tax Year = 00 ?
|
|
|
|
|
bne .1 no
|
|
|
|
|
|
|
|
|
|
tya year = 00, get century in a
|
|
|
|
|
and #$3 mod 4 = 0 ?
|
|
|
|
|
beq .9 leap year
|
|
|
|
|
|
|
|
|
|
.8 sec not leap
|
|
|
|
|
rts
|
2016-08-31 15:38:48 +00:00
|
|
|
|
|
2016-09-01 05:42:28 +00:00
|
|
|
|
.1 and #$3 mod 4 = 0 ?
|
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
.9 clc Leap
|
2016-08-31 15:38:48 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-08-30 20:26:19 +00:00
|
|
|
|
MAN
|
|
|
|
|
SAVE SYS/KERNEL.S.TIME
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
ASM
|