Skip to content

Commit

Permalink
docs
Browse files Browse the repository at this point in the history
  • Loading branch information
mortenjc committed Dec 29, 2024
1 parent 7be4893 commit abd6dfb
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 18 deletions.
Binary file modified docs/source/images/firstpl1prg.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
27 changes: 9 additions & 18 deletions src/disks/artificial/t4.py
Original file line number Diff line number Diff line change
Expand Up @@ -6,24 +6,15 @@ def pl1(txt):
return a

data = [
[ 0x9e, 0x04, 0x00],
pl1('X1 = 1;'),
[ 0x9e, 0x04, 0x01],
pl1('X2 = 1;'),
[ 0x9e, 0x04, 0x02],
pl1('LOOP: X3 = X2 + X1;'),
[ 0x9e, 0x04, 0x03],
pl1("PUT FILE(DISPLAY) EDIT (X3) (P'ZZZZZZZZZZZ9');"),
[ 0x9e, 0x04, 0x04],
pl1('X1 = X2;'),
[ 0x9e, 0x04, 0x05],
pl1('X2 = X3;'),
[ 0x9e, 0x04, 0x06],
pl1('IF (X3 < 4807526977) THEN GO TO LOOP;'),
[ 0x9e, 0x04, 0x07], # END;
pl1('GET SKIP LIST(A);'),
[ 0x9e, 0x04, 0x08],
pl1('END;'),
[ 0x9e, 0x04, 0x00], pl1('X1 = 1;'),
[ 0x9e, 0x04, 0x01], pl1('X2 = 1;'),
[ 0x9e, 0x04, 0x02], pl1('LOOP: X3 = X2 + X1;'),
[ 0x9e, 0x04, 0x03], pl1("PUT FILE(DISPLAY) EDIT (X3) (P'ZZZZZZZZZZZ9');"),
[ 0x9e, 0x04, 0x04], pl1('X1 = X2;'),
[ 0x9e, 0x04, 0x05], pl1('X2 = X3;'),
[ 0x9e, 0x04, 0x06], pl1('IF (X3 < 4807526977) THEN GO TO LOOP;'),
[ 0x9e, 0x04, 0x07], pl1('GET SKIP LIST(A);'),
[ 0x9e, 0x04, 0x08], pl1('END;'),
[ 0x9e, 0x04, 0x09],
[ 0x9b, 0x41, 0x20, 0x6F, 0x72, 0x69, 0x67, 0x69, 0x6E, 0x61, 0x6C, 0x20, 0x66, 0x72, 0x6F, 0x6D, 0x20, 0x74, 0x72, 0x61, 0x63, 0x6B, 0x20, 0x32, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x2a, 0x2f, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x41],
[ 0x9b, 0x4a, 0x20, 0x20, 0x20, 0x28, 0x32, 0x42, 0x7C, 0x21, 0x32, 0x42, 0x29, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x2a, 0x2f, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20],
Expand Down

0 comments on commit abd6dfb

Please sign in to comment.