mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
794 lines
10 KiB
794 lines
10 KiB
extrn .begin,.chl,.swt
|
|
extrn csave,cret,.move
|
|
global cache_,17
|
|
PUBLIC cnamept3_
|
|
cnamept3_: lxi d,.2
|
|
call csave
|
|
LXI H,.1+0
|
|
PUSH H
|
|
LXI H,cache_
|
|
PUSH H
|
|
CALL strcpy_
|
|
POP D
|
|
POP D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+17
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,39
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .3
|
|
.5:
|
|
LXI H,.1+37
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .4
|
|
.6:
|
|
LXI H,.1+42
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .4
|
|
.3:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.6
|
|
DW 1,.5
|
|
DW .4
|
|
.4:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+48
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,40
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .7
|
|
.9:
|
|
LXI H,.1+68
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .8
|
|
.10:
|
|
LXI H,.1+73
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .8
|
|
.7:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.10
|
|
DW 1,.9
|
|
DW .8
|
|
.8:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,40
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,1
|
|
POP D
|
|
CALL .eq
|
|
JZ .11
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+79
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,41
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .12
|
|
.14:
|
|
LXI H,.1+95
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.15:
|
|
LXI H,.1+102
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.16:
|
|
LXI H,.1+109
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.17:
|
|
LXI H,.1+120
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.12:
|
|
CALL .swt
|
|
DW 3
|
|
DW 0,.14
|
|
DW 1,.15
|
|
DW 2,.16
|
|
DW .17
|
|
.13:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+130
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,42
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .18
|
|
.20:
|
|
LXI H,.1+149
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .19
|
|
.21:
|
|
LXI H,.1+154
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .19
|
|
.22:
|
|
LXI H,.1+160
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .19
|
|
.18:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.21
|
|
DW 1,.20
|
|
DW .22
|
|
.19:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,43
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+170
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
.11:
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+194
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,45
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .23
|
|
.25:
|
|
LXI H,.1+214
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .24
|
|
.26:
|
|
LXI H,.1+219
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .24
|
|
.23:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.26
|
|
DW 1,.25
|
|
DW .24
|
|
.24:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,45
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,1
|
|
POP D
|
|
CALL .eq
|
|
JZ .27
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+225
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,46
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .28
|
|
.30:
|
|
LXI H,.1+245
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .29
|
|
.31:
|
|
LXI H,.1+252
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .29
|
|
.32:
|
|
LXI H,.1+259
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .29
|
|
.33:
|
|
LXI H,.1+270
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .29
|
|
.28:
|
|
CALL .swt
|
|
DW 3
|
|
DW 0,.30
|
|
DW 1,.31
|
|
DW 2,.32
|
|
DW .33
|
|
.29:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+280
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,47
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .34
|
|
.36:
|
|
LXI H,.1+300
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .35
|
|
.37:
|
|
LXI H,.1+305
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .35
|
|
.38:
|
|
LXI H,.1+311
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .35
|
|
.34:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.37
|
|
DW 1,.36
|
|
DW .38
|
|
.35:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,48
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+321
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+345
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,50
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .39
|
|
.41:
|
|
LXI H,.1+365
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .40
|
|
.42:
|
|
LXI H,.1+370
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .40
|
|
.43:
|
|
LXI H,.1+376
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .40
|
|
.39:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.42
|
|
DW 1,.41
|
|
DW .43
|
|
.40:
|
|
CALL pager_
|
|
.27:
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+386
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,51
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .44
|
|
.46:
|
|
LXI H,.1+406
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .45
|
|
.47:
|
|
LXI H,.1+414
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .45
|
|
.44:
|
|
CALL .swt
|
|
DW 2
|
|
DW 1,.46
|
|
DW 2,.47
|
|
DW .45
|
|
.45:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,52
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+422
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,53
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+452
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,54
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,10-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,54
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+475
|
|
PUSH H
|
|
CALL printf_
|
|
XCHG
|
|
LXI H,8
|
|
DAD SP
|
|
SPHL
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,24
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,3
|
|
POP D
|
|
CALL .eq
|
|
JZ .48
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,56
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+511
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,57
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+533
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,58
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+559
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,59
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+585
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,60
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+611
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+637
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,61
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .49
|
|
.51:
|
|
LXI H,.1+657
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .50
|
|
.52:
|
|
LXI H,.1+662
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .50
|
|
.53:
|
|
LXI H,.1+668
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .50
|
|
.49:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.52
|
|
DW 1,.51
|
|
DW .53
|
|
.50:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+678
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,62
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .54
|
|
.56:
|
|
LXI H,.1+698
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .55
|
|
.57:
|
|
LXI H,.1+703
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .55
|
|
.58:
|
|
LXI H,.1+709
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .55
|
|
.54:
|
|
CALL .swt
|
|
DW 2
|
|
DW 0,.57
|
|
DW 1,.56
|
|
DW .58
|
|
.55:
|
|
CALL pager_
|
|
.48:
|
|
RET
|
|
.2 EQU 0
|
|
.1:
|
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
|
|
DB 97,0,37,115,46,102,100,109,97,117,116,111,32,32,32
|
|
DB 32,32,32,32,61,32,0,84,82,85,69,0,70,65,76
|
|
DB 83,69,0,37,115,46,105,100,101,101,110,97,98,108,101
|
|
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
|
|
DB 76,83,69,0,37,115,46,105,100,101,116,114,97,99,101
|
|
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
|
|
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
|
|
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,100,101
|
|
DB 56,98,105,116,32,32,32,32,32,32,32,61,32,0,84
|
|
DB 82,85,69,0,70,65,76,83,69,0,85,110,107,110,111
|
|
DB 119,110,33,33,0,37,115,46,105,100,101,99,97,112,97
|
|
DB 99,105,116,121,32,32,32,61,32,37,100,77,66,0,37
|
|
DB 115,46,112,112,105,100,101,101,110,97,98,108,101,32,32
|
|
DB 32,61,32,0,84,82,85,69,0,70,65,76,83,69,0
|
|
DB 37,115,46,112,112,105,100,101,116,114,97,99,101,32,32
|
|
DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
|
|
DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
|
|
DB 85,110,107,110,111,119,110,33,33,0,37,115,46,112,112
|
|
DB 105,100,101,56,98,105,116,32,32,32,32,32,61,32,0
|
|
DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110
|
|
DB 111,119,110,33,33,0,37,115,46,112,112,105,100,101,99
|
|
DB 97,112,97,99,105,116,121,32,61,32,37,100,75,66,0
|
|
DB 37,115,46,112,112,105,100,101,115,108,111,119,32,32,32
|
|
DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69
|
|
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,98
|
|
DB 111,111,116,116,121,112,101,32,32,32,32,32,32,61,32
|
|
DB 0,66,84,95,77,69,78,85,0,66,84,95,65,85,84
|
|
DB 79,0,37,115,46,98,111,111,116,116,105,109,101,111,117
|
|
DB 116,32,32,32,61,32,37,100,32,115,101,99,111,110,100
|
|
DB 115,0,37,115,46,98,111,111,116,100,101,102,97,117,108
|
|
DB 116,32,32,32,61,32,37,99,58,0,37,115,46,98,97
|
|
DB 117,100,114,97,116,101,32,32,32,32,32,32,61,32,37
|
|
DB 117,32,40,48,120,37,48,52,120,41,32,66,97,117,100
|
|
DB 0,37,115,46,99,107,100,105,118,32,32,32,32,32,32
|
|
DB 32,32,32,61,32,37,100,0,37,115,46,109,101,109,119
|
|
DB 97,105,116,32,32,32,32,32,32,32,61,32,48,120,37
|
|
DB 48,50,120,0,37,115,46,105,111,119,97,105,116,32,32
|
|
DB 32,32,32,32,32,32,61,32,48,120,37,48,50,120,0
|
|
DB 37,115,46,99,110,116,108,98,48,32,32,32,32,32,32
|
|
DB 32,32,61,32,48,120,37,48,50,120,0,37,115,46,99
|
|
DB 110,116,108,98,49,32,32,32,32,32,32,32,32,61,32
|
|
DB 48,120,37,48,50,120,0,37,115,46,115,100,101,110,97
|
|
DB 98,108,101,32,32,32,32,32,32,61,32,0,84,82,85
|
|
DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
|
|
DB 33,33,0,37,115,46,115,100,116,114,97,99,101,32,32
|
|
DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
|
|
DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0
|
|
extrn printf_
|
|
extrn strcpy_
|
|
extrn pager_
|
|
extrn .eq
|
|
END
|
|
|