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

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