Jump to content

moije

New Members
  • Posts

    9
  • Joined

  • Last visited

moije's Achievements

Combat Commando

Combat Commando (1/9)

5

Reputation

  1. * * LBLALST * *LiSTing save for LBLA * *[ *... *] can ommit * * * *MM First Free,+4 by sym FF EQU >7CD8+4+4+4+4+4+4+4+4+4+4 *Top,-8 by def TF EQU >7FF0 *[ AORG >701C DATA FF DATA TF *] * * * *seems ok AORG >703A HN MOV R11,R14 from mod *NEw NE EQU >71A6 LI R15,NE to NEw JMP EX * HO MOV R11,R14 *OLd OL EQU >71AC LI R15,OL MOVB R12,R4 JMP $+8 * *User Workspace UW EQU >70B8 BA LWPI UW MOV R14,R15 to mod * MOV R12,R0 *vMbW MW EQU >6028 BLWP @MW copy MOV R8,@>8354 MOV R9,@>834A MOVB R10,@>834C MOV R3,@>8356 MOVB @UW+21,@>836D CLR @>83D0 MOVB R2,@>837C clr GPLST *GplLnk GL EQU >6018 *[ BLWP @GL DATA >6D0E mod VDP init *] BLWP @GL DATA >3D K7 * *EXit hook EX MOVB R13,R4 LI R11,BA BAck to hook B *R15 to LBLA NEW/OLD/mod * * AORG UW+2 DATA UW+8 R1 src at R4 DATA >D R2 # bytes DATA >50D R3 name end in VDP *PAB DATA >FF02 R4 I/O;error;fixed;internal;sequential DATA >1000 R5 buffer DATA >4000 R6 record length;count *+>3C0 by PaGes,max 12 PG EQU >3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0+>3C0 DATA PG R7 # bytes DATA >0003 R8 screen offset,name length DATA >4353,>3108 R9,R10 'CS1';;8=DSR call AORG $+2 DATA >500 R12 load/dst in VDP DATA >600 R13 save * * AORG NE+2 DATA UW R0 as flag AORG OL+2 DATA UW * * *after LBLA VDP init AORG >71E2 LWPI >7118 main WS SOC @UW,@UW JNE >723A main Loop * MOV @$+12,@>7186 page LWPI >7138 subs WS JMP >7200 copyright * DATA >1000 * * * *[ AORG >722C+2 DATA FF *] * * * *[ *END exit AORG >74FC MOVB @>7943,@>83D4 VR1 for KSCAN *] * * * *[ *new line vector AORG >79C2+2 DATA >79DA+4 don't clear *] * * * *[ *page up/down AORG >7B2E DATA >C40+PG AORG >7B4C DATA >C68+PG *] * * * AORG TF * TEXT 'DUMMY1' * DATA D1 AORG $+6 DATA HO def Hook OLD AORG $+6 DATA HN
  2. For big kids only! My Kid Kit: Kid EDitor Kid ASsembler Kid LiNker Lines Kid UTiLities: VSBW VMBW VSBR VMBR VWTR KSCAN VMVW VMVR GPLLNK DSRLNK XMLLNK VMBF VWVL MMVRAM BAVRAM EDITOR SCROLL VMBC RANDOM Kid Memory Editor: DWHX RHXW WTKEY MEMED Kid Dis/Assembler Kid 4 Basic: NUMREF STRREF NUMASG STRASG Kid SUBs: LOAD PEEK POKEV PEEKV CHARPAT Kid eXtended Basic: MAGNIFY LOCATE PATTERN COLOR MOTION SPRITE DELSPRITE POSITION COINC DISTANCE CHARSET DISPLAY AT ACCEPT AT INIT LOAD PEEK CHARPAT Kid MerGeR Ked KidKit.zip
  3. This one is more stable but need the interrupt. The loader itself just overwrites the gpl part of the pad not the basic part >834A is the fac.
  4. As I said the problem is with the interrupt we can't know when it will occcur. We can restore the original user interrupt but then no possibility to bypass the scroll or the clearscreen. And so no utility that could return to basic without changing the screen. For comments in my code,it would take me a realy long time to write them in English. I know it's very hard to understand assembly without comments,if you want I can try but i'm not sure to continue thru that way: Assembler; Ram emu ? When I wrote the dsrlnk I found that it uses >83D0 and >83D2 and I wanted to keep the code small not to reproduce routines like nibble to bin,word to bin,print nibble,print word I decided to emu the intel 8086 stack and for furter devel. maybe C like structures as It was designed for stack based cpus. ex: mov bp,sp MOV R9,R8 sub sp,4 AI R9,-4 mov [sp+2],ax MOV R0,@2(R9) mov ax, LI R0, ... do something mov sp,bp MOV R8,R9 ret BL @RET DATA POP again from i386 call far ptr that is push segment push offset call seg:off pop offset pop seg to create sub stack push page push offset. We people from France and You people from USA have a lot in common,we realy appreciate what you have done and what you are doing for us and Liberty,thanks again. But this is not the place for that so it will be my last reference to politic in this blog.
  5. Sorry I correct the post now it should assemble. I tried the fiad file with classic99 and the wav file with mess. In mess there is a bug you must type "run" not "RUN" don't know why???? Ok i understand,my idea was to use this to make small utilities from XB to SB like merge,peek,poke,sprite,motion,charpat,magnify with only the loader no page but know i can see that it must use scroll to start isn't it senior_falcon?
  6. Thank you senior_falcon for your support and congratulations for writting this code. Now I'm not sure what path to take: a) try to write a real assembler dedicated to PG with labels and counting bytes or control structures like C/Pascal b) make a RAM emulator from VDP(emulate a 9900 in a ti99!) at run time or compiled what do you think BIG KIDS? I'm really not convinced of my skills for those tasks...
  7. I forgot that i change the loader for having something like a stack
  8. Hi all,let me introduce myself i was the pround owner of a ti when was twelve, 34 years ago,I'm from Paris,that's why my english is so poor apologize,and you could be sure that PARIS WILL LIVE. I wrote this piece of s... because PLAYGROUND was the prog that always wanted to have. It's basicaly a simple assembler disassembler in playgroung env. Let me know what you think about this. KDA.zip
×
×
  • Create New...