[Zx81:Type-Ins] "Your Computer" campaign...

Discussion about ZX80 / ZX81 Software
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by XavSnap »

"Your computer" 09/82

" Indexer "

/ Basic tool/

Contributor : Antipontifex.

Code: Select all

0 REM  (C) JOHN WATSON,1982
1 DIM A$(341,30)
2 LET CT=0
3 GOTO 100
10 LET X=325-CT
12 LET CD=0
13 FAST
16 CLS
17 FOR N=1 TO 17
20 PRINT A$(X)
25 LET X=X+1
30 NEXT N
35 LET X=X-1
40 PRINT AT 16,0;CHR$((CODE A$(X))+128)
46 PRINT AT 20,0;"%0%=menu%,«e%=edit%,«d%=delete««or««««cursor«up«or«down«to«view«pages%."
47 SLOW
50 GOTO 550
100 CLS
105 SLOW
110 PRINT "        indexer"
120 PRINT
125 PRINT "%1  BEGIN NEW INDEX"
130 PRINT
135 PRINT "%2  KEY ENTRIES"
140 PRINT
155 PRINT "%3  SAVE ENTRIES"
160 PRINT
165 PRINT "%4  PRINT INDEX"
170 PRINT
175 PRINT "%5  EDIT INDEX"
180 LET K$=INKEY$
190 IF K$="1" THEN GOTO 230
195 IF K$="2" THEN GOTO 496
205 IF K$="3" THEN GOTO 8500
210 IF K$="4" THEN GOTO 1990
215 IF K$="5" THEN GOTO 10
220 GOTO 180
230 CLS
235 PRINT AT 11,0;"warning THIS DELETES ALL DATA.  KEY Y TO GO ON, 0 FOR MENU."
240 IF INKEY$="Y" THEN GOTO 485
245 IF INKEY$="0" THEN GOTO 100
250 GOTO 240
485 CLEAR
486 DIM A$(341,30)
490 LET CT=0
496 FAST
497 CLS
498 LET X=1
500 PRINT AT 0,0;"    *******ENTRY********** PAGE";AT 0,0;CT
505 IF CT>330 THEN PRINT AT 0,4;"index«almost«full"
510 IF CT>340 THEN GOTO 100
520 GOSUB 5010
530 SCROLL
540 GOTO 500
550 LET K$=INKEY$
555 IF K$="7" THEN GOTO 600
560 IF K$="6" THEN GOTO 620
565 IF K$="0" THEN GOTO 680
570 IF K$="E" THEN GOTO 700
575 IF K$="D" THEN GOTO 650
580 GOTO 550
600 LET X=X-17
605 IF X<325-CT THEN LET X=325-CT
610 GOTO 13
620 LET X=X-8
630 IF X>324 THEN LET X=324
635 GOTO 13
650 IF A$(X,1)=" " THEN GOTO 550
652 LET A$(X)=""
655 LET CD=CD+1
660 GOTO 600
680 LET CT=CT-CD
690 GOTO 8000
700 IF A$(X,1)=" " THEN GOTO 550
705 LET CT=CT-1
710 GOSUB 5010
720 GOTO 550
1990 PRINT AT 20,0;"PRINTER (p) OR SCREEN (s)?"
1994 LET P$=""
1995 LET P$=INKEY$
1996 IF P$="P" OR P$="S" THEN GOTO 2000
1997 GOTO 1995
2000 LET X=341-CT
2005 FAST
2006 CLS
2010 IF PEEK((PEEK 16396+256*PEEK 16397)+67)<>0 THEN GOTO 2200 
2020 SCROLL
2030 SCROLL
2040 LET Z$=A$(X, TO 27)
2045 IF Z$(1)=" " THEN GOTO 2260
2050 PRINT AT 19,0;Z$
2060 LET X=X+1
2070 LET Y$=A$(X, TO 27)
2080 GOSUB 3000
2090 PRINT AT 19,C;", ";A$(X-1,28 TO 30);
2095 LET C=C+5
2100 IF Y$<>Z$ THEN GOTO 2010
2110 GOTO 2160
2120 LET Z$=Y$
2130 LET X=X+1
2135 IF X>341 THEN GOTO 2260
2140 LET Y$=A$(X,1 TO 27)
2150 IF Y$<>Z$ THEN GOTO 2260
2160 PRINT ",";A$(X,26 TO 30);
2165 LET C=C+4
2170 GOTO 2120
2200 IF P$="P" THEN GOTO 2240
2205 PRINT AT 0,0;"    press«any«key«to«continue   "
2210 PAUSE 33000
2215 CLS
2220 GOTO 2010
2240 COPY
2245 CLS
2250 GOTO 2010
2260 IF PEEK((PEEK 16396+256*PEEK 16397)+67)<>0 THEN GOTO 2300
2270 SCROLL
2280 GOTO 2260
2300 IF P$="P" THEN COPY
2310 PRINT AT 0,0;"end"
2320 PAUSE 33000
2330 GOTO 100
2500 SCROLL
2510 PRINT AT 19,0;
2520 LET C=0
2530 RETURN
3000 LET C=27
3010 IF A$(X-1,C)<>" " THEN RETURN
3020 LET C=C-1
3030 IF C<1 THEN RETURN
3040 GOTO 3010
3050 GOTO 100
5010 INPUT C$
5020 IF C$="0" THEN GOTO 8000
5025 IF C$="" THEN GOTO 5010
5030 IF C$(1)=" " THEN GOTO 5010
5035 LET A$(X)=C$
5038 LET CT=CT+1
5040 PRINT AT19,0;A$(X, TO 27);", ";
5050 INPUT B$
5055 IF B$="" OR LEN B$>3 THEN GOTO 5050
5060 IF B$(1)>"9" OR B$(1)<"0" THEN GOTO 5050
5070 LET Q=LEN B$
5080 FOR S=Q TO 1 STEP -1
5085 LET A$(X,31-S)=B$((Q+1)-S)
5090 NEXT S
5095 LET X=X+1
6000 PRINT AT 19,29;B$
6010 RETURN
8000 FAST
8010 LET C=0
8020 LET S=0
8030 LET A=1
8040 LET N=340
8050 IF 2**A>N THEN GOTO 8080
8060 LET A=A+1
8070 GOTO 8050 
8080 LET F=2**A-1
8090 LET F=INT(F/2)
8100 IF F=0 THEN GOTO 100
8110 LET D=N-F
8120 LET B=1
8130 LET A=B
8140 LET E=A+F
8150 LET C=C+1
8160 IF A$(A)>A$(E) THEN GOTO 8200
8170 LET B=B+1
8180 IF B>D THEN GOTO 8090
8190 GOTO 8130
8200 LET S=S+1
8210 LET T$=A$(A)
8220 LET A$(A)=A$(E)
8230 LET A$(E)=T$
8240 LET A=A-F
8250 IF A<1 THEN GOTO 8170
8260 GOTO 8140
8500 PRINT AT 20,0;"prepare«tape - NEWLINE TO START"
8510 INPUT K$
8520 SAVE "INDEXER"
8530 GOTO 100
8600 SAVE "INDEXER"
8610 GOTO 1
INDEXER.P
(14.51 KiB) Downloaded 204 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by XavSnap »

"Your computer" 03/83

" ZxEditor "

/ ASM tool/

Routine move above the RamTop @7400

:? Something wrong.

Unable to launch it...

Contributor : XavSnap.

Code: Select all

     0  REM [HEX:\
CD,FD,78,CD,09,79,18,05,\
16,13,CD,53,7B,CD,81,7B,\
30,05,AF,32,21,40,C9,21,\
7B,40,36,30,23,36,78,CD,\
2E,7A,CD,72,7A,78,FE,76,\
20,08,21,F5,7C,CD,A4,7B,\
18,D6,FE,CB,28,32,FE,ED,\
28,38,FE,DD,28,44,FE,FD,\
28,44,CD,4F,7A,2E,24,FE,\
00,28,11,2E,2C,FE,01,28,\
0E,2C,FE,02,28,09,3E,5E,\
32,42,7D,2C,7D,81,6F,26,\
7D,6E,EB,CD,D4,7A,18,A0,\
CD,72,7A,CD,4F,7A,C6,36,\
18,EC,CD,72,7A,CD,4F,7A,\
2E,18,FE,01,28,DE,2E,20,\
18,DA,3E,0B,18,02,3E,0D,\
32,41,7D,3E,12,32,40,7D,\
2A,F8,7F,23,7E,21,16,7D,\
CD,89,7A,23,CB,BE,CD,72,\
7A,78,FE,CB,20,05,CD,72,\
7A,18,BD,CD,4F,7A,FE,03,\
28,93,F5,C5,FE,00,20,05,\
3E,06,B8,20,03,CD,72,7A,\
C1,F1,18,81,0,0,0,0,0,0,\
0,0,0,0,0,0,0,0,0,0,0,0,\
0,0,0,0,\
\
\
01,93,7B,3E,\
02,11,F8,7F,CD,14,7A,C9,\
11,E1,10,CD,38,7B,2B,7E,\
21,21,40,36,83,FD,CB,01,\
CE,FE,1D,C4,2A,0A,C9,CD,\
FD,78,CD,09,79,21,F9,7C,\
CD,9F,7B,21,7B,40,36,33,\
23,36,79,CD,81,7B,F8,CD,\
3D,7A,0E,04,CD,72,7A,0D,\
28,0B,CD,81,7B,30,F5,16,\
13,CD,53,7B,C9,CD,48,79,\
18,E1,3E,01,01,93,7B,CD,\
02,79,CD,2A,0A,CD,0E,0C,\
CD,3D,7A,11,E8,1C,CD,A5,\
7F,CB,45,28,05,CD,AD,7F,\
18,F7,ED,5B,F8,7F,CD,0B,\
7B,ED,53,F8,7F,3E,76,D7,\
18,DB,0D,20,24,0E,04,16,\
13,CD,53,7B,18,18,78,FE,\
01,20,1A,21,7B,40,36,62,\
23,36,7A,16,13,CD,53,7B,\
21,F9,7C,CD,9F,7B,CD,3D,\
7A,CD,72,7A,C9,FE,05,C0,\
\
21,7B,40,36,68,23,36,7A,\
0E,04,CD,9C,79,78,FE,34,\
C8,CD,83,79,18,F7,CD,72,\
7A,AF,CB,78,28,01,2F,48,\
47,2A,F8,7F,09,EB,21,00,\
7D,7B,CD,89,7A,2B,7A,CD,\
89,7A,23,CB,BE,2B,18,1B,\
CD,72,7A,2B,18,15,CD,07,\
7A,18,10,CD,72,7A,2B,18,\
03,CD,07,7A,2B,CD,A4,7B,\
21,0D,7C,C3,A4,7B,21,00,\
7D,CD,75,7A,CD,72,7A,CB,\
BE,2B,C9,F5,D5,11,E4,10,\
CD,3B,7B,7D,BB,28,05,CD,\
AD,7F,18,F7,D1,CD,21,7B,\
F1,3D,20,E7,C9,21,42,7D,\
36,5C,2B,36,09,2B,36,0F,\
2B,2B,36,E0,11,F9,7F,21,\
FE,7C,1A,CD,7F,7A,1B,1A,\
CD,7F,7A,AF,D7,C9,78,E6,\
07,4F,78,F5,E6,38,0F,0F,\
0F,47,F1,E6,C0,07,CB,07,\
C9,CD,A1,79,C3,2B,78,0E,\
04,CD,A1,79,CD,BE,79,18,\
F3,21,FE,7C,ED,5B,F8,7F,\
1A,13,ED,53,F8,7F,CD,89,\
7A,D7,23,7E,CB,BF,D7,C9,\
47,E6,0F,C6,1C,CB,FF,77,\
2B,78,E6,F0,1F,1F,1F,1F,\
C6,1C,77,C9,CB,40,20,19,\
CD,B3,7A,13,C9,3E,01,CB,\
40,20,1E,18,05,CB,40,28,\
0F,13,AF,18,14,CB,40,28,\
07,13,78,CB,87,0F,18,09,\
CD,BB,7A,13,C9,78,18,01,\
79,13,62,6B,6E,26,7C,CD,\
A5,7B,C9,1A,F5,E6,07,21,\
DD,7A,18,1E,\
\
F1,F5,CB,77,28,0D,2A,3E,\
7D,CB,55,36,00,23,28,F9,\
22,3E,7D,E6,38,0F,0F,CB,\
0F,28,0C,21,04,7B,E5,3C,\
26,7D,6F,6E,26,7A,E9,F1,\
CB,7F,C0,13,18,C9,C5,7D,\
2E,E0,95,0F,47,7E,CD,8C,\
7B,23,66,D6,1C,12,13,23,\
10,F3,C1,C9,C5,06,02,2B,\
4E,2B,7E,CD,8C,7B,81,D6,\
1C,12,13,10,F2,C1,3E,76,\
D7,D7,C9,11,EF,10,CD,33,\
78,26,7E,0A,6F,CD,9F,7B,\
03,0A,0F,03,CD,A4,7B,CD,\
53,7B,CD,A5,7F,C9,C5,D5,E5,FD,CB,\
21,46,28,08,ED,4B,39,40,\
4A,CD,0B,09,11,E0,7F,ED,\
4B,3E,7D,06,00,79,D6,E0,\
4F,CD,65,08,FD,CB,21,4E,\
28,03,3E,76,D7,E1,D1,C1,\
C9,2A,FA,7F,ED,5B,F8,7F,\
A7,ED,52,C9,D6,1C,07,07,\
07,07,C9,DD,E3,EB,E3,F2,\
F8,D5,DC,30,E3,D0,E3,3E,\
E0,32,3E,7D,AF,C5,D5,A7,\
28,0B,CB,7E,20,03,23,18,\
F9,3D,23,18,F2,CD,BB,7B,D1,C1,C9,ED,\
5B,3E,7D,7E,CB,7F,20,05,\
CD,CB,7B,18,F2,CB,BF,FE,40,30,\
08,12,13,ED,53,3E,7D,23,\
C9,23,ED,53,3E,7D,E5,FE,\
43,30,06,26,7D,6F,6E,18,\
14,FE,64,30,05,26,7D,6F,\
18,0B,21,FE,7B,E5,26,7D,\
6F,6E,26,79,E9,CD,BB,7B,\
E1,C9,\
\
A7,A8,A9,AA,AD,B1,C0,A6,\
A6,C1,A6,10,43,91,10,45,\
91,E7,E7,C3,C5,C1,C2,62,\
A8,45,A8,47,D6,49,D6,47,\
A6,49,A6,29,26,A6,28,35,\
B1,38,28,AB,28,28,AB,9C,\
9D,9E,9F,A0,A1,A2,A3,35,\
3A,38,AD,56,31,B1,37,2A,\
B9,4B,BD,2F,B5,CD,58,A9,\
58,A8,38,3A,A7,38,C3,26,\
33,A9,3D,34,B7,34,B7,28,\
B5,35,34,B5,37,38,B9,2F,\
B5,80,D3,E2,CB,CB,29,AE,\
2A,AE,E5,E8,66,1A,A6,4F,\
E6,10,5C,11,DA,45,DA,80,\
80,10,41,91,5C,DA,CF,CF,\
80,CF,80,80,80,80,33,BF,\
BF,33,A8,A8,35,B4,35,AA,\
B5,B2,47,A8,49,A8,C7,C9,\
38,31,A6,38,37,A6,E4,38,\
C7,27,2E,B9,37,2A,B8,38,\
2A,B9,10,28,91,33,2A,AC,\
B3,AE,38,C3,58,A8,2E,B2,\
9C,A4,9D,9E,CD,CD,CD,CD,\
49,A9,47,A9,2E,9A,37,9A,\
CF,CF,80,80,5E,1A,DE,E9,\
E9,E0,E0,E0,E0,A6,A6,AE,\
B7,80,80,AE,A9,2E,B7,29,\
B7,CD,28,B5,E2,D3,34,B9,\
33,34,B5,CB,29,2F,33,BF,\
D1,D1,D1,D1,D1,2D,26,31,\
B9,45,2B,A7,10,1D,A9,27,\
9F,A6,C9,B3,AE,BB,9D,B6,\
C6,2D,B1,2E,BD,2E,BE,10,\
41,91,10,41,15,2A,27,91,\
CD,D3,D9,DF,3C,E8,EB,EE,\
F3,F3,F3,F6,91,81,89,6D,\
6A,F9,7B,3A,70,9C,A1,76,\
A4,AA,AD,FC,B3,96,B8,BB,\
C1,C7,87,1B,81,A1,E4,7F,\
0F,09,5C,27,A8,29,AA,37,\
B1,37,B7,2A,BD,31,A9,26,\
9A,2F,B7,34,3A,B9,28,A6,\
26,A9,1A,C1,38,B5,26,AB,\
1A,E9,2E,B3,E9,EF,F4,FA,\
8F,C7,FA,17,00,E0,17,13,\
7A,45,00,8A,C5,00,F5,59,\
3E,13,77,7A,45,00,92,C5,\
9E,58,45,13,15,AA,C5,6A,\
13,72,45,0B,07,B2,C5,07,\
0B,7F,E8,82,87,CB,62,5C,\
2F,90,B8,6B,7F,46,7E,81,\
00,FA,3E,86,7A,43,86,92,\
C5,6A,FF,5F,6A,7A,3B,86,\
92,C5,6A,7F,46,7E,82,9E,\
CF,92,00,7A,A1,2F,8A,C5,\
00,7A,A4,2F,8A,C5,00,7A,\
A7,2F,8A,C5,00,7A,63,00,\
92,C5,AA,52,62,AA,BA,C5,\
00,50,B2,15,A2,C5,13,6A,\
45,11,13,9A,C5,13,11,00,\
BA,3E,B0,FA,B6,B8,7F,BC,\
C4,87,D5,B9,E1,D7,BC,E2,\
D7,FA,19,00,D8,37,13,6A,\
00,00,00,00,32,2A,33,BA,\
00,00,00,00,14,14,14,94,\
1C,00,35,37,2E,33,39,00,\
28,34,29,AA,1D,00,35,37,\
2E,33,39,00,29,26,39,A6,\
1E,00,3C,37,2E,39,AA,1F,\
00,2E,33,38,2A,37,B9,20,\
00,29,2A,31,2A,39,AA,21,\
00,39,37,26,33,38,2B,2A,\
B7,22,00,38,2A,26,37,28,\
AD,23,00,37,2A,35,31,26,\
28,AA,24,00,37,3A,33,00,\
28,34,29,AA,25,80,26,80,\
27,80,28,80,29,80,2A,80,\
2B,80,80,80,\
\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,\
\
31,2E,32,2E,B9,37,34,3A,\
39,2E,33,2A,80,38,39,26,\
37,39,80,26,29,29,37,2A,\
38,38,80,2B,2E,33,2E,38,\
2D,80,1D,00,2B,34,37,80,\
35,37,2E,33,39,2A,37,80,\
23,78,20,79,\
53,79,23,78,\
23,78,23,78,\
23,78,23,78,\
23,78,23,78,\
23,78,23,78,\
23,78,23,78,\
23,78,23,78,\
\
D5,C5,E5,2A,25,40,E5,ED,\
4B,25,40,E1,C5,A7,ED,42,\
28,F5,79,3C,28,F1,E1,CD,\
BD,07,7E,E1,C1,D1,FE,76,\
C8,FE,77,C8,FE,0C,20,05,\
CD,2A,0A,CF,0C,FE,1C,38,\
CF,FE,2C,30,CB,C9,21,21,\
40,CB,7E,28,04,2A,7B,40,\
E9,21,00,7E,06,14,3E,03,\
32,21,40,11,E1,18,CD,9F,\
7B,CD,53,7B,10,F8,01,99,\
7B,CD,3B,7B,2B,7E,D6,1C,\
47,07,6F,26,7F,7E,23,66,\
6F,E5,C5,CD,2A,0A,C1,3E,\
E0,32,3E,7D,78,21,10,7E,\
CD,A5,7B,16,1A,CD,53,7B,\
3E,76,D7,D7,C9,3E,01,32,\
21,40,21,E0,7F,36,0F,CD,\
C0,7F,CD,20,7F,FE,76,20,\
10,3E,E0,BD,28,F4,36,00,\
23,22,3E,7D,CD,53,7B,2B,\
C9,FE,77,20,0B,3E,E0,BD,\
28,DB,CD,BE,7F,2B,18,D5,\
77,7B,BD,28,D0,23,18,CD ]
     0  REM [HEX:\
21,82,40,11,23,78,01,BD,\
07,ED,B0,3E,74,32,05,40,\
CD,C3,03 ]

    10 SAVE  "ROUTINES" RAMTOP :POKE 16389,116
    20 RAND USR 18501

ZxEditor.P
(2.91 KiB) Downloaded 191 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by XavSnap »

Thanks for downloads.

Thanks to all contributors.


The full set:
archives_YourComputer_Zx81.zip
(269.92 KiB) Downloaded 273 times
Have fun.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Moggy
Posts: 3231
Joined: Wed Jun 18, 2008 2:00 pm

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by Moggy »

Thanks for the time taken with this much appreciated XavSnap. :D
dessony
Posts: 342
Joined: Tue Oct 29, 2013 2:26 pm
Location: Indiana, USA

Re: [Type-Ins] Links...

Post by dessony »

I just typed in the program's instruction.
ZX-81 ASSEMBLER (Your Computer).docx
(16.08 KiB) Downloaded 186 times
:D

Cheers,
DesSony
XavSnap wrote: Mon Nov 16, 2020 9:33 am "Your computer" 11/84
"Zx81 Assembler - [SUPER'Sembler] "

https://archive.org/details/your-comput ... 9/mode/2up

Code: Select all

1 REM [HEX:\
11,AB,6C,ED,53,04,40,21,\ 
94,40,01,0A,0F,ED,B0,C3,\ 
C3,03,CD,34,7A,CD,17,6E,\ 
ED,43,FC,7F,21,00,00,22,\ 
F8,7F,21,3F,40,22,F3,7F,\ 
3E,00,32,F7,7F,21,00,00,\ 
22,F5,7F,21,46,6D,22,F1,\ 
7F,2A,F3,7F,36,00,23,36,\ 
00,2A,FC,7F,22,ED,7F,23,\ 
7E,FE,76,28,06,FE,19,28,\ 
02,18,F4,22,E8,7F,11,06,\ 
00,7E,FE,76,28,03,11,01,\ 
00,19,22,FC,7F,2A,ED,7F,\ 
7E,FE,0E,CC,2B,70,FE,0B,\ 
20,05,CD,77,6E,18,AB,FE,\ 
11,CA,E1,6D,FE,17,28,C1,\ 
CD,2F,6E,CD,F6,79,78,FE,\ 
27,CA,6D,70,79,C6,14,32,\ 
3E,40,CD,2F,6E,2A,F3,7F,\ 
7E,FE,1C,20,04,2A,F1,7F,\ 
E9,2A,BC,79,7E,FE,10,CA,\ 
9E,6E,C3,C9,6E,21,40,40,\ 
22,F3,7F,21,54,6D,22,F1,\ 
7F,18,D7,3A,3E,40,FE,4A,\ 
D2,BB,6D,FE,40,38,05,FE,\ 
4A,DA,A5,6D,CD,12,7A,78,\ 
FE,27,CA,BB,6D,2A,FE,7F,\ 
79,77,3A,F7,7F,FE,01,28,\ 
12,FE,02,28,19,23,22,FE,\ 
7F,2A,F8,7F,23,22,F8,7F,\ 
C3,BB,6C,2A,FE,7F,23,3A,\ 
F5,7F,77,C3,7E,6D,2A,FE,\ 
7F,23,ED,4B,F5,7F,71,23,\
70,C3,7E,6D,CD,20,7A,78,\
FE,27,CA,6D,70,2A,FE,7F,\
36,CB,23,71,22,FE,7F,C3,\
73,6D,21,7D,79,36,C8,23,\
36,78,CD,7C,79,78,FE,27,\
CA,6D,70,2A,FE,7F,36,ED,\
EB,13,21,72,7B,09,7E,12,\
EB,22,FE,7F,7F,C3,73,6D,\
3A,D2,7B,FE,00,C4,9A,6F,\
3A,D3,7B,FE,00,C4,6D,6F,\
11,F7,6D,C3,70,70,31,34,\
34,35,00,26,28,28,34,32,\
35,31,2E,38,2D,2A,29,1B,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,01,80,\
40,03,0A,FE,EA,20,FA,03,\
0A,FE,10,20,F4,C5,E1,11,\
07,00,19,E5,C1,C9,2A,ED,\
7F,ED,4B,E8,7F,7C,B8,20,\
05,7D,B9,D2,94,6E,2A,ED,\
7F,22,BC,79,1E,00,2A,ED,\
7F,7E,FE,00,28,1C,FE,1B,\
28,18,ED,4B,E8,7F,78,BC,\
20,06,79,BD,20,02,18,0A,\
2A,ED,7F,23,22,ED,7F,1C,\
18,DC,2A,ED,7F,23,22,ED,\
7F,7B,32,79,40,C9,ED,5B,\
ED,7F,13,2A,FE,7F,1A,FE,\
0B,28,05,77,23,13,18,F6,\
22,FE,7F,2A,F8,7F,23,22,\
F8,7F,C9,2A,F3,7F,3E,1C,\
77,C9,00,00,00,2A,BC,79,\
23,7E,FE,26,D2,59,70,3E,\
0A,32,E2,70,7E,FE,17,20,\
05,3E,10,32,E2,70,CD,A1,\
70,2A,F3,7F,3E,3C,77,3E,\
02,32,F7,7F,2A,F1,7F,E9,\
21,3E,40,7E,FE,47,CA,59,\
70,FE,49,CA,59,70,FE,48,\
CA,59,70,FE,4D,CA,59,70,\
FE,2F,CA,E8,6F,FE,20,CA,\
E8,6F,2A,BC,79,7E,FE,31,\
20,10,23,7E,FE,1C,38,0A,\
FE,26,30,06,CD,C7,6F,C3,\
5E,6F,2A,BC,79,7E,FE,26,\
D2,59,70,3E,0A,32,E2,70,\
2A,BC,79,7E,FE,17,20,05,\
3E,10,32,E2,70,FE,15,20,\
05,3E,02,32,E2,70,CD,A1,\
70,21,3E,40,7E,FE,2C,28,\
2C,FE,2E,28,28,23,7E,FE,\
27,28,22,FE,26,28,1E,FE,\
25,28,1A,FE,32,28,16,3A,\
F6,7F,FE,00,20,0F,2A,F3,\
7F,3E,31,77,3E,01,32,F7,\
7F,2A,F1,7F,E9,2A,F3,7F,\
3E,29,77,3E,02,32,F7,7F,\
2A,F1,7F,E9,CD,02,7B,78,\
FE,27,C0,11,7A,6F,C3,70,\
70,3E,34,3A,00,2D,26,3B,\
2A,00,32,2E,38,38,2A,29,\
00,26,00,31,26,27,2A,31,\
00,2B,34,37,00,28,26,31,\
31,CD,94,7A,78,FE,27,C0,\
11,A7,6F,C3,70,70,3E,34,\
3A,00,2D,26,3B,2A,00,32,\
2E,38,38,2A,29,00,26,00,\
31,26,27,2A,31,00,2B,34,\
37,00,2F,3A,32,35,2A,BC,\
79,23,3E,0A,32,E2,70,CD,\
A1,70,3A,F5,7F,32,CF,7B,\
3E,00,32,F5,7F,CD,78,7A,\
21,00,00,22,F5,7F,C9,2A,\
ED,7F,ED,4B,E8,7F,7C,B8,\
DA,59,70,7D,B9,CA,59,70,\
DA,59,70,2A,BC,79,23,3E,\
0A,32,E2,70,CD,A1,70,3A,\
F5,7F,32,CF,7B,3E,00,32,\
F5,7F,CD,5C,7A,21,00,00,\
22,F5,7F,3E,38,2A,F3,7F,\
77,3E,01,32,F7,7F,2A,F1,\
7F,E9,3E,0A,32,E2,70,23,\
E5,23,7E,FE,0E,20,FA,23,\
22,ED,7F,7E,E1,F5,CD,A1,\
70,3A,F5,7F,32,CF,7B,3E,\
00,32,F5,7F,CD,44,7A,F1,\
C9,00,00,00,00,00,00,00,\

CD,04,7A,78,FE,27,CA,6D,\
70,2A,F3,7F,79,C6,1C,77,\
2A,F1,7F,E9,11,81,70,01,\
20,00,CD,6B,0B,2A,F8,7F,\
22,07,40,CF,08,32,00,40,\
2E,00,28,26,33,39,00,26,\
38,38,2A,32,27,31,2A,00,\
34,33,2A,00,34,2B,00,39,\
2D,2A,00,28,34,29,2A,1B,\
E5,21,01,00,22,EA,7F,E1,\
23,7E,FE,1C,38,06,FE,2C,\
30,02,18,F4,2B,7E,FE,1C,\
38,04,FE,2C,38,01,C9,E5,\
D6,1C,FE,00,28,13,ED,5B,\
EA,7F,21,00,00,47,19,10,\
FD,EB,2A,F5,7F,19,22,F5,\
7F,ED,5B,EA,7F,21,00,00,\
06,0A,19,10,FD,22,EA,7F,\
E1,18,C9,3C,1C,1C,1D,27,\
29,1D,24,2A,1E,27,1C,1E,\
2F,1C,1F,2F,1C,1D,2F,31,\
15,1C,1C,3D,28,28,2A,25,\
27,1D,2A,24,1F,27,1C,1E,\
30,1C,1F,30,1C,1D,30,31,\
16,1C,1C,20,38,1C,1D,26,\
29,1D,23,2A,1E,26,1C,1E,\
2D,1C,1F,2D,1C,1D,2D,31,\
17,1C,1C,2F,38,1C,2A,25,\
26,1D,2A,23,1F,26,1C,1E,\
2E,1C,1F,2E,1C,1D,2E,31,\
19,1C,1C,2F,33,38,1D,25,\
29,1D,3C,25,1E,25,1C,1E,\
2B,1C,1F,2B,1C,1D,2B,31,\
18,1C,1C,2F,34,38,2A,25,\
25,1D,25,3C,1F,25,1C,1E,\
2C,1C,1F,2C,1C,1D,2C,31,\
3F,1C,1C,2F,35,38,1D,32,\
29,1D,3C,2A,1E,32,1C,1E,\
22,1C,1F,22,1C,1D,22,31,\
1A,1C,1C,2F,30,38,2A,25,\
32,1D,2A,3C,1F,32,1C,1E,\
2A,1C,1F,2A,1C,1D,2A,31,\
1B,1C,1C,1D,2F,2F,1D,2F,\
30,1D,2F,2D,1D,2F,2E,1D,\
2F,2B,1D,2F,2C,1D,2F,22,\
1D,2F,2A,1D,30,2F,1D,30,\
30,1D,30,2D,1D,30,2E,1D,\
30,2B,1D,30,2C,1D,30,22,\
1D,30,2A,1D,2D,2F,1D,2D,\
30,1D,2D,2D,1D,2D,2E,1D,\
2D,2B,1D,2D,2C,1D,2D,22,\
1D,2D,2A,1D,2E,2F,1D,2E,\
30,1D,2E,2D,1D,2E,2E,1D,\
2E,2B,1D,2E,2C,1D,2E,22,\
1D,2E,2A,1D,2B,2F,1D,2B,\
30,1D,2B,2D,1D,2B,2E,1D,\
2B,2B,1D,2B,2C,1D,2B,22,\
1D,2B,2A,1D,2C,2F,1D,2C,\
30,1D,2C,2D,1D,2C,2E,1D,\
2C,2B,1D,2C,2C,1D,2C,22,\
1D,2C,2A,1D,22,2F,1D,22,\
30,1D,22,2D,1D,22,2E,1D,\
22,2B,1D,22,2C,21,1C,1C,\
1D,22,2A,1D,2A,2F,1D,2A,\
30,1D,2A,2D,1D,2A,2E,1D,\
2A,2B,1D,2A,2C,1D,2A,22,\
1D,2A,2A,2A,2A,2F,2A,2A,\
30,2A,2A,2D,2A,2A,2E,2A,\
2A,2B,2A,2A,2C,2A,2A,22,\
2A,2A,2A,37,2A,2F,37,2A,\
30,37,2A,2D,37,2A,2E,37,\
2A,2B,37,2A,2C,37,2A,22,\
37,2A,2A,35,2F,1C,35,30,\
1C,35,2D,1C,35,2E,1C,35,\
2B,1C,35,2C,1C,35,22,1C,\
35,2A,1C,34,2A,2F,34,2A,\
30,34,2A,2D,34,2A,2E,34,\
2A,2B,34,2A,2C,34,2A,22,\
34,2A,2A,2B,2F,1C,2B,30,\
1C,2B,2D,1C,2B,2E,1C,2B,\
2B,1C,2B,2C,1C,2B,22,1C,\
2B,2A,1C,36,2F,1C,36,30,\
1C,36,2D,1C,36,2E,1C,36,\
2B,1C,36,2C,1C,36,22,1C,\
36,2A,1C,30,2F,1C,30,30,\
1C,30,2D,1C,30,2E,1C,30,\
2B,1C,30,2C,1C,30,22,1C,\
30,2A,1C,2D,2F,1C,2D,30,\
1C,2D,2D,1C,2D,2E,1C,2D,\
2B,1C,2D,2C,1C,2D,22,1C,\
2D,2A,1C,33,33,1C,31,27,\
1C,2E,33,29,2E,29,1C,2C,\
33,29,32,27,1C,2A,2A,31,\
22,1C,1C,33,34,1C,33,1C,\
1C,2E,34,29,1C,1E,1C,2C,\
34,29,2C,29,1C,37,2A,31,\
23,1C,1C,33,35,1C,31,26,\
1C,2E,35,29,3A,31,2A,2C,\
35,29,32,26,1C,35,31,1C,\
24,1C,1C,33,30,1C,3B,1C,\
1C,2E,30,29,39,2A,31,2C,\
30,29,1C,1F,1C,34,2A,31,\
25,1C,1C,33,37,1C,31,25,\
1C,2E,37,29,3D,3B,25,2C,\
37,29,32,25,1C,2B,31,1C,\
26,1C,1C,33,3D,1C,2E,22,\
1C,2E,3D,29,3D,26,25,2C,\
3D,29,1C,20,1C,36,31,1C,\
27,1C,1C,33,39,1C,31,28,\
1C,2E,39,29,14,1C,1C,2C,\
39,29,32,28,1C,30,31,1C,\
28,1C,1C,33,3A,1C,1D,32,\
25,2E,3A,29,3E,1C,1C,2C,\
3A,29,1C,1F,1C,2D,31,1C,\
29,1C,1C,76,00,02,02,03,\
EA,40,2F,1C,40,30,1C,40,\
2D,1C,40,2E,1C,40,2B,1C,\
40,2C,1C,40,22,1C,40,2A,\
1C,41,2F,1C,41,30,1C,41,\
2D,1C,41,2E,1C,41,2B,1C,\
41,2C,1C,41,22,1C,41,2A,\
1C,42,2F,1C,42,30,1C,42,\
2D,1C,42,2E,1C,42,2B,1C,\
42,2C,1C,4A,22,1C,42,2A,\
1C,43,2F,1C,43,30,1C,43,\
2D,1C,43,2E,1C,43,2B,1C,\
43,2C,1C,43,22,1C,43,2A,\
1C,44,2F,1C,44,30,1C,44,\
2D,1C,44,2E,1C,44,2B,1C,\
44,2C,1C,44,22,1C,44,2A,\
1C,45,2F,1C,45,30,1C,45,\
2D,1C,45,2E,1C,45,2B,1C,\
45,2C,1C,45,22,1C,45,2A,\
1C,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,01,\
00,00,00,00,00,00,00,00,\
00,46,2F,1C,46,30,1C,46,\
2D,1C,46,2E,1C,46,2B,1C,\
46,2C,1C,46,22,1C,46,2A,\
1C,47,3F,2F,47,3F,30,47,\
3F,2D,47,3F,2E,47,3F,2B,\
47,3F,2C,47,3F,22,47,3F,\
2A,47,40,2F,47,40,30,47,\
40,2D,47,40,2E,47,40,2B,\
47,40,2C,47,40,22,47,40,\
2A,47,41,2F,47,41,30,47,\
41,2D,47,41,2E,47,41,2B,\
47,41,2C,47,41,22,47,41,\
2A,47,42,2F,47,42,30,47,\
42,2D,47,42,2E,47,42,2B,\
47,42,2C,47,42,22,47,42,\
2A,47,43,2F,47,43,30,47,\
43,2D,47,43,2E,47,43,2B,\
47,43,2C,47,43,22,47,43,\
2A,47,44,2F,47,44,30,47,\
44,2D,47,44,2E,47,44,2B,\
47,44,2C,47,44,22,47,44,\
2A,47,45,2F,47,45,30,47,\
45,2D,47,45,2E,47,45,2B,\
47,45,2C,47,45,22,47,45,\
2A,47,46,2F,47,46,30,47,\
46,2D,47,46,2E,47,46,2B,\
47,46,2C,47,46,22,47,46,\
2A,48,3F,2F,48,3F,30,48,\
3F,2D,48,3F,2E,48,3F,2B,\
48,3F,2C,48,3F,22,48,3F,\
2A,48,40,2F,48,40,30,48,\
40,2D,48,40,2E,48,40,2B,\
48,40,2C,48,40,22,48,40,\
2A,48,41,2F,48,41,30,48,\
41,2D,48,41,2E,48,41,2B,\
48,41,2C,48,41,22,48,41,\
2A,48,42,2F,48,42,30,48,\
42,2D,48,42,2E,48,42,2B,\
48,42,2C,48,42,22,48,42,\
2A,48,43,2F,48,43,30,48,\
43,2D,48,43,2E,48,43,2B,\
48,43,2C,48,43,22,48,43,\
2A,48,44,2F,48,44,30,48,\
44,2D,48,44,2E,48,44,2B,\
48,44,2C,48,44,22,48,44,\
2A,48,45,2F,48,45,30,48,\
45,2D,48,45,2E,48,45,2B,\
48,45,2C,48,45,22,48,45,\
2A,48,46,2F,48,46,30,48,\
46,2D,48,46,2E,48,46,2B,\
48,46,2C,48,46,22,48,46,\
2A,49,3F,2F,49,3F,30,49,\
3F,2D,49,3F,2E,49,3F,2B,\
49,3F,2C,49,3F,22,49,3F,\
2A,49,40,2F,49,40,30,49,\
40,2D,49,40,2E,49,40,2B,\
49,40,2C,49,40,22,49,40,\
2A,49,41,2F,49,41,30,49,\
41,2D,49,41,2E,49,41,2B,\
49,41,2C,49,41,22,49,41,\
2A,49,42,2F,49,42,30,49,\
42,2D,49,42,2E,49,42,28,\
49,42,2C,49,42,22,49,42,\
2A,49,43,2F,49,43,30,49,\
43,2D,49,43,2E,49,43,2B,\
49,43,2C,49,43,22,49,43,\
2A,49,44,2F,49,44,30,49,\
44,2D,49,44,2E,49,44,2B,\
49,44,2C,49,44,22,49,44,\
2A,49,45,2F,49,45,30,49,\
45,2D,49,45,2E,49,45,2B,\
49,45,2C,49,45,22,49,45,\
2A,49,46,2F,49,46,30,49,\
46,2D,49,46,2E,49,46,2B,\
49,46,2C,49,46,22,49,46,\
2A,76,00,0A,49,01,EA,37,\
31,28,26,0B,37,37,28,26,\
0B,37,31,26,0B,29,26,26,\
0B,37,37,26,0B,38,28,28,\
0B,28,28,2B,0B,29,2E,0B,\
31,29,0B,2E,33,28,0B,29,\
2A,28,0B,29,2F,33,3F,0B,\
2D,26,31,39,0B,37,38,39,\
1C,0B,37,38,39,24,0B,37,\
38,39,1D,22,0B,37,38,39,\
1E,20,0B,37,38,39,1F,1E,\
0B,37,38,39,20,1C,0B,37,\
38,39,20,24,0B,37,38,39,\
21,22,0B,26,29,29,0B,26,\
33,29,0B,28,26,31,31,0B,\
28,35,0B,2F,35,0B,2F,37,\
0B,34,37,0B,35,34,35,0B,\
35,3A,38,2D,0B,37,2A,39,\
0B,38,27,28,0B,38,3A,27,\
0B,3D,34,37,0B,26,29,28,\
0B,38,27,28,0B,2E,33,0B,\
34,3A,39,0B,2A,3D,3D,0B,\
33,34,35,0B,2A,3D,0B,2A,\
2E,0B,28,35,31,0B,37,31,\
28,0B,37,37,28,0B,37,31,\
0B,37,37,0B,38,31,26,0B,\
38,37,26,0B,38,37,31,0B,\
27,2E,39,0B,37,2A,38,0B,\
38,2A,39,0B,2E,33,0B,33,\
2A,2C,0B,37,2A,39,33,0B,\
2E,32,0B,37,2A,39,2E,0B,\
34,3A,39,0B,37,37,29,0B,\
37,31,29,0B,31,29,2E,0B,\
28,35,2E,0B,2E,33,2E,0B,\
34,3A,39,2E,0B,31,29,29,\
0B,28,35,29,0B,2E,33,29,\
0B,34,3A,39,29,0B,31,29,\
2E,37,0B,28,35,2E,37,0B,\
2E,33,2E,37,0B,34,39,2E,\
37,0B,31,29,29,37,0B,28,\
35,29,37,0B,2E,33,29,37,\
0B,34,39,29,37,0B,76,00,\
0B,7F,00,EA,00,00,0B,10,\
28,27,11,0B,10,2E,3D,11,\
0B,10,2A,29,11,0B,10,2E,\
3E,11,0B,10,2D,31,11,0B,\
10,29,2A,11,0B,10,27,28,\
11,0B,2D,31,0B,29,2A,0B,\
27,28,0B,26,2B,0B,33,33,\
0B,26,0B,2D,0B,31,0B,29,\
0B,2A,0B,27,0B,28,0B,33,\
0B,38,35,0B,33,3F,0B,3F,\
0B,33,28,0B,28,0B,35,34,\
0B,29,38,0B,35,0B,32,0B,\
10,38,35,11,0B,10,33,33,\
11,0B,35,2A,0B,10,28,11,\
0B,1C,0B,1D,0B,1E,0B,1F,\
0B,20,0B,21,0B,22,0B,23,\
0B,76,00,0C,B0,00,EA,39,\
2F,3E,3A,3E,2F,34,25,27,\
1D,3C,27,4B,1C,1C,4C,1C,\
1C,4D,3F,1C,1D,47,2A,39,\
30,3E,3A,3E,30,37,25,27,\
1D,27,3C,4E,1C,1C,1D,48,\
2A,39,2D,3E,3A,3E,2D,34,\
25,26,1D,3C,26,4D,40,1C,\
1D,2A,47,39,2E,3E,3A,3E,\
2E,37,25,26,1D,26,3C,4D,\
41,1C,1D,2A,48,39,2B,3E,\
3A,3E,2B,34,25,25,1D,3C,\
25,50,1C,1C,39,2C,3E,3A,\
3E,2C,37,25,25,1D,26,3C,\
51,1C,1C,34,25,32,1D,3C,\
32,39,2A,3E,3A,3E,2A,37,\
25,32,1D,32,3C,52,1C,1C,\
53,1C,1C,54,1C,1C,55,1C,\
1C,56,1C,1C,57,1C,1C,58,\
1C,1C,59,1C,1C,5A,1C,1C,\
5B,1C,1C,5C,1C,1C,5D,1C,\
1C,5E,1C,1C,5F,1C,1C,60,\
1C,1C,61,1C,1C,76,00,0D,\
33,00,EA,11,EC,70,21,3E,\
40,3E,00,32,3C,40,06,03,\
0E,00,1A,BE,20,01,0C,23,\
13,10,F7,79,FE,03,20,05,\
3A,3C,40,4F,C9,2B,2B,2B,\
3A,3C,40,3C,FE,00,20,DB,\
01,0F,27,C9,76,00,0E,3F,\
00,EA,11,F8,76,3E,01,32,\
3C,40,21,F1,4F,3A,79,40,\
47,1A,FE,0B,28,13,BE,20,\
10,23,13,10,F4,1A,FE,0B,\
20,07,3A,3C,40,06,00,4F,\
C9,1A,FE,0B,28,03,13,18,\
F8,13,3A,3C,40,3C,FE,4E,\
20,CD,00,01,0F,27,C9,76,\
00,0F,3A,00,EA,3E,F8,32,\
B4,79,3E,76,32,B5,79,CD,\
B3,79,C9,3E,45,32,B4,79,\
3E,78,32,B5,79,CD,B3,79,\
C9,3E,EC,32,7D,79,3E,70,\
32,7E,79,CD,7C,79,C9,3E,\
F2,32,7D,79,3E,73,32,7E,\
79,CD,7C,79,C9,76,00,10,\
3A,01,EA,CD,E7,02,21,D4,\
7B,22,D0,7B,2B,36,00,2B,\
36,00,C9,2A,D0,7B,36,66,\
23,3A,CF,7B,4F,71,23,ED,\
5B,FE,7F,73,23,72,23,22,\
D0,7B,C9,2A,D0,7B,36,64,\
23,3A,CF,7B,4F,71,23,ED,\
5B,FE,7F,73,23,72,23,22,\
D0,7B,21,D2,7B,34,C9,2A,\
D0,7B,36,65,23,3A,CF,7B,\
4F,71,23,ED,5B,FE,7F,73,\
23,72,23,22,D0,7B,21,D3,\
7B,34,C9,11,D4,7B,3A,D2,\
7B,FE,00,C8,3D,32,D2,7B,\
1A,FE,64,28,14,13,13,13,\
13,3A,D1,7B,BA,20,F1,3A,\
D0,7B,BB,20,EB,01,0F,27,\
C9,EB,22,CC,7B,11,D4,7B,\
1A,FE,66,28,14,13,13,13,\
13,3A,D1,7B,BA,20,F1,3A,\
D0,7B,BB,20,EB,01,0F,27,\
C9,23,13,1A,BE,28,05,2A,\
CC,7B,18,E2,23,13,E5,1A,\
4F,13,1A,47,EB,1A,6F,13,\
1A,67,54,5D,3F,ED,42,3E,\
FD,95,13,12,D1,13,13,18,\
95,11,D4,7B,3A,D3,7B,FE,\
00,C8,3D,32,D3,7B,1A,FE,\
65,28,14,13,13,13,13,3A,\
D1,7B,BA,20,F1,3A,D0,7B,\
BB,20,EB,01,0F,27,C9,EB,\
22,CC,7B,11,D4,7B,1A,FE,\
66,28,14,13,13,13,13,3A,\
D1,7B,BA,20,F1,3A,D0,7B,\
BB,20,EB,01,0F,27,C9,23,\
13,1A,BE,28,05,2A,CC,7B,\
18,E2,23,13,E5,1A,4F,13,\
1A,47,EB,1A,6F,13,1A,67,\
23,79,77,23,78,77,D1,13,\
13,18,99,00,00,11,3C,00,\
EA,40,41,42,43,44,45,46,\
47,48,49,4A,4B,4D,4F,50,\
51,52,53,56,57,58,59,5A,\
5B,5E,5F,60,61,62,63,67,\
68,69,62,6B,6F,72,73,78,\
79,7A,7B,A0,A1,A2,A3,A8,\
A9,AA,AB,B0,B1,B2,B3,B8,\
B9,BA,BB,76,00,00,00,00 ]

10 SAVE"ZX81ASM"
20 PRINT"\
*ZX81 ASSEMBLER* ANTHONY NWOKOYE\
ºsuper†sembler«° ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿\
µµµµµµµµµµ³µµµµµµµµµµµµµµµµµµµµµ\
usr«™žŸ˜ «´«your«computer«˜˜“Ÿ›«\
¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿\
PRESS A KEY TO MOVE IT ABOVE THERAM-TOP..."
30 PAUSE 5E4
40 RAND USR 16514
Zx81_Assembler_11_84.zip

Note:
1) Don't add spaces at the end of the REM line.
2) Always use a dot in mnemonics.
3) Have a look to exemples "E1.P", "E2.P" & "E3.P".
4) Have fun...
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by XavSnap »

Many Thanks DesSony !

I had to convert it to a PDF to view it… but, it ok for me.
:lol:


ZX-81 ASSEMBLER (Your Computer).pdf
(115.39 KiB) Downloaded 227 times


In case of update or another docs… in ODT (open-office.org format)
pdfs.zip
(119.54 KiB) Downloaded 216 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
Dim_75
Posts: 80
Joined: Fri Sep 01, 2017 11:04 pm
Location: Paris, FR

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by Dim_75 »

Many thanks for your work ! (especially from a lasy guy as me, i was looking those listings for a long time :oops: )
Fruitcake
Posts: 346
Joined: Wed Sep 01, 2010 10:53 pm

Re: [Type-Ins] "Your Computer" campaign...

Post by Fruitcake »

XavSnap wrote: Thu Dec 03, 2020 8:28 pm "Your computer" 06/82

"ZXMinbug" John Sylvester Jun'82 page 50

/ ASM Tool/

Yu know what… it is not a minibug, but several big one.
:oops:

Unable to launch it...

I've corrected all typos and the program now works ok. It's quite a nice routine for examining / editing / searching / setting / moving memory contents.

ZXMinbug.zip
(8.2 KiB) Downloaded 148 times
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by XavSnap »

Thanks Paul.

:ugeek:
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Fruitcake
Posts: 346
Joined: Wed Sep 01, 2010 10:53 pm

Re: [Zx81:Type-Ins] "Your Computer" campaign...

Post by Fruitcake »

XavSnap wrote: Mon Dec 07, 2020 11:52 pm "Your computer" 03/83

" ZxEditor "

/ ASM tool/

Routine move above the RamTop @7400

:? Something wrong.

Unable to launch it...

I've corrected all typos and the program now works ok.

The program is a bit misleading since it prints a menu of 9 options but only the first 3 are actually implemented; all other options simply run the disassembler. It appears the intention is that the program acts as a framework for users to add their own routines, which is fine but it would be have clearer not to pre-populate the menu text with features that aren't implemented. As such, the program is essentially just a disassembler and not an editor as its title would imply.

ZX81Editor.zip
(5.61 KiB) Downloaded 159 times
Post Reply