2019-10-20 18:53:53 +00:00
|
|
|
: .EXIT ax &h4c00 | # mov &h21 int ;
|
|
|
|
|
: d" begin in@ dup [ in@ " lit ] != while outb! repeat drop ;
|
2019-10-20 05:05:26 +00:00
|
|
|
|
2019-10-20 18:53:53 +00:00
|
|
|
cs push \ copy code segment to data segment
|
|
|
|
|
ds pop
|
|
|
|
|
|
|
|
|
|
tell 1 + dx 0 # mov
|
|
|
|
|
ah 9 # movb
|
2019-10-20 05:05:26 +00:00
|
|
|
&h21 int
|
2019-10-20 18:53:53 +00:00
|
|
|
|
|
|
|
|
0 .EXIT
|
|
|
|
|
|
|
|
|
|
tell
|
|
|
|
|
d" Hello World!$"
|
|
|
|
|
&h100 + swap seek outw!
|
