ZXNet эхоконференция «code.zx»

Хаюшки, Vyacheslav! Как-то 24-03-00 примерно в 21:44:00 некто Vyacheslav Kalinin сообщил(а/о) для All о том, что "RUN BASIC FILE" [ ] VK> Hужна как можно скорее прога запуска бейсик фалов,у мня есть VK> своя но она как то странно работает,тоесть когда я ее запускаю VK> после ассеблирования из шторма то она запускает мне файл,если VK> запускать ее из реал командера или из бествьювера то тоже запу Конкретизируй. Что за прога, по какому принципу работает и т.д... VK> скает файлы,а вот если запускать из байсика или тр-доса то она VK> вроде начинает что-то грузить,а потом збрасывается. Какая-то недоработка со стеком, системными переменными BASIC, и тому подобное. Я это делаю так: LD A,#C9: LD (#5CC2),A ;ВЫБОР ТЕКУЩЕГО ДИСКОВОДА ;в принципе можно это и не городить, ;но в ММДе я эти переменные могу и грохнуть. LD A,(#5D16): AND 3: PUSH AF OR #3C: LD (#5D16),A: POP AF LD (23800),A: LD (23801),A LD (23833),A ;внимание!!! В этом месте осторожно! ;тут я просто восстанавливаю некоторые ;системные переменные, которые активно ;юзаю "для себя". ;ессно при активизации системы в адреса ; PROG_49+1, PROG_ST+1, PROG_2+1 ;записываются оригинальные значения ;этих переменных. PROG_49 LD HL,#2121: LD (#5C09),HL PROG_ST LD HL,#2121 LD (IY+1),L: LD (IY+48),H PROG_2 LD HL,#2121: LD (#5C38),HL LD (IY+14),#38 ;я не помню откуда я это выудил, ;но этот вариант работает весьма хорошо. ;Фактически я делаю CLEAR 65367, что-то ;еще для установки BASIC, и после этого ;выполняется RAND USR 15619: REM: RUN "???" LD HL,#15AF: LD DE,(#5C4F) LD B,0: LD C,H: LDIR LD DE,(#5C53) LD DE,23867 LD HL,RUN_COM LD C,17: LDI: LD (#5C5D),DE LDIR LD HL,#5FFF: LD (#5CB2),HL LD H,L: LD (#5CB4),HL LD HL,#FF57: LD (#5CB2),HL INC HL: LD SP,HL LD (IY+0),H LD HL,#3E00: PUSH HL LD HL,#1303: PUSH HL LD (#5C3D),SP LD HL,#1B76: PUSH HL LD HL,#2758: EXX EI: JP #3D03 ; :REM:RUN"??"ENT RUN_COM DB #80,58,234,58,247,34 TESTSP DB " ",34,32,13,#80 ;а вот сюда ^^^^^^^^^ мы пишем ;имя программы для запуска. ;Причем пишем все 8 символов, т.е. ;если имя короче, то все остальные ;символы делаем пробелами. Hу вот и все *MAS* с кувалдой