Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

149 Excellent

About 576XE

  • Rank
  • Birthday 03/26/1959

Profile Information

  • Gender
  • Location
    Moscow, Russia

Recent Profile Visitors

10,563 profile views
  1. Hello baktra I tried EDIT13 and it's very clear looking and the text is very readable!!! Here <msg .by...> stanza has some digits - it's ASC("...") of MAE controls... And the result... Hello, Marius Is it possible to use all ATASCII Pseudographics in PANTHER and how? Sometimes it's very big problem in programming because some of the symbols are used by editor as control symbols. zen
  2. Hello, baktra. Edit13 is very suitable editor. Is it possible to eliminate CR symbol? The dots evidently shows us the end of line, isn't it? zen
  3. @andymanone Hello Andy, Sorry, but I use only "my own English" so I never can joke to my friends... (Cause they eat me one second after) Thus it's a serious world! Anyway you can see that another persone walter_J64bit connected to our conversation and could see that it's useful and good. You, Andy, just say me Don't go there! and CharlieChaplin said Go here! And phaeron sain what's wrong. zen
  4. Thank you, GOOD OLD FRIENDS! You All are THE very responsive men! No Doubt! Thank you Andreas for your not aethereal very helpful answer. (I even created working atr image!) You are The Great Guru of Atari SW! Thank you Avery for your not breaking help for ALL Atari World. I prefere full drive emulation because of poor state of my beloved XF551. PAL Atari130XE and NTSC XF551 (Fully Worked) So sad!. Thus i'm trying to emulate it first. Thank you again for your detailed explaination of XF551 behaviour! Really, I can say that you are The Pillar of ATARI related HW etc. After all, I still can not to achive fast XF551 speed Best wishes, zen
  5. Thank you very much Andy! Please check if your emulator has correct device(XF551) and BIOS XF551ROM. Too sad but I have ony that picture with your atr. Yes I can understand that Altirra is not in perfect state... But I'm lost. zen
  6. SED belongs to RIF SpartaDOS Utilities. You may find some very interesting tools there... zen
  7. Hello, TGB1718- Here in attachment is Sparta Editor (I rename it as SED) It's useful and convenient too. Take a look, please SED.XEX Best wishes from Moscow zen
  8. Hello Friends! Does anyone can stick together Altirra XF551 strikely emulated QD image with SpartaDOS 3.2 or 3.3 versions? I still have No DOS error in the a.m. environments. SDX obviously works. Do anyone have working images? And some explainations, Please! Best wishes from Russia. Now absolutely lacks of snow...
  9. I usually use 576 RAMBO memory mode and can check it with very useful XRAM program. This mode very compartible with XE memory schema. Now I'm working on HEAP management for PL65 language. It may be useful for windowing routines FE :). This picture may be useful too. https://www.dropbox.com/s/vqnhambls6tqwek/EXTRAM.png?dl=0 Sorry, can not upload ... zen
  10. Hello, Larry - You said nothing about the fact that this device replaces host memory FULLY thus may be used with machines with BAD MEMORY PROBLEMS! Just imagine... You have a dead brick, but inserting a cart+eci device you have fully working machine... Any questions, of course to famous ctirad! zen
  11. For external editing of LISP SOURCE FILE you need to know LISP FILE STRUCTURE. The structure of LISP source file is: (NO EMPTY LINES BETWEEN S-EXPRESSIONS!!!) Sample file: LDUMP.LSP (LDUMP TABX)<CR> - It is a LIST of used ATOMS! (DEFINEQ LDUMP '(LAMBDA (PROPS) (PROGN (OPEN 1 8 (QUOTE P:)) (PR# 1) (MAPCAR PROPS (LAMBDA (X) (PROGN (TERPRI) (TERPRI) (PRIN1 (QUOTE "**** ")) (PRINT X) (PPRINT (GETD X))))) (PR# 0) (CLOSE 1))) )<CR> (DEFINEQ TABX '(LAMBDA (N) (PROG (COUNT) (SETQ COUNT N) LOOP (SETQ COUNT (SUB COUNT 1)) (COND ((> COUNT 0) (PRIN1 (QUOTE " ")) (GO LOOP))) (RETURN))) )<CR> - Here are the set of definitions used by InterLISP/65 for all S-Expressions. The order of definitions is esserntial! NIL - It,s EOF signature (CURSOR must stay on the same line as NIL!) The main prolem is that LISP line has NO size limit. In contrary, edited phisical line has limit ~130characters. Thus if LISP stanza is long enough it will be truncated (Sic!). It means that LISP stops read file with ERROR. So use short lines. zen
  12. @Aces123 Each InterLISP/65 element consists of 4 bytes(0,1,2,3), numerated from left to right. Left pare is "Head" (CAR), Right pare is "Tail" (CDR). Being CAR or CDR every 16-bit word contains 3 service bits. Leftmost - N (Is it Number?) Rightmost - A (Is it Atom?) First from the Left of A-bit is - G (Is it Garbage bit) So we have only 13 bits for DATA REPRESENTATION !!! Hello, The Nobless Atari Age World! - will be represented in InterLISP/65 memory as: Hello, The No ..................bless Atari A ...................................ge World! I'm not saying a word about some Gaps, representing InfoBits. I say here that direct editing of LISP text can be available only after executing special LISP convertation program. So it's much convenient to use EDIT.LSP program, describbed in InterLISP/65 documentation. https://atariwiki.org/wiki/attach/Lisp/Inter-LISP.pdf Don't hesitate to contact me in troubles. zen
  13. Hello, Friends! Top DOS is very flexible system. It's unbelievably modular and powerful. You can load any module with L command and use it (For example RAMDISK or SUBDIR or VTOC). VTOC is for Harddrives up to 16Mb. DOS itself has very low MEMLO. The ONLY problem is that any version of Top DOS Pro here on AtariAge is MODIFYED! After installing 130XE module someone save dos to disk with H command. I mean that 130XE module is already appended to DOS SYS and can not be UNINSTALLED without disassembly and cracking. zen
  14. Workaround to eliminate some quirks of InterLISP/65 in SDX. At first, I must say that InterLISP/65 has an unqtue ability on atari-8 !!! It's a pretty-printing ! No other lang has it! (IMHO) BUT! What we can do with 40 columns limit while LISP has no limit in it's logic line at all?!! (Only a RAM limitations.) So, we need 80 columns! - And it's a beginning of my investigations... Good old Konrad (Drak030), said me a secret word to familiarize LISP with SDX. POKE 02e4,$c0. And it works in COL 40 mode! Also, never working with LISP he has never meet it's real problems. Recently I've tried to run LISP in SDX in COL 80 and COL 64 (I prefere COL 64) environment with the purpose to get a real pretty-printing of some long-enough LISP program such as LISP's 'EDIT - structured-manner LISP-native EDITOR. No chance. May be 'Screen' or '80font' are destroyed while loading LISP, may be some other garbage come in to screen ... I report this screenshot: /Garbage Thus we have some data/drivers in operative area while working. So I decided to say 'Y' but 'N' while loading LISP 2.5 after the prompt: Reserve mem for graphic modes 6,7,8 And a screenshot: /Loaded And it's pretty-printing screenshot. /Success P.S. I really can not understand which part of SDX is under the siege. May be some relocation of standard SDX parts is a Panacea? All your suggestions about relocation of SDX data are very highly appreciated. Best wishes from Moscow zen
  15. Hello FRIENDS! This new code is working! It's demo of course BUT ... program vm; const CON=0; COF=1; NOP=255; ESC=28; RET=12; UP=14; cUP=142; DN=15; cDN=143; type sarT = array[1..6] of string; var CH: byte absolute $2fc; SAVMSC: word absolute $58; CRSINH: byte absolute $2f0; X,Y,W,H: byte; procedure invLine(x,y,len : byte); var _L: byte absolute $f0; _A: integer absolute $f2; begin _L := len; _A := SAVMSC + y*40 + x-1; inline($ac/_L/ (* ldy #_L *) $b1/$f2/ (* lda($f2),y *) $49/$80/ (* eor #$80 *) $91/$f2/ (* sta($f2),y *) $88/ (* dey *) $d0/$f5); (* bne -9 *) end; procedure putMenu; var strg: sarT; ndx: byte; begin strg[1] := 'Moscow '; strg[2] := 'Petersburg'; strg[3] := 'Evpatoria '; strg[4] := 'Feodosia '; strg[5] := 'Simeiz '; strg[6] := 'Konakovo '; for ndx := 1 to H do begin gotoxy(X,Y-1+ndx); writeln(strg[ndx]); end; end; var MINR,MAXR,sel,key: byte; dy: shortint; begin X := 5; Y := 5; W := 10; H := 6; MINR := 1; MAXR := 6; CRSINH := COF; putMenu; sel := 1; invLine(X,Y-1+sel,W); repeat CH := NOP; while CH=NOP do ; key := CH; dy := ord((key=DN) or (key=cDN)) - ord((key=UP) or (key=cUP)); if dy<>0 then begin invLine(X,Y-1+sel,W); sel := sel+dy; if sel<MINR then sel := MINR; if sel>MAXR then sel := MAXR; invLine(X,Y-1+sel,W); CH := NOP; end; if key=RET then begin gotoxy(14,20); writeln(sel,' selected'); CH := NOP; end; until key=ESC; CH := NOP; CRSINH := CON; end. And a screenshot: zen
  • Create New...