mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 21:38:05 +11:00
11 lines
386 B
Plaintext
11 lines
386 B
Plaintext
|
H@ ORG ! 0x8000 BIN( !
|
||
|
JMP8, L1 FWR8 ( start )
|
||
|
L2 ( msg ) BSET ," Hello World!" 0 A,
|
||
|
L1 FSET ( start )
|
||
|
SI L2 @ ( msg ) MOVrI, AH 0x0e MOVri, ( print char )
|
||
|
L1 BSET ( loop ) LODSB, AL AL ORrr, ( end of str? )
|
||
|
JZ, L2 FWR8 ( next ) 0x10 INT, ( print char )
|
||
|
JMP8, L1 ( loop ) BWR
|
||
|
L2 FSET ( next ) AH 0 MOVri, 0x16 INT, ( read kbd )
|
||
|
AH 0x0e MOVri, 0x10 INT, ( spit read char ) HLT, ( done )
|