Skip to content

Commit

Permalink
Added version info to BASIC startup
Browse files Browse the repository at this point in the history
  • Loading branch information
jacobtohahn committed Aug 14, 2020
1 parent 8305d9a commit d38b474
Show file tree
Hide file tree
Showing 7 changed files with 4,825 additions and 4,821 deletions.
466 changes: 233 additions & 233 deletions Code/BASIC/ROM32K.hex

Large diffs are not rendered by default.

2 changes: 1 addition & 1 deletion Code/BASIC/bas32K.asm
Original file line number Diff line number Diff line change
Expand Up @@ -126,7 +126,7 @@ MO .EQU 24H ; Missing operand
HX .EQU 26H ; HEX error
BN .EQU 28H ; BIN error

.ORG 001A0H
.ORG 00200H

COLD: JP STARTB ; Jump for cold start
WARM: JP WARMST ; Jump for warm start
Expand Down
606 changes: 303 additions & 303 deletions Code/BASIC/bas32k.hex

Large diffs are not rendered by default.

8,514 changes: 4,257 additions & 4,257 deletions Code/BASIC/bas32k.lst

Large diffs are not rendered by default.

6 changes: 3 additions & 3 deletions Code/BASIC/int32K.asm
Original file line number Diff line number Diff line change
Expand Up @@ -236,7 +236,7 @@ CORW:
RST 08H
COLDSTART: LD A,'Y' ; Set the BASIC STARTED flag
LD (basicStarted),A
JP $01A0 ; Start BASIC COLD
JP $0200 ; Start BASIC COLD
CHECKWARM:
CP 'W'
JR NZ, CORW
Expand All @@ -245,11 +245,11 @@ CHECKWARM:
RST 08H
LD A,$0A
RST 08H
JP $01A3 ; Start BASIC WARM
JP $0203 ; Start BASIC WARM

SIGNON1: .BYTE CS
.BYTE "ZTO-80 By Jacob Hahn",CR,LF
.BYTE "Z80 BASIC Startup",CR,LF,0
.BYTE "ZTO-80 BASIC v0.0.3 Startup",CR,LF,0
SIGNON2: .BYTE CR,LF
.BYTE "Cold or warm start (C or W)? ",0

Expand Down
11 changes: 6 additions & 5 deletions Code/BASIC/int32k.hex
Original file line number Diff line number Diff line change
Expand Up @@ -9,10 +9,11 @@
:1800C00028F6F1D301C93A4380FE00C97EB7C8CF2318F9C921ED80F968
:1800D800210080223F80224180AF3243803E00D3093E18D309003E0479
:1800F000D3093E84D3093E03D3093EC1D3093E01D3093E18D3093E05F6
:18010800D3093EEAD309ED56FB214A01CDCC003A4480FE59201621759B
:18010800D3093EEAD309ED56FB214A01CDCC003A4480FE592016217F91
:1801200001CDCC00CD8D00E6DFFE43200FCF3E0DCF3E0ACF3E59324491
:1801380080C3A001FE5720E4CF3E0DCF3E0ACFC3A3010C5A544F2D389D
:1801500030204279204A61636F62204861686E0D0A5A3830204241531F
:18016800494320537461727475700D0A000D0A436F6C64206F72207798
:1501800061726D207374617274202843206F722057293F200051
:1801380080C30002FE5720E4CF3E0DCF3E0ACFC303020C5A544F2D38DB
:1801500030204279204A61636F62204861686E0D0A5A544F2D38302025
:1801680042415349432076302E302E3320537461727475700D0A000D61
:180180000A436F6C64206F72207761726D207374617274202843206F9B
:07019800722057293F2000EF
:00000001FF
41 changes: 22 additions & 19 deletions Code/BASIC/int32k.lst
Original file line number Diff line number Diff line change
Expand Up @@ -222,7 +222,7 @@
0222 0117 3A 44 80 LD A,(basicStarted); Check the BASIC STARTED flag
0223 011A FE 59 CP 'Y' ; to see if this is power-up
0224 011C 20 16 JR NZ,COLDSTART ; If not BASIC started then always do cold start
0225 011E 21 75 01 LD HL,SIGNON2 ; Cold/warm message
0225 011E 21 7F 01 LD HL,SIGNON2 ; Cold/warm message
0226 0121 CD CC 00 CALL PRINT ; Output string
0227 0124 CORW:
0228 0124 CD 8D 00 CALL RXA
Expand All @@ -236,7 +236,7 @@
0236 0133 CF RST 08H
0237 0134 3E 59 COLDSTART: LD A,'Y' ; Set the BASIC STARTED flag
0238 0136 32 44 80 LD (basicStarted),A
0239 0139 C3 A0 01 JP $01A0 ; Start BASIC COLD
0239 0139 C3 00 02 JP $0200 ; Start BASIC COLD
0240 013C CHECKWARM:
0241 013C FE 57 CP 'W'
0242 013E 20 E4 JR NZ, CORW
Expand All @@ -245,7 +245,7 @@
0245 0143 CF RST 08H
0246 0144 3E 0A LD A,$0A
0247 0146 CF RST 08H
0248 0147 C3 A3 01 JP $01A3 ; Start BASIC WARM
0248 0147 C3 03 02 JP $0203 ; Start BASIC WARM
0249 014A
0250 014A 0C SIGNON1: .BYTE CS
0251 014B 5A 54 4F 2D .BYTE "ZTO-80 By Jacob Hahn",CR,LF
Expand All @@ -254,20 +254,23 @@
0251 0157 63 6F 62 20
0251 015B 48 61 68 6E
0251 015F 0D 0A
0252 0161 5A 38 30 20 .BYTE "Z80 BASIC Startup",CR,LF,0
0252 0165 42 41 53 49
0252 0169 43 20 53 74
0252 016D 61 72 74 75
0252 0171 70 0D 0A 00
0253 0175 0D 0A SIGNON2: .BYTE CR,LF
0254 0177 43 6F 6C 64 .BYTE "Cold or warm start (C or W)? ",0
0254 017B 20 6F 72 20
0254 017F 77 61 72 6D
0254 0183 20 73 74 61
0254 0187 72 74 20 28
0254 018B 43 20 6F 72
0254 018F 20 57 29 3F
0254 0193 20 00
0255 0195
0256 0195 .END
0252 0161 5A 54 4F 2D .BYTE "ZTO-80 BASIC v0.0.3 Startup",CR,LF,0
0252 0165 38 30 20 42
0252 0169 41 53 49 43
0252 016D 20 76 30 2E
0252 0171 30 2E 33 20
0252 0175 53 74 61 72
0252 0179 74 75 70 0D
0252 017D 0A 00
0253 017F 0D 0A SIGNON2: .BYTE CR,LF
0254 0181 43 6F 6C 64 .BYTE "Cold or warm start (C or W)? ",0
0254 0185 20 6F 72 20
0254 0189 77 61 72 6D
0254 018D 20 73 74 61
0254 0191 72 74 20 28
0254 0195 43 20 6F 72
0254 0199 20 57 29 3F
0254 019D 20 00
0255 019F
0256 019F .END
tasm: Number of errors = 0

0 comments on commit d38b474

Please sign in to comment.