Периферия своими руками 1993 г.

Программа HEX ввода - программа HEX ввода, дополненная подсчетом контрольной суммы.


6.4. Программа HEX ввода.

Программа HEX ввода, дополненная подсчетом контрольной
суммы, приведена ниже. На вопрос "Prefix" введите адрес па-
мяти, где будут располагаться вводимые байты программы.

10 REM Program HEX input +

20 CLEAR 32767: PRINT AT 5,10;"H E X input +"
30 POKE 23658,8: DIM W$(4) : DIM A$(2)

40 PRINT : PRINT TAB 14;"***"

50 PRINT " Use ENTER to step forward"

60 PRINT " Use U 4 ENTER to step backwards"

70 PRINT " Use S 4 ENTER to SAVE code"

80 PRINT " Use N & ENTER to jump new addr."

90 PRINT : PRINT "Adr. ---------Data-------- KS": PRINT

100 INPUT " Input prefix-XXXX ";W$: GO' SUB 400

LET P=T

110 IF P/80INT (P/8) THEN GO TO 100
120 IF P<0 THEN GO TO 100

130 INRUT " Input start address-XXXX";W$: GO SUB 400

LET D=T: LET N=0
140 IF D/80INT (D/8) THEN GO TO 130
150 IF D<0 THEN GO TO 130

160 DEF FN A(AS,B)=CODE AS(B)-48-7*(CODE A$(B)>57)
170 DEF FN C(A$)=16*FN A(A$,1)+FN A(A$,2)
180 DEF FN G$(F)=CHR$ (F+4 8+7*(F>9))

190 DEF FN H$(E)=FN G$(INT (E/16))+FN G$(E-16*INT (E/16))
210 IF D/8=INT (D/8) THEN PRINT FN H$(INT (D/256));FN

HS(D-256*INT (D/256));
220 INPUT A$
230 LET L=1

240 IF A$(1) = "U" THEN LET L=-l: LET N=N-1: GO TO 500

250 IF A$(1)="S" THEN GO TO 350

260 IF AS(1)="N" THEN PRINT : GO TO 130

300 IF AS(1)<>CHR$ 32 THEN POKE (D+P),FN C(A$)

305 LET N=N+1

310 PRINT TAB (2+L*N*3);FN H$(PEEK (D+P));

320 IF (D+1)/8=INT ((D+l)/8) THEN GO SUB 1000: LET N=0

330 LET D=D+L: GO TO 210

350 PRINT AT 20,0;" ": PRINT AT 20,

SAVE ";CHRS 34;: INPUT " Input name program ";N$:
PRINT N$;CHRS 3 4;"CODE ";
360 INPUT "Input start address program-XXXX";W$: GO SUB 400

LET B-T+P: PRINT B;",";
370 INPUT " Input end address program-XXXX";W$: GO SUB 400
LET L-T+l+P: PRINT L-B
380 SAVE NSCODE В,L-B: CLS : PRINT FLASH 1;AT 17,16;"END"
PRINT AT 21,3;"For continue press any key": PAUSE 0:
CLS : GO TO 40
400 LET T=0
410 FOR Y=1 TO 4

420 LET T-T+16t(4-Y)*(CODE W$(Y)-48-7*(CODE W$(Y)>57))
430 NEXT Y
4 40 RETURN

500 IF N<0 THEN PRINT : GO TO 130
510 IF N=0 THEN PRINT : GO TO 330
520 GO TO 330
1000 LET C-D-7

1010 LET KS=INT (C/256)+C-256*INT (C/256)

1020 FOR X=C TO D

1030 LET KS=KS+PEEK (X+P)

1040 IF KS>255 THEN LET KS=KS-256

1050 NEXT X

1060 PRINT " ":FN H$(KS);
1070 RETURN

;Л99 SAVE "HEX input +" LINE 10

6.5. Краткий перечень коиаид TR-DOS.

Команда Действие команды

•"А:" установка по умолчанию дисковода А

*"В:М то же, дисковода В

*"с:" то же, дисковода С

*"D:" то же, дисковода D

40 переключение в 40-дорожечный режим

80 то же, 80 дорожек

CAT вывод каталога иа экран

САТ# то же, иа принтер

CL0SE# закрыть файл последовательного/прямого доступа

СОРУ копирование файла с одногд дисковода на другой

Команда Действие команды

СОРУ а копирование файлов в системе с однии дисководом

СОРУ Ь снятие полной копии диска в системе с одним дис-

ководом

ERASE стирание файла с диска

LIST вывод оглевлеиия на экран

LIST! то же, на принтер

LOAD загрузить программу с диска

INPUTS произвести считывание из файла последовательно-

го/пряиого доступа
MERGE выполнить слияние програмиы с диска и программы,

содержащейся в ОЗУ
MOVE систематизировать и уплотнить програииы на диске

NEW изменение имени существующего файла

OPEN! открыть поток для файла последовательного/пряно-

го доступа

РЕЕК прочитать сектор файла с диска в ОЗУ

РОКЕ записать данные из ОЗУ в сектор файла

PRINT! запись файла с последовательным/пряный доступом

RANDOMIZE USR 15616

переход из SOS в TR-DOS
RANDOMIZE USR 15619

вызов команд tr-dos из sos
return возврат в sos из tr-dos

run загрузить н запустить програиму с диска

save записать программу на диск

VERIFY проверить правильность записи програмиы на диск

Например: СОРУ'нов.имя","стар.иия"тип(...CODE/DATA)

SAVE"hh*"thn, LOAD"иия"тип RUN"иия"тип




СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Адаптация программ к TR-DOS
Читатель-читателю - И.Рощин. Драйвер экрана для компьютера "Пентагон-128".
Живой уголок - Hачалось зто семнадцатого числа. Год и месяц не помню, но то, что двадцать третьего сентября, - это точно...

В этот день...   21 марта