head	1.2;
access;
symbols
	mkfiles_rev1:1.1.0.2;
locks; strict;
comment	@;; @;


1.2
date	2008.08.20.06.01.01;	author davidgb;	state Exp;
branches;
next	1.1;
commitid	103148abb2444567;

1.1
date	2008.04.11.02.58.17;	author davidgb;	state dead;
branches
	1.1.2.1;
next	;
commitid	448447fed3c54567;

1.1.2.1
date	2008.04.11.02.58.17;	author davidgb;	state Exp;
branches;
next	;
commitid	448447fed3c54567;


desc
@@


1.2
log
@merged mkfiles_rev1 branch to the mainline
@
text
@*
** FLEX INITIATION
*
 ORG $CA00
ZCA00 BRA ZCA08
ZCA02 JSR >ZCAAC
 RTS 
ZCA06 SUBB #$A0
ZCA08 LDA #$39
 STA >ZD3FD
 LDX >MEMEND
 LEAX $00A1,X
 STX >ZCA06
 JSR [TINVEC]
 LDX >INVEC
 STX >INCH+1
 STX >INCH2+1
 LDX >OUTVEC
 STX >OUTCH+1
 STX >OUTCH2+1
 LDX >STAVEC
 STX >ZCD4E+1
 LDX #Z00A0
 LDB #$B9
ZCA38 LDA ,X
 STB ,X
 NOP 
 CMPB ,X
 BNE ZCA4C
 STA ,X
 LEAX $0400,X
 CMPX >ZCA06
 BNE ZCA38
ZCA4C LEAX $FF5F,X
 STX >MEMEND
 LDX #WARMS
 STX >ESCVEC
 LDX #TTLSTR
 JSR >PSTRG1
 JSR >PCRLF1
 BSR ZCA02
 JSR >PCRLF1
 LDX #FCB
 LDA #$01
 STA ,X
 JSR >FMS
 BEQ ZCA7B
 LDA $01,X
 JSR >ZD200
 JMP >WARM1

ZCA7B LDX #LINBUF
ZCA7E STX >LINPTR
 LDX #FCB
 JSR >FMS
 BEQ ZCA8E
 PSHS Y,X
 JMP >ZD2D7

ZCA8E LDX >LINPTR
 STA ,X+
 CMPA #$0D
 BNE ZCA7E
 LDX #FCB
 JSR >ZD1F4
 LDX #LINBUF
 STX >LINPTR
 LDX #WARM1
 STX >ZCC43
 JMP >ZD32E

ZCAAC LDX #DATSTR
 JSR >PSTRG1
 JSR >INBUF1
 BSR ZCACB
 BCS ZCAAC
 STA >MONTH
 BSR ZCACB
 BCS ZCAAC
ZCAC0 STA >DAY
 BSR ZCACB
 BCS ZCAAC
 STA >YEAR
 RTS 

ZCACB JSR >INDEC1
 BCS ZCADB
 LDA >LODOFF+1
 TSTB 
 BEQ ZCAD9
 ANDCC #$FE
 RTS 

ZCAD9 ORCC #$01
ZCADB RTS 

TTLSTR FCC "6809 FLEX V3.01"
 FCB $04
DATSTR FCC "DATE (MM,DD,YY)? "
 FCB $04
 END
@


1.1
log
@file f9-init.asm was initially added on branch mkfiles_rev1.
@
text
@d1 101
@


1.1.2.1
log
@rename .txt to .asm. removed derived files.
@
text
@a0 101
*
** FLEX INITIATION
*
 ORG $CA00
ZCA00 BRA ZCA08
ZCA02 JSR >ZCAAC
 RTS 
ZCA06 SUBB #$A0
ZCA08 LDA #$39
 STA >ZD3FD
 LDX >MEMEND
 LEAX $00A1,X
 STX >ZCA06
 JSR [TINVEC]
 LDX >INVEC
 STX >INCH+1
 STX >INCH2+1
 LDX >OUTVEC
 STX >OUTCH+1
 STX >OUTCH2+1
 LDX >STAVEC
 STX >ZCD4E+1
 LDX #Z00A0
 LDB #$B9
ZCA38 LDA ,X
 STB ,X
 NOP 
 CMPB ,X
 BNE ZCA4C
 STA ,X
 LEAX $0400,X
 CMPX >ZCA06
 BNE ZCA38
ZCA4C LEAX $FF5F,X
 STX >MEMEND
 LDX #WARMS
 STX >ESCVEC
 LDX #TTLSTR
 JSR >PSTRG1
 JSR >PCRLF1
 BSR ZCA02
 JSR >PCRLF1
 LDX #FCB
 LDA #$01
 STA ,X
 JSR >FMS
 BEQ ZCA7B
 LDA $01,X
 JSR >ZD200
 JMP >WARM1

ZCA7B LDX #LINBUF
ZCA7E STX >LINPTR
 LDX #FCB
 JSR >FMS
 BEQ ZCA8E
 PSHS Y,X
 JMP >ZD2D7

ZCA8E LDX >LINPTR
 STA ,X+
 CMPA #$0D
 BNE ZCA7E
 LDX #FCB
 JSR >ZD1F4
 LDX #LINBUF
 STX >LINPTR
 LDX #WARM1
 STX >ZCC43
 JMP >ZD32E

ZCAAC LDX #DATSTR
 JSR >PSTRG1
 JSR >INBUF1
 BSR ZCACB
 BCS ZCAAC
 STA >MONTH
 BSR ZCACB
 BCS ZCAAC
ZCAC0 STA >DAY
 BSR ZCACB
 BCS ZCAAC
 STA >YEAR
 RTS 

ZCACB JSR >INDEC1
 BCS ZCADB
 LDA >LODOFF+1
 TSTB 
 BEQ ZCAD9
 ANDCC #$FE
 RTS 

ZCAD9 ORCC #$01
ZCADB RTS 

TTLSTR FCC "6809 FLEX V3.01"
 FCB $04
DATSTR FCC "DATE (MM,DD,YY)? "
 FCB $04
 END
@