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

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