@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 164ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC languag i}e OBJ > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST j} > BASIC LISTing -Some MACHINE language programs can only be run by booting the disk MENU "without" BASIC! -For s k}ome programs, XL/XE models may require a "TRANSLATOR" program to be booted first! [Also available from BELLCOM] - l}Most programs are relatively self-explanatory; however, some have separate DOCumentation files available. Some BASIC m} programs may contain instructions in their program listings. -To use this great MENU program on your own disks, n}simply copy the file "AUTORUN.SYS" onto your disk. * MENU written by DAVID CASTELL * program on your own disks, ^l}MEMTOBUFX3OX2ZYATXUVHSILMQPRFEGMTTTTIDIJJSEDUMMIIDSTSEENDSEDUCNSTARp}ISTSHERHC q}r} !"#$%&'()*+,s}-./012ss;@,;@,;@,;@,;@,;@,;@t},;@,;@,;@,(<<;@,;@,;@,;@,;@,2_G;@H,;@$u},;@,;@$,;@,;@$,S6-A6_6-BV<7 #A !-@5%"3A6%7 v}F6.0123456789ABCDEFP::6.0PHPCLCPLPSECPHACLIPLASEIDEYTYATAYCLVINYCLDINXSEDZ""6.ORAANDEORADCSTALDACMPSBCd""6.w}ASLROLLSRRORSTXLDXDECINCn 6. 6. 6. x""6.BPLBMIBVCBVSBCCBCSBNEBEQ,6.TXATXSTAXTSXDEX,6. BRx}KJSRRTIRTS! AP A`! Ap6-P:'AV, A# 6.6-&AV$# A67@,.y}$6-%@ 6-F:,+6-P:'@,6-+6.7%@,K67@,."6-&@$36.7%@z},96-H67@,.K$U6-@6-B:,$6-2-@E6.7%@&,U2AAP6-@:,&{}@U A` 6-A:," 6-%$6-@$ "$"( ( (( PRINTER(Y/N)".(TO START HIT |} #.6.4C00((((MAXIMUM NUMBER OF SECTORS=300"!(SECTOR NUMBER START:!'!(SECTOR NUMBER END :!(}}AR@)S --@@4(READING SECTOR :A6-?:<<,O6-%A(S ,* 6-B:,*!@~}) @A6 A0@,#6-%+++&,%@,$A(,),E A`J AT7 6.6.6.}6.!6-'6-70AA^+-@@ 6-F:,+67,.?h!! @2)!A"Ar67,.>:,|}6-%@  APD06-&@$P:+&@,'@,&@D"A"@Ap!!}"@ *"@A006-&@$P:+&@,'@,&@6-@$P:'@,Ap}!!"@*"@ A.$6.7@$'@%@,. AP006-&@$P:+%@,'@,%@}!A A"A !!"@)"@A"@Ap}"@A A@&*6-P:'@,*&Ap0//%@A A AA ://}%@A PAPA AD$$6.7@$'@%@,N&A0X"@A`}b"@A l"@A v!!"@ )"@A"@AP"@A} 6.A A@"@A 6.NOP A@67@,.#$ A"67@,.6." }A@ 6.CPY 6.$ A"67@,.6." A@ 6.CPY Ap67@,.,X }A@ 6.$ A 67@,.6.$"@A   Ap*67@,.,Y A@4} A@> APH 6.$ AR 6. A\'67@,.6.'67@,.f6-%@$p} A@z67@,.,X AP A@67@,.,Y AP 6.( A67@,.}$6./67@,.%67@,.,X)/ A@ 6.( A67@,.$6./67@,.%67}@,.),Y/ A@&"AP8$6.7@$'@%@,26-%@86-& 6-F:,!A'}&6-&AV%6-%%@ A`%6.$*67@,. 6-&@* A` 6- A 6.} A@!@A$8$6.7@$'@%@,8"@A . A@877'@&@}AA@AAPB&A`LWW'@%@AAA0A0AA@}AAPV! 6.BIT!"@A ` A j"@At! 6.JMP!"@A ~ }6.($ A 6. A' 6.67@,.'67@,.,6-%@"67@,.), AP!!}"@ *"@A 6.STY"@A "@A  AP 6.LDY6-%@}&"A"@AP"@A"@A "@A  }A  6.CPY("A2"@A < A F 6.CPX A PWW'@%@}AAAAAA@AAZ&6.7@$%@,& A@d 6.LDX AP}n!@A x&A A!@A6.7@$&@#,6-%@}4YA4AA((: ( A 4AA(3: }( Ap3: (:  A 104,169,1,141,1,3,104,1415,3,104,141,4,3,169,82141,2,3},104,141,11,3,104141,10,3,32,83,228,96,010,3,96,0,0,0,0,0"0,0,0,0,0,0,0,0AAA`++6}-A7@uA+6-F:,$AV%AV$p: +@-@@:(@ }--@@-(@ SECTOR /-@@ /(@ DISASSEMBLER-@Au $'} D:DISKDIS@ SECTOR /-@@ /(@ DISASSEMBLER-@Au $' ********************** *ATARI SYSTEM MONITOR* ********************** written by Tom Walters } This is a 6502 monitor program for all Atari 8 bit computers. This program is much superior to the program found on t}he ATARI Assembler/Editor cartridge. It is a good program for beginning machine language programmers to have as it i}s easy to use. THE PROGRAM COMMANDS -------------------- General commands: R = display regs. } p = send display to printer. Q = exit and return to DOS. These commands are usually followed by} a memory address. T = trace through program S = single step. L = list 20 instructions. } G = execute program. These are used for hex arithmetic. - = subtract. + = add. } In addition, these commands are used in conjunction with others. . < : Mem}ory moves are done using the M command. M = move Format for memory move: (destination)< (start}).(end)M Hex dumps are listed like this: (start).(end) Memory is altered like this: (st}arting point):( ) ( ) ( ) The blanks are 2 diget hex numbers; up to 128 chars. This program uses the s}ingle command line structure. In other words you can have up to 128 command CHARACTERS on 1 line. These are all leg}al commands: 600PLLLLLLLLLLLL 2000LR 600: 20 20 60 D0 13 I hope this program is of use to y}ou. t.w. 600PLLLLLLLLLLLL 2000LR 600: 20 20 60 D0 13 I hope this program is of use to y3{47L7JJJJ)` k6 T4J jɢ )Jn4 34)) JJJ Ȉ` 3H 6 V4ăȐh}4 5&*i? 6 T44 64 6`0 6豇 b4Ș 6L6 6`8e` T0 }"T3 |4w5 T3  T; "D3 D"D3 D"D3 "D3 &1!YMJ,),#($YX$$#]#)i#$S#$S}[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD 3hh6B }Y`EL\lYx5s6@5)I 7LhH 0L7( 7hh 3 5L7hhh b4 `4HHHH} b6 6*5 6= 6 60` b48 78L6L 6AXYPS摥Ō``BD8E`HI }V䩛L6 b6 L4t6o7-L6 ) g6 6 6 06`JJJIeH= 6hHJJJJ 6h) 0:i77 BD}7EHI V BD7EHI V䤆7`ƅLx6 7`:L6`8`` *6` k}7H 3 _4h8`p7k8` k7 7lL5ƅ k7LO5 7hhcl H(`h`BD7EJK V}7` b6 V7`PЎ ح7 7 b6] 6 D6 _8 ?80d8 V8L 8 &&8I0} i`7Hs8H`즤l884~55I=Su5530d8 V8L 8 &&8I0@ ORG $3380 ***DISASSEMBLER MODULE***L3380 LDA #$00 STA L3713 JMP L37F4L3388} BCC L338E LSR A LSR A LSR A LSR AL338E AND #$0F RTSL33}91 LDX $87 LDY $88 JSR L366B JSR L3454 LDA ($87,X) TAY }LSR A BCC L33AA ROR A BCS L33B4 CMP #$A2 BEQ L33B4 AN}D #$87L33AA LSR A TAX LDA L346E,X JSR L3388 BNE L33B8L33B4 LDY }#$80 LDA #$00L33B8 TAX LDA L34B2,X STA $82 AND #$03 STA $83 } TYA AND #$8F TAX TYA LDY #$03 CPX #$8A BEQ L33D8L33CD } LSR A BCC L33D8 LSR AL33D1 LSR A ORA #$20 DEY BNE L33D1} INYL33D8 DEY BNE L33CD RTSL33DC JSR L3391 PHAL33E0 LDA ($87),Y J}SR L36AF LDX #$01L33E7 JSR L3456 CPY $83 INY BCC L33E0 LDX } #$03 CPY #$04 BCC L33E7 PLA TAY LDA L34CC,Y STA $80 }LDA L350C,Y STA $81L3401 LDA #$00 LDY #$05L3405 ASL $81 ROL $80 } ROL A DEY BNE L3405 ADC #$3F JSR L36C2 DEX BNE L3401 } JSR L3454 LDY $83 LDX #$06L341C CPX #$03 BEQ L343CL3420 ASL $82 } BCC L3432 LDA L34BF,X JSR L36C2 LDA L34C5,X BEQ L3432 JSR } L36C2L3432 DEX BNE L341C RTSL3436 DEY BMI L3420 JSR L36AFL343C LDA } $82 CMP #$E8 LDA ($87),Y BCC L3436 JSR L3462 TAX INX } BNE L344C INYL344C TYA JSR L36AF TXA JMP L36AFL3454 LDX #$03L3456 }LDA #$20 JSR L36C2 DEX BNE L3456 RTSL345F SECL3460 LDA $83L3462 LDY } $88 TAX BPL L3468 DEYL3468 ADC $87 BCC L346D INYL346D RTSL34}6E DB $4,$20,$54 DB $30,$D DB $80,$4,$90 DB $3,$22 DB $54,$33,$D } DB $80,$4 DB $90,$4,$20 DB $54,$33 DB $D,$80,$4 DB $90,$4 } DB $20,$54,$3B DB $D,$80 DB $4,$90,$0 DB $22,$44 DB $33,$D,$C8} DB $44,$0 DB $11,$22,$44 DB $33,$D DB $C8,$44,$A9 DB $1,$22} DB $44,$33,$D DB $80,$4 DB $90,$1,$22 DB $44,$33 DB $D,$80,$}4 DB $90 DB $26,$31,$87 DB $9AL34B2 DB $00 DB $21 DB } $81 DB $82 DB $00 DB $00 DB $59 DB $4D DB $91} DB $92 DB $86 DB $4A DB $85 DB $9DL34C0 DB ',),#($}'L34C6 DB 'Y',0,'X$$',0L34CC DB $1C,$8A,$1C DB $23,$5D,$8B DB $1B,$A1,$9D }DB $8A,$1D,$23 DB $9D,$8B,$1D DB $A1,$0,$29 DB $19,$AE,$69 DB $A8,$1}9,$23 DB $24,$53,$1B DB $23,$24,$53 DB $19,$A1 DB $0,$1A,$5B DB } $5B,$A5,$69 DB $24,$24 DB $AE,$AE,$A8 DB $AD,$29,$0 DB $7C,$0 } DB $15,$9C,$6D DB $9C,$A5,$69 DB $29,$53 DB $84,$13,$34 DB $11,$A5,}$69 DB $23,$A0L350C DB $D8,$62,$5A DB $48,$26,$62 DB $94,$88,$54 DB } $44,$C8,$54 DB $68,$44,$E8 DB $94,$0,$B4 DB $8,$84,$74 DB $B4,$28,$6E} DB $74,$F4,$CC DB $4A,$72,$F2 DB $A4,$8A DB $0,$AA,$A2 DB $}A2,$74,$74 DB $74,$72 DB $44,$68,$B2 DB $32,$B2,$0 DB $22,$0 DB } $1A,$1A,$26 DB $26,$72,$72 DB $88,$C8 DB $C4,$CA,$26 DB $48,$44,$44 } DB $A2,$C8 DB $FF,$FF,$FF ***TRACER MODULE***L354F JSR L33DC PLA STA } $80 PLA STA $81 LDX #$08L355A LDA L361C,X STA $8A,X DEX }BNE L355A LDA ($87,X) BEQ L35A8 LDY $83 CMP #$20 BEQ L35C5 } CMP #$60 BEQ L35B5 CMP #$4C BEQ L35D0 CMP #$6C BEQ L35D}1 CMP #$40 BEQ L35B1 AND #$1F EOR #$14 CMP #$04 BEQ L}3586L3584 LDA ($87),YL3586 STA $8A,Y DEY BPL L3584 JSR L3794 JMP $8}A STA $94 PLA PHA ASL A ASL A ASL A BMI L359E } JMP L37F4L359E PLP JSR L37A1 PLA STA $87 PLA STA $88L35A8 }JSR L3391 JSR L35E6 JMP L37F4L35B1 CLC PLA STA $97L35B5 PLA STA} $87 PLAL35B9 STA $88L35BB LDA $83 JSR L3462 STY $88 CLC BC}C L35D9L35C5 CLC JSR L3460 TAX TYA PHA TXA PHA LDY #$0}2L35D0 CLCL35D1 LDA ($87),Y TAX DEY LDA ($87),Y STX $88L35D9 STA $87} BCS L35D0 LDA $81 PHA LDA $80 PHAL35E3 JSR L3662L35E6 LDA }#$94 STA $8E LDA #$00 STA $8F LDX #$FBL35F0 LDA #$20 JSR L}36C2 LDA L352A,X JSR L36C2 LDA #$3D JSR L36C2 LDA $99,X J}SR L36AF INX BMI L35F0 RTSL3609 CLC LDY #$01 LDA ($87),Y J}SR L3462 STA $87 TYA SEC BCS L35B9L3617 JSR L379F SEC BCS } L35BB NOP NOP JMP L3617 JMP L3609L3625 DB 'AXYPS'L362A INC $90 } BNE L3630 INC $91L3630 LDA $8A CMP $8C LDA $8B SBC $8D } INC $8A BNE L363E INC $8BL363E RTS LDA #$00 STA $97 RTS }***INPUT MODULE***L3644 LDX #$00 LDA #$05 STA ICCOM,X LDA #$82 STA IC}BAL,X LDA #$38 STA ICBAH,X LDA #$60 STA ICBLL,X LDA #$00 }STA ICBLH,X JSR LE456L3662 LDA #$9B JMP L36C2 ***HEX OUT MODULE***L3667 LDY $8}B LDX $8AL366B JSR L3662 JSR L344C LDY #$00 LDA #$2D JMP L}36C2L3678 LDA $8A ORA #$07 STA $8C LDA $8B STA $8DL3682 LDA $8A} AND #$07 BNE L368BL3688 JSR L3667L368B LDA #$20 JSR L36C2 LDA }($8A),Y JSR L36AF JSR L3630 BCC L3682 RTSL369B LSR A BCC L3688} LSR A LSR A LDA $8C BCC L36A6 EOR #$FFL36A6 ADC $8A } PHA LDA #$3D JSR L36C2 PLAL36AF PHA LSR A LSR A LSR } A LSR A JSR L36BA PLA AND #$0FL36BA ORA #$30 CMP #$3A } BCC L36C2 ADC #$06 This module falls into the next one. ***OUTPUT MODULE***L36C2 } STY $86 STX $89 STA L3712 LDA L3713 BEQ L36EC LDX #$10 } LDA #$0B STA ICCOM,X LDA #$12 STA ICBAL,X LDA #$37 STA ICB}AH,X LDA #$01 STA ICBLL,X LDA #$00 STA ICBLH,X JSR LE456L36EC }LDX #$ LDA #$0B STA ICCOM,X LDA #$12 STA ICBAL,X LDA #$37 } STA ICBAH,X LDA #$01 STA ICBLL,X LDA #$00 STA ICBLH,X JSR } LE456 LDY $86 LDX $89 LDA L3712 RTSL3712 DB 1L3713 DB 1 } ***SUBROUTINE MODULE*** This module must all be on the same page!L3714 DEC $85 BNE L371F } JMP L3678 JSR L37AE RTSL371F DEX BNE L373B CMP #$3A BEQ L}3729 JMP L369BL3729 STA $84 LDA $8C STA ($8E),Y INC $8E BNE } L3735 INC $8FL3735 RTS LDY $85 LDA L3881,YL373B STA $84 RTS L}DX #$01L3740 LDA $8C,X STA $90,X STA $92,X DEX BPL L3740 RTSL}374A LDA ($8A),Y STA ($90),Y JSR L362A BCC L374A RTS JSR L376B} LDA #$14L3759 PHA JSR L33DC JSR L345F STA $87 STY $88  }PLA SEC SBC #$01 BNE L3759 RTSL376B TXA BEQ L3775L376E LDA $8A, }X STA $87,X DEX BPL L376EL3775 RTS JSR L376B JSR L3794 JMP } ($87)L377F JMP L35E3 DEC $85 JSR L376B JMP L354F JSR L3714  } PLA PLA BNE L37F4 JMP (DOSVEC)L3794 LDA $97 PHA LDA $94  }LDX $95 LDY $96 PLP RTSL379F STA $94L37A1 STX $95 STY $96 P}HP PLA STA $97 TSX STX $98 CLD RTS ***PRINTER CONTROL MODULE***}L37AE LDX #$10 LDA #$03 STA ICCOM,X LDA #$E2 STA ICBAL,X LDA } #$37 STA ICBAH,X LDA #$08 STA ICAX1,X LDA #$00 STA L034B,X } JSR LE456 LDX #$01 STX L3713 RTSL37D2 JSR L3662 LDX #$10 L}DA #$0C JSR LE456 LDX #$00 STX L3713 RTSL37E2 DB 'P',$9B ***COMM}AND MODULE***L37E4 LDY #$15L37E6 LDX #$7FL37E8 STX LD01F STX LD40A DEX BPL } L37E8 DEY BPL L37E6L37F4 CLD LDA L3713L37F8 BEQ L37FD JSR L37D2L37}FD JSR L3662 LDA #$5D JSR L36C2 JSR L3644 JSR L385FL380B JSR L38}3F STY $85 LDY #$0FL3812 DEY BMI L37E4 CMP L3864,Y BNE L3812 } JSR L3856 LDY $85 JMP L380BL3822 LDX #$03 ASL A ASL A } ASL A ASL AL3828 ASL A ROL $8C ROL $8D DEX BPL L3828L3}830 LDA $84 BNE L383A LDA $8D,X STA $8B,X STA $8F,XL383A INX } BEQ L3830 BNE L3845L383F LDX #$00 STX $8C STX $8DL3845 LDA L3882,Y } INY EOR #$30 CMP #$0A BCC L3822 ADC #$88 CMP #$FA BC}S L3822 RTSL3856 LDA #$37 PHA LDA L3873,Y PHA LDA $84L385F LDY } #$00 STY $84 RTSL3864 DB $EB,$E9,$EA,$ED,$EC DB $A6,$A4,$06,$95,$05 DB } $00,$93,$A7,$34,$99L3873 DB LOW L377F-1 DB LOW L371B-1 DB LOW L3791-1 DB } LOW L3782-1 DB LOW L3783-1 DB LOW L3735-1 DB LOW L3735-1 DB LOW L3749-1 } DB LOW L373D-1 DB LOW L3753-1 DB LOW L3775-1 DB LOW L3735-1 DB !} LOW L3735-1 DB LOW L3789-1 DB LOW L371E-1L3882 DS $80DB LOW L3735-1 DB \ RAM-EDIT [130XE] ---------------- RAMEDIT is a BASIC "creator" program, that when run, will create!#} a binary RAMEDIT program IMPORTANT ========= BEFORE RUNNING THE PROGRAM "RAMEDIT.BAS", REMOVE!$} THE SOURCE DISK FROM YOUR DISK DRIVE AND INSERT A BLANK DISK! WHEN YOU RUN "RAMEDIT.BAS" THE PROGRAM WILL FORMAT TH!%}E BLANK DISK AND WRITE THE RAM-EDIT FILE ONTO IT. THE CREATED DISK WILL AUTOBOOT ON POWERUP. RAM-EDIT !&} -------- This program is for use with the 130XE or 800XL with upgraded memory. It is a Copier/Sector Edit!'}or that will read an entire single density disk into the RAMDISK. When using the disk Editor, each sector is then read!(} instantly into the Editor instead of having to be read from Disk. This utlitiy program is excellent for cracking pr!)}otected program files and/or reviewing disks. SECTOR EDITOR COMMANDS ---------------------- If you sele!*}ct the Sector Editor option from the Menu, experiment with the following commands: [-] or [+] - advance sec display !+} [M] - disk map [V] - VTOC map [D] - directory [H] - convert [S] - search [E] - edit [W] - write to disk dr!,}ive [X] - exit (YES or NO) WARNING: ALWAYS MAKE A BACKUP !!!!!!! COPY OF YOUR SOURCE DISK !!!!!!! USING THE COPY!-} OPTION; !!!!!!! THEN EDIT YOUR BACKUP !!!!!!! COPY. DON'T TAKE CHANCES !!!!!!! WITH YOUR VALUABLE !!!!!!! SOURCE!.} DISKS!! !!!!!!! THEN EDIT YOUR BACKUP !!!!!!! COPY. DON'T TAKE CHANCES !!!!!!! WITH YOUR VALUABLE !!!!!!! SOURCE DEf:,P U 6.67AV,.+67@,.?-@ADC"Q67<,.>:,U A6-@%9}6-A %#A/ A`A( CHECKING DATA86-%@(LINE:!"8B:,@AF%6-F:A,%%:}AV$F:A,+C(LINE  MISSING!Fe-@@@36-@:7,,&@HO6-@:7%@,,&@H%;}e6-8,$@%8,="@67<,.>:,+6-%@/ 3"= A% 6-%!A %6-&A%<}  ""A A F:A,@A@A`WAi@'Ap%=}@39ArKAs@W6-?:C:,,"Ap@6-C:,,-@@:7@,,6t6-P:'%>}AV,$6-&$AV0Ar<AsHAxZAyf6-?:C:,,t6-%A(@ Ju 6-C:,%?}6-P:'AV,-6-&$AV9ArEAsWAxAiAy@u6-?:C:,,Tz6-%A("6-%@}P:'AV,26-&$AV>ArJAs\AxAnAy@z6-?:C:,,^(( COMPLETED!%A}hX&(INSERT A BLANK DISK IN DRIVE 1>(AND PRESS RETURN >K;@,X@rL(( SECOND PASS"6-@.6%B}-A 8#AB A`L A|(BAD DATA: LINE hh002D0007080718604C951BA9008D0B038588A9018D0A03858720A%C}C074C951BA210A90C9D42034C56E4A210A9039D42,635hh03A9F49D4403A9199D4503A9049D4A034C56E48D48038E44038C4503A90B8D4203A2004C56%D}E4A210A9079D4203A900,831hh9D48039D49034C56E4A9FF8D01D3A9C0856AA200202107A9039D4203A9F29D4403A9199D4503A90C9D4A034C56E4A9,%E}731hh008589858A8D0403A9408D0503A97E8583A91D858460A9098554A902855560A9008582A5803004A9FFD002A900A000,540hh9180A58B8593%F}A58C8594208C07A5958D0103A9528D0203A598F01C20A307A913A246A01A204207A90DA26CA01A2042,252hh07205507C99BD0F9A9028555A9038554A%G}907A20CA01A204207C654C654A9028555A907A238A01A2042072042192053,491$hhE4AD04038585AD05038586C940D00FAD0403D00AA582D006AC0140%H}C884CCA000B185D018C810F9A5918593A5928594,130.hh204219A58B8593A58C8594D009203419A000A9019183EE0A03D003EE0B0320581990A9A599F%I}0034C9B09A9008582A5,9258hh803004A9FFD002A900A0009180A598F01C20A307A913A259A01A204207A90DA26CA01A204207205507C99BD0F9A5FE,9%J}57BhhF019A5968D0103A9008D0403A9058D0503A9218D02032053E430FEA58D8593A58E8594208C07A9018554A9028555A9,613Lhh07A2F8A019204%K}207E654E654A9028555A907A23FA01A204207204219A5968D0103A9508D0203A9808D03038D0803A9,772Vhh068D0603A5878D0A03A5888D0B03A5FEF0%L}09203419A000B183F00DA002B9351A918F8810F82059E4E687D002E68820,772`hh5819B0034CEF08A9088554A910A279A01A204207205507C959D03B4%M}8A2008E48038E4903A9098D4203682056E4A903,900jhh8554A9118555A903A21BA01A204207A002A910918D8810FBA9018598A9018587A90085884C73%N}08A915A201A0162042,372thh07205507C959F00160206707A90E8DC5028D17D0A9A28DC6028D18D0A99B850CA909850DA91E8DE702A9238DE80220,18%O}9~hh1F07202907A9008DF002A907A215A04F205CE4A9C08D0ED4A9AB8D3002A9198D3102A900859BA901859AA9148554A9,943hh0285558552A902%P}A204A01820420718A55869508593A55969008594A026B99A1691938810F8204315A91085B6A026B9,640hhC11691938810F8204315C6B6D0EFA026B9E%Q}81691938810F84CFC0BA9148554A9028555A916A206A018204207A9008D,915hhDC02A9FF8DFC02ADFC02C9FFD008ADDC02F0F44C710BA015D97C15F0%R}068810F84C3A0AC906D02818A59A6901859A90,802hh02E69BA59AC9D1F0034CFC0BA59BC902F0034CFC0BA901859AA900859B4CFC0BC90ED02438A59%S}AE901859AB002C69B,744hhA59AF0034CFC0BA59BF0034CFC0BA9D0859AA902859B4CFC0BC92AD02AA9FF8DFC02A915A21CA018204207205507C9,315%T}gg48D004A900F009C941F0034C3A0AA90185AB20CC0D4CFC0BC916D019A9FF8DFC02A91DA217A019204207205507C959,94hhF0034C3A0A60C925%U}D014A90085CDA9B48DD219A9178DD31920B70F4CFE09C92ED006202E114C3A0AC939D006206A11,740hh4C3A0AC93ED00B203112B0034CFC0B4C9B09C%V}93AD00620EF134CFE09C910D014A90185CDA9DC8DD219A9178DD31920,644hhB70F4CFE09C966D01AA9FF8DFC02EEF002A936A2E1A018204207205507%W}CEF0024C3A0AA200A9058D4203A9D48D4403,771hhA9158D4503A9058D48038E49032056E4ADD415C99BD0034C3A0AC924D02620C10EA203AC480388D%X}0034C3A0AB9D415,288hh9D9F15CA88D0F620660FA5B1859AA5B2859B4CE30B20E50E90034C3A0A38A59AE9D1A59BE90230034C3A0AA59BD007,808%Y}ggA59AD0034C3A0A20240FA002B99C1520CC0E9921168810F438A59AE901859CA59BE900859DA980859EA900859F85A0,26hh85A1A010069C269D26%Z}A026A138A5A0E59EAAA5A1E59F900686A085A1E69C88D0E3A59C8582A480300EC905F00E38E9,284 hh0130050A0A1869E3A0009180A00606A026A1881%[}0F9A5A085A285A4A582A4803008C905D004A980D002A9401865A185,216hhA385A5A59A85BAA59B85BBA5BAC5CCB011A5BBD00DA00CB96616993F1688%\}10F73041A5BAC968D013A5BBC901D00DA0,522hh0CB97316993F168810F73028A5BBC901D017A5BAC9699011C971B00DA00CB98016993F168810F7300%]}BA00CB98D1699,563(hh3F168810F7A07DB1A24A4A859AA900859B20240FA001B99D1520CC0E992F168810F4A07FB1A2859AA900859B20240F,4912h%^}hA002B99C1520CC0E9939168810F4A07EB1A2859A88B1A22903859B20240FA002B99C1520CC0E995C168810F4A5BA85,616<hh9AA5BB859B18A558697%_}98593A55969008594A91085A7A90085A9A90085A8A5A920980FA90485A8A90085A6A4A6B1A2,403Fhh20980FE6A8E6A6A5A6C908D0EFA90085A6E6A8A4%`}A6B1A220CC0EA4A89193E6A8E6A6A5A6C908D0EBC6A7F02218A5A2,559Phh690885A2A5A3690085A318A5A9690885A9A5AA690085AA204315A2004C580%a}DADFC02C906F007C90EF0034C3A0A4C4B,305Zhh0AA93BA231A018204207A5ABD004A905D002A91E8555A9028554A902A204A018204207A9058D4203A9%b}DA8D4403A915,579dhh8D4503A5ABD004A91AD002A9258D48032056E4ADDA15C912F04FC911F04BC91AF047C99BF043AD4803F03EA55438E9,285nhh%c}040A0A0AAAA5803014A582C905D00E8A1865A085ACA5A1698085ADD00C8A1865A085ACA5A1694085ADA5ABF00EA007,672xhhB9F61591AC8810F820A4%d}0E60A90385AEA90085AF20C10EA4AEB9DA158DA115E6AEC8B9DA158DA215E6AEE6AE20660F,736ffA5B1A4AF99A315E6AFA5AFC908D0D9A007B9A3159%e}1AC8810F820A40E6038A59AE901AAA59BE900A8188A697E858398,1hh691D8584A000A902918360A003A930999F158810FA6006B30A66B34AC920B005%f}1869409007C960B00338E92005B360,699hhA59A85BAA59B85BBA000849A849BB9D415C9309019C93AB015290FA211D005900269094A669B669ACAD0F%g}4C8D0E0C9,784hh9BD003189009A5BA859AA5BB859B3860A59A85B4A59B85B5A90085A6A007A23038A5B4F991154888A5B5F993159009,808hh85%q}b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCb/oDISASEMBBASbMONITOR DOCb MONITOR OBJbkMONITOR SRCb "RAMEDIT DOCbz/RAMEDIT BASb2SEARCH OBJb&HEADER BASb HEXDUMP BASb BINDEC BASb"INSPECT BASb)RAMTOP BASb--TAPEDUMPBASbZSORTOUT BASbpRAMXEXL DOCb RAMXL DMObRAMXL OBJb RAMXE DMObRAMXE OBJbXLDOS BASB56885B4E8C8D0E8688A84B6A4A6999A15E6A6A4B68810D6A5B40930A4A6999A1560A20086B186B286B7A4B7B99F,682hh15E6B7C930901EC93A900AC%r}9419016C947B012E9360A0A0A0AA2040A26B126B2CAD0F8F0D760484A4A4A4A20A30F68,675hh290FC90AB0040930D002693620CC0EA4A89193E6A860%s}A9FF8DFC02A59A85BAA59B85BBA5CDD0034C3A10A003B1A485,381hh9AC8B1A4859B20240FA002B99C1520CC0E99FE178810F418A5A4690A8593A5A56%t}9008594A94E8583A9208584A95A85,880hhA6A000B19385B6A208A5B60A85B69004A900F002A9019183E683D002E684CAD0E8E693D002E694C6A6D0D6%u}A94E8583,529hhA9208584A900859A859BF010A97E8583A91D8584A901859AA900859BA9018DF002A901A20FA017204207A9CE8D3002,685hhA91%v}98D3102A9328DC602A5CDF004A9B2D002A9628D5E15A5588593A5598594A91885A820240FA002B99C1520CC0E91,889hh938810F518A5936905859390%w}02E69418A59A691D859A9002E69BA01DB183D004A92ED00AC901D004A914D002A9C520,331hhCC0E91938810E618A583691E85839002E68418A593692%x}085939002E69420240FA002B99C1520CC0E91938810F5E69A,657hhD002E69B18A593690385939002E694C6A8F0034C8010205507A9AB8D3002A9198D%y}3102A9A28DC602A9D28D5E15A901,847ggA20FA017204207A5BA859AA5BB859BA9008DF00260A9FF8DFC02A918A26CA018204207205507C931F005C93%z}2F00160,16hh38E9308D0103A9578D0203A5A48D0403A5A58D0503A59A8D0A03A59B8D0B034C53E4A59A85BCA59B85BDA9FF8DFC02,292"hhA915A%{}284A018204207A9058D4203A9D48D4403A9158D4503A9058D48032056E4AC48038884BEADD415C99BD00160C9,154,hh24D04820C10EA4BEF0F4A203B9%|}D4159D9F15CA88D0F620660FA5B1859AA5B2859B20240FA904A299A018204207A905,7026hhA29AA015204207205507A901A284A018204207A5BC859AA%}}5BD859B6020E50EB0E9A000A59B201712A59A201712A904,361@hhA29DA018204207A904A29FA0152042074CDC11484A4A4A4A20221268290FC90AB004%~}0930D0026936999F15C860A9FF,544Jhh8DFC02A91DA2A1A018204207205507C948D004A900F008C941F0023860A90185C2A916A2BEA018204207A5CEC%}5C2D0,734Thh1BADD315A2BBA015204207A9158554A9028555A902A204A018204207A9FF8DFC02ADFC02C9FFF0F9C90CF009A901A2,208^hh06A018%}204207A9058D4203A9DA8D4403A9158D4503A9178D48032056E4ADDA15C99BD0023860AC48038CD31588B9DA,931hhh1599BB158810F7A5C285CEF012A%}C48038884C1B9DA1599A3158810F74C4513AD4803859CA903859EA200869D869F86,580rggA086A1A010069C269D26A026A138A5A0E59EAAA5A1E59F90%}0686A085A1E69C88D0E3A59C85C1A90085C585C620C10E,28|hhA4C5B9DA158DA115E6C5C8B9DA158DA215E6C5E6C520660FA5B1A4C699A315E6C6A5C6%}C5C1D0D9A59A85BFA59B85C0,449hhA5A485C3A5A585C4A000B1C3D9A315D020C8C4C1D0F4A5BF859AA5C0859BA9148554A9028555A902A2D4A018204%}207,896hh1860E6C3D002E6C4A5C3F004C980D006E6BFD002E6C0A5C3D031A5C4C980D02BA5801006E682A5821012A582C904F0,579hh18E682A5%}8238E9010A0A1869E3A0009180A90085C3A94085C44C5513A5BFC9D1F0034C5513A5C0C902F0034C5513A9,937hh148554A9028555A90DA2D4A018204%}2072055073860A9FF8DFC02A901A20FA017204207A59A85BAA59B85BB18A55869,798hh508593A55969008594A04FB9101791938810F818A593695285%}939002E694A5A485C7A5A585C8A90885CBA90085CAA9,790hh0585C9A4C9B1C720CC0EA4CA9193E6C9E6CAA5CAC90BD0EBA90D85CAA001B1C7859AA90%}0859B20240FA4CAA202BD9A,417hh15E820CC0E9193C8C010D0F2A003B1C7859AC8B1C7859B20240FA013A202BD9A15E820CC0E9193C8C016D0F2A91A%}85,516hhCAA000B1C7AA2901F00BA94F20CC0EA4CA9193E6CA8A2902F00BA93220CC0EA4CA9193E6CA8A2920F00BA94C20CC0E,253hhA4CA9193E%}6CA8A2940F00BA95520CC0EA4CA9193E6CA8A2980F009A94420CC0EA4CA919318A5C7691085C79002E6C8,549hh204315C6CBF0034C331418A5936929%}85939002E694A96085C7A91785C8A206A00DB1C791938810F920431518A5C769,891gg0E85C79002E6C8CAD0E6A9F28D5E15A5BA859AA5BB859B20550%}7A9D28D5E156018A593692885939002E69460A95C8D,36hh0002A9158D01024C62E448A9D28D0AD48D18D0A9718D0002A9158D0102684048A9328D0AD%}48D18D06840060E2A1625,204hh2E393E3A1066321F1E1A181D1B333530580A006400E803102730303030303030303000000000000000000000000000%},834gg00000000000000000000002020202020202020202020202020202020202020202020200120202020209B2020202020,78hh202020202020%}202020202020202020202020202020202020202020202020202020209B456E74657220534543544F52,327hh20454449544F523F00332523342F32000%}31A0000000000000026292C2500031A0000000000353325241A0000000000,570&hh0000525252525252525252525252520000002E2538340033252334%}2F321A0000000000000000000000222F2F340033,3560hh2523342F32000036342F230000000000000000002429322523342F323900000000525252525%}2525252525252525251,317:hh52525752525252525252525252525252525252525252525252525252575252525252525252457C00007C0000000000,6%}78Dhh00000000000000000000000000000000000000007C00000000000000007C5A52525852525252525252525252525252,334Nhh5252525252525%}25252525252585252525252525252437D000026292C252E212D25000000000033293A250000333421,898Xhh3234000033342134353300000000000000%}000D0D0D0D0D0D0D0D0D0D0D00000D0D0D0D00000D0D0D0D0D00000D0D0D,591bhh0D0D0D00000000000033342134353300232F2425331A002F001D002%}F30252E00000000000024001D0024252C253425,716lhh2400000035001D00292E00353325000000002C001D002C2F232B25240000000012001D00242F%}3300120026292C2500,736vhh0000002429332B002D213000000000541D2461746100000E1D216C6C007A65726F7300000000000036342F23002D21,61%}3hh300000541D35736564000E1D356E757365640000263225251A000000000000001F1E9C436F6D6D616E64206F722073,294hh6563746F722023%}203E9C4564697420C86578206F7220C17461736369693F9C4D6F766520637572736F7220746F206D,842hh616B65206368616E6765732C20707265737%}320202020D2C5D4D5D2CE206F6E2065616368206C696E659B9C57726974,792hh6520746F20647269766520B1206F7220B2203F9C456E746572202320%}746F20636F6E76657274203E4445433D484558,874hh3D9C53656172636820666F7220C86578206F7220C17461736369693F203E9C456E74657220736%}56172636820737472,482hh696E673A9B9C9C9CA0CECFA0CDC1D4C3C8A19CC564697420CD617020D77269746520C865782D44656320D365617263,603%}hh6820C469726563202020D6544F4320D869742020AB20AD20BF9CC5D8C9D42E2E2E41726520796F7520737572653F20,381hh28592F4E29203E1%}8A97E65898583A91D658A858460A002B193186901C91AD00338A910919390038810ED60E689D002,185hhE68A18AD040369808D0403AD050369008D05%}03C980D027A5801006E682A5821014A582C904F017E682A58238E90130,911hh050A0A1869E3A0009180A9408D0503A589C9D0D009A58AC902D00338B%}0011860707070421616008250420000020202,833gg020202020202020202020202028250020241AB19707000C2B41710420000020202020202020202%}0202020202020202,71hh02020202020241CE19453A4B3A7D9B52454144494E4720534543544F52203030309B9B57524954494E472053454354,290%}hh4F52203030309B9B454D50545920534543544F525320203030309B9B9B101010D2C5C1C4C9CEC7D7D2C9D4C9CEC750,562hh555420D3D2C320444%}9534B20494E2044319B50555420C4D3D4204449534B20494E2044329B505245535320D2C5D4D5,177 hhD2CE9B9C9C9C414E4F5448455220434F50593F%}C1D8CCCFCEB1B3B0D8C57DA0D2C1CDADC5C4C9D4A1A0BCA0A0A0A0A0,307hhBEA0A0D6C5D2D3C9CFCEA0B7AEB0A09B2843293139383520436861726C6%}57320462E204A6F686E736F6E9B9B9B534F,914 gg55524345204452495645203D2044319B444553542044524956452020203D2044329B464F524D4154%}20444553542020,57*hh3D205945539B9BA0D3A0204368616E676520736F757263652064726976659BA0C4A0204368616E6765206465737420,8864h%}h64726976659BA0C6A020466F726D61742064657374206469736B9BA0C3A020426567696E20636F7079696E679BA0C5,161>hhA020536563746F72204%}56469746F729B4E4F20A0CECFA0C5D8D4D2C1A0D2C1CDA0ADADADA0D0D2CFC7D2C1CDA0C1C2,315HhhCFD2D40000D8A9008D4402A9018509A91E8DE702%}A9238DE802A995850AA91B850BA908850CA907850D206707A90E8D,915RhhC502A9128DC602A9FF8D01D38E0040A9E38D01D38D0040A9FF8D01D3AD004%}0C9E3F015A9018580A9D38581A004B98E,846\hh1A99A01A8810F73035A9078DFFCF8D0040A9008DFFCFAD0040C907F015A9FF8580A9CF8581A004B989%}1A99A01A8810,499fggF7300CA91FA274A01B2042074C291C86828695869886998A9D7E1D9D7E1E9D7E1FE8D0F4E886FE8696AD30028D931B,44pgg%}AD31028D941B18A5588DD61969508DB519A5598DD71969008DB61918A5586939858BA5596900858CA935858DA91A85,28zhh8E18A5586989858FA55969%}00859018A55869D98591A55969008592A002A910918D8810FBA9318D571AA9328D6A1A8D,257hhF002A9DEA293A01A204207201F07202907205507C94%}6D028A9068554A9118555A5FE490185FED00CA903A271A01B20,845hh42074CBB1CA903A205A01B2042074CBB1CC953D020A9048554A9128555A59549%}0185951869318D571AA901A257A01A,157hh2042074CBB1CC944D020A9058554A9128555A596490185961869318D6A1AA901A26AA01A2042074CBB1CC%}945D012A9,666hh318D571A8D6A1AA90085958596E699D007C943F0034CBB1CA93FA2F6A019204207E695E696A595C596D004E698D010,544ffA9%}33A246A01A204207205507C99BD0F9A9B28DC6024C0B070000000000000000000000000000000000000000000000,6 D:RDSECB.BAS44ffA9$s&>A8=7>=J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L)}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` ')}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . )}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u)}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* ))} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + )}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,)} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.)}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``)}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS)} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф)}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ)}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0)}` ,0L,L,`޵` `Ȕ`ʔ惥u`)}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*)}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*)}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ)} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ)}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i)} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + )}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g)}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00)}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  )}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180)}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u)}uuhhhLr* +愵 ' + 'I 1 280/66&&&`)}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i)}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`)}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 )}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H)}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 )}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&)}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&)}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N)}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@()}f(()))V)4440T5\5A1+1d5355&(6@6j6S1dA8fA8gG8iV8nd8o8p8q8s9t&9O9U9`99999@9T4:h::r)}>:sY:t~:v:w:x:y:z ;|:;A;x;;;;;888';8@K:7   "ŠΠ)}  " ""| PRESS WHEN READY |")} 86}"ӠΠϠԠ;8h S`AQp98 d9$81,)}88d9%8888 888 @ 8 8 8;8D.J9r88)}4:SECTOR 8 T"OK888)TY:""SECTOR 8 T"ERROR)} S@ 8;8D.J888)R: Π: à)} ; Ġ àҭ  "PRINT TO RINTER OR CREEN)} 86 8P; 8S;S:7&USE ̭ TO START AND STOP DISPLAY;>8,)};$;%;$T!<""SECTOR >8 T"*;%" ӠΠϠˠנˠ 8)}64n>888)<ΠҠ+>888)<àĠҠ+>888)<Ġ)}Ҡ+>888)=ĠҠ+ àҠ>888)+ ? P:7"STANDBY. PRINTI)}NG;$SECTOR >8.....*;%4n"$TURN ON YOUR PRINTER PRESS RETURN 864>4)}9,1,82,64,96,191,7,0,128,0,0,0&.*;%4n"$TURN ON YOUR PRINTER PRESS RETURN 864>4(']qZZZZZZ1IOCFILERESPONSEDECHEXBLANKCIOSEGMENDECNUMBEFLAGFLAGKHEBYTECECNUMBEMLSTARMLEN-}SIZDECNUMEBLOCSUINITINITINILRUHRUGOADDERRO-} -} !"#$%&'-}""HEADER.BAS-DOS FILE ANALYZERK6-6-@'6-@36-@?6-@K6-@!6-@!-}AR@00;,;,;A,;@2,;@1,% 6.D1:6-6-6-%6-6.123456789ABCDE-}F$467@,. %67@2,. 467@,.. A%`8 ABCOMMAND ROUTINEL AV(-@-}( PRESS OPTION TO QUIT`)) !PRESS SELECT TO LOOK FOR RUN/INITj$$ PRESS START TO LOAD NEW FILEt2F:B2y,"@-}*AdAU/2%~ F:B2y,"@A p F:B2y,"@A CTRL-R AUTO SCANS FOR INI-}T F:Ad,"AhA p@w A@&AR!AdAU&DECIMAL--}TO-HEX CONVERTER6-A@ $ "6-6- -6-P:', 7%<%,  6-&$ 6-'-}   ( "6-6-2$< SEGMENT AF FILE APCLEAR THE MESSAGE BOARDZ --}d n$x= >:A%,-= "HEADER.BAS - DOS 2.0 FILE ANALYZER0-@& ENTER NAME OF FILE0 A`-} -** INPUT ERROR - TRY AGAIN>:AS,-A  Ap-@!@ 7@<@-},-@!@67<,.7@<@, A 110DOS.SYS*0DUP.SYS*0MEM.SAV-}A Ap -'' DO NOT USE DOS FILES>:AS,"-A , A 6""FETCH FIRST TWO H-}EADER BYTES@"@AJ67<,.T^ ))h)Apr Ap| -'' -}THAT IS A BASIC FILE>:AS, A-@  FIRST BYTE =  6-6- A@ SECOND -}BYTE =  6-6- A@$ A""FETCH NEXT FOUR HEADER BYTES )) ))-}6-@COMPUTE START AND END&6-%AV$06-%AV$:.6-P:&,%.!B) A&`-}D-@!@N 7@<@,X-@!@b 7@<@,l-@!@v 7@-}<@,-@ STARTING ADRESS =  6--@(@ A@ ENDING ADDRESS = -} 6--@(@ A@ LENGTH OF FILE =  6--@(@ A@ A-} !!MOVE POINTER TO SEGMENT END- 6-6--!B) A&`  A!@*;%@*+"A$)"-}A&,16-; A!P4'!A%6-&A%' A!>6-?:C:,<,H 6-%6-&A!R A!-}P\5 Ap-+ END OF FILE REACHED5 Af A!@))p-@ z-@ -}1"AU*"AU# A*)1)!!"A$*"@A$!!"A&*"@A"COMPOUN-}D LOAD FILE 6-6-< Ap-4 THIS IS A COMPOUND LOAD FILE<6-%:-@ : "THESE PARAMETERS AR.}E FOR SEGMENT #%-@ -@  )) A0SIMPLE LOAD FILE )).}!!A')@A  )) -@$ -@.  INIT ADDRESS =8 6-B -@.}(@L -@(@V ) A@AdAU) A'` 6-@ Aj  ))t /.}"A%*"@%6-/ A$P~ /"A'*"@%6-@/ A$P A  )) .}6-%AV$ -@ " RUN ADDRESS = "6- -@(@ ) A@AdAU) A'.} A# %6-6-@% A ""MACHINE LANGUAGE BYTE READER ""DATA FROM DISK IS NOT SAVED. .}EXECUTED ON FIRST RUN ONLY -@0 " 67<,.>:,  ( $2 104,162,48,169,7,157,66,3< 169,0,1.}57,68,3,169,224,157F 69,3,104,157,73,3,104,157P 72,3,32,86,228,96Z CHECK FOR END OF FILEd  A&)n <.} >:A%,"-@@2  FATAL ERROR< Ax F:A,"A6A!@ A&p TONE %%2. }@P@@ -@@P  (%2($ D:HEADER.BAS %%2,nXHSFPEK A6A`@@@ *** HEX DISK FILE 2 }DUMP ***F +d&&;@,;@,;@,n6.0123456789ABCDEF 6.D1:""@@2 }K  ؠŠ ENTER DISK FILE NAME67@<@,.4A A  2 }@@""@@P"2' Ӡ٠٠ϠԠ2 @,I> @2}>:@,HEX DUMP OF FILE--> >:@,I @.FF @5BYTE# 0 1 2 3 4 5 6 7 8 9 A B C D E2} F 6FF @5---------------------------------------------------- @AdAUr6-P:'AV, A2}w6-&+$AV, A| @:  6.X$-@@$)@b A @ 2}g467,..(+!@1,*+ A#,467,.>:,l)6-%@ ) @  F:Ad,"AUAp2})@AR@ ++ #CONTINUE,RESTART, OR STOP (C,R,S) ?$)@$"@gA2}"@A @A 9AR @+@6@976-F:A,A62}- ERROR # 7 A3 @ " @3 @EOF#@@# A&6-P:2}'@,&6-&+$@,== @7%@<%@,7%@<%@,$ D:HEXDUMP.BAS&6-P:0tvDECBINPBINBWDEEDAD#+?P.@ @6}  TYPED BY HOWARD SIEBENROCK 9 +@90@11;@,;@5,;6}@,;@,1( (1(# DECIMAL to BINARY CONVERSION(Y( (V(H Press to convert from DECIMAL to6} BINARY or BINARY to DECIMAL.Y(2V#(#(} DECIMAL to BINARYX00((Z6} (1[( 2 6 3 1\!!(0-255 8 4 2 6 8 4 2 1](  BIT^(7 6 5 4 3 2 1 0_30((6}3(d( DECIMAL: nB:, @ Ax 6-A:,z?!AU5(  >255  6} ? A6-A( @ A  A   A( ERRO6}R&,67B:,%@,.1 6# 6-&6-'@# A67B:,%@,.0 6-'@ A(6} 6. ( A!!(} BINARY to DECIMAL00((6}( 1  ( 2631  ( 84268421  ##( BIT  DECIMAL( 7654326 }10  (6-6-@( BINARY: 4@L-@B:,Q6-&@V+76!}<,41+6-%P:@#%?P,` j( o (t AD:BINDECQ6-&@V+74d pAADADDVALUTEMCNTENTBN   :#} &&;@ ,;@,;@ ,A' ENTER INSPECTION ADDRESS IN HEX+16.; AA6- 6-F:, A :$}(5/ HEX CONTENTS OF  ARE 7<@ ,2 5 2 @  A6--@B:,6.7:%}<,20A-7<,/9#6-$@%A:,- A2AA$3FA.%%6-$@%@:,&:&}@:A,%@8  BB$!!CONVERT DECIMAL TO HEX ****6-@  6-6-P:'@,6-&$@:'} ' @67<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* B:(}$ D:INSPECT7<,.=:,' A  67<,.>:&@%@:A,, '6-&@' A @* B8ERAMTOSIXADDSIZAA(B'hA'd6-A 6-F:,(6-$AV>*}"6-AU&F:,(( F:,"6-%@(AU&9( (3(%ŠРƠҠɠӠ 6(9(e>+}( ( ((e(L SUBTRACT THIS NUMBER FROM 40960--THE RESULT IS THE NUMBER YOU SUBTRACT FROMBB(: DISPLAY POKE STATEM>,}ENTS WRITTEN WITH MAXIMUM MEMORY.(48K) D:RAMTOP.MAXESULT IS THE NUMBER YOU SUBTRACT FROMBB(: DISPLAY POKE STATEM<;?@0AAHDHDIADBGINOUSSANEVPOPOPRSCHCHSB.} B/} TAPEDUMPLLROUTINE TO GET BYTES FROM CASSETTE ANDB0} PRINT HEX, DECIMAL AND OP CODESWITH PRINTER(11;@,;@,;@,;@,211;@,;@B1},;@,;@,<AA;@ ,;@ $AV,;@,;@$AV,A1+(#PLEASE WAIT WHILE TABLES ARE B2}SET UP.(1(FG6-B6-B'6-1 B; B G6-P2(PRINTER (Y/N)2B:,"B3}@Q4YAR%(Enter skip count%6-U. @6-A:,$ B. @X6-B4} BZ(Insert Cassette_3#@@C:3OPEN CASSETTEdFOR LABEL REFERENCEnFOR LABEL B5}REFERENCE A6-&@ 6- 6- 6.$ A)@$ B6}B 6.7@<@,<6-%@<6.7$@ %@<$@ %@ ,!..6.7$@%@( ҠH @ @JUST IN CASE(( I/O Error@(6-B9}((( Type CONT and to continue& @'INPUT CONVERSION ROUTINE' GIVEN A$ (DIM A$(5)), WITH$'!!B:}LEADING 0 FOR HEX, CONVERTS.'!!ADDRESS TO BINARY (DECIMAL)8'IN D. DESTROYS TRAP, WITHB'D=-1 IF INVALID VALUEL'!B;}B:,"6-!$V'B:,"@B`'$$7@<@,40B j' B6-A:, Bt'B<}$~'6-6@ B$'46- -@B:,4 BP'L7<,1A*7<,/FB6-$@%B=}@:7<,,%@&@:A,L B`'D7<,10*7<,/9:6-$@%@:7<,,&@:0,D B`'6-6@'  B>} $'OUTPUT CONVERSION ROUTINE'!!GIVEN D (DECIMAL), CONVERTS'!!TO FOUR CHARACTER HEX IN H$'(DIM H$(4)), USES HB?}I, D1,(D2. D IS NOT DESTROYED (6.0000 $(& 6-&-@@6@($6-P:'@,$6B@}-&$@((6!@ ,67<,.>:@:A,%&@,6 B2(67<,.>:@:0,%,<( 6- $*'-ABA}U'D:OPCODES.LST+'-@@!'(AU&  +2"6-B:,6-$@ 2-@@ +$ !67%BB}<%,. $ BP +67%<%,.7<,*+   4+$\+AABRK,ORA (I X),NOP,NOP,NOP,ORA Z,ASL Z,NOP,PHP,ORA IMM,ASL ABC}]+CCNOP,NOP,ORA ABS,ASL ABS,NOP,BPL,ORA (I) Y,NOP,NOP,NOP,ORA Z X^+CCASL Z X,NOP,CLC,ORA ABS Y,NOP,NOP,NOP,ORA ABS X,ASL BD}ABS X,NOP_+EEJSR,AND (I X),NOP,NOP,BIT Z,AND Z,ROL Z,NOP,PLP,AND IMM,ROL ACC`+??NOP,BIT ABS,AND ABS,ROL ABS,NOP,BMI,AND (BE}I) Y,NOP,NOP,NOPa+==AND Z X,ROL Z X,NOP,SEC,AND ABS Y,NOP,NOP,NOP,AND ABS Xb+AAROL ABS X,NOP,RTI,EOR (I X),NOP,NOP,NOP,EOBF}R Z,LSR Z,NOP,PHAc+CCEOR IMM,LSR ACC,NOP,JMP ABS,EOR ABS,LSR ABS,NOP,BVC,EOR (I) Yd+??NOP,NOP,NOP,EOR Z X,LSR Z X,NOP,CLIBG},EOR ABS Y,NOP,NOP,NOPe+CCEOR ABS X,LSR ABS X,NOP,RTS,ADC (I X),NOP,NOP,NOP,ADC Z,ROR Zf+AANOP,PLA,ADC IMM,ROR ACC,NOP,JMBH}P IND,ADC ABS,ROR ABS,NOP,BVSg+EEADC (I) Y,NOP,NOP,NOP,ADC Z X,ROR Z X,NOP,SEI,ADC ABS Y,NOP,NOPh+CCNOP,ADC ABS X,ROR ABSBI} X,NOP,NOP,STA (I X),NOP,NOP,STY Z,STA Zi+??STX Z,NOP,DEY,NOP,TXA,NOP,STY ABS,STA ABS,STX ABS,NOP,BCCj+EESTA (I) Y,NOP,NOBJ}P,STY Z X,STA Z X,STX Z Y,NOP,TYA,STA ABS Y,TXSk+CCNOP,NOP,STA ABS X,NOP,NOP,LDY IMM,LDA (I X),LDX IMM,NOP,LDY Zl+EELDA ZBK},LDX Z,NOP,TAY,LDA IMM,TAX,NOP,LDY ABS,LDA ABS,LDX ABS,NOPm+EEBCS,LDA (I) Y,NOP,NOP,LDY Z X,LDA Z X,LDX Z Y,NOP,CLV,LDA ABSBL} Yn+EETSX,NOP,LDY ABS X,LDA ABS X,LDX ABS Y,NOP,CPY IMM,CMP (I X),NOPo+CCNOP,CPY Z,CMP Z,DEC Z,NOP,INY,CMP IMM,DEX,NOP,CPBM}Y ABS,CMP ABSp+CCDEC ABS,NOP,BNE,CMP (I) Y,NOP,NOP,NOP,CMP Z X,DEC Z X,NOP,CLDq+EECMP ABS Y,NOP,NOP,NOP,CMP ABS X,DEC ABSBN} X,NOP,CPX IMM,SBC (I X)r+??NOP,NOP,CPX Z,SBC Z,INC Z,NOP,INX,SBC IMM,NOP,NOP,CPX ABSs+CCSBC ABS,INC ABS,NOP,BEQ,SBC (I) BO}Y,NOP,NOP,NOP,SBC Z X,INC Z Xt+;;NOP,SED,SBC ABS Y,NOP,NOP,NOP,SBC ABS X,INC ABS X,NOP.'-AU'D:CHCODES.LBP}ST.'-@@!'(AU& .2"6-B:,6-$@2-@@.$ !67%<%,. $ B PBQ}/67%<%,.7<,/  $D/EEHEART,RTINT,RTBAR,ULANG,LFINT,DLANG,RTSLANT,LFSLANT,DRTRI,DRSQRE/BBDLTRI,URSQRBR},ULSQR,UBAR,DBAR,DLSQR,CLUB,DRANG,MBAR,INTRS,BLOTF/CCDHALF,LFBAR,DTEE,UTEE,LHALF,URANG,ESC,UAROW,DAROW,LAROW,RAROWG/KKSPABS}CE,!,",#,$,%,&,',(,),*,+,COMMA,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>H/CC?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,YBT},Z,[,\,]I/HH^,ULINE,DIAMND,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,zJ/%%SPADE,VSTROK,CLRSCN,BACKSP,TABFK/FFIHBU}EART,IRTINT,IRTBAR,IULANG,ILFINT,IDLANG,IRTSLNT,ILFSLNT,IDRTRIL/GGIDRSQR,IDLTRI,IURSQR,IULSQR,IUBAR,IDBAR,IDLSQR,ICLUB,IDRABV}NG,IMBARM/GGIINTRS,IBLOT,IDHALF,ILFBAR,IDTEE,IUTEE,ILHALF,IURANG,RETURN,CSRUPN/FFCSRDN,CSRLF,CSRRT,ISPACE,I!,I",I#,I$,I%,BW}I&,I',I(,I),I*,I+,ICOMMAO/DDI-,I.,I/,I0,I1,I2,I3,I4,I5,I6,I7,I8,I9,I:,I;,I<,I=,I>,I?,I@,IAP/GGIB,IC,ID,IE,IF,IG,IH,II,IJ,BX}IK,IL,IM,IN,IO,IP,IQ,IR,IS,IT,IU,IV,IWQ/DDIX,IY,IZ,I[,I\,I],I^,IULINE,IDIAMND,Ia,Ib,Ic,Id,Ie,If,Ig,Ih,IiR/22Ij,Ik,Il,Im,IBY}n,Io,Ip,Iq,Ir,Is,It,Iu,Iv,Iw,IxS///Iy,Iz,ISPADE,IVSTROK,BUZZER,DELCHR,INSCHR D:TAPEDUMP,Ig,Ih,IiR/22Ij,Ik,Il,Im,I@a787 L ABLEN1LIN2LINE1LIN1LINE2NUMFRLINELINEADR@@@F[} oo F\}場 庠Ԯ°%%*** SORT OUT ***%%*** By GENE KRAJCA 3/26/81 ***F]}EE*** This program will compare a revised program with the ##original.It will separate the ""changes, rF^}ecording them in a llfile, e.g. "̮Ȱ" WAS created in this manner. *************************F_}* @@1.STORE THE ORIGINAL PROGRAM AS ԠĺǮ̢.@@2.STORE THE REVISED PROGRAM AS ԠĺĮF`}̢``3.LOAD AND RUN "Ԡ". THE CHANGES WILL BE FOUND IN "Ǯ".II*** A$ HOLDS Fa}ORIGINAL LINE B$ HOLDS BLENDED LINE ***2%%*** OPEN FILES -- #1 = ORIGINAL3$$*** -- #2 =Fb} BLENDED4$$*** -- #3 = CHANGES57V;@,-(DO YOU WANT INSTRUCTIONS1A4Y)4YESSFc}@V<RR;AU,;AU,9@W,9@W,;@,;@,;@ ,A++@@Fd} D:ORIG.FILF,,@@ D:BLEND.FILP,,@@ D:CHANG.FILdi*** START LINEFe} BY LINEjCOMPARISON. ***kn# A#*** Strip 1st # ***x# A#*** Strip 2nd # *** 6-A:,6-A:Ff}, " A    A0 ! A@LQ*** SUBROUTINE ***RGET BLENDED LINE #SV" 6Fg}.  AP"@`-@@j+68,-@:7<,,+8,"@2A`t#6.>:8,,#67B:,%@Fh},.~ :$:*** LINE1$ HOLDS 1st LINE #. ****** SUBROUTINE ***GET BLENDED LINE #Fi}" 6.  AP"@-@@+68,-@:7<,,+8,"@2A`#6.>:8,,#67B:Fj},%@,. :$:*** LINE2$ HOLDS 2nd LINE ". ****** SUBROUTINE ***COMPARE A$ Fk}WITH B$ 4 A 0 @ A  *** SUBROUTINE *** DELETE LINE1$, FILE B$ Fl} $(@ A$ A0*** SUBROUTINE ***FILE B$, GET NEXT LINE2(@ AFm}" 4 (@" A` A0*** SUBROUTINE ***CLOSING ROUTINE4 *4Fn} A`, 4 (@" B, Ap Bz$@@$@(} SORTING COMPLFo}ETE D:SORTOUT.B01@" B, Ap Bz$@@$@(} SORTING COMPLD _________ RAM XE/XL _________ This is the documentation to RamXE, and RamXL.Jq} The binary files are "RAMXL.OBJ" and "RAMXE.OBJ". "RAMXL.DMO" and "RAMXE.DMO" are demonstration programs for the Jr} binary files. "RAMXL.OBJ" and "RAMXE.OBJ" should be (L)oaded from the DOS menu. (they could also be renamed "AUTORUJs}N.SYS", which will cause them to automatically load when DOS is booted.) RAMXL.OBJ ---------Jt} RAM XL is actually an interrupt handler that allows programs to bank the OS out on XL computers without crashing thJu}e system. Normally, when the OS is banked, any interrupts will crash the system. RAMXL takes the place of the normaJv}l OS interrupt code when the OS is out. When an interrupt occurs, RAMXL is called, then it banks the OS back in and calJw}ls the OS interrupt routine. This allows VBLANK, keyboard, and DLI interrupts to occur when the OS is banked out.Jx} The first USR routine in RAMXL is called to init the new interrupt code. This is done by the statement: AJy}=USR(1605) Once the new interrupt routines are installed, you may call the other routine to move data to and from tJz}he RAM under the OS. The format of the moveblock call is: A=USR(1577, , , ) There are three RAM blocks under the OS that are usable, they are: $C000 to $CFFF 49152 to 53247 $D8J|}00 to $DFFF 55296 to 57343 $E400 to $FFF9 58368 to 65529 This adds 13K to the usable RAM on XL computers. The fileJ}} XLBAS.XMO is a short BASIC program that shows one use for RAMXL. It reads in a text file from the disk, then storeJ~}s it in the RAM under the OS. When you press a console key, the screen is loaded from the extra RAM by RAMXL. This alJ}lows very fast screen redraws. NOTE: RAMXL will NOT work with ---- OS/A+ DOSXL, since DOSXL also uses the RAMJ} under the OS. RAMXE.OBJ --------- "RAMXE.OBJ" is also an USR for Atari BASIC, buJ}t it allows access to the 64K of banked RAM in the 130XE. To use RAMXE, first check to see if the computer is a 130J}XE, by the statement: A=USR(1536) If A=0 then the program is run- ning on a 130XE, otherwise it is NOT J}a 130XE. The extra RAM is accessed by the statement: A=USR(1577,, ,,, ) The RAM in the 130XE is organized into 5 banks, numbered 0 to 4. Each bankJ} is 16K (16384 bytes) long and is located in the middle 16K of RAM ($4000 to $7FFF, 16384 to 32767). Bank 0 is the "norJ}mal" RAM that is available when the machine is turned on, the other 4 banks are accessable by using RAMXE. The file RJ}AMXE.DMO is a short demonstation of how to use RAMXE. It reads in a text file, then saves it into the banked RAM. WheJ}n the console keys are pressed, you page through the text, as it is moved from the banked RAM to the screen RAM. NOJ}TE: RAMXE is NOT compatible with ---- Atari DOS 2.5, since both use the banked RAM in the 130XE. . NOHv0KL3IOCDATMEMORYCOSCREE@ Demo RAMXL N}04/02/85Daniel L. Moore;@P, 9@,!-@@""68,-# $66MemoryN} address under the OS. 13 1K memory blocks%GG49152,50176,51200,52224,55296,56320,58368,59392,60416,61140,62464&63488,N}64512(6-B2yConsol keys)$6-B$Screen RAM address26-?:A,Init RAMXL7--Read the file in aN}nd store under the OS;KAY'@9AKAR@<..@@N} D:RAMXEXL.DOCF+-@@+Read 6 screens inP (}Z*-@@ *Read 20 lines ind@N}n x 7'?:A<<8,<A `,*&7Call error @ (}AY@4N}**Now copy the data just saved back to11the screen ram to demo the move capablility-@@:'?:AN}<8,<<A `,*&:Calling error A -@@:'?:A<8,<<A `,N}*&:Calling error  A0,<@&F:,"@A<Wait for consol key6&@&N}F:,@A@$ D1:RAMXL.DMOAMXL.d of this REAL fastes OSr consol key6&@&L_H H. /$%H&HXL :.h@H h`H)h`hAx :ԩՠ / :ԈR}@XLhh:hhh :ԑԑԅL/ԩՠ / :ԈP`0KLIOCDATMEMORYCOSCREE@ Demo RAMXE V}04/16/85Daniel L. Moore#;A,(6-B2yConsol keys)$6-B$Screen RAM address2,?:V}A6,)(This is not a 130XE.,&7--Read the file in and store under the OS;KAY'@9AV}KAR@<..@@ D:RAMXEXL.DOCF+-@@+Read 6 screens inP (V}}Z*-@@ *Read 20 lines ind@n x TD?:Aw<<<Bc%$A `<@V}<A `,G&TCall error @ (}AY@4**Now copy the data just saved backV} to11the screen ram to demo the move capablility-@@WD?:Aw<Bc%A `$<@<<V}<A `,G&WCalling error A -@@WD?:Aw<Bc%A `$<@<<V}<A `,G&WCalling error  A0,<@&F:,"@A<Wait for consol V}key6&@&F:,@A@$ D1:RAMXE.DMO of RAMXL.d of this REAL fastes OS$r consol Tth@ʎ@@qqhhehhh H֤=ڠ֎ӱԦڎӑZ}֎ӱԦڎӑԅծ`ehhh H֤=ڠ֎ӱԦڎӑX($%m - FLINCDONDATCHARCKSUCLINCKSUd^}2 +-@@2(XL-DOS CREATORiM(M(BREPLACE YOUR SOURCE DISK WITH A WORK DISK AND THEN PRESS [START].^}j F:B2y,@An((((NOW CHECKING YOUR DATA LINES:x;A,6-6--@^}@" 6-%("AV'6-@( A67B:,%@,.>:, )")6-F:A,%A^}V$F:A, 6-%A(LINE # IS OK!(A0))(!DATA ALL OK - CREATING PATCH FI^}LE2 A2@@D:PATCH: B!-@A6*@@:7<,,: (@^}%(PATCH FILE CREATED(!(ERROR IN DATA LINE #!"G#(ERROR IN OPENING PATCH FILED(DISK MAY BE WRITE PROTECTED^}.G''255,255,122,21,124,21,76,192,2066##23,70,23,137,23,32,85,24,1427''169,0,133,212,133,214,169,29,2079))13^}3,215,169,192,133,213,162,16,2263((32,119,24,169,216,133,213,162,2108""7,32,119,24,32,70,24,96,1454$((169,0,133,21^}2,169,224,133,213,2313.$$160,0,162,3,177,212,72,32,18888%%85,24,104,145,212,32,70,24,1776B))200,208,241,230,213,202,^}16,236,2636L%%96,182,23,251,23,240,73,32,2020V$$70,23,206,158,23,48,65,32,1735`''170,25,32,105,23,169,255,141,2040j^}''158,21,141,157,21,162,16,169,1975t$$47,157,68,3,169,24,157,69,1834~##3,32,164,21,32,85,24,162,1673''21,169,0,13^}3,212,133,214,169,2211((31,133,215,169,228,133,213,32,2324$$119,24,32,70,24,169,0,141,1759##157,21,96,19,24,39,24^},32,1602&&85,24,169,0,133,214,133,212,2170))169,228,133,215,169,31,133,213,2501%%162,21,208,18,58,24,135,24,1870^}%%32,119,24,32,70,24,206,157,1894$$21,76,117,32,32,102,24,88,1732((169,112,141,14,212,165,16,141,2220%%14,210,^}96,120,169,0,141,14,2024&&212,141,14,210,173,1,211,41,2273$$254,76,107,24,173,1,211,9,2135 %%1,141,1,211,96,234,23^}4,234,2442%%234,32,180,25,96,160,0,177,2204**214,145,212,200,208,249,230,213,2981(''230,215,202,208,242,96,63,25,2^}6012##97,25,32,85,24,169,0,133,1895<))212,133,214,169,29,133,213,169,2612F''192,133,215,162,16,32,119,24,2243P''1^}69,216,133,215,162,7,32,119,2413Z""24,32,70,24,96,50,31,52,1749d31,88,76,32,256,1863 D2:XLDOS.BAS,2243P''1\q