Willus.com
Home
|
Archive
|
About
DISKEX.CMD
(2063 bytes)
EMULATE AS:
DEFAULT TYPE (CMD)
|
BASIC program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
62330 1SINA>INKEY$2@:T 15884 TAN2@>2@> 8514 ENDRESETFORRESET}6 62 2[FF][FF]:[FF][FF][FE] 49214 2-{7~> 379 W~![{+TANFORINSTRCOS+TANFOR![FD]{+TANFORERRRETURNz1SINA>ERR2@'ERR-@++ 63784 [FE]1([FE]2THENENDMKD$!INT~+TANFOR++ 63776 +3 13001 @> 8450 ENDRESET"CINTFOR+TRON+SYSTEM{[FE]PUT(RIGHT$[FE]UERLVAL+SYSTEM{':?<MKD$ 2?<+SYSTEM{[FE]<([FE]x("ERRVAL+SYSTEM{G 20347 +SYSTEM{FORO+SYSTEM{FORORIGHT$+SYSTEM{CLOADERLCSNGNOT+SYSTEM{O+SYSTEM{GMKS$C[FE]+LEFT$*CINTFOR"*{!END'{RESET"CINTFOR*[FE]}LIST[FE] 32033 ~+TANFOR!ENDRESET~#[FE]U MID$######~[FE]<ERL 20003 #F**{+p+q!=+TANFOR!CDBLFOR+@ 4473 CDBLFOR 49732 qEND 33263 4528 CDBLFOR+9DERLqEND*CINTFORMKS$[*{$"CINTFOR|RETURN[FE] INPCDBLFOR+(DERLqEND!RESET+TANFORERRRANDOMzPEEK+5VAL*CINTFORw#"CINTFOR:-{TAB(THENINSTR{CDBLCOSINKEY$!CONT+TANFORERRRANDOMz 7964 DISK AND EXEC PROGRAMS - BY ALEX KREIS 21321 PROGRAM WILL ALLOW YOU TO LOAD IN A L'|OWER MEMORY MACHINE LANGUAGE PROGRAM FROM TAPE (UP TO 15K WITH A 32K DISK, OR UP TO 31K WITH A 48K DISK), AND BE ABLE TO SAVE AND LOAD IT FROM THE DISK, AND RUN IT. **NOTE - THE DATA FILE THAT THIS PROGRAM CREATES IS *ONLY* READABLE BY THIS PROGRAM'}. TO ANY DOS SYSTEM IT MAKES NO SENSE. WORKS ON TRS-DOS 2.3 AND NEWDOS. WHICH OF THE FOLLOWING DO YOU WISH TO DO: 1 - LOAD FROM CASSETTE A M.L. PROGRAM AND SAVE TO DISK 2 - LOAD IN FROM DISK AND EXECUTE A PREVIOUSLY SAVED PROGRAM WHICH DO Y'~OU WANT (1/2): 8277 HAVE A 32K MACHINE. (YEA!) 8277 HAVE A 48K MACHINE. (WAY TO GO!) 17221 UTE ADDRESS IS '0000' - USING START OF PROGRAM AS THE ACTUALPROGRAM EXECUTE ADDRESS. 19470 OAD IN A PROGRAM FROM CASSETTE AND SAVE IT TO DISK PREPARE CASSETTE FOR L'OADING, PRESS ENTER: 18255 RAM LOADED IN - PLEASE SPECIFY FILENAME TO SAVE WITH FILESPEC: 18255 RAM SAVED TO DISK. 10794 LOADING ERROR **** 21074 Y, BUT THE PROGRAM WILL NOT FIT IN RAM. CANNOT SAVE IT. 15922 <!DEFSNG+TANFORERR%END 12787 SINA>INKEY$2@!LEFT$END+TANFOR!CDBLFOR+@ 65153 !eFOR+TANFOR!;'ENDFOR+TANFOR++ 10186 z[FE] STR$> +3 8570 ENDRESET"CINTFOR! 33265 49732 qENDCDBLFOR+6D ! 61275 FOR 60848 SCINTFORCVI[FE] (+ DERRRANDOMzCDBLFOR+(D FIX!ENDRESET"CINTFOR+LOGEND[FE]PUT(RIGHT$[FE]UERLCINTEND+LOGEND+LOGEND+LOGEND+LOGEND+LOGEND+LOGEND+LOGEND[FE]<([FE]xTHEN<ENDERRCINTEND+LOGENDG+LOGENDo+LOGENDg 20357 +LOGENDwFORO#CHR$+LOGENDCLOADERLLOCEND++LOGENDo+LOGENDgEOFPEEK*CINTFOR~#"CINTFORCOSINKEY$!CLOSEFOR!FORFOR+TANFORERRRANDOMz LOAD IN A PROGRAM FROM DISK AND EXECUTE IT MKS$'FOR PROGRAM FILESPEC: 21317 S ENTER TO RE-RUN, SPACE TO TRS-DOS: 10794 INVALID FILESPEC **** 8260 FORMAT IN RAM - WRONG FILESPEC 17221 KSUM ERROR IN RAM - RAM ALTERED OR PROGRAM SAVE ERROR. 51200 =+3 62488 8224 31271