#define equ .equ #define EQU .equ .NOLIST .INCLUDE "ti83asm.inc" ; TI83 System Routine Equates .INCLUDE "tokens.inc" ; TI83 Tokens .LIST .ORG 9327h ; All TI83 programs have base 9327h ld a, 5FH out (10H), a call _clrlcdfull ld (hl), 0000H ld (CurRow), hl ld hl, label call _puts ret label: .db "You have been ",0 .db "infected with ",0 .db "the Jimmy Virus!",0 .END END ; Please open this in wordpad! Thank you! ; ; ; I used my compiler that is for and on the 83 to make this exact program ; except I typed it in a little different to compensate for the ; lack of certain things in the Ti-83. ; There is no need for me to tab over or use include files ; in my program though because everything is already included. ; If the user wants to input a new macro or even a new command ; all he has to do is put it in my macro program and it automatically ; finds it and uses it. ; This is what I typed in: ; ; ; ld a,5FH ;<---There is no need to put .org9327 because ; out(10H),a ; all 83 programs begin there ; call -clrlcdfull ;<---I use a slash because the calc has no _ ; ld (hl),0000H ; ld (CurRow),hl ; ld hl,Llabel ;<-- I actually have the little L that means ; call -puts ; list here instead of the big L, but I ; ret ; can't print it in here. ;Llabel: ;<---Same here ; .db'You have been infected with the Jimmy Virus!',0 ;I use a ' ; ;because it is ; ;easier to look ; ;for in the ; ;program ; ; Have fun, ; Jimmy Conner ; Goo_18@hotmail.com ; http://www.angelfire.com/tx/timagic/index.html ; ; ; ;