2016-04-15 17:37:30 +03:00
|
|
|
|
|
|
|
|
* Hello World for TI-99/4a computer with TMS9900 CPU
|
|
|
|
|
* by Frog ( http://frog.enlight.ru )
|
|
|
|
|
* 15 April 2016
|
|
|
|
|
*
|
|
|
|
|
****************************************************************************
|
|
|
|
|
|
|
|
|
|
DEF START
|
|
|
|
|
|
|
|
|
|
WRKSP EQU >8300
|
|
|
|
|
|
2021-05-08 09:57:36 -05:00
|
|
|
VDPWD EQU >8C00
|
|
|
|
|
VDPWA EQU >8C02
|
2016-04-15 17:37:30 +03:00
|
|
|
|
|
|
|
|
|
2021-05-08 09:57:36 -05:00
|
|
|
START LIMI 0
|
|
|
|
|
LWPI WRKSP
|
2016-04-15 17:37:30 +03:00
|
|
|
|
|
|
|
|
LI R0,>0000
|
|
|
|
|
ORI R0,>4000
|
|
|
|
|
SWPB R0
|
|
|
|
|
MOVB R0,@VDPWA
|
|
|
|
|
SWPB R0
|
|
|
|
|
MOVB R0,@VDPWA
|
|
|
|
|
|
2021-05-08 09:57:36 -05:00
|
|
|
LI R1,HELLOWORLD
|
|
|
|
|
LI R2,12
|
2016-04-15 17:37:30 +03:00
|
|
|
|
|
|
|
|
NEXTCHAR
|
2021-05-08 09:57:36 -05:00
|
|
|
MOVB *R1+,@VDPWD
|
2016-04-15 17:37:30 +03:00
|
|
|
DEC R2
|
|
|
|
|
JNE NEXTCHAR
|
|
|
|
|
|
|
|
|
|
LOOPBACK
|
2021-05-08 09:57:36 -05:00
|
|
|
JMP LOOPBACK
|
2016-04-15 17:37:30 +03:00
|
|
|
|
|
|
|
|
|
|
|
|
|
HELLOWORLD
|
2021-05-08 09:57:36 -05:00
|
|
|
TEXT 'HELLO WORLD'
|
|
|
|
|
|
2016-04-15 17:37:30 +03:00
|
|
|
BYTE 0
|
|
|
|
|
|
|
|
|
|
END
|
