mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-14 20:16:18 +00:00
48 lines
4.1 KiB
Plaintext
48 lines
4.1 KiB
Plaintext
$ SET $ LIST PRT DEBUGN 00000100
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00000200
|
|
%% %%00000300
|
|
%% RETRO-B5500 EMULATOR CHARACTER MODE TESTS %%00000400
|
|
%% %%00000500
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00000600
|
|
% 2013-01-26 P.KIMPEL 00000700
|
|
% ORIGINAL VERSION 00000800
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00099900
|
|
00100000
|
|
BEGIN 00100100
|
|
INTEGER I; 00100200
|
|
REAL R; 00100300
|
|
ARRAY S[16]:= 00100400
|
|
"01234567","89ABCDEF","GHIJKLMN","OPQRSTUV","WXYZ +-/", 00100500
|
|
"NOW IS T","HE TIME ","FOR ALL ","GOOD MEN"," TO COME", 00100600
|
|
" TO THE ","AID OF T","HEIR PAR","TY. ","1234567Q","12345678"; 00100700
|
|
ARRAY D[16]; 00100800
|
|
LABEL ENTRY, START; 00100900
|
|
00400000
|
|
ENTRY:@20: GO TO START; 00400100
|
|
00500000
|
|
START:*: 00500100
|
|
00500200
|
|
D[0]:= 76543210; 00500300
|
|
00520000
|
|
STREAM(R:=D[0]: S:=S, D:=D); 00520100
|
|
BEGIN 00520200
|
|
SI:= S; 00520300
|
|
SI:= SI+51; 00520400
|
|
DI:= DI+6; 00520500
|
|
DS:= 5 CHR; 00520600
|
|
00520700
|
|
SI:= LOC R; 00520800
|
|
DI:= D; 00520900
|
|
DI:= DI+32; 00521000
|
|
DS:= 8 DEC; 00521100
|
|
00521200
|
|
SI:= SI-8; 00521300
|
|
DI:= D; 00521400
|
|
2(DI:= DI+40); 00521500
|
|
DI:= DI+32; 00521600
|
|
DS:= 8 OCT; 00521700
|
|
END STREAM; 00521800
|
|
00999700
|
|
GO TO START; 00999800
|
|
END. 00999900
|