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.
527 lines
7.1 KiB
527 lines
7.1 KiB
extrn .begin,.chl,.swt
|
|
extrn csave,cret,.move
|
|
global cache_,17
|
|
PUBLIC cnamept1_
|
|
cnamept1_: lxi d,.2
|
|
call csave
|
|
LXI H,.1+0
|
|
PUSH H
|
|
LXI H,cache_
|
|
PUSH H
|
|
CALL strcpy_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
INX H
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,.1+17
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
INX H
|
|
INX H
|
|
INX H
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,.1+51
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,5
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,.1+85
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,7
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,.1+119
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,9
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+153
|
|
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,10
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+175
|
|
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,11
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+197
|
|
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,12
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+219
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+241
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,13
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .3
|
|
.5:
|
|
LXI H,.1+261
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .4
|
|
.6:
|
|
LXI H,.1+266
|
|
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,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,14
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+272
|
|
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,15
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+298
|
|
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,23
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+324
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+349
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
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
|
|
XCHG
|
|
JMP .7
|
|
.9:
|
|
LXI H,.1+369
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .8
|
|
.10:
|
|
LXI H,.1+375
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .8
|
|
.11:
|
|
LXI H,.1+380
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .8
|
|
.7:
|
|
CALL .swt
|
|
DW 3
|
|
DW 1,.9
|
|
DW 2,.10
|
|
DW 3,.11
|
|
DW .8
|
|
.8:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+383
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,25
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .12
|
|
.14:
|
|
LXI H,.1+403
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.15:
|
|
LXI H,.1+415
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.16:
|
|
LXI H,.1+429
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.17:
|
|
LXI H,.1+441
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.18:
|
|
LXI H,.1+453
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.19:
|
|
LXI H,.1+463
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.20:
|
|
LXI H,.1+478
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .13
|
|
.12:
|
|
CALL .swt
|
|
DW 6
|
|
DW 0,.14
|
|
DW 1,.15
|
|
DW 2,.16
|
|
DW 3,.17
|
|
DW 4,.18
|
|
DW 5,.19
|
|
DW .20
|
|
.13:
|
|
CALL pager_
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+486
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,26
|
|
DAD D
|
|
MOV E,M
|
|
MVI D,0
|
|
XCHG
|
|
JMP .21
|
|
.23:
|
|
LXI H,.1+506
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.24:
|
|
LXI H,.1+518
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.25:
|
|
LXI H,.1+529
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.26:
|
|
LXI H,.1+541
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.27:
|
|
LXI H,.1+555
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.28:
|
|
LXI H,.1+567
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
JMP .22
|
|
.21:
|
|
CALL .swt
|
|
DW 5
|
|
DW 0,.23
|
|
DW 1,.24
|
|
DW 2,.25
|
|
DW 3,.26
|
|
DW 4,.27
|
|
DW .28
|
|
.22:
|
|
CALL pager_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
LXI H,27
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+577
|
|
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,29
|
|
DAD D
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
PUSH D
|
|
LXI H,cache_
|
|
PUSH H
|
|
LXI H,.1+599
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
POP D
|
|
POP D
|
|
CALL pager_
|
|
RET
|
|
.2 EQU 0
|
|
.1:
|
|
DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
|
|
DB 97,0,115,121,115,99,102,103,45,62,106,109,112,32,32
|
|
DB 32,32,32,32,32,32,32,32,32,32,106,112,32,32,48
|
|
DB 37,48,52,120,104,0,115,121,115,99,102,103,45,62,99
|
|
DB 110,102,108,111,99,32,32,32,32,32,32,32,32,32,46
|
|
DB 100,119,32,48,37,48,52,120,104,0,115,121,115,99,102
|
|
DB 103,45,62,116,115,116,108,111,99,32,32,32,32,32,32
|
|
DB 32,32,32,46,100,119,32,48,37,48,52,120,104,0,115
|
|
DB 121,115,99,102,103,45,62,118,97,114,108,111,99,32,32
|
|
DB 32,32,32,32,32,32,32,46,100,119,32,48,37,48,52
|
|
DB 120,104,0,37,115,46,114,109,106,32,32,32,32,32,32
|
|
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,114,109
|
|
DB 110,32,32,32,32,32,32,32,32,32,32,32,61,32,37
|
|
DB 100,0,37,115,46,114,117,112,32,32,32,32,32,32,32
|
|
DB 32,32,32,32,61,32,37,100,0,37,115,46,114,116,112
|
|
DB 32,32,32,32,32,32,32,32,32,32,32,61,32,37,100
|
|
DB 0,37,115,46,100,105,115,107,98,111,111,116,32,32,32
|
|
DB 32,32,32,61,32,0,84,82,85,69,0,70,65,76,83
|
|
DB 69,0,37,115,46,100,101,118,117,110,105,116,32,32,32
|
|
DB 32,32,32,32,61,32,48,120,37,48,50,120,0,37,115
|
|
DB 46,98,111,111,116,108,117,32,32,32,32,32,32,32,32
|
|
DB 61,32,48,120,37,48,52,120,0,37,115,46,102,114,101
|
|
DB 113,32,32,32,32,32,32,32,32,32,32,61,32,37,100
|
|
DB 77,72,122,0,37,115,46,112,108,97,116,102,111,114,109
|
|
DB 32,32,32,32,32,32,61,32,0,78,56,86,69,77,0
|
|
DB 90,69,84,65,0,78,56,0,37,115,46,100,105,111,112
|
|
DB 108,97,116,32,32,32,32,32,32,32,61,32,0,68,73
|
|
DB 79,80,76,84,95,78,79,78,69,0,68,73,79,80,76
|
|
DB 84,95,68,73,83,75,73,79,0,68,73,79,80,76,84
|
|
DB 95,90,69,84,65,0,68,73,79,80,76,84,95,68,73
|
|
DB 68,69,0,68,73,79,80,76,84,95,78,56,0,68,73
|
|
DB 79,80,76,84,95,68,73,83,75,73,79,51,0,85,110
|
|
DB 107,110,111,119,110,0,37,115,46,118,100,117,109,111,100
|
|
DB 101,32,32,32,32,32,32,32,61,32,0,86,68,85,80
|
|
DB 76,84,95,78,79,78,69,0,86,68,85,80,76,84,95
|
|
DB 86,68,85,0,86,68,85,80,76,84,95,86,68,85,67
|
|
DB 0,86,68,85,80,76,84,95,80,82,79,80,73,79,0
|
|
DB 86,68,85,80,76,84,95,86,80,78,56,0,85,110,107
|
|
DB 110,111,119,110,33,33,0,37,115,46,114,111,109,115,105
|
|
DB 122,101,32,32,32,32,32,32,32,61,32,37,100,0,37
|
|
DB 115,46,114,97,109,115,105,122,101,32,32,32,32,32,32
|
|
DB 32,61,32,37,100,0
|
|
extrn printf_
|
|
extrn strcpy_
|
|
extrn pager_
|
|
END
|
|
|