MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
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.
331 Commits
2 Branches
380 Tags
257 MiB
 
 
 
 
 
 
Tree: 7872096be3
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '7872096be3'
${ noResults }
RomWBW/trunk/Apps/crossdev/CNAMEPT2.ASM

480 lines
6.9 KiB
Raw Blame History

extrn .begin,.chl,.swt
extrn csave,cret,.move
global cache_,17
PUBLIC cnamept2_
cnamept2_: 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,31
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+47
PUSH H
CALL printf_
POP D
JMP .4
.7:
LXI H,.1+56
PUSH H
CALL printf_
POP D
JMP .4
.3:
CALL .swt
DW 3
DW 0,.5
DW 1,.6
DW 2,.7
DW .4
.4:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+68
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,32
DAD D
MOV E,M
MVI D,0
XCHG
JMP .8
.10:
LXI H,.1+88
PUSH H
CALL printf_
POP D
JMP .9
.11:
LXI H,.1+93
PUSH H
CALL printf_
POP D
JMP .9
.8:
CALL .swt
DW 2
DW 0,.11
DW 1,.10
DW .9
.9:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+99
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,33
DAD D
MOV E,M
MVI D,0
XCHG
JMP .12
.14:
LXI H,.1+119
PUSH H
CALL printf_
POP D
JMP .13
.15:
LXI H,.1+124
PUSH H
CALL printf_
POP D
JMP .13
.12:
CALL .swt
DW 2
DW 0,.15
DW 1,.14
DW .13
.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,34
DAD D
MOV E,M
MVI D,0
XCHG
JMP .16
.18:
LXI H,.1+150
PUSH H
CALL printf_
POP D
JMP .17
.19:
LXI H,.1+155
PUSH H
CALL printf_
POP D
JMP .17
.16:
CALL .swt
DW 2
DW 0,.19
DW 1,.18
DW .17
.17:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+161
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,35
DAD D
MOV E,M
MVI D,0
XCHG
JMP .20
.22:
LXI H,.1+181
PUSH H
CALL printf_
POP D
JMP .21
.23:
LXI H,.1+186
PUSH H
CALL printf_
POP D
JMP .21
.20:
CALL .swt
DW 2
DW 0,.23
DW 1,.22
DW .21
.21:
CALL pager_
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,35
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,1
POP D
CALL .eq
JZ .24
LXI H,cache_
PUSH H
LXI H,.1+192
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,36
DAD D
MOV E,M
MVI D,0
XCHG
JMP .25
.27:
LXI H,.1+212
PUSH H
CALL printf_
POP D
JMP .26
.28:
LXI H,.1+219
PUSH H
CALL printf_
POP D
JMP .26
.29:
LXI H,.1+232
PUSH H
CALL printf_
POP D
JMP .26
.30:
LXI H,.1+243
PUSH H
CALL printf_
POP D
JMP .26
.31:
LXI H,.1+254
PUSH H
CALL printf_
POP D
JMP .26
.25:
CALL .swt
DW 4
DW 0,.27
DW 1,.28
DW 2,.29
DW 3,.30
DW .31
.26:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+264
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,37
DAD D
MOV E,M
MVI D,0
XCHG
JMP .32
.34:
LXI H,.1+284
PUSH H
CALL printf_
POP D
LXI H,.1+291
PUSH H
CALL printf_
POP D
JMP .33
.35:
LXI H,.1+329
PUSH H
CALL printf_
POP D
LXI H,.1+336
PUSH H
CALL printf_
POP D
JMP .33
.36:
LXI H,.1+376
PUSH H
CALL printf_
POP D
LXI H,.1+383
PUSH H
CALL printf_
POP D
JMP .33
.37:
LXI H,.1+422
PUSH H
CALL printf_
POP D
LXI H,.1+429
PUSH H
CALL printf_
POP D
JMP .33
.38:
LXI H,.1+468
PUSH H
CALL printf_
POP D
JMP .33
.32:
CALL .swt
DW 4
DW 0,.34
DW 1,.35
DW 2,.36
DW 3,.37
DW .38
.33:
CALL pager_
LXI H,cache_
PUSH H
LXI H,.1+478
PUSH H
CALL printf_
POP D
POP D
LXI H,8-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,38
DAD D
MOV E,M
MVI D,0
XCHG
JMP .39
.41:
LXI H,.1+498
PUSH H
CALL printf_
POP D
LXI H,.1+505
PUSH H
CALL printf_
POP D
JMP .40
.42:
LXI H,.1+543
PUSH H
CALL printf_
POP D
LXI H,.1+550
PUSH H
CALL printf_
POP D
JMP .40
.43:
LXI H,.1+590
PUSH H
CALL printf_
POP D
LXI H,.1+597
PUSH H
CALL printf_
POP D
JMP .40
.44:
LXI H,.1+636
PUSH H
CALL printf_
POP D
LXI H,.1+643
PUSH H
CALL printf_
POP D
JMP .40
.39:
CALL .swt
DW 4
DW 0,.41
DW 1,.42
DW 2,.43
DW 3,.44
DW .40
.40:
CALL pager_
.24:
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,99,108,114,114,97,109,100,107,32,32
DB 32,32,32,32,61,32,0,67,76,82,95,78,69,86,69
DB 82,0,67,76,82,95,65,85,84,79,0,67,76,82,95
DB 65,76,76,87,65,89,83,0,37,115,46,100,115,107,121
DB 101,110,97,98,108,101,32,32,32,32,61,32,0,84,82
DB 85,69,0,70,65,76,83,69,0,37,115,46,117,97,114
DB 116,101,110,97,98,108,101,32,32,32,32,61,32,0,84
DB 82,85,69,0,70,65,76,83,69,0,37,115,46,118,100
DB 117,101,110,97,98,108,101,32,32,32,32,32,61,32,0
DB 84,82,85,69,0,70,65,76,83,69,0,37,115,46,102
DB 100,101,110,97,98,108,101,32,32,32,32,32,32,61,32
DB 0,84,82,85,69,0,70,65,76,83,69,0,37,115,46
DB 102,100,116,114,97,99,101,32,32,32,32,32,32,32,61
DB 32,0,83,105,108,101,110,116,0,70,97,116,97,108,32
DB 69,114,114,111,114,115,0,65,108,108,32,69,114,114,111
DB 114,115,0,69,118,101,114,121,116,104,105,110,103,0,85
DB 110,107,110,111,119,110,33,33,0,37,115,46,102,100,109
DB 101,100,105,97,32,32,32,32,32,32,32,61,32,0,70
DB 68,77,55,50,48,0,32,32,51,46,53,32,55,50,48
DB 75,66,32,50,45,115,105,100,101,100,32,56,48,32,84
DB 114,107,115,32,57,32,83,101,99,116,111,114,115,0,70
DB 68,77,49,52,52,0,32,32,51,46,53,32,49,46,52
DB 52,77,66,32,50,45,115,105,100,101,100,32,56,48,32
DB 84,114,107,115,32,49,56,32,83,101,99,116,111,114,115
DB 0,70,68,77,51,54,48,0,32,32,53,46,50,53,32
DB 51,54,48,75,66,32,50,45,115,105,100,101,100,32,52
DB 48,32,84,114,107,115,32,57,32,83,101,99,116,111,114
DB 115,0,70,68,77,49,50,48,0,32,32,51,46,53,32
DB 49,46,50,77,66,32,50,45,115,105,100,101,100,32,56
DB 48,32,84,114,107,115,32,49,53,32,83,101,99,116,111
DB 114,115,0,85,110,107,110,111,119,110,33,33,0,37,115
DB 46,102,100,109,101,100,105,97,97,108,116,32,32,32,32
DB 61,32,0,70,68,77,55,50,48,0,32,32,51,46,53
DB 32,55,50,48,75,66,32,50,45,115,105,100,101,100,32
DB 56,48,32,84,114,107,115,32,57,32,83,101,99,116,111
DB 114,115,0,70,68,77,49,52,52,0,32,32,51,46,53
DB 32,49,46,52,52,77,66,32,50,45,115,105,100,101,100
DB 32,56,48,32,84,114,107,115,32,49,56,32,83,101,99
DB 116,111,114,115,0,70,68,77,51,54,48,0,32,32,53
DB 46,50,53,32,51,54,48,75,66,32,50,45,115,105,100
DB 101,100,32,52,48,32,84,114,107,115,32,57,32,83,101
DB 99,116,111,114,115,0,70,68,77,49,50,48,0,32,32
DB 51,46,53,32,49,46,50,77,66,32,50,45,115,105,100
DB 101,100,32,56,48,32,84,114,107,115,32,49,53,32,83
DB 101,99,116,111,114,115,0
extrn printf_
extrn strcpy_
extrn pager_
extrn .eq
END