mirror of https://github.com/wwarthen/RomWBW.git
75 changed files with 268 additions and 18205 deletions
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,208 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
DSEG |
|
||||
public lines_ |
|
||||
lines_: |
|
||||
DW .1+0 |
|
||||
CSEG |
|
||||
.1: |
|
||||
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45 |
|
||||
DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45 |
|
||||
DB 45,45,45,45,45,45,45,45,45,45,0 |
|
||||
DSEG |
|
||||
public line1_ |
|
||||
line1_: |
|
||||
DW .2+0 |
|
||||
CSEG |
|
||||
.2: |
|
||||
DB 49,50,51,52,53,54,55,56,46,49,50,51,32,109,109 |
|
||||
DB 47,100,100,47,121,121,121,121,32,32,86,101,114,115,105 |
|
||||
DB 111,110,32,120,46,120,46,120,46,120,0 |
|
||||
DSEG |
|
||||
public line2_ |
|
||||
line2_: |
|
||||
DW .3+0 |
|
||||
CSEG |
|
||||
.3: |
|
||||
DB 83,47,78,32,67,80,77,56,48,45,68,87,71,45,54 |
|
||||
DB 53,52,51,50,49,32,76,105,99,101,110,115,101,100,32 |
|
||||
DB 117,110,100,101,114,32,71,80,76,51,0 |
|
||||
DSEG |
|
||||
public line3_ |
|
||||
line3_: |
|
||||
DW .4+0 |
|
||||
CSEG |
|
||||
.4: |
|
||||
DB 67,111,112,121,114,105,103,104,116,32,40,67,41,32,50 |
|
||||
DB 48,49,49,45,49,50,32,68,111,117,103,108,97,115,32 |
|
||||
DB 87,46,32,71,111,111,100,97,108,108,0 |
|
||||
PUBLIC sbanner_ |
|
||||
sbanner_: lxi d,.6 |
|
||||
call csave |
|
||||
LXI H,8-.6 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.5+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2013 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,.5+4 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,3 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,.5+18 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,.5+39 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
RET |
|
||||
.6 EQU -128 |
|
||||
.5: |
|
||||
DB 37,115,32,0,37,50,100,47,37,50,100,47,37,52,100 |
|
||||
DB 32,32,0,86,101,114,115,105,111,110,32,37,100,46,37 |
|
||||
DB 100,46,37,100,46,37,100,32,0,67,79,80,82,32,68 |
|
||||
DB 111,117,103,108,97,115,32,71,111,111,100,97,108,108,32 |
|
||||
DB 76,105,99,101,110,115,101,100,32,119,47,71,80,76,118 |
|
||||
DB 51,10,0 |
|
||||
PUBLIC banner_ |
|
||||
banner_: lxi d,.8 |
|
||||
call csave |
|
||||
LHLD lines_ |
|
||||
PUSH H |
|
||||
LXI H,.7+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.8 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-122-.8 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL strcpy_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.9: |
|
||||
LXI H,-124-.8 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL strlen_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,12 |
|
||||
POP D |
|
||||
XCHG |
|
||||
CALL .gt |
|
||||
JZ .10 |
|
||||
LXI H,.7+4 |
|
||||
PUSH H |
|
||||
LXI H,-122-.8 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL strcat_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.10: |
|
||||
LXI H,-124-.8 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
LXI H,.7+6 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2013 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,.7+10 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,3 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,.7+24 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LHLD line2_ |
|
||||
PUSH H |
|
||||
LXI H,.7+45 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD line3_ |
|
||||
PUSH H |
|
||||
LXI H,.7+49 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD lines_ |
|
||||
PUSH H |
|
||||
LXI H,.7+53 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.8 EQU -128 |
|
||||
.7: |
|
||||
DB 37,115,10,0,32,0,37,115,32,0,37,50,100,47,37 |
|
||||
DB 50,100,47,37,52,100,32,32,0,86,101,114,115,105,111 |
|
||||
DB 110,32,37,100,46,37,100,46,37,100,46,37,100,10,0 |
|
||||
DB 37,115,10,0,37,115,10,0,37,115,10,0 |
|
||||
extrn strcat_ |
|
||||
extrn strlen_ |
|
||||
extrn strcpy_ |
|
||||
extrn printf_ |
|
||||
extrn .gt |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
@ -1,970 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global pDPHMAP_,2 |
|
||||
global pDPHVEC_,24 |
|
||||
DSEG |
|
||||
public pSYSCFG_ |
|
||||
pSYSCFG_: |
|
||||
DW -16384 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public map_ |
|
||||
map_: |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 1 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 1 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attroff_ |
|
||||
attroff_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrbold_ |
|
||||
attrbold_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 49 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrlow_ |
|
||||
attrlow_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 50 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrundr_ |
|
||||
attrundr_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 52 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrblnk_ |
|
||||
attrblnk_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 53 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrrevs_ |
|
||||
attrrevs_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 55 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public attrinvs_ |
|
||||
attrinvs_: |
|
||||
DB 27 |
|
||||
DB 91 |
|
||||
DB 56 |
|
||||
DB 109 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public graphon_ |
|
||||
graphon_: |
|
||||
DB 27 |
|
||||
DB 70 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public graphoff_ |
|
||||
graphoff_: |
|
||||
DB 27 |
|
||||
DB 71 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atreset_ |
|
||||
atreset_: |
|
||||
DB 48 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atbold_ |
|
||||
atbold_: |
|
||||
DB 49 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atdim_ |
|
||||
atdim_: |
|
||||
DB 50 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atundrsc_ |
|
||||
atundrsc_: |
|
||||
DB 52 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atblink_ |
|
||||
atblink_: |
|
||||
DB 53 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public atrevs_ |
|
||||
atrevs_: |
|
||||
DB 55 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public athidden_ |
|
||||
athidden_: |
|
||||
DB 56 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgblack_ |
|
||||
fgblack_: |
|
||||
DB 51 |
|
||||
DB 48 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgred_ |
|
||||
fgred_: |
|
||||
DB 51 |
|
||||
DB 49 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fggreen_ |
|
||||
fggreen_: |
|
||||
DB 51 |
|
||||
DB 50 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgyellow_ |
|
||||
fgyellow_: |
|
||||
DB 51 |
|
||||
DB 51 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgblue_ |
|
||||
fgblue_: |
|
||||
DB 51 |
|
||||
DB 52 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgmagent_ |
|
||||
fgmagent_: |
|
||||
DB 51 |
|
||||
DB 53 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgcyan_ |
|
||||
fgcyan_: |
|
||||
DB 51 |
|
||||
DB 54 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public fgwhite_ |
|
||||
fgwhite_: |
|
||||
DB 51 |
|
||||
DB 55 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgblack_ |
|
||||
bgblack_: |
|
||||
DB 52 |
|
||||
DB 48 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgred_ |
|
||||
bgred_: |
|
||||
DB 52 |
|
||||
DB 49 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bggreen_ |
|
||||
bggreen_: |
|
||||
DB 52 |
|
||||
DB 50 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgyellow_ |
|
||||
bgyellow_: |
|
||||
DB 52 |
|
||||
DB 51 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgblue_ |
|
||||
bgblue_: |
|
||||
DB 52 |
|
||||
DB 52 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgmagent_ |
|
||||
bgmagent_: |
|
||||
DB 52 |
|
||||
DB 53 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgcyan_ |
|
||||
bgcyan_: |
|
||||
DB 52 |
|
||||
DB 54 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bgwhite_ |
|
||||
bgwhite_: |
|
||||
DB 52 |
|
||||
DB 55 |
|
||||
DB 0 |
|
||||
CSEG |
|
||||
PUBLIC dispattr_ |
|
||||
dispattr_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
.1: |
|
||||
DB 37,99,91,37,115,59,37,115,59,37,115,109,0 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.4 |
|
||||
call csave |
|
||||
LXI H,1 |
|
||||
XCHG |
|
||||
LXI H,8-.4 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .lt |
|
||||
JZ .5 |
|
||||
LXI H,1 |
|
||||
XCHG |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .7 |
|
||||
.6: |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.7: |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,8-.4 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .lt |
|
||||
JZ .8 |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
XCHG |
|
||||
LXI H,10-.4 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL atoi_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,.3+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .6 |
|
||||
.8: |
|
||||
JMP .9 |
|
||||
.5: |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,bgblack_ |
|
||||
PUSH H |
|
||||
LXI H,fggreen_ |
|
||||
PUSH H |
|
||||
LXI H,atbold_ |
|
||||
PUSH H |
|
||||
CALL dispattr_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.3+3 |
|
||||
PUSH H |
|
||||
CALL banner_ |
|
||||
POP D |
|
||||
LXI H,attroff_ |
|
||||
PUSH H |
|
||||
LXI H,.3+9 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,bgblack_ |
|
||||
PUSH H |
|
||||
LXI H,fgcyan_ |
|
||||
PUSH H |
|
||||
LXI H,atbold_ |
|
||||
PUSH H |
|
||||
CALL dispattr_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .11 |
|
||||
.10: |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.11: |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16 |
|
||||
CALL .lt |
|
||||
JZ .12 |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
DAD H |
|
||||
LXI D,9 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,6 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.3+12 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .10 |
|
||||
.12: |
|
||||
LXI H,attroff_ |
|
||||
PUSH H |
|
||||
LXI H,.3+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .14 |
|
||||
.13: |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.14: |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16 |
|
||||
CALL .lt |
|
||||
JZ .15 |
|
||||
LXI H,4 |
|
||||
PUSH H |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,7 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,bgblack_ |
|
||||
PUSH H |
|
||||
LXI H,fgcyan_ |
|
||||
PUSH H |
|
||||
LXI H,atbold_ |
|
||||
PUSH H |
|
||||
CALL dispattr_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.3+20 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,attroff_ |
|
||||
PUSH H |
|
||||
LXI H,.3+25 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .17 |
|
||||
.16: |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.17: |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16 |
|
||||
CALL .lt |
|
||||
JZ .18 |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
DAD H |
|
||||
LXI D,10 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,7 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
DAD H |
|
||||
DAD H |
|
||||
DAD H |
|
||||
XCHG |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
LXI D,map_ |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .19 |
|
||||
LXI H,.3+28 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .20 |
|
||||
.19: |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
DAD H |
|
||||
DAD H |
|
||||
DAD H |
|
||||
XCHG |
|
||||
LXI H,-4-.4 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.3+30 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.20: |
|
||||
JMP .16 |
|
||||
.18: |
|
||||
LXI H,bgblack_ |
|
||||
PUSH H |
|
||||
LXI H,fgcyan_ |
|
||||
PUSH H |
|
||||
LXI H,atbold_ |
|
||||
PUSH H |
|
||||
CALL dispattr_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-6-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.3+33 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,attroff_ |
|
||||
PUSH H |
|
||||
LXI H,.3+40 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .13 |
|
||||
.15: |
|
||||
.9: |
|
||||
LXI H,0 |
|
||||
RET |
|
||||
.4 EQU -10 |
|
||||
.3: |
|
||||
DB 37,99,0,67,72,65,82,83,0,37,115,0,91,37,120 |
|
||||
DB 93,0,37,115,0,91,37,120,93,0,37,115,0,46,0 |
|
||||
DB 37,99,0,32,32,91,37,120,93,0,37,115,0 |
|
||||
extrn atoi_ |
|
||||
extrn printf_ |
|
||||
extrn banner_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn .eq |
|
||||
extrn .lt |
|
||||
END |
|
||||
|
|
||||
@ -0,0 +1,118 @@ |
|||||
|
if exist *.bak erase *.bak |
||||
|
if exist *.prn erase *.prn |
||||
|
if exist *.o erase *.o |
||||
|
if exist *.rel erase *.rel |
||||
|
if exist *.cpm erase *.cpm |
||||
|
if exist 2drive.asm erase 2drive.asm |
||||
|
if exist 2map.asm erase 2map.asm |
||||
|
if exist banker.asm erase banker.asm |
||||
|
if exist cbanner.asm erase cbanner.asm |
||||
|
if exist chars.asm erase chars.asm |
||||
|
if exist clear.asm erase clear.asm |
||||
|
if exist clogical.asm erase clogical.asm |
||||
|
if exist cls.asm erase cls.asm |
||||
|
if exist cmemory.asm erase cmemory.asm |
||||
|
if exist cnamept*.asm erase cnamept*.asm |
||||
|
if exist convert.asm erase convert.asm |
||||
|
if exist cpmname.asm erase cpmname.asm |
||||
|
if exist ctermcap.asm erase ctermcap.asm |
||||
|
if exist cvt2h.asm erase cvt2h.asm |
||||
|
if exist diskcopy.asm erase diskcopy.asm |
||||
|
if exist doit.asm erase doit.asm |
||||
|
if exist dump.asm erase dump.asm |
||||
|
if exist editor.asm erase editor.asm |
||||
|
if exist flip.asm erase flip.asm |
||||
|
if exist form.asm erase form.asm |
||||
|
if exist formfeed.asm erase formfeed.asm |
||||
|
if exist getcfg.asm erase getcfg.asm |
||||
|
if exist hello.asm erase hello.asm |
||||
|
if exist help.asm erase help.asm |
||||
|
if exist label.asm erase label.asm |
||||
|
if exist map.asm erase map.asm |
||||
|
if exist menu.asm erase menu.asm |
||||
|
if exist menu1.asm erase menu1.asm |
||||
|
if exist menucol.asm erase menucol.asm |
||||
|
if exist meta.asm erase meta.asm |
||||
|
if exist mkrasm80.asm erase mkrasm80.asm |
||||
|
if exist monitor.asm erase monitor.asm |
||||
|
if exist multifmt.asm erase multifmt.asm |
||||
|
if exist n8chars.asm erase n8chars.asm |
||||
|
if exist n8vidtst.asm erase n8vidtst.asm |
||||
|
if exist portio.asm erase portio.asm |
||||
|
if exist psecio.asm erase psecio.asm |
||||
|
if exist putc.asm erase putc.asm |
||||
|
if exist reconv.asm erase reconv.asm |
||||
|
if exist remote.asm erase remote.asm |
||||
|
if exist sectorio.asm erase sectorio.asm |
||||
|
if exist stat9918.asm erase stat9918.asm |
||||
|
if exist sysgen.asm erase sysgen.asm |
||||
|
if exist termtype.asm erase termtype.asm |
||||
|
if exist test.asm ertase test.asm |
||||
|
if exist tester.asm erase tester.asm |
||||
|
if exist testn8.asm erase testn8.asm |
||||
|
if exist testv5.asm erase testv5.asm |
||||
|
if exist testv6.asm erase testv6.asm |
||||
|
if exist tms9918.asm erase tms9918.asm |
||||
|
if exist tms9918x.asm erase tms9918x.asm |
||||
|
if exist tmsbind.asm erase tmsbind.asm |
||||
|
if exist tmsstat.asm erase tmsstat.asm |
||||
|
if exist trackio.asm erase trackio.asm |
||||
|
if exist video.asm erase video.asm |
||||
|
if exist view.asm erase view.asm |
||||
|
if exist 2drive.o erase 2drive.o |
||||
|
if exist 2map.o erase 2map.o |
||||
|
if exist banker.o erase banker.o |
||||
|
if exist cbanner.o erase cbanner.o |
||||
|
if exist chars.o erase chars.o |
||||
|
if exist clear.o erase clear.o |
||||
|
if exist clogical.o erase clogical.o |
||||
|
if exist cls.o erase cls.o |
||||
|
if exist cmemory.o erase cmemory.o |
||||
|
if exist cnamept*.o erase cnamept*.o |
||||
|
if exist convert.o erase convert.o |
||||
|
if exist cpmname.o erase cpmname.o |
||||
|
if exist ctermcap.o erase ctermcap.o |
||||
|
if exist cvt2h.o erase cvt2h.o |
||||
|
if exist diskcopy.o erase diskcopy.o |
||||
|
if exist doit.o erase doit.o |
||||
|
if exist dump.o erase dump.o |
||||
|
if exist editor.o erase editor.o |
||||
|
if exist flip.o erase flip.o |
||||
|
if exist form.o erase form.o |
||||
|
if exist formfeed.o erase formfeed.o |
||||
|
if exist getcfg.o erase getcfg.o |
||||
|
if exist hello.o erase hello.o |
||||
|
if exist help.o erase help.o |
||||
|
if exist label.o erase label.o |
||||
|
if exist map.o erase map.o |
||||
|
if exist menu.o erase menu.o |
||||
|
if exist menu1.o erase menu1.o |
||||
|
if exist menucol.o erase menucol.o |
||||
|
if exist meta.o erase meta.o |
||||
|
if exist metadata.o erase metadata.o |
||||
|
if exist mkrasm80.o erase mkrasm80.o |
||||
|
if exist monitor.o erase monitor.o |
||||
|
if exist multifmt.o erase multifmt.o |
||||
|
if exist n8chars.o erase n8chars.o |
||||
|
if exist n8vidtst.o erase n8vidtst.o |
||||
|
if exist portio.o erase portio.o |
||||
|
if exist psecio.o erase psecio.o |
||||
|
if exist putc.o erase putc.o |
||||
|
if exist reconv.o erase reconv.o |
||||
|
if exist remote.o erase remote.o |
||||
|
if exist sectorio.o erase sectorio.o |
||||
|
if exist stat9918.o erase stat9918.o |
||||
|
if exist sysgen.o erase sysgen.o |
||||
|
if exist termtype.o erase termtype.o |
||||
|
if exist test.o ertase test.o |
||||
|
if exist tester.o erase tester.o |
||||
|
if exist testn8.o erase testn8.o |
||||
|
if exist testv5.o erase testv5.o |
||||
|
if exist testv6.o erase testv6.o |
||||
|
if exist tms9918.o erase tms9918.o |
||||
|
if exist tms9918x.o erase tms9918x.o |
||||
|
if exist tmsbind.o erase tmsbind.o |
||||
|
if exist tmsstat.o erase tmsstat.o |
||||
|
if exist trackio.o erase trackio.o |
||||
|
if exist video.o erase video.o |
||||
|
if exist view.o erase view.o |
||||
@ -1,44 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global style_,1 |
|
||||
global vdp_rege_,960 |
|
||||
global pINFOLIS_,2 |
|
||||
global metadata_,128 |
|
||||
global pCNFGDAT_,2 |
|
||||
global pSYSCFG_,2 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.2 EQU -1 |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
END |
|
||||
|
|
||||
@ -1,159 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
PUBLIC lugcur_ |
|
||||
lugcur_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-6602 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LHLD xregde_ |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
PUBLIC lugnum_ |
|
||||
lugnum_: lxi d,.3 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-6602 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LHLD xreghl_ |
|
||||
RET |
|
||||
.3 EQU 0 |
|
||||
PUBLIC lugdu_ |
|
||||
lugdu_: lxi d,.4 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-6602 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LHLD xregbc_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
RET |
|
||||
.4 EQU 0 |
|
||||
PUBLIC luscur_ |
|
||||
luscur_: lxi d,.5 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-6602 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LHLD xreghl_ |
|
||||
PUSH H |
|
||||
LXI H,12-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LHLD xregbc_ |
|
||||
PUSH H |
|
||||
LXI H,-6599 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
RET |
|
||||
.5 EQU 0 |
|
||||
PUBLIC lusnum_ |
|
||||
lusnum_: lxi d,.6 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12-.6 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-6602 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,10-.6 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LHLD xregde_ |
|
||||
PUSH H |
|
||||
LHLD xregbc_ |
|
||||
PUSH H |
|
||||
LXI H,-6599 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
RET |
|
||||
.6 EQU 0 |
|
||||
extrn asmif_ |
|
||||
extrn xreghl_ |
|
||||
extrn xregde_ |
|
||||
extrn xregbc_ |
|
||||
extrn .ur |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -1,527 +0,0 @@ |
|||||
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 |
|
||||
|
|
||||
Binary file not shown.
@ -1,480 +0,0 @@ |
|||||
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 |
|
||||
|
|
||||
Binary file not shown.
@ -1,794 +0,0 @@ |
|||||
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 |
|
||||
|
|
||||
Binary file not shown.
@ -1,742 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global cache_,17 |
|
||||
PUBLIC cnamept4_ |
|
||||
cnamept4_: 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 |
|
||||
LXI H,24 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,3 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .3 |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,63 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+41 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .4 |
|
||||
.6: |
|
||||
LXI H,.1+61 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.7: |
|
||||
LXI H,.1+66 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.8: |
|
||||
LXI H,.1+72 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.4: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.7 |
|
||||
DW 1,.6 |
|
||||
DW .8 |
|
||||
.5: |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+82 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,66 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .9 |
|
||||
.11: |
|
||||
LXI H,.1+102 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .10 |
|
||||
.12: |
|
||||
LXI H,.1+107 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .10 |
|
||||
.13: |
|
||||
LXI H,.1+113 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .10 |
|
||||
.9: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.12 |
|
||||
DW 1,.11 |
|
||||
DW .13 |
|
||||
.10: |
|
||||
CALL pager_ |
|
||||
.3: |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,67 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+123 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+149 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .14 |
|
||||
.16: |
|
||||
LXI H,.1+169 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .15 |
|
||||
.17: |
|
||||
LXI H,.1+178 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .15 |
|
||||
.18: |
|
||||
LXI H,.1+188 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .15 |
|
||||
.19: |
|
||||
LXI H,.1+198 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .15 |
|
||||
.20: |
|
||||
LXI H,.1+208 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .15 |
|
||||
.14: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.16 |
|
||||
DW 1,.17 |
|
||||
DW 2,.18 |
|
||||
DW 3,.19 |
|
||||
DW .20 |
|
||||
.15: |
|
||||
CALL pager_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,69 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+218 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+240 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,84 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .21 |
|
||||
.23: |
|
||||
LXI H,.1+260 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .22 |
|
||||
.24: |
|
||||
LXI H,.1+265 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .22 |
|
||||
.25: |
|
||||
LXI H,.1+271 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .22 |
|
||||
.21: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.24 |
|
||||
DW 1,.23 |
|
||||
DW .25 |
|
||||
.22: |
|
||||
CALL pager_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,84 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .26 |
|
||||
LXI H,.1+281 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,71 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .27 |
|
||||
.29: |
|
||||
LXI H,.1+301 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .28 |
|
||||
.30: |
|
||||
LXI H,.1+306 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .28 |
|
||||
.31: |
|
||||
LXI H,.1+312 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .28 |
|
||||
.27: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.30 |
|
||||
DW 1,.29 |
|
||||
DW .31 |
|
||||
.28: |
|
||||
CALL pager_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,71 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .32 |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+322 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,72 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .33 |
|
||||
.35: |
|
||||
LXI H,.1+342 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .34 |
|
||||
.36: |
|
||||
LXI H,.1+349 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .34 |
|
||||
.37: |
|
||||
LXI H,.1+356 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .34 |
|
||||
.38: |
|
||||
LXI H,.1+367 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .34 |
|
||||
.33: |
|
||||
CALL .swt |
|
||||
DW 3 |
|
||||
DW 0,.35 |
|
||||
DW 1,.36 |
|
||||
DW 2,.37 |
|
||||
DW .38 |
|
||||
.34: |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+377 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+397 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,75 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .39 |
|
||||
.41: |
|
||||
LXI H,.1+417 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .40 |
|
||||
.42: |
|
||||
LXI H,.1+422 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .40 |
|
||||
.43: |
|
||||
LXI H,.1+428 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .40 |
|
||||
.39: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.42 |
|
||||
DW 1,.41 |
|
||||
DW .43 |
|
||||
.40: |
|
||||
CALL pager_ |
|
||||
.32: |
|
||||
.26: |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,76 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+438 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+460 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,78 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .44 |
|
||||
.46: |
|
||||
LXI H,.1+480 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .45 |
|
||||
.47: |
|
||||
LXI H,.1+485 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .45 |
|
||||
.48: |
|
||||
LXI H,.1+491 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .45 |
|
||||
.44: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.47 |
|
||||
DW 1,.46 |
|
||||
DW .48 |
|
||||
.45: |
|
||||
CALL pager_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,78 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .49 |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+501 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,79 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .50 |
|
||||
.52: |
|
||||
LXI H,.1+520 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .51 |
|
||||
.53: |
|
||||
LXI H,.1+525 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .51 |
|
||||
.54: |
|
||||
LXI H,.1+531 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .51 |
|
||||
.50: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.53 |
|
||||
DW 1,.52 |
|
||||
DW .54 |
|
||||
.51: |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+541 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,80 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .55 |
|
||||
.57: |
|
||||
LXI H,.1+561 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .56 |
|
||||
.58: |
|
||||
LXI H,.1+568 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .56 |
|
||||
.59: |
|
||||
LXI H,.1+575 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .56 |
|
||||
.60: |
|
||||
LXI H,.1+586 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .56 |
|
||||
.55: |
|
||||
CALL .swt |
|
||||
DW 3 |
|
||||
DW 0,.57 |
|
||||
DW 1,.58 |
|
||||
DW 2,.59 |
|
||||
DW .60 |
|
||||
.56: |
|
||||
CALL pager_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,73 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+596 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
LXI H,cache_ |
|
||||
PUSH H |
|
||||
LXI H,.1+618 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,83 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
XCHG |
|
||||
JMP .61 |
|
||||
.63: |
|
||||
LXI H,.1+638 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .62 |
|
||||
.64: |
|
||||
LXI H,.1+643 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .62 |
|
||||
.65: |
|
||||
LXI H,.1+649 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .62 |
|
||||
.61: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.64 |
|
||||
DW 1,.63 |
|
||||
DW .65 |
|
||||
.62: |
|
||||
CALL pager_ |
|
||||
.49: |
|
||||
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,115,100,99,97,112,97,99,105,116,121 |
|
||||
DB 32,32,32,32,61,32,37,117,75,66,0,37,115,46,115 |
|
||||
DB 100,99,115,105,111,32,32,32,32,32,32,32,32,61,32 |
|
||||
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107 |
|
||||
DB 110,111,119,110,33,33,0,37,115,46,115,100,99,115,105 |
|
||||
DB 111,102,97,115,116,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,100,101,102,105,111,98,121,116,101 |
|
||||
DB 32,32,32,32,32,61,32,48,120,37,48,50,120,0,37 |
|
||||
DB 115,46,116,101,114,109,116,121,112,101,32,32,32,32,32 |
|
||||
DB 32,61,32,0,84,69,82,77,95,84,84,89,0,84,69 |
|
||||
DB 82,77,95,65,78,83,73,0,84,69,82,77,95,87,89 |
|
||||
DB 83,69,0,84,69,82,77,95,86,84,53,50,0,85,110 |
|
||||
DB 107,110,111,119,110,33,33,0,37,115,46,114,101,118,105 |
|
||||
DB 115,105,111,110,32,32,32,32,32,32,61,32,37,100,0 |
|
||||
DB 37,115,46,112,114,112,101,110,97,98,108,101,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,112 |
|
||||
DB 114,112,115,100,101,110,97,98,108,101,32,32,32,61,32 |
|
||||
DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107 |
|
||||
DB 110,111,119,110,33,33,0,37,115,46,112,114,112,115,100 |
|
||||
DB 116,114,97,99,101,32,32,32,32,61,32,0,83,73,76 |
|
||||
DB 69,78,84,0,69,82,82,79,82,83,0,69,86,69,82 |
|
||||
DB 89,84,72,73,78,71,0,85,110,107,110,111,119,110,33 |
|
||||
DB 33,0,37,115,46,112,114,112,115,100,99,97,112,97,99 |
|
||||
DB 105,116,121,32,61,32,0,37,115,46,112,114,112,99,111 |
|
||||
DB 110,101,110,97,98,108,101,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,98,105,111,115,115,105,122,101,32 |
|
||||
DB 32,32,32,32,32,61,32,37,100,0,37,115,46,112,112 |
|
||||
DB 112,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,85,110,107,110 |
|
||||
DB 111,119,110,33,33,0,37,115,46,112,112,112,115,100,101 |
|
||||
DB 110,97,98,108,101,32,32,61,32,0,84,82,85,69,0 |
|
||||
DB 70,65,76,83,69,0,85,110,107,110,111,119,110,33,33 |
|
||||
DB 0,37,115,46,112,112,112,115,100,116,114,97,99,101,32 |
|
||||
DB 32,32,32,61,32,0,83,73,76,69,78,84,0,69,82 |
|
||||
DB 82,79,82,83,0,69,86,69,82,89,84,72,73,78,71 |
|
||||
DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112 |
|
||||
DB 112,112,99,97,112,97,99,105,116,121,32,32,32,61,32 |
|
||||
DB 37,100,0,37,115,46,112,112,112,99,111,110,101,110,97 |
|
||||
DB 98,108,101,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 |
|
||||
|
|
||||
Binary file not shown.
@ -1,28 +1,49 @@ |
|||||
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
|
||||
|
@rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
||||
|
|
||||
if not exist access.cpm call access.bat |
|
||||
|
@@if not exist access.cpm call access.bat |
||||
|
@@if not exist access.cpm echo WARNING ACCESS DIDN'T BUILD |
||||
|
@@if not exist access.cpm pause |
||||
|
|
||||
if not exist cpmname.cpm call cpmname.bat |
|
||||
|
@@if not exist cpmname.cpm call cpmname.bat |
||||
|
@@if not exist cpmname.cpm echo WARNING CPMNAME DIDN'T BUILD |
||||
|
@@if not exist cpmname.cpm pause |
||||
|
|
||||
if not exist findfile.cpm call findfile.bat |
|
||||
if not exist findfile.cpm pause |
|
||||
|
@if not exist findfile.cpm call findfile.bat |
||||
|
@if not exist findfile.cpm echo WARNING FINDFILE DIDN'T BUILD |
||||
|
@if not exist findfile.cpm pause |
||||
|
|
||||
if not exist map.cpm call map.bat |
|
||||
|
@if not exist map.cpm call map.bat |
||||
|
@if not exist map.cpm echo WARNING MAP DIDN'T BUILD |
||||
|
@if not exist map.cpm pause |
||||
|
|
||||
if not exist meta.cpm call meta.bat |
|
||||
|
@if not exist meta.cpm call meta.bat |
||||
|
@if not exist meta.cpm echo WARNING META DIDN'T BUILD |
||||
|
@if not exist meta.cpm pause |
||||
|
|
||||
if not exist multifmt.cpm call multifmt.bat |
|
||||
|
@if not exist multifmt.cpm call multifmt.bat |
||||
|
@if not exist multifmt.cpm echo WARNING MULTIFMT DIDN'T BUILD |
||||
|
@if not exist multifmt.cpm pause |
||||
|
|
||||
if not exist rem.cpm call makerem.bat |
|
||||
|
@if not exist rem.cpm call makerem.bat |
||||
|
@if not exist rem.cpm echo WARNING REM DIDN'T BUILD |
||||
|
@if not exist rem.cpm pause |
||||
|
|
||||
if not exist setlabel.cpm call setlabel.bat |
|
||||
|
@if not exist setlabel.cpm call setlabel.bat |
||||
|
@if not exist setlabel.cpm echo WARNING SETLABEL DIDN'T BUILD |
||||
|
@if not exist setlabel.cpm pause |
||||
|
|
||||
if not exist sysgen.cpm call sysgen.bat |
|
||||
|
@if not exist sysgen.cpm call sysgen.bat |
||||
|
@if not exist sysgen.cpm echo WARNING SYSGEN DIDN'T BUILD |
||||
|
@if not exist sysgen.cpm pause |
||||
|
|
||||
if not exist termtype.cpm call termtype.bat |
|
||||
|
@if not exist termtype.cpm call termtype.bat |
||||
|
@if not exist termtype.cpm echo WARNING TERMTYPE DIDN'T BUILD |
||||
|
@if not exist termtype.cpm pause |
||||
|
|
||||
if not exist view.cpm call view.bat |
|
||||
|
@if not exist view.cpm call view.bat |
||||
|
@if not exist view.cpm echo WARNING VIEW DIDN'T BUILD |
||||
|
@if not exist view.cpm pause |
||||
|
|
||||
rem All Core Apps Built |
|
||||
dir *.cpm /w |
|
||||
|
@echo All Core Apps Built |
||||
|
@dir *.cpm /w |
||||
|
|
||||
|
|||||
@ -1,38 +1,49 @@ |
|||||
rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
|
||||
|
@rem coreapps.bat 2/15/2013 dwg - build all core apps using batch files |
||||
|
|
||||
if not exist access.cpm call access.bat |
|
||||
if not exist access.cpm pause |
|
||||
|
@@if not exist access.cpm call access.bat |
||||
|
@@if not exist access.cpm echo WARNING ACCESS DIDN'T BUILD |
||||
|
@@if not exist access.cpm pause |
||||
|
|
||||
if not exist cpmname.cpm call cpmname.bat |
|
||||
if not exist cpmname.cpm pause |
|
||||
|
@@if not exist cpmname.cpm call cpmname.bat |
||||
|
@@if not exist cpmname.cpm echo WARNING CPMNAME DIDN'T BUILD |
||||
|
@@if not exist cpmname.cpm pause |
||||
|
|
||||
if not exist findfile.cpm call findfile.bat |
|
||||
if not exist findfile.cpm pause |
|
||||
|
@if not exist findfile.cpm call findfile.bat |
||||
|
@if not exist findfile.cpm echo WARNING FINDFILE DIDN'T BUILD |
||||
|
@if not exist findfile.cpm pause |
||||
|
|
||||
if not exist map.cpm call map.bat |
|
||||
if not exist map.cpm pause |
|
||||
|
@if not exist map.cpm call map.bat |
||||
|
@if not exist map.cpm echo WARNING MAP DIDN'T BUILD |
||||
|
@if not exist map.cpm pause |
||||
|
|
||||
if not exist meta.cpm call meta.bat |
|
||||
if not exist meta.cpm pause |
|
||||
|
@if not exist meta.cpm call meta.bat |
||||
|
@if not exist meta.cpm echo WARNING META DIDN'T BUILD |
||||
|
@if not exist meta.cpm pause |
||||
|
|
||||
if not exist multifmt.cpm call multifmt.bat |
|
||||
if not exist multifmt.cpm pause |
|
||||
|
@if not exist multifmt.cpm call multifmt.bat |
||||
|
@if not exist multifmt.cpm echo WARNING MULTIFMT DIDN'T BUILD |
||||
|
@if not exist multifmt.cpm pause |
||||
|
|
||||
if not exist rem.cpm call makerem.bat |
|
||||
if not exist rem.cpm pause |
|
||||
|
@if not exist rem.cpm call makerem.bat |
||||
|
@if not exist rem.cpm echo WARNING REM DIDN'T BUILD |
||||
|
@if not exist rem.cpm pause |
||||
|
|
||||
if not exist setlabel.cpm call setlabel.bat |
|
||||
if not exist setlabel.cpm pause |
|
||||
|
@if not exist setlabel.cpm call setlabel.bat |
||||
|
@if not exist setlabel.cpm echo WARNING SETLABEL DIDN'T BUILD |
||||
|
@if not exist setlabel.cpm pause |
||||
|
|
||||
if not exist sysgen.cpm call sysgen.bat |
|
||||
if not exist sysgen.cpm pause |
|
||||
|
@if not exist sysgen.cpm call sysgen.bat |
||||
|
@if not exist sysgen.cpm echo WARNING SYSGEN DIDN'T BUILD |
||||
|
@if not exist sysgen.cpm pause |
||||
|
|
||||
if not exist termtype.cpm call termtype.bat |
|
||||
if not exist termtype.cpm pause |
|
||||
|
@if not exist termtype.cpm call termtype.bat |
||||
|
@if not exist termtype.cpm echo WARNING TERMTYPE DIDN'T BUILD |
||||
|
@if not exist termtype.cpm pause |
||||
|
|
||||
if not exist view.cpm call view.bat |
|
||||
if not exist view.cpm pause |
|
||||
|
@if not exist view.cpm call view.bat |
||||
|
@if not exist view.cpm echo WARNING VIEW DIDN'T BUILD |
||||
|
@if not exist view.cpm pause |
||||
|
|
||||
rem All Core Apps Built |
|
||||
dir *.cpm /w |
|
||||
|
@echo All Core Apps Built |
||||
|
@dir *.cpm |
||||
|
|
||||
|
|||||
@ -1,164 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global pINFOLIS_,2 |
|
||||
global pSYSCFG_,2 |
|
||||
global line_,2 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,5 |
|
||||
SHLD line_ |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,3 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,2013 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,16 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,.1+36 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
CALL pager_ |
|
||||
CALL pager_ |
|
||||
LXI H,-6596 |
|
||||
SHLD ireghl_ |
|
||||
CALL bioscall_ |
|
||||
LHLD ireghl_ |
|
||||
SHLD pINFOLIS_ |
|
||||
LXI H,.1+72 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LHLD pINFOLIS_ |
|
||||
INX H |
|
||||
INX H |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD dregde_ |
|
||||
LXI H,9 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
CALL pager_ |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
PUSH H |
|
||||
CALL cnamept1_ |
|
||||
POP D |
|
||||
LHLD pSYSCFG_ |
|
||||
PUSH H |
|
||||
CALL cnamept2_ |
|
||||
POP D |
|
||||
LHLD pSYSCFG_ |
|
||||
PUSH H |
|
||||
CALL cnamept3_ |
|
||||
POP D |
|
||||
LHLD pSYSCFG_ |
|
||||
PUSH H |
|
||||
CALL cnamept4_ |
|
||||
POP D |
|
||||
RET |
|
||||
.2 EQU -7 |
|
||||
.1: |
|
||||
DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47 |
|
||||
DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100 |
|
||||
DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105 |
|
||||
DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111 |
|
||||
DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78 |
|
||||
DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32 |
|
||||
DB 61,61,62,32,0 |
|
||||
PUBLIC pager_ |
|
||||
pager_: lxi d,.4 |
|
||||
call csave |
|
||||
LHLD line_ |
|
||||
INX H |
|
||||
SHLD line_ |
|
||||
LXI H,.3+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,24 |
|
||||
XCHG |
|
||||
LHLD line_ |
|
||||
CALL .eq |
|
||||
JZ .5 |
|
||||
LXI H,.3+2 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
LXI H,1 |
|
||||
SHLD line_ |
|
||||
.5: |
|
||||
RET |
|
||||
.4 EQU 0 |
|
||||
.3: |
|
||||
DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110 |
|
||||
DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110 |
|
||||
DB 117,101,0 |
|
||||
extrn printf_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn cnamept4_ |
|
||||
extrn cnamept3_ |
|
||||
extrn cnamept2_ |
|
||||
extrn cnamept1_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn bdoscall_ |
|
||||
extrn dregde_ |
|
||||
extrn dregbc_ |
|
||||
extrn bioscall_ |
|
||||
extrn ireghl_ |
|
||||
extrn .eq |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
@ -1,334 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global termtype_,1 |
|
||||
DSEG |
|
||||
public wy50row_ |
|
||||
wy50row_: |
|
||||
DB 32 |
|
||||
DB 33 |
|
||||
DB 34 |
|
||||
DB 35 |
|
||||
DB 36 |
|
||||
DB 37 |
|
||||
DB 38 |
|
||||
DB 39 |
|
||||
DB 40 |
|
||||
DB 41 |
|
||||
DB 42 |
|
||||
DB 43 |
|
||||
DB 44 |
|
||||
DB 45 |
|
||||
DB 46 |
|
||||
DB 47 |
|
||||
DB 48 |
|
||||
DB 49 |
|
||||
DB 50 |
|
||||
DB 51 |
|
||||
DB 52 |
|
||||
DB 53 |
|
||||
DB 54 |
|
||||
DB 55 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public wy50col_ |
|
||||
wy50col_: |
|
||||
DB 32 |
|
||||
DB 33 |
|
||||
DB 34 |
|
||||
DB 35 |
|
||||
DB 36 |
|
||||
DB 37 |
|
||||
DB 38 |
|
||||
DB 39 |
|
||||
DB 40 |
|
||||
DB 41 |
|
||||
DB 42 |
|
||||
DB 43 |
|
||||
DB 44 |
|
||||
DB 45 |
|
||||
DB 46 |
|
||||
DB 47 |
|
||||
DB 48 |
|
||||
DB 49 |
|
||||
DB 50 |
|
||||
DB 51 |
|
||||
DB 52 |
|
||||
DB 53 |
|
||||
DB 54 |
|
||||
DB 55 |
|
||||
DB 56 |
|
||||
DB 57 |
|
||||
DB 58 |
|
||||
DB 59 |
|
||||
DB 60 |
|
||||
DB 61 |
|
||||
DB 62 |
|
||||
DB 63 |
|
||||
DB 64 |
|
||||
DB 65 |
|
||||
DB 66 |
|
||||
DB 67 |
|
||||
DB 68 |
|
||||
DB 69 |
|
||||
DB 70 |
|
||||
DB 71 |
|
||||
DB 72 |
|
||||
DB 73 |
|
||||
DB 74 |
|
||||
DB 75 |
|
||||
DB 76 |
|
||||
DB 77 |
|
||||
DB 78 |
|
||||
DB 79 |
|
||||
DB 80 |
|
||||
DB 81 |
|
||||
DB 82 |
|
||||
DB 83 |
|
||||
DB 84 |
|
||||
DB 85 |
|
||||
DB 86 |
|
||||
DB 87 |
|
||||
DB 88 |
|
||||
DB 89 |
|
||||
DB 90 |
|
||||
DB 91 |
|
||||
DB 92 |
|
||||
DB 93 |
|
||||
DB 94 |
|
||||
DB 95 |
|
||||
DB 96 |
|
||||
DB 97 |
|
||||
DB 98 |
|
||||
DB 99 |
|
||||
DB 100 |
|
||||
DB 101 |
|
||||
DB 102 |
|
||||
DB 103 |
|
||||
DB 104 |
|
||||
DB 105 |
|
||||
DB 106 |
|
||||
DB 107 |
|
||||
DB 108 |
|
||||
DB 109 |
|
||||
DB 110 |
|
||||
DB 111 |
|
||||
CSEG |
|
||||
PUBLIC crtinit_ |
|
||||
crtinit_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
XCHG |
|
||||
MOV A,L |
|
||||
STA termtype_ |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
PUBLIC crtclr_ |
|
||||
crtclr_: lxi d,.3 |
|
||||
call csave |
|
||||
LDA termtype_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .4 |
|
||||
.6: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.3 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .8 |
|
||||
.7: |
|
||||
LXI H,2-.3 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.8: |
|
||||
LXI H,2-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,43 |
|
||||
CALL .lt |
|
||||
JZ .9 |
|
||||
LXI H,10 |
|
||||
PUSH H |
|
||||
LXI H,13 |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .7 |
|
||||
.9: |
|
||||
JMP .5 |
|
||||
.10: |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.1+5 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.11: |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.1+11 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.12: |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.1+15 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.4: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.6 |
|
||||
DW 1,.10 |
|
||||
DW 2,.11 |
|
||||
DW 3,.12 |
|
||||
DW .5 |
|
||||
.5: |
|
||||
RET |
|
||||
.3 EQU -2 |
|
||||
.1: |
|
||||
DB 37,99,37,99,0,37,99,91,50,74,0,37,99,43,0 |
|
||||
DB 37,99,74,37,99,72,0 |
|
||||
PUBLIC crtlc_ |
|
||||
crtlc_: lxi d,.14 |
|
||||
call csave |
|
||||
LDA termtype_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .15 |
|
||||
.17: |
|
||||
JMP .16 |
|
||||
.18: |
|
||||
LXI H,102 |
|
||||
PUSH H |
|
||||
LXI H,12-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,12-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.13+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .16 |
|
||||
.19: |
|
||||
LXI H,10-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,wy50col_ |
|
||||
DAD D |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,10-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,wy50row_ |
|
||||
DAD D |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.13+11 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .16 |
|
||||
.20: |
|
||||
LXI H,10-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,32 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,10-.14 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,32 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,27 |
|
||||
PUSH H |
|
||||
LXI H,.13+19 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .16 |
|
||||
.15: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.17 |
|
||||
DW 1,.18 |
|
||||
DW 2,.19 |
|
||||
DW 3,.20 |
|
||||
DW .16 |
|
||||
.16: |
|
||||
RET |
|
||||
.14 EQU -2 |
|
||||
.13: |
|
||||
DB 37,99,91,37,100,59,37,100,37,99,0,37,99,61,37 |
|
||||
DB 99,37,99,0,37,99,89,37,99,37,99,0 |
|
||||
extrn printf_ |
|
||||
extrn .lt |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,12 +0,0 @@ |
|||||
rem findfile.sub 9/5/2012 dwg - make findfile.com from sources |
|
||||
if not exist findfile.rel z80mu rmac findfile |
|
||||
if not exist printers.rel z80mu rmac printers |
|
||||
if not exist terminal.rel z80mu rmac terminal |
|
||||
if not exist memory.rel z80mu rmac memory |
|
||||
if not exist banner.rel z80mu rmac banner |
|
||||
if not exist identity.rel z80mu rmac identity |
|
||||
if not exist hbios.rel z80mu rmac hbios |
|
||||
if not exist findfile.cpm z80mu link findfile,hbios,identity,banner,memory,printers,terminal |
|
||||
if not exist findfile.cpm copy findfile.com findfile.cpm |
|
||||
dir findfile.cpm |
|
||||
|
|
||||
Binary file not shown.
@ -1,428 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
PUBLIC vdaini_ |
|
||||
vdaini_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16384 |
|
||||
CALL .or |
|
||||
SHLD hregbc_ |
|
||||
LHLD hregbc_ |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hregde_ |
|
||||
LHLD hregde_ |
|
||||
PUSH H |
|
||||
LXI H,.1+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hreghl_ |
|
||||
LHLD hreghl_ |
|
||||
PUSH H |
|
||||
LXI H,.1+34 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL diagnose_ |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+51 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
.1: |
|
||||
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120 |
|
||||
DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48 |
|
||||
DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120 |
|
||||
DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97 |
|
||||
DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111 |
|
||||
DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0 |
|
||||
PUBLIC bitlook_ |
|
||||
bitlook_: lxi d,.4 |
|
||||
call csave |
|
||||
LXI H,-32768 |
|
||||
XCHG |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .6 |
|
||||
.5: |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.6: |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,256 |
|
||||
CALL .lt |
|
||||
JZ .7 |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.3+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .9 |
|
||||
.8: |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.9: |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,8 |
|
||||
CALL .lt |
|
||||
JZ .10 |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.3+16 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .8 |
|
||||
.10: |
|
||||
LXI H,.3+24 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.7: |
|
||||
RET |
|
||||
.4 EQU -6 |
|
||||
.3: |
|
||||
DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32 |
|
||||
DB 0,48,120,37,48,50,120,32,0,10,0 |
|
||||
PUBLIC vdaqry_ |
|
||||
vdaqry_: lxi d,.12 |
|
||||
call csave |
|
||||
LXI H,8-.12 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16640 |
|
||||
CALL .or |
|
||||
SHLD hregbc_ |
|
||||
LHLD hregbc_ |
|
||||
PUSH H |
|
||||
LXI H,.11+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.12 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hreghl_ |
|
||||
LHLD hreghl_ |
|
||||
LXI D,-32768 |
|
||||
CALL .ne |
|
||||
JZ .13 |
|
||||
LXI H,.11+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.13: |
|
||||
CALL diagnose_ |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.11+43 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregbc_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LXI H,.11+83 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregde_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
PUSH H |
|
||||
LHLD hregde_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
PUSH H |
|
||||
LXI H,.11+123 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregde_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LHLD hregde_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LXI H,.11+167 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.12 EQU 0 |
|
||||
.11: |
|
||||
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120 |
|
||||
DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104 |
|
||||
DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68 |
|
||||
DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116 |
|
||||
DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32 |
|
||||
DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109 |
|
||||
DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50 |
|
||||
DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32 |
|
||||
DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41 |
|
||||
DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32 |
|
||||
DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10 |
|
||||
DB 0 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.15 |
|
||||
call csave |
|
||||
LXI H,.14+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,-32768 |
|
||||
PUSH H |
|
||||
LXI H,64 |
|
||||
PUSH H |
|
||||
CALL vdaqry_ |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,-3-.15 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,-32768 |
|
||||
XCHG |
|
||||
LXI H,2-.15 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-1-.15 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .17 |
|
||||
.16: |
|
||||
LXI H,-1-.15 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.17: |
|
||||
LXI H,-1-.15 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2048 |
|
||||
CALL .lt |
|
||||
JZ .18 |
|
||||
LXI H,2-.15 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
MOV E,M |
|
||||
LXI H,1-.15 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,1-.15 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,255 |
|
||||
CALL .xr |
|
||||
XCHG |
|
||||
LXI H,1-.15 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,1-.15 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
PUSH D |
|
||||
LXI H,4-.15 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
POP D |
|
||||
MOV M,E |
|
||||
LXI H,2-.15 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .16 |
|
||||
.18: |
|
||||
LXI H,-32768 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,64 |
|
||||
PUSH H |
|
||||
CALL vdaini_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.15 EQU -7 |
|
||||
.14: |
|
||||
DB 102,108,105,112,46,99,111,109,40,99,41,32,49,49,47 |
|
||||
DB 49,53,47,50,48,49,50,32,100,119,103,32,45,32,10 |
|
||||
DB 10,0 |
|
||||
extrn printf_ |
|
||||
extrn diagnose_ |
|
||||
extrn hreghl_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn hrega_ |
|
||||
extrn .or |
|
||||
extrn .xr |
|
||||
extrn .an |
|
||||
extrn .ne |
|
||||
extrn .lt |
|
||||
extrn .ur |
|
||||
END |
|
||||
|
|
||||
@ -1,646 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global pDPHMAP_,2 |
|
||||
global pDPHVEC_,16 |
|
||||
DSEG |
|
||||
public pSYSCFG_ |
|
||||
pSYSCFG_: |
|
||||
DW -16384 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public form_ |
|
||||
form_: |
|
||||
DW 6 |
|
||||
DW 3 |
|
||||
DW 6 |
|
||||
DB 102 |
|
||||
DB 105 |
|
||||
DB 101 |
|
||||
DB 108 |
|
||||
DB 100 |
|
||||
DB 49 |
|
||||
DB 0 |
|
||||
DW 6 |
|
||||
DW 13 |
|
||||
DB 100 |
|
||||
DB 101 |
|
||||
DB 102 |
|
||||
DB 97 |
|
||||
DB 117 |
|
||||
DB 108 |
|
||||
DB 116 |
|
||||
DB 49 |
|
||||
DB 0 |
|
||||
ds 24 |
|
||||
DW 7 |
|
||||
DW 3 |
|
||||
DW 6 |
|
||||
DB 102 |
|
||||
DB 105 |
|
||||
DB 101 |
|
||||
DB 108 |
|
||||
DB 100 |
|
||||
DB 50 |
|
||||
DB 0 |
|
||||
DW 7 |
|
||||
DW 13 |
|
||||
DB 100 |
|
||||
DB 101 |
|
||||
DB 102 |
|
||||
DB 97 |
|
||||
DB 117 |
|
||||
DB 108 |
|
||||
DB 116 |
|
||||
DB 50 |
|
||||
DB 0 |
|
||||
ds 24 |
|
||||
CSEG |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL banner_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .4 |
|
||||
.3: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.4: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2 |
|
||||
CALL .lt |
|
||||
JZ .5 |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+2 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_ |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+6 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.1+5 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+15 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .7 |
|
||||
.6: |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.7: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL strlen_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
POP H |
|
||||
CALL .lt |
|
||||
JZ .8 |
|
||||
LXI H,.1+8 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .6 |
|
||||
.8: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+15 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.1+10 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .3 |
|
||||
.5: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .10 |
|
||||
.9: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.10: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2 |
|
||||
CALL .lt |
|
||||
JZ .11 |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+15 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,34 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,-30-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL memset_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10 |
|
||||
SHLD dregbc_ |
|
||||
LXI H,-34-.2 |
|
||||
DAD SP |
|
||||
SHLD dregde_ |
|
||||
LXI H,31 |
|
||||
XCHG |
|
||||
LXI H,-34-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-33-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
CALL bdoscall_ |
|
||||
LXI H,-33-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,0 |
|
||||
POP D |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .12 |
|
||||
LXI H,32 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,6-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL memset_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-32-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL strcpy_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.12: |
|
||||
JMP .9 |
|
||||
.11: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .14 |
|
||||
.13: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.14: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2 |
|
||||
CALL .lt |
|
||||
JZ .15 |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+2 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_ |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+6 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.1+13 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+15 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .17 |
|
||||
.16: |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.17: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
CALL strlen_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
POP H |
|
||||
CALL .lt |
|
||||
JZ .18 |
|
||||
LXI H,.1+16 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .16 |
|
||||
.18: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+15 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,50 |
|
||||
CALL .ml |
|
||||
LXI D,form_+17 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.1+18 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .13 |
|
||||
.15: |
|
||||
RET |
|
||||
.2 EQU -38 |
|
||||
.1: |
|
||||
DB 70,79,82,77,0,37,115,0,95,0,37,115,0,37,115 |
|
||||
DB 0,32,0,37,115,0 |
|
||||
extrn strcpy_ |
|
||||
extrn memset_ |
|
||||
extrn strlen_ |
|
||||
extrn printf_ |
|
||||
extrn banner_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn bdoscall_ |
|
||||
extrn dregde_ |
|
||||
extrn dregbc_ |
|
||||
extrn .lt |
|
||||
extrn .ml |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
@ -1,14 +0,0 @@ |
|||||
rem map.bat 7/22/2012 dwg - build map from sources |
|
||||
if not exist map.asm z80mu cc map |
|
||||
if not exist map.o z80mu as map |
|
||||
if not exist asmiface.o z80mu as asmiface |
|
||||
if not exist bdoscall.o z80mu as bdoscall |
|
||||
if not exist bioscall.o z80mu as bioscall |
|
||||
if not exist clogical.asm z80mu cc clogical |
|
||||
if not exist clogical.o z80mu as clogical |
|
||||
if not exist ctermcap.asm z80mu cc ctermcap |
|
||||
if not exist ctermcap.o z80mu as ctermcap |
|
||||
if not exist diagnose.o z80mu as diagnose |
|
||||
if not exist map.cmd z80mu ln map.o asmiface.o bioscall.o bdoscall.o clogical.o diagnose.o ctermcap.o c.lib |
|
||||
if not exist map.cmd rename map.com map.cmd |
|
||||
dir map.cmd |
|
||||
Binary file not shown.
Binary file not shown.
@ -1,750 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global metadata_,128 |
|
||||
global bRunning_,2 |
|
||||
global deflu_,2 |
|
||||
global drive_,2 |
|
||||
global logunit_,2 |
|
||||
global numlu_,2 |
|
||||
DSEG |
|
||||
public pSYSCFG_ |
|
||||
pSYSCFG_: |
|
||||
DW -16384 |
|
||||
CSEG |
|
||||
PUBLIC display_ |
|
||||
display_: lxi d,.2 |
|
||||
call csave |
|
||||
LHLD logunit_ |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL luscur_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,metadata_ |
|
||||
PUSH H |
|
||||
LXI H,11 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL rdsector_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,7 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_ |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,8 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA metadata_+2 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+28 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,9 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.1+56 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .4 |
|
||||
.3: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.4: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,8 |
|
||||
CALL .lt |
|
||||
JZ .5 |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,metadata_+4 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.1+79 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .3 |
|
||||
.5: |
|
||||
LXI H,.1+82 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,10 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA metadata_+12 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.1+84 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+13 |
|
||||
XCHG |
|
||||
LHLD logunit_ |
|
||||
CALL .ne |
|
||||
JZ .6 |
|
||||
LHLD logunit_ |
|
||||
SHLD metadata_+13 |
|
||||
LHLD metadata_+97 |
|
||||
INX H |
|
||||
SHLD metadata_+97 |
|
||||
LXI H,metadata_ |
|
||||
PUSH H |
|
||||
LXI H,11 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL wrsector_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
.6: |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,11 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD numlu_ |
|
||||
PUSH H |
|
||||
LHLD metadata_+13 |
|
||||
PUSH H |
|
||||
LXI H,.1+109 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,12 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.1+150 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LDA metadata_+96 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .7 |
|
||||
.9: |
|
||||
LXI H,.1+172 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .8 |
|
||||
.10: |
|
||||
LXI H,.1+178 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .8 |
|
||||
.11: |
|
||||
LXI H,.1+184 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .8 |
|
||||
.7: |
|
||||
CALL .swt |
|
||||
DW 2 |
|
||||
DW 0,.10 |
|
||||
DW 1,.9 |
|
||||
DW .11 |
|
||||
.8: |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,13 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+97 |
|
||||
PUSH H |
|
||||
LXI H,.1+190 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,14 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA metadata_+101 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LDA metadata_+101 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LDA metadata_+100 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LDA metadata_+99 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+214 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,15 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.1+247 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .13 |
|
||||
.12: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.13: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16 |
|
||||
CALL .lt |
|
||||
JZ .14 |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,metadata_+103 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.1+270 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .12 |
|
||||
.14: |
|
||||
LXI H,.1+273 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+120 |
|
||||
PUSH H |
|
||||
LXI H,.1+275 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,17 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+122 |
|
||||
PUSH H |
|
||||
LXI H,.1+303 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,18 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+124 |
|
||||
PUSH H |
|
||||
LXI H,.1+331 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,19 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD metadata_+126 |
|
||||
PUSH H |
|
||||
LXI H,.1+359 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.2 EQU -2 |
|
||||
.1: |
|
||||
DB 109,101,116,97,100,97,116,97,46,115,105,103,110,97,116 |
|
||||
DB 117,114,101,32,61,32,48,120,37,48,52,120,0,109,101 |
|
||||
DB 116,97,100,97,116,97,46,112,108,97,116,102,111,114,109 |
|
||||
DB 32,32,61,32,48,120,37,48,50,120,0,109,101,116,97 |
|
||||
DB 100,97,116,97,46,102,111,114,109,97,116,116,101,114,32 |
|
||||
DB 61,32,34,0,37,99,0,34,0,109,101,116,97,100,97 |
|
||||
DB 116,97,46,100,114,105,118,101,32,32,32,32,32,61,32 |
|
||||
DB 37,99,58,0,109,101,116,97,100,97,116,97,46,108,111 |
|
||||
DB 103,117,110,105,116,32,32,32,61,32,37,100,40,114,101 |
|
||||
DB 108,48,41,32,111,102,32,37,100,32,32,32,32,32,0 |
|
||||
DB 109,101,116,97,100,97,116,97,46,119,114,105,116,101,112 |
|
||||
DB 114,111,116,32,61,32,0,84,82,85,69,32,0,70,65 |
|
||||
DB 76,83,69,0,85,110,107,33,33,0,109,101,116,97,100 |
|
||||
DB 97,116,97,46,117,112,100,97,116,101,32,32,32,32,61 |
|
||||
DB 32,37,100,0,109,101,116,97,100,97,116,97,46,123,118 |
|
||||
DB 101,114,125,32,32,32,32,32,61,32,37,100,46,37,100 |
|
||||
DB 46,37,100,46,37,100,0,109,101,116,97,100,97,116,97 |
|
||||
DB 46,108,97,98,101,108,32,32,32,32,32,61,32,34,0 |
|
||||
DB 37,99,0,34,0,109,101,116,97,100,97,116,97,46,105 |
|
||||
DB 110,102,108,111,99,32,32,32,32,61,32,48,120,37,48 |
|
||||
DB 52,120,0,109,101,116,97,100,97,116,97,46,99,112,109 |
|
||||
DB 108,111,99,32,32,32,32,61,32,48,120,37,48,52,120 |
|
||||
DB 0,109,101,116,97,100,97,116,97,46,99,112,109,101,110 |
|
||||
DB 100,32,32,32,32,61,32,48,120,37,48,52,120,0,109 |
|
||||
DB 101,116,97,100,97,116,97,46,99,112,109,101,110,116,32 |
|
||||
DB 32,32,32,61,32,48,120,37,48,52,120,0 |
|
||||
PUBLIC menu_ |
|
||||
menu_: lxi d,.16 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,21 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.15+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,.15+40 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,21 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.15+80 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LHLD logunit_ |
|
||||
CALL .lt |
|
||||
JZ .17 |
|
||||
LXI H,.15+90 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.17: |
|
||||
LHLD numlu_ |
|
||||
DCX H |
|
||||
PUSH H |
|
||||
LHLD logunit_ |
|
||||
POP D |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .18 |
|
||||
LXI H,.15+102 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.18: |
|
||||
LDA metadata_+96 |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .19 |
|
||||
LXI H,.15+114 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.19: |
|
||||
lda metadata_+96 |
|
||||
ora a |
|
||||
JNZ .20 |
|
||||
LXI H,.15+127 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.20: |
|
||||
LXI H,.15+138 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
LXI H,1 |
|
||||
XCHG |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LDA drega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .21 |
|
||||
.23: |
|
||||
.24: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .22 |
|
||||
.25: |
|
||||
LHLD numlu_ |
|
||||
DCX H |
|
||||
PUSH H |
|
||||
LHLD logunit_ |
|
||||
POP D |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .26 |
|
||||
LHLD logunit_ |
|
||||
INX H |
|
||||
SHLD logunit_ |
|
||||
JMP .27 |
|
||||
.26: |
|
||||
LXI H,7 |
|
||||
PUSH H |
|
||||
LXI H,.15+151 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.27: |
|
||||
JMP .22 |
|
||||
.28: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LHLD logunit_ |
|
||||
CALL .lt |
|
||||
JZ .29 |
|
||||
LHLD logunit_ |
|
||||
DCX H |
|
||||
SHLD logunit_ |
|
||||
JMP .30 |
|
||||
.29: |
|
||||
LXI H,7 |
|
||||
PUSH H |
|
||||
LXI H,.15+154 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.30: |
|
||||
JMP .22 |
|
||||
.31: |
|
||||
LXI H,1 |
|
||||
MOV A,L |
|
||||
STA metadata_+96 |
|
||||
LHLD metadata_+97 |
|
||||
INX H |
|
||||
SHLD metadata_+97 |
|
||||
LXI H,metadata_ |
|
||||
PUSH H |
|
||||
LXI H,11 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL wrsector_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .22 |
|
||||
.32: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA metadata_+96 |
|
||||
LHLD metadata_+97 |
|
||||
INX H |
|
||||
SHLD metadata_+97 |
|
||||
LXI H,metadata_ |
|
||||
PUSH H |
|
||||
LXI H,11 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL wrsector_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .22 |
|
||||
.33: |
|
||||
LXI H,7 |
|
||||
PUSH H |
|
||||
LXI H,.15+157 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .22 |
|
||||
.21: |
|
||||
CALL .swt |
|
||||
DW 6 |
|
||||
DW 43,.25 |
|
||||
DW 45,.28 |
|
||||
DW 88,.23 |
|
||||
DW 112,.31 |
|
||||
DW 117,.32 |
|
||||
DW 120,.24 |
|
||||
DW .33 |
|
||||
.22: |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
RET |
|
||||
.16 EQU -2 |
|
||||
.15: |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,0,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,0,79,112,116,105,111,110,115,40,32,0 |
|
||||
DB 32,45,123,112,114,101,118,32,108,117,125,0,32,43,123 |
|
||||
DB 110,101,120,116,32,108,117,125,0,32,117,123,110,112,114 |
|
||||
DB 111,116,101,99,116,125,0,32,112,123,114,111,116,101,99 |
|
||||
DB 116,125,0,32,120,123,113,117,105,116,125,32,41,58,32 |
|
||||
DB 0,37,99,0,37,99,0,37,99,0 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.35 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.34+0 |
|
||||
PUSH H |
|
||||
CALL banner_ |
|
||||
POP D |
|
||||
LXI H,25 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
LDA drega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
SHLD drive_ |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL lugnum_ |
|
||||
POP D |
|
||||
SHLD numlu_ |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL lugcur_ |
|
||||
POP D |
|
||||
SHLD deflu_ |
|
||||
LHLD deflu_ |
|
||||
SHLD logunit_ |
|
||||
LXI H,1 |
|
||||
SHLD bRunning_ |
|
||||
.36: |
|
||||
LXI H,1 |
|
||||
XCHG |
|
||||
LHLD bRunning_ |
|
||||
CALL .eq |
|
||||
JZ .37 |
|
||||
CALL display_ |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
CALL menu_ |
|
||||
POP D |
|
||||
SHLD bRunning_ |
|
||||
JMP .36 |
|
||||
.37: |
|
||||
LHLD deflu_ |
|
||||
PUSH H |
|
||||
LHLD drive_ |
|
||||
PUSH H |
|
||||
CALL luscur_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,23 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.35 EQU 0 |
|
||||
.34: |
|
||||
DB 77,69,84,65,0 |
|
||||
extrn banner_ |
|
||||
extrn printf_ |
|
||||
extrn lugnum_ |
|
||||
extrn luscur_ |
|
||||
extrn lugcur_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn wrsector_ |
|
||||
extrn rdsector_ |
|
||||
extrn bdoscall_ |
|
||||
extrn dregbc_ |
|
||||
extrn drega_ |
|
||||
extrn .eq |
|
||||
extrn .ne |
|
||||
extrn .lt |
|
||||
END |
|
||||
|
|
||||
@ -1,62 +0,0 @@ |
|||||
rem meta.bat 2/14/2013 dwg - build meta.cpm using native tools via z80mu |
|
||||
|
|
||||
if not exist asmiface.o erase meta.cpm |
|
||||
if not exist asmiface.o z80mu as asmiface |
|
||||
rem dir asmiface.* |
|
||||
rem pause |
|
||||
|
|
||||
if not exist bdoscall.o erase meta.cpm |
|
||||
if not exist bdoscall.o z80mu as bdoscall |
|
||||
rem dir bdoscall.* |
|
||||
rem pause |
|
||||
|
|
||||
if not exist bioscall.o erase meta.cpm |
|
||||
if not exist bioscall.o z80mu as bioscall |
|
||||
rem dir bioscall* |
|
||||
rem pause |
|
||||
|
|
||||
if not exist cbanner.asm erase meta.cpm |
|
||||
if not exist cbanner.asm erase cbanner.o |
|
||||
if not exist cbanner.asm z80mu cc cbanner |
|
||||
if not exist cbanner.o erase meta.cpm |
|
||||
if not exist cbanner.o z80mu as cbanner |
|
||||
rem dir cbanner.* |
|
||||
rem pause |
|
||||
|
|
||||
if not exist clogical.asm erase meta.cpm |
|
||||
if not exist clogical.asm erase clogical.o |
|
||||
if not exist clogical.asm z80mu cc clogical |
|
||||
if not exist clogical.o erase meta.cpm |
|
||||
if not exist clogical.o z80mu as clogical |
|
||||
rem dir clogical.* |
|
||||
rem pause |
|
||||
if not exist ctermcap.asm erase meta.cpm |
|
||||
if not exist ctermcap.asm erase ctermcap.o |
|
||||
if not exist ctermcap.asm z80mu cc ctermcap |
|
||||
if not exist ctermcap.o erase meta.cpm |
|
||||
if not exist ctermcap.o z80mu as ctermcap |
|
||||
rem dir ctermcap.* |
|
||||
rem pause |
|
||||
if not exist diagnose.o erase meta.cpm |
|
||||
if not exist diagnose.o z80mu as diagnose |
|
||||
rem dir diagnose.* |
|
||||
rem pause |
|
||||
if not exist sectorio.asm erase meta.cpm |
|
||||
if not exist sectorio.asm erase sectorio.o |
|
||||
if not exist sectorio.asm z80mu cc sectorio |
|
||||
if not exist sectorio.o erase meta.cpm |
|
||||
if not exist sectorio.o z80mu as sectorio |
|
||||
rem dir sectorio.* |
|
||||
rem pause |
|
||||
|
|
||||
if not exist meta.asm erase meta.cpm |
|
||||
if not exist meta.asm erase meta.o |
|
||||
if not exist meta.asm z80mu cc meta |
|
||||
if not exist meta.o erase meta.cpm |
|
||||
if not exist meta.o z80mu as meta |
|
||||
rem dir meta.* |
|
||||
rem pause |
|
||||
if not exist meta.cpm z80mu ln meta.o asmiface.o bioscall.o bdoscall.o cbanner.o clogical.o diagnose.o ctermcap.o sectorio.o c.lib |
|
||||
if not exist meta.cpm rename meta.com meta.cpm |
|
||||
rem dir meta.* |
|
||||
dir meta.cpm |
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Binary file not shown.
File diff suppressed because it is too large
@ -1,609 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global style_,1 |
|
||||
global vdp_rege_,960 |
|
||||
global szTemp_,128 |
|
||||
global linenum_,1 |
|
||||
global counter_,1 |
|
||||
global outer_,1 |
|
||||
global inner_,1 |
|
||||
global limit_,1 |
|
||||
global index_,2 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
CALL vdp_clr1_ |
|
||||
CALL vdp_setr_ |
|
||||
CALL vdp_mode_ |
|
||||
CALL vdp_pnt_ |
|
||||
CALL vdp_pgt_ |
|
||||
CALL vdp_colo_ |
|
||||
CALL vdp_load_ |
|
||||
LDA outer_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,3 |
|
||||
CALL .eq |
|
||||
JZ .3 |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA style_ |
|
||||
.3: |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL vdp_main_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-63-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA outer_ |
|
||||
JMP .5 |
|
||||
.4: |
|
||||
LDA outer_ |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
MOV A,L |
|
||||
STA outer_ |
|
||||
.5: |
|
||||
LDA outer_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,4 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .6 |
|
||||
LXI H,4 |
|
||||
MOV A,L |
|
||||
STA linenum_ |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA inner_ |
|
||||
JMP .8 |
|
||||
.7: |
|
||||
LDA inner_ |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
MOV A,L |
|
||||
STA inner_ |
|
||||
.8: |
|
||||
LDA inner_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,6 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .9 |
|
||||
LDA inner_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,5 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .10 |
|
||||
LXI H,11 |
|
||||
MOV A,L |
|
||||
STA limit_ |
|
||||
JMP .11 |
|
||||
.10: |
|
||||
LXI H,9 |
|
||||
MOV A,L |
|
||||
STA limit_ |
|
||||
.11: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .13 |
|
||||
.12: |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.13: |
|
||||
LDA limit_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
POP H |
|
||||
CALL .lt |
|
||||
JZ .14 |
|
||||
LXI H,-63-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.1+14 |
|
||||
PUSH H |
|
||||
LXI H,-58-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-62-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,3 |
|
||||
CALL .ml |
|
||||
INX H |
|
||||
INX H |
|
||||
PUSH H |
|
||||
LDA linenum_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-63-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV L,M |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+17 |
|
||||
PUSH H |
|
||||
LXI H,-58-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-62-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,3 |
|
||||
CALL .ml |
|
||||
INX H |
|
||||
INX H |
|
||||
PUSH H |
|
||||
LDA linenum_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
INX H |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .12 |
|
||||
.14: |
|
||||
LXI H,3 |
|
||||
XCHG |
|
||||
LDA linenum_ |
|
||||
MOV L,A |
|
||||
mvi h,0 |
|
||||
DAD D |
|
||||
MOV A,L |
|
||||
STA linenum_ |
|
||||
LDA inner_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,5 |
|
||||
CALL .eq |
|
||||
JZ .15 |
|
||||
LDA outer_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
INX H |
|
||||
PUSH H |
|
||||
LXI H,.1+22 |
|
||||
PUSH H |
|
||||
LXI H,-58-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-62-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
LXI H,29 |
|
||||
PUSH H |
|
||||
LXI H,20 |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
.15: |
|
||||
JMP .7 |
|
||||
.9: |
|
||||
LDA outer_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,3 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .16 |
|
||||
LXI H,.1+30 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,22 |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-62-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL gets_ |
|
||||
POP D |
|
||||
.16: |
|
||||
JMP .4 |
|
||||
.6: |
|
||||
LXI H,.1+57 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,22 |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2 |
|
||||
CALL .eq |
|
||||
JZ .17 |
|
||||
LXI H,10-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
INX H |
|
||||
INX H |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL atoi_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,.1+93 |
|
||||
PUSH H |
|
||||
LXI H,-58-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-62-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
LXI H,35 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
CALL vdp_disp_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
.17: |
|
||||
LXI H,charset_ |
|
||||
XCHG |
|
||||
LXI H,-65-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,.1+108 |
|
||||
PUSH H |
|
||||
LXI H,.1+96 |
|
||||
PUSH H |
|
||||
CALL fopen_ |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,-67-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,.1+110 |
|
||||
PUSH H |
|
||||
LXI H,-65-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
SHLD index_ |
|
||||
JMP .19 |
|
||||
.18: |
|
||||
LHLD index_ |
|
||||
INX H |
|
||||
SHLD index_ |
|
||||
.19: |
|
||||
LHLD index_ |
|
||||
LXI D,256 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .20 |
|
||||
LXI H,.1+163 |
|
||||
PUSH H |
|
||||
LXI H,-65-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD index_ |
|
||||
PUSH H |
|
||||
LHLD index_ |
|
||||
PUSH H |
|
||||
LXI H,-61-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-59-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-57-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-55-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-53-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-51-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-49-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,-47-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.1+169 |
|
||||
PUSH H |
|
||||
LXI H,-45-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fprintf_ |
|
||||
XCHG |
|
||||
LXI H,24 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
JMP .18 |
|
||||
.20: |
|
||||
LXI H,.1+231 |
|
||||
PUSH H |
|
||||
LXI H,-65-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-67-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fclose_ |
|
||||
POP D |
|
||||
RET |
|
||||
.2 EQU -71 |
|
||||
.1: |
|
||||
DB 78,56,86,73,68,84,83,84,40,100,119,103,41,0,37 |
|
||||
DB 99,0,37,48,50,120,0,80,103,32,37,100,47,52,0 |
|
||||
DB 32,80,114,101,115,115,32,97,110,121,32,107,101,121,32 |
|
||||
DB 116,111,32,99,111,110,116,105,110,117,101,0,69,120,101 |
|
||||
DB 99,117,116,105,111,110,32,99,111,109,112,108,101,116,101 |
|
||||
DB 44,114,101,116,117,114,110,101,100,32,116,111,32,67,80 |
|
||||
DB 47,77,0,37,99,0,110,56,99,104,97,114,115,46,105 |
|
||||
DB 110,99,0,119,0,59,32,110,56,99,104,97,114,115,46 |
|
||||
DB 105,110,99,32,45,32,97,117,116,111,109,97,116,105,99 |
|
||||
DB 97,108,108,121,32,103,101,110,101,114,97,116,101,100,32 |
|
||||
DB 98,121,32,110,56,118,105,100,116,115,116,10,0,9,46 |
|
||||
DB 68,66,9,0,37,48,51,120,104,44,37,48,51,120,104 |
|
||||
DB 44,37,48,51,120,104,44,37,48,51,120,104,44,37,48 |
|
||||
DB 51,120,104,44,37,48,51,120,104,44,37,48,51,120,104 |
|
||||
DB 44,37,48,51,120,104,9,59,32,48,120,37,48,50,120 |
|
||||
DB 40,37,100,41,10,0,59,32,101,111,102,32,45,32,110 |
|
||||
DB 56,99,104,97,114,115,46,105,110,99,10,0 |
|
||||
extrn fclose_ |
|
||||
extrn fprintf_ |
|
||||
extrn atoi_ |
|
||||
extrn gets_ |
|
||||
extrn sprintf_ |
|
||||
extrn vdp_load_ |
|
||||
extrn vdp_colo_ |
|
||||
extrn vdp_pgt_ |
|
||||
extrn vdp_pnt_ |
|
||||
extrn vdp_mode_ |
|
||||
extrn vdp_setr_ |
|
||||
extrn vdp_clr1_ |
|
||||
extrn vdp_main_ |
|
||||
extrn vdp_disp_ |
|
||||
extrn charset_ |
|
||||
extrn fopen_ |
|
||||
extrn .eq |
|
||||
extrn .lt |
|
||||
extrn .ml |
|
||||
END |
|
||||
|
|
||||
@ -0,0 +1,9 @@ |
|||||
|
if not exist n8vidtst.asm z80mu cc n8vidtst |
||||
|
if not exist n8vidtst.o z80mu as n8vidtst |
||||
|
if not exist n8chars.asm z80mu cc n8chars |
||||
|
if not exist n8chars.o z80mu as n8chars |
||||
|
if not exist tms9918.asm z80mu cc tms9918 |
||||
|
if not exist tms9918.o z80mu as tms9918 |
||||
|
if not exist n8vidtst.cpm z80mu ln n8vidtst.o n8chars.o tms9918.o -lc |
||||
|
if not exist n8vidtst.cpm rename n8vidtst.com n8vidtst.cpm |
||||
|
dir n8vidtst.cpm |
||||
Binary file not shown.
@ -1,185 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
PUBLIC copyup_ |
|
||||
copyup_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-32768 |
|
||||
XCHG |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .4 |
|
||||
.3: |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.4: |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,256 |
|
||||
CALL .lt |
|
||||
JZ .5 |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .7 |
|
||||
.6: |
|
||||
LXI H,-2-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.7: |
|
||||
LXI H,-2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,8 |
|
||||
CALL .lt |
|
||||
JZ .8 |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
DAD H |
|
||||
DAD H |
|
||||
DAD H |
|
||||
LXI D,7 |
|
||||
DAD D |
|
||||
XCHG |
|
||||
LXI H,-2-.2 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .sb |
|
||||
LXI D,charset_ |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
PUSH D |
|
||||
LXI H,4-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
POP D |
|
||||
MOV M,E |
|
||||
JMP .6 |
|
||||
.8: |
|
||||
JMP .3 |
|
||||
.5: |
|
||||
RET |
|
||||
.2 EQU -6 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.9 |
|
||||
call csave |
|
||||
CALL copyup_ |
|
||||
LXI H,16448 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,0 |
|
||||
SHLD hregde_ |
|
||||
LXI H,-32768 |
|
||||
SHLD hreghl_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,17472 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,3084 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.9 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .11 |
|
||||
.10: |
|
||||
LXI H,2-.9 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.11: |
|
||||
LXI H,2-.9 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,600 |
|
||||
CALL .lt |
|
||||
JZ .12 |
|
||||
LXI H,18240 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,63 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
JMP .10 |
|
||||
.12: |
|
||||
RET |
|
||||
.9 EQU -2 |
|
||||
extrn charset_ |
|
||||
extrn diagnose_ |
|
||||
extrn hreghl_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn .lt |
|
||||
extrn .sb |
|
||||
END |
|
||||
|
|
||||
@ -1,20 +0,0 @@ |
|||||
This directory has the files that comprise a cross development |
|
||||
environment for building C utility programs. |
|
||||
|
|
||||
The program files located here are not current but rather represent |
|
||||
a snapshot from a recent time. If you wanted to compile any of the |
|
||||
current apps from RomWBW, you would have too unpack the sources in |
|
||||
/RomWBW/trunk/Apps/apps-srcs and copy them to this folder, being careful |
|
||||
to usde upper case filenames. |
|
||||
|
|
||||
The build is set up in sort of a microsoft-like folder arrangement |
|
||||
with files generated being placed in either the DEBUG or RELEASE folder. |
|
||||
|
|
||||
The actual apps for RomWBW are generated directly on CP/M-80- v2.2 |
|
||||
using native language tools, it's the "CP/M way". |
|
||||
|
|
||||
Have fun, |
|
||||
|
|
||||
Douglas Goodall |
|
||||
Santa Maria, CA |
|
||||
douglas_goodall@mac.com |
|
||||
Binary file not shown.
@ -1,246 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global style_,1 |
|
||||
global vdp_rege_,960 |
|
||||
global pINFOLIS_,2 |
|
||||
global metadata_,128 |
|
||||
global szTemp_,128 |
|
||||
global linenum_,1 |
|
||||
global counter_,1 |
|
||||
global outer_,1 |
|
||||
global inner_,1 |
|
||||
global limit_,1 |
|
||||
global index_,2 |
|
||||
global line_,2 |
|
||||
global ubyte_,1 |
|
||||
global bitmask_,1 |
|
||||
global row_,2 |
|
||||
global bit_,2 |
|
||||
global ascii_,2 |
|
||||
global bool_,2 |
|
||||
global pCNFGDAT_,2 |
|
||||
global pSYSCFG_,2 |
|
||||
global fd_,2 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,-16384 |
|
||||
SHLD pSYSCFG_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL vdp_wrvr_ |
|
||||
POP D |
|
||||
LXI H,152 |
|
||||
PUSH H |
|
||||
CALL in_ |
|
||||
POP D |
|
||||
LXI H,152 |
|
||||
PUSH H |
|
||||
CALL in_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
SHLD line_ |
|
||||
JMP .4 |
|
||||
.3: |
|
||||
LHLD line_ |
|
||||
INX H |
|
||||
SHLD line_ |
|
||||
.4: |
|
||||
LHLD line_ |
|
||||
LXI D,24 |
|
||||
XCHG |
|
||||
CALL .ul |
|
||||
JZ .5 |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LHLD line_ |
|
||||
INX H |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD line_ |
|
||||
INX H |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,3-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
JMP .7 |
|
||||
.6: |
|
||||
LXI H,3-.2 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV L,M |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
.7: |
|
||||
LXI H,3-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,40 |
|
||||
CALL .lt |
|
||||
JZ .8 |
|
||||
LXI H,152 |
|
||||
PUSH H |
|
||||
CALL in_ |
|
||||
POP D |
|
||||
MOV A,L |
|
||||
STA ubyte_ |
|
||||
LDA ubyte_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .9 |
|
||||
.11: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA ubyte_ |
|
||||
JMP .10 |
|
||||
.12: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA ubyte_ |
|
||||
JMP .10 |
|
||||
.13: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA ubyte_ |
|
||||
JMP .10 |
|
||||
.14: |
|
||||
LXI H,32 |
|
||||
MOV A,L |
|
||||
STA ubyte_ |
|
||||
JMP .10 |
|
||||
.9: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.14 |
|
||||
DW 9,.13 |
|
||||
DW 10,.12 |
|
||||
DW 13,.11 |
|
||||
DW .10 |
|
||||
.10: |
|
||||
lda ubyte_ |
|
||||
ora a |
|
||||
JZ .15 |
|
||||
LDA ubyte_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+11 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
.15: |
|
||||
JMP .6 |
|
||||
.8: |
|
||||
LXI H,50 |
|
||||
PUSH H |
|
||||
LHLD line_ |
|
||||
INX H |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,.1+14 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LHLD line_ |
|
||||
MOV A,H |
|
||||
ORA L |
|
||||
JNZ .16 |
|
||||
LXI H,.1+16 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.16: |
|
||||
LHLD line_ |
|
||||
LXI D,1 |
|
||||
CALL .eq |
|
||||
JZ .17 |
|
||||
LXI H,.1+43 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.17: |
|
||||
LHLD line_ |
|
||||
LXI D,4 |
|
||||
CALL .eq |
|
||||
JZ .18 |
|
||||
LXI H,.1+70 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.18: |
|
||||
LHLD line_ |
|
||||
LXI D,5 |
|
||||
CALL .eq |
|
||||
JZ .19 |
|
||||
LXI H,.1+97 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.19: |
|
||||
JMP .3 |
|
||||
.5: |
|
||||
LXI H,.1+117 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
RET |
|
||||
.2 EQU -1 |
|
||||
.1: |
|
||||
DB 108,105,110,101,32,37,50,100,32,124,0,37,99,0,124 |
|
||||
DB 0,32,114,101,109,111,116,101,46,99,111,109,32,49,49 |
|
||||
DB 47,50,49,47,50,48,49,50,32,100,119,103,0,32,32 |
|
||||
DB 32,32,100,105,115,112,108,97,121,32,116,109,115,57,57 |
|
||||
DB 49,56,32,115,99,114,101,101,110,0,32,32,32,78,111 |
|
||||
DB 116,101,58,32,115,101,109,105,45,103,114,97,112,104,105 |
|
||||
DB 99,115,32,110,111,116,0,32,32,32,32,32,32,32,32 |
|
||||
DB 32,115,117,112,112,111,114,116,101,100,46,0,32,40,112 |
|
||||
DB 114,101,115,115,32,101,110,116,101,114,32,116,111,32,101 |
|
||||
DB 120,105,116,41,0 |
|
||||
extrn printf_ |
|
||||
extrn in_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn bdoscall_ |
|
||||
extrn dregbc_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn vdp_wrvr_ |
|
||||
extrn .eq |
|
||||
extrn .lt |
|
||||
extrn .ul |
|
||||
END |
|
||||
|
|
||||
@ -1,117 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
PUBLIC rdsector_ |
|
||||
rdsector_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-6629 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
LXI H,0 |
|
||||
SHLD iregde_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6626 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,10-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6623 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6620 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,14-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6617 |
|
||||
SHLD ireghl_ |
|
||||
CALL bioscall_ |
|
||||
LDA irega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
PUBLIC wrsector_ |
|
||||
wrsector_: lxi d,.3 |
|
||||
call csave |
|
||||
LXI H,-6629 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,8-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
LXI H,0 |
|
||||
SHLD iregde_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6626 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,10-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6623 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,12-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6620 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,14-.3 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LXI H,-6614 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,0 |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LDA irega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.3 EQU 0 |
|
||||
extrn bioscall_ |
|
||||
extrn ireghl_ |
|
||||
extrn iregde_ |
|
||||
extrn iregbc_ |
|
||||
extrn irega_ |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -1,982 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
global pDPHMAP_,2 |
|
||||
global pDPHVEC_,24 |
|
||||
global pINFOLIS_,2 |
|
||||
global pDPH_,2 |
|
||||
global pDPB_,2 |
|
||||
DSEG |
|
||||
public pSYSCFG_ |
|
||||
pSYSCFG_: |
|
||||
DW -16384 |
|
||||
CSEG |
|
||||
global filespec_,32 |
|
||||
global pBUFFER_,2 |
|
||||
global szDrive_,32 |
|
||||
global szTemp_,128 |
|
||||
PUBLIC rdimage_ |
|
||||
rdimage_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
LXI H,10-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fopen_ |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
mov a,m |
|
||||
inx h |
|
||||
ora m |
|
||||
JNZ .3 |
|
||||
LXI H,0 |
|
||||
RET |
|
||||
.3: |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,16-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fread_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL fclose_ |
|
||||
POP D |
|
||||
LXI H,2-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
RET |
|
||||
.2 EQU -4 |
|
||||
.1: |
|
||||
DB 114,0 |
|
||||
PUBLIC strupr_ |
|
||||
strupr_: lxi d,.5 |
|
||||
call csave |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,2-.5 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .7 |
|
||||
.6: |
|
||||
LXI H,2-.5 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.7: |
|
||||
LXI H,8-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL strlen_ |
|
||||
POP D |
|
||||
PUSH H |
|
||||
LXI H,4-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
POP H |
|
||||
CALL .lt |
|
||||
JZ .8 |
|
||||
LXI H,8-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2-.5 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,97 |
|
||||
CALL .ge |
|
||||
JZ .9 |
|
||||
LXI H,8-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2-.5 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,122 |
|
||||
CALL .le |
|
||||
JZ .10 |
|
||||
LXI H,8-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2-.5 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,223 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LXI H,10-.5 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,4-.5 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
POP D |
|
||||
MOV M,E |
|
||||
.10: |
|
||||
.9: |
|
||||
JMP .6 |
|
||||
.8: |
|
||||
RET |
|
||||
.5 EQU -2 |
|
||||
PUBLIC sysgen_ |
|
||||
sysgen_: lxi d,.11 |
|
||||
call csave |
|
||||
.12: |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,18-.11 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .lt |
|
||||
JZ .13 |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL wrsector_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.4+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,10 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,13 |
|
||||
PUSH H |
|
||||
LXI H,.4+43 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,128 |
|
||||
XCHG |
|
||||
LXI H,14-.11 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DAD D |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,12-.11 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,12-.11 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16-.11 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .eq |
|
||||
JZ .14 |
|
||||
LXI H,10-.11 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,12-.11 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.14: |
|
||||
LXI H,18-.11 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
DCX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .12 |
|
||||
.13: |
|
||||
LXI H,.4+46 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,13 |
|
||||
PUSH H |
|
||||
LXI H,.4+87 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.11 EQU 0 |
|
||||
.4: |
|
||||
DB 100,114,105,118,101,61,37,99,58,44,32,116,114,107,61 |
|
||||
DB 37,100,44,32,115,101,99,61,37,51,100,44,32,32,112 |
|
||||
DB 116,114,61,48,120,48,37,52,120,32,32,32,0,37,99 |
|
||||
DB 0,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,32,32,32,0,37,99,0 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.16 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
CALL crtinit_ |
|
||||
POP D |
|
||||
CALL crtclr_ |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
CALL crtlc_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,3 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,2013 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,.15+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,16 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,.15+33 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,25 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
LDA drega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
XCHG |
|
||||
LXI H,-14-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,-32768 |
|
||||
SHLD pBUFFER_ |
|
||||
LXI H,1 |
|
||||
XCHG |
|
||||
LXI H,8-.16 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .eq |
|
||||
JZ .17 |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .19 |
|
||||
.18: |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.19: |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,12 |
|
||||
CALL .lt |
|
||||
JZ .20 |
|
||||
LXI H,-6602 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
CALL bioscall_ |
|
||||
LHLD iregbc_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
JNZ .21 |
|
||||
JMP .20 |
|
||||
.21: |
|
||||
JMP .18 |
|
||||
.20: |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.15+77 |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,16383 |
|
||||
PUSH H |
|
||||
LHLD pBUFFER_ |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL rdimage_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
mov a,m |
|
||||
inx h |
|
||||
ora m |
|
||||
JNZ .22 |
|
||||
LXI H,-12-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.15+88 |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL sprintf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,16383 |
|
||||
PUSH H |
|
||||
LHLD pBUFFER_ |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL rdimage_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
mov a,m |
|
||||
inx h |
|
||||
ora m |
|
||||
JNZ .23 |
|
||||
LXI H,.15+100 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
CALL exit_ |
|
||||
POP D |
|
||||
.23: |
|
||||
.22: |
|
||||
.17: |
|
||||
LXI H,2 |
|
||||
XCHG |
|
||||
LXI H,8-.16 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .eq |
|
||||
JZ .24 |
|
||||
LXI H,10-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
INX H |
|
||||
INX H |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL strcpy_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,16383 |
|
||||
PUSH H |
|
||||
LHLD pBUFFER_ |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL rdimage_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.24: |
|
||||
LXI H,3 |
|
||||
XCHG |
|
||||
LXI H,8-.16 |
|
||||
DAD SP |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
CALL .eq |
|
||||
JZ .25 |
|
||||
LXI H,10-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
INX H |
|
||||
INX H |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL strcpy_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,4 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,szDrive_ |
|
||||
PUSH H |
|
||||
CALL strcpy_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,szDrive_ |
|
||||
PUSH H |
|
||||
CALL strupr_ |
|
||||
POP D |
|
||||
LDA szDrive_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
LXI D,-65 |
|
||||
DAD D |
|
||||
XCHG |
|
||||
LXI H,-14-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,16383 |
|
||||
PUSH H |
|
||||
LHLD pBUFFER_ |
|
||||
PUSH H |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
CALL rdimage_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.25: |
|
||||
LXI H,-6629 |
|
||||
SHLD ireghl_ |
|
||||
LXI H,-14-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD iregbc_ |
|
||||
LXI H,0 |
|
||||
SHLD iregde_ |
|
||||
CALL bioscall_ |
|
||||
LHLD ireghl_ |
|
||||
SHLD pDPH_ |
|
||||
LHLD pDPH_ |
|
||||
LXI D,10 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD pDPB_ |
|
||||
LHLD pDPB_ |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,-4-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LHLD pDPB_ |
|
||||
LXI D,13 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,-16-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-6-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-8-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LHLD pBUFFER_ |
|
||||
XCHG |
|
||||
LXI H,-146-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,128 |
|
||||
CALL .dv |
|
||||
XCHG |
|
||||
LXI H,-10-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,-16-.16 |
|
||||
DAD SP |
|
||||
mov a,m |
|
||||
inx h |
|
||||
ora m |
|
||||
JNZ .26 |
|
||||
LXI H,-14-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.15+142 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
CALL exit_ |
|
||||
POP D |
|
||||
.26: |
|
||||
LXI H,.15+190 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,filespec_ |
|
||||
PUSH H |
|
||||
LXI H,-10-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.15+242 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,.15+277 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,.15+302 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
SHLD dregbc_ |
|
||||
CALL bdoscall_ |
|
||||
LDA drega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,89 |
|
||||
POP D |
|
||||
CALL .ne |
|
||||
JZ .27 |
|
||||
LXI H,.15+304 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
CALL exit_ |
|
||||
POP D |
|
||||
.27: |
|
||||
LXI H,-10-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-2-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LHLD pBUFFER_ |
|
||||
PUSH H |
|
||||
LXI H,-2-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-4-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
CALL sysgen_ |
|
||||
XCHG |
|
||||
LXI H,12 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LXI H,-14-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,65 |
|
||||
DAD D |
|
||||
PUSH H |
|
||||
LXI H,.15+350 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.16 EQU -152 |
|
||||
.15: |
|
||||
DB 83,89,83,71,69,78,46,67,79,77,32,37,100,47,37 |
|
||||
DB 100,47,37,100,32,118,37,100,46,37,100,46,37,100,46 |
|
||||
DB 37,100,0,32,100,119,103,32,45,32,87,114,105,116,101 |
|
||||
DB 32,83,121,115,116,101,109,32,73,109,97,103,101,32,116 |
|
||||
DB 111,32,83,116,111,114,97,103,101,32,77,101,100,105,97 |
|
||||
DB 10,0,37,99,58,67,80,77,46,83,89,83,0,37,99 |
|
||||
DB 58,90,83,89,83,46,83,89,83,0,83,111,114,114,121 |
|
||||
DB 44,32,99,111,117,108,100,32,110,111,116,32,114,101,97 |
|
||||
DB 100,32,100,101,102,97,117,108,116,32,115,121,115,116,101 |
|
||||
DB 109,32,102,105,108,101,0,83,111,114,114,121,44,32,37 |
|
||||
DB 99,58,32,68,114,105,118,101,32,100,111,101,115,32,110 |
|
||||
DB 111,116,32,104,97,118,101,32,114,101,115,101,114,118,101 |
|
||||
DB 100,32,116,114,97,99,107,115,10,0,80,114,101,112,97 |
|
||||
DB 114,105,110,103,32,116,111,32,116,114,97,110,115,102,101 |
|
||||
DB 114,32,116,104,101,32,67,80,47,77,32,115,121,115,116 |
|
||||
DB 101,109,32,105,109,97,103,101,32,116,111,32,116,104,101 |
|
||||
DB 32,0,37,99,58,32,100,114,105,118,101,32,102,114,111 |
|
||||
DB 109,32,37,115,10,102,105,108,101,32,119,104,105,99,104 |
|
||||
DB 32,105,115,32,37,100,0,32,98,121,116,101,115,32,108 |
|
||||
DB 111,110,103,44,32,79,75,63,32,40,89,47,110,41,58 |
|
||||
DB 32,0,10,0,83,121,115,103,101,110,32,111,112,101,114 |
|
||||
DB 97,116,105,111,110,32,99,97,110,99,101,108,108,101,100 |
|
||||
DB 32,112,101,114,32,121,111,117,114,32,114,101,113,117,101 |
|
||||
DB 115,116,46,10,0,37,99,58,32,100,114,105,118,101,32 |
|
||||
DB 115,104,111,117,108,100,32,98,101,32,98,111,111,116,97 |
|
||||
DB 98,108,101,32,110,111,119,32,58,45,41,0 |
|
||||
extrn strcpy_ |
|
||||
extrn exit_ |
|
||||
extrn sprintf_ |
|
||||
extrn printf_ |
|
||||
extrn strlen_ |
|
||||
extrn fclose_ |
|
||||
extrn fread_ |
|
||||
extrn wrsector_ |
|
||||
extrn crtlc_ |
|
||||
extrn crtclr_ |
|
||||
extrn crtinit_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn bdoscall_ |
|
||||
extrn dregbc_ |
|
||||
extrn drega_ |
|
||||
extrn bioscall_ |
|
||||
extrn ireghl_ |
|
||||
extrn iregde_ |
|
||||
extrn iregbc_ |
|
||||
extrn fopen_ |
|
||||
extrn .an |
|
||||
extrn .eq |
|
||||
extrn .ne |
|
||||
extrn .lt |
|
||||
extrn .le |
|
||||
extrn .ge |
|
||||
extrn .ur |
|
||||
extrn .dv |
|
||||
END |
|
||||
|
|
||||
Binary file not shown.
Binary file not shown.
@ -1,448 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
DSEG |
|
||||
public pPriFcb_ |
|
||||
pPriFcb_: |
|
||||
DW 92 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public pSecFcb_ |
|
||||
pSecFcb_: |
|
||||
DW 108 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public pDefBuf_ |
|
||||
pDefBuf_: |
|
||||
DW 128 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public pBIOS_ |
|
||||
pBIOS_: |
|
||||
DW -6656 |
|
||||
CSEG |
|
||||
global pDPB_,2 |
|
||||
global pDPH_,2 |
|
||||
global pINFOLIS_,2 |
|
||||
global pCNFGDAT_,2 |
|
||||
DSEG |
|
||||
public pSYSCFG_ |
|
||||
pSYSCFG_: |
|
||||
DW -16384 |
|
||||
CSEG |
|
||||
DSEG |
|
||||
public bRun_ |
|
||||
bRun_: |
|
||||
DB 1 |
|
||||
CSEG |
|
||||
global c_,1 |
|
||||
DSEG |
|
||||
public newtt_ |
|
||||
newtt_: |
|
||||
DB 255 |
|
||||
CSEG |
|
||||
global tt_,1 |
|
||||
global i_,2 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,-4096 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
LXI H,0 |
|
||||
SHLD i_ |
|
||||
JMP .4 |
|
||||
.3: |
|
||||
LHLD i_ |
|
||||
INX H |
|
||||
SHLD i_ |
|
||||
.4: |
|
||||
LHLD i_ |
|
||||
LXI D,25 |
|
||||
XCHG |
|
||||
CALL .lt |
|
||||
JZ .5 |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .3 |
|
||||
.5: |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,3 |
|
||||
PUSH H |
|
||||
LXI H,2 |
|
||||
PUSH H |
|
||||
LXI H,2013 |
|
||||
PUSH H |
|
||||
LXI H,16 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,.1+2 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
XCHG |
|
||||
LXI H,16 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
.6: |
|
||||
LDA bRun_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .7 |
|
||||
LXI H,.1+72 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
MOV E,M |
|
||||
XCHG |
|
||||
MOV A,L |
|
||||
STA tt_ |
|
||||
LDA tt_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .8 |
|
||||
.10: |
|
||||
LXI H,.1+95 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.11: |
|
||||
LXI H,.1+143 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.12: |
|
||||
LXI H,.1+191 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.13: |
|
||||
LXI H,.1+239 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.14: |
|
||||
LXI H,.1+287 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,.1+306 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .9 |
|
||||
.8: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.10 |
|
||||
DW 1,.11 |
|
||||
DW 2,.12 |
|
||||
DW 3,.13 |
|
||||
DW .14 |
|
||||
.9: |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,1 |
|
||||
PUSH H |
|
||||
LXI H,5 |
|
||||
PUSH H |
|
||||
CALL asmif_ |
|
||||
XCHG |
|
||||
LXI H,8 |
|
||||
DAD SP |
|
||||
SPHL |
|
||||
LDA xrega_ |
|
||||
MOV L,A |
|
||||
MOV A,L |
|
||||
STA c_ |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,113 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .15 |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA bRun_ |
|
||||
.15: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,120 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .16 |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA bRun_ |
|
||||
.16: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,81 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .17 |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA bRun_ |
|
||||
.17: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,88 |
|
||||
POP D |
|
||||
CALL .eq |
|
||||
JZ .18 |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA bRun_ |
|
||||
.18: |
|
||||
LDA tt_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .19 |
|
||||
.21: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .22 |
|
||||
.24: |
|
||||
.25: |
|
||||
LXI H,1 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .23 |
|
||||
.26: |
|
||||
.27: |
|
||||
LXI H,2 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .23 |
|
||||
.28: |
|
||||
.29: |
|
||||
LXI H,3 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .23 |
|
||||
.22: |
|
||||
CALL .swt |
|
||||
DW 6 |
|
||||
DW 65,.25 |
|
||||
DW 86,.29 |
|
||||
DW 87,.27 |
|
||||
DW 97,.24 |
|
||||
DW 118,.28 |
|
||||
DW 119,.26 |
|
||||
DW .23 |
|
||||
.23: |
|
||||
JMP .20 |
|
||||
.30: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .31 |
|
||||
.33: |
|
||||
.34: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .32 |
|
||||
.35: |
|
||||
.36: |
|
||||
LXI H,2 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .32 |
|
||||
.37: |
|
||||
.38: |
|
||||
LXI H,3 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .32 |
|
||||
.31: |
|
||||
CALL .swt |
|
||||
DW 6 |
|
||||
DW 84,.34 |
|
||||
DW 86,.38 |
|
||||
DW 87,.36 |
|
||||
DW 116,.33 |
|
||||
DW 118,.37 |
|
||||
DW 119,.35 |
|
||||
DW .32 |
|
||||
.32: |
|
||||
JMP .20 |
|
||||
.39: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .40 |
|
||||
.42: |
|
||||
.43: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .41 |
|
||||
.44: |
|
||||
.45: |
|
||||
LXI H,1 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .41 |
|
||||
.46: |
|
||||
.47: |
|
||||
LXI H,3 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .41 |
|
||||
.40: |
|
||||
CALL .swt |
|
||||
DW 6 |
|
||||
DW 65,.45 |
|
||||
DW 84,.43 |
|
||||
DW 86,.47 |
|
||||
DW 97,.44 |
|
||||
DW 116,.42 |
|
||||
DW 118,.46 |
|
||||
DW .41 |
|
||||
.41: |
|
||||
JMP .20 |
|
||||
.48: |
|
||||
LDA c_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
JMP .49 |
|
||||
.51: |
|
||||
.52: |
|
||||
LXI H,0 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .50 |
|
||||
.53: |
|
||||
.54: |
|
||||
LXI H,1 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .50 |
|
||||
.55: |
|
||||
.56: |
|
||||
LXI H,2 |
|
||||
MOV A,L |
|
||||
STA newtt_ |
|
||||
JMP .50 |
|
||||
.49: |
|
||||
CALL .swt |
|
||||
DW 6 |
|
||||
DW 65,.54 |
|
||||
DW 84,.52 |
|
||||
DW 87,.56 |
|
||||
DW 97,.53 |
|
||||
DW 116,.51 |
|
||||
DW 119,.55 |
|
||||
DW .50 |
|
||||
.50: |
|
||||
JMP .20 |
|
||||
.57: |
|
||||
LXI H,7 |
|
||||
PUSH H |
|
||||
LXI H,.1+347 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .20 |
|
||||
.19: |
|
||||
CALL .swt |
|
||||
DW 4 |
|
||||
DW 0,.21 |
|
||||
DW 1,.30 |
|
||||
DW 2,.39 |
|
||||
DW 3,.48 |
|
||||
DW .57 |
|
||||
.20: |
|
||||
LDA newtt_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,255 |
|
||||
POP D |
|
||||
CALL .ne |
|
||||
JZ .58 |
|
||||
LDA newtt_ |
|
||||
MOV L,A |
|
||||
PUSH H |
|
||||
LHLD pSYSCFG_ |
|
||||
LXI D,68 |
|
||||
DAD D |
|
||||
POP D |
|
||||
MOV M,E |
|
||||
LXI H,-3840 |
|
||||
SHLD hregbc_ |
|
||||
LXI H,-16384 |
|
||||
SHLD hregde_ |
|
||||
CALL diagnose_ |
|
||||
.58: |
|
||||
JMP .6 |
|
||||
.7: |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
.1: |
|
||||
DB 10,0,84,69,82,77,84,89,80,69,46,67,79,77,32 |
|
||||
DB 37,100,47,37,100,47,37,100,32,37,100,46,37,100,46 |
|
||||
DB 37,100,46,37,100,32,100,119,103,32,45,32,68,105,115 |
|
||||
DB 112,108,97,121,47,67,104,97,110,103,101,32,84,101,114 |
|
||||
DB 109,105,110,97,108,32,84,121,112,101,10,0,10,84,104 |
|
||||
DB 101,32,84,101,114,109,105,110,97,108,32,84,121,112,101 |
|
||||
DB 32,105,115,32,0,32,84,84,89,44,32,79,112,116,105 |
|
||||
DB 111,110,115,58,32,97,40,110,115,105,41,44,32,119,40 |
|
||||
DB 121,115,101,41,44,32,118,40,116,53,50,41,44,32,113 |
|
||||
DB 40,117,105,116,41,32,63,0,65,78,83,73,44,32,79 |
|
||||
DB 112,116,105,111,110,115,58,32,116,40,116,121,41,44,32 |
|
||||
DB 32,119,40,121,115,101,41,44,32,118,40,116,53,50,41 |
|
||||
DB 44,32,113,40,117,105,116,41,32,63,0,87,89,83,69 |
|
||||
DB 44,32,79,112,116,105,111,110,115,58,32,116,40,116,121 |
|
||||
DB 41,44,32,32,97,40,110,115,105,41,44,32,118,40,116 |
|
||||
DB 53,50,41,44,32,113,40,117,105,116,41,32,63,0,86 |
|
||||
DB 84,53,50,44,32,79,112,116,105,111,110,115,58,32,116 |
|
||||
DB 40,116,121,41,44,32,32,97,40,110,115,105,41,44,32 |
|
||||
DB 119,40,121,115,101,41,44,32,113,40,117,105,116,41,32 |
|
||||
DB 63,0,85,110,107,110,111,119,110,44,32,79,112,116,105 |
|
||||
DB 111,110,115,58,32,0,116,40,116,121,41,44,32,32,97 |
|
||||
DB 40,110,115,105,41,44,32,119,40,121,115,101,41,44,32 |
|
||||
DB 118,40,116,53,50,41,44,32,113,40,117,105,116,41,32 |
|
||||
DB 63,0,37,99,0 |
|
||||
extrn printf_ |
|
||||
extrn asmif_ |
|
||||
extrn xrega_ |
|
||||
extrn diagnose_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn .eq |
|
||||
extrn .ne |
|
||||
extrn .lt |
|
||||
END |
|
||||
|
|
||||
File diff suppressed because it is too large
@ -1,500 +0,0 @@ |
|||||
extrn .begin,.chl,.swt |
|
||||
extrn csave,cret,.move |
|
||||
PUBLIC vdaini_ |
|
||||
vdaini_: lxi d,.2 |
|
||||
call csave |
|
||||
LXI H,8-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16384 |
|
||||
CALL .or |
|
||||
SHLD hregbc_ |
|
||||
LHLD hregbc_ |
|
||||
PUSH H |
|
||||
LXI H,.1+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hregde_ |
|
||||
LHLD hregde_ |
|
||||
PUSH H |
|
||||
LXI H,.1+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,12-.2 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hreghl_ |
|
||||
LHLD hreghl_ |
|
||||
PUSH H |
|
||||
LXI H,.1+34 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
CALL diagnose_ |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.1+51 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.2 EQU 0 |
|
||||
.1: |
|
||||
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120 |
|
||||
DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48 |
|
||||
DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120 |
|
||||
DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97 |
|
||||
DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111 |
|
||||
DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0 |
|
||||
PUBLIC bitlook_ |
|
||||
bitlook_: lxi d,.4 |
|
||||
call csave |
|
||||
LXI H,-32768 |
|
||||
XCHG |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .6 |
|
||||
.5: |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.6: |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,256 |
|
||||
CALL .lt |
|
||||
JZ .7 |
|
||||
LXI H,0-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.3+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .9 |
|
||||
.8: |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.9: |
|
||||
LXI H,-2-.4 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,8 |
|
||||
CALL .lt |
|
||||
JZ .10 |
|
||||
LXI H,2-.4 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
XCHG |
|
||||
DCX H |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
PUSH D |
|
||||
LXI H,.3+16 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
JMP .8 |
|
||||
.10: |
|
||||
LXI H,.3+24 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
JMP .5 |
|
||||
.7: |
|
||||
RET |
|
||||
.4 EQU -6 |
|
||||
.3: |
|
||||
DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32 |
|
||||
DB 0,48,120,37,48,50,120,32,0,10,0 |
|
||||
PUBLIC vdaqry_ |
|
||||
vdaqry_: lxi d,.12 |
|
||||
call csave |
|
||||
LXI H,8-.12 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,16640 |
|
||||
CALL .or |
|
||||
SHLD hregbc_ |
|
||||
LHLD hregbc_ |
|
||||
PUSH H |
|
||||
LXI H,.11+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.12 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
SHLD hreghl_ |
|
||||
LHLD hreghl_ |
|
||||
LXI D,-32768 |
|
||||
CALL .ne |
|
||||
JZ .13 |
|
||||
LXI H,.11+17 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
.13: |
|
||||
CALL diagnose_ |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
PUSH H |
|
||||
LXI H,.11+43 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregbc_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LXI H,.11+83 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregde_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
PUSH H |
|
||||
LHLD hregde_ |
|
||||
LXI D,8 |
|
||||
XCHG |
|
||||
CALL .ur |
|
||||
PUSH H |
|
||||
LXI H,.11+123 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LHLD hregde_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LHLD hregde_ |
|
||||
LXI D,255 |
|
||||
CALL .an |
|
||||
PUSH H |
|
||||
LXI H,.11+167 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,10-.12 |
|
||||
DAD SP |
|
||||
mov a,m |
|
||||
inx h |
|
||||
ora m |
|
||||
JZ .14 |
|
||||
LXI H,.11+211 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
CALL bitlook_ |
|
||||
.14: |
|
||||
LDA hrega_ |
|
||||
MOV L,A |
|
||||
MVI H,0 |
|
||||
RET |
|
||||
.12 EQU 0 |
|
||||
.11: |
|
||||
DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120 |
|
||||
DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104 |
|
||||
DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68 |
|
||||
DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116 |
|
||||
DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32 |
|
||||
DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109 |
|
||||
DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50 |
|
||||
DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32 |
|
||||
DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41 |
|
||||
DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32 |
|
||||
DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32 |
|
||||
DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10 |
|
||||
DB 0,118,100,97,113,114,121,32,99,97,108,108,101,100,32 |
|
||||
DB 119,105,116,104,32,98,105,116,109,97,112,32,112,111,105 |
|
||||
DB 110,116,101,114,10,0 |
|
||||
PUBLIC main_ |
|
||||
main_: lxi d,.16 |
|
||||
call csave |
|
||||
LXI H,.15+0 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,64 |
|
||||
PUSH H |
|
||||
CALL vdaini_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,-3-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,-3-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-1-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.15+33 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-32768 |
|
||||
PUSH H |
|
||||
LXI H,64 |
|
||||
PUSH H |
|
||||
CALL vdaqry_ |
|
||||
POP D |
|
||||
POP D |
|
||||
XCHG |
|
||||
LXI H,-3-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,-3-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,-1-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
PUSH D |
|
||||
LXI H,.15+77 |
|
||||
PUSH H |
|
||||
CALL printf_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
LXI H,-32768 |
|
||||
XCHG |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
LXI H,0 |
|
||||
XCHG |
|
||||
LXI H,-1-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .18 |
|
||||
.17: |
|
||||
LXI H,-1-.16 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
.18: |
|
||||
LXI H,-1-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
LXI H,2048 |
|
||||
CALL .lt |
|
||||
JZ .19 |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
MOV E,M |
|
||||
LXI H,1-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,1-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
MVI D,0 |
|
||||
LXI H,255 |
|
||||
CALL .xr |
|
||||
XCHG |
|
||||
LXI H,1-.16 |
|
||||
DAD SP |
|
||||
MOV M,E |
|
||||
LXI H,1-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
PUSH D |
|
||||
LXI H,4-.16 |
|
||||
DAD SP |
|
||||
MOV E,M |
|
||||
INX H |
|
||||
MOV D,M |
|
||||
XCHG |
|
||||
POP D |
|
||||
MOV M,E |
|
||||
LXI H,2-.16 |
|
||||
DAD SP |
|
||||
PUSH H |
|
||||
MOV A,M |
|
||||
INX H |
|
||||
MOV H,M |
|
||||
MOV L,A |
|
||||
INX H |
|
||||
XCHG |
|
||||
POP H |
|
||||
MOV M,E |
|
||||
INX H |
|
||||
MOV M,D |
|
||||
JMP .17 |
|
||||
.19: |
|
||||
LXI H,-32768 |
|
||||
PUSH H |
|
||||
LXI H,0 |
|
||||
PUSH H |
|
||||
LXI H,64 |
|
||||
PUSH H |
|
||||
CALL vdaini_ |
|
||||
POP D |
|
||||
POP D |
|
||||
POP D |
|
||||
RET |
|
||||
.16 EQU -7 |
|
||||
.15: |
|
||||
DB 118,105,100,101,111,46,99,111,109,40,99,41,32,49,49 |
|
||||
DB 47,49,53,47,50,48,49,50,32,100,119,103,32,45,32 |
|
||||
DB 10,10,0,115,116,97,116,117,115,32,114,101,116,117,114 |
|
||||
DB 110,101,100,32,102,114,111,109,32,118,100,97,105,110,105 |
|
||||
DB 32,119,97,115,32,48,120,37,48,52,120,40,37,100,41 |
|
||||
DB 10,0,115,116,97,116,117,115,32,114,101,116,117,114,110 |
|
||||
DB 101,100,32,102,114,111,109,32,118,100,97,113,114,121,32 |
|
||||
DB 119,97,115,32,48,120,37,48,52,120,40,37,100,41,10 |
|
||||
DB 0 |
|
||||
extrn printf_ |
|
||||
extrn diagnose_ |
|
||||
extrn hreghl_ |
|
||||
extrn hregde_ |
|
||||
extrn hregbc_ |
|
||||
extrn hrega_ |
|
||||
extrn .or |
|
||||
extrn .xr |
|
||||
extrn .an |
|
||||
extrn .ne |
|
||||
extrn .lt |
|
||||
extrn .ur |
|
||||
END |
|
||||
|
|
||||
File diff suppressed because it is too large
@ -0,0 +1,4 @@ |
|||||
|
rem xtraapps.bat 2/16/2013 dwg - build extra applicastions |
||||
|
|
||||
|
if not exist n8vidtst.cpm call n8vidtst.bat |
||||
|
if not exist tmsstat.cpm call tmsstat.bat |
||||
@ -0,0 +1,20 @@ |
|||||
|
@rem tmsstat.bat 2/15/2013 dwg - build tmsstat.cpm using native tools |
||||
|
@if not exist tmsstat.asm erase tmsstat.cpm |
||||
|
@if not exist tmsstat.asm erase tmsstat.o |
||||
|
@if not exist tmsstat.asm z80mu cc tmsstat |
||||
|
@if not exist tmsstat.o erase tmsstat.cpm |
||||
|
@if not exist tmsstat.o z80mu as tmsstat |
||||
|
|
||||
|
@if not exist n8chars.asm erase tmsstat.cpm |
||||
|
@if not exist n8chars.asm erase n8chars.o |
||||
|
@if not exist n8chars.asm z80mu cc n8chars |
||||
|
@if not exist n8chars.o z80mu as n8chars |
||||
|
|
||||
|
@if not exist tms9918.asm z80mu erase tmsstat.cpm |
||||
|
@if not exist tms9918.asm erase tms9918.o |
||||
|
@if not exist tms9918.asm z80mu cc tms9918 |
||||
|
@if not exist tms9918.o z80mu as tms9918 |
||||
|
|
||||
|
@if not exist tmsstat.cpm z80mu ln tmsstat.o n8chars.o tms9918.o -lc |
||||
|
@if not exist tmsstat.cpm rename tmsstat.com tmsstat.cpm |
||||
|
@dir tmsstat.cpm |
||||
Loading…
Reference in new issue