© ©OK

SHARP CORPORATION
I11Z-SQDK
SYSTEM PROGRAM
ASSEMBLER SP-2101
TEXT EDITOR SP-2201
RELOCATABLE LOADER SP-2301
SYMBOLIC DEBUGGER SP-2401

EDITOR- ASSEMBLER(option) SP-2102

SP-2202
MZ 80 ^ '
§5«
/ \'_ / — ROM ) ,
X

» " SYSTEM PROGRAM "

<

SP 1002, ASSEMBLER SP 2101, TEXT EDITOR

SP 2201, RELOCATABLE LOADER SP 2301, SYMBOLIC DEBUGGER
SP — 2401
....

1
«
SYSTEM PROGRAM
^^^^^ 0

?1|

2 ASSEMBLER SP-210I 7
2—1 'X 9
2—2 o
2—3
2 4 -- 1112
4

7
2—5 fV PASS 4

TEXT EDITOR
'
(.
3 SP-2201 3
1
3-1 33
3-2 CP) 35
3 3
36
3—4 EDITOR-ASSEMBLER 5o

4 RELOCATABLE LOADER SP-2301 5

4 Wt'X: 13

4—2
1

-- 5
55
4 3 58

5
5—2
5
1
SYMBOLIC DEBUGGER
.', '
-
SP-2401 65
67
68
5—3
5
5—5
4

ft
.',

BASIC
j
// 69
87
88

H
^^
6 89
i^ll^ii^llllllllllllllllllll

(1> 2) i (3) ,
II.

(4)16* 16 (6) 16
(7) 8) 9)
(10)

7
7
7
7
1

2
3
MZ-80K
^
|
7

7
4

5 EOOOhS^
III

- i'

223333333 790345678

7—6
7

7
7
8 ^rsxm,
I-O
- )j

SYSTEM PROGRAM COMMAND II

....

0 .... ...
I11Z-SQDK
 1

SYSTEM PROGRAM
I11Z-SQDK
 « &

SYSTEM PR()(;KAM ASSEMBLER. TEXT EDITOR. RELOCATABLE LOADER, SYMBOLIC

DEBUGGER t?f Z 80 '
. '-
,;^ Jtifni^;?; (CPU)
- . ':

fif.

W
-^ ,1 1 /^W
m , iU
U,'i.

.M
'
CPU
^' :

,;
iff fl

. iWll f V W

. 1!«

v,m
. ^ cpu

CPU ':
Wi. '
, -,
*.
,
^^
MACHINE
iiW
''
.. .
LANGUAGE (SP 2001)
SYSTEM PROGRAM
V, 'i.

ii
111

1
'
,
;?, '

f,l
f!.

^
CPUif
iSMI;, ItH
J

'

« W ':
f'l: :
/
S

II
U

(
TEXT EDITOR ASSEMBLER

( RELOCATABLE
LOADER

)
SYMBOLIC
DEBUGGER ||

'

.
; :^
SYSTEM PROGRAM

ft, : iM
P,l ,
^ M
Mf/J
: 1 1

TEXT EDITOR

, !
' ' ASSEMBLER
I" ,'1',

^ iV.iY^ U

^
{ hi Ui, Si

' ' ' ,' |', SYMBOLIC DEBUGGER

': ,Ji

^
':

I m.m cpu I ' ,

I-. W ,' |',

LE LOADER
I',

1 1
114

' ^ , Ji m
^ RELOCATAB

J
 1

r
SYSTEM PROGRAM
ft
^ ft? SU,

. TEXT EDITOR <SP- 220 . i

^
^ ' y
?;

^
||

.
ASCii f ,' I',
Kyj

I-.

w
Hi, fi¥i

^ ill

r. ';^

TEXT EDITOR

(^
>

(ASCii)
.
TEXT EDITOR
Hi, ill/ « 1
-^ I

W
^ character pointer ) BASIC

^(
I

ASSEMBLER (SP-2101) SYSTEM PROGRAM TEXT EDITOR

i

;
i', Jj fit

X ': ASSEMBLER ,, ^, ( i
|| I.)

«i , k!i£

h ^
ftf

h
^, il.KiC,
I-.

.
I

:!g ;;, ,W ^
WlV; , (relocation)
m Ift
linking)
||

''

^
"
J

W
M
^
PASS PASS 4
>
ASCii> (4 (RB)

PASS 2. 3

|_
|<
ASSEMBLER
ASSEMBLER
|& . PASS
PASS 4
2,
4

PASS 3
PASS
iWjifti
1

4
 t

SYMBOLIC DKBIIGGEK (SP 2401)

)^
SYMBOLIC DEBUGGER ASSEMBLER

^
1

'^
CPU
', *
41

,
ff,
'! ti
Ji
*

breakpoint)

indicative start)
;
CPU

../
-' Linking

<
SYMBOLIC DEBUGGER

' ' ' Ji

(.
'
SYMBOLIC DEBUGGER

4£
w
,
'
'
SYMBOLIC

[
p?
" SYMBOLIC"
I)KHl' ( ( KK

16 fti^w
2
^
^ ^ .
w
•rn'j:

;^

KP:L0CATABLE LOADER (SP- 2301) f ^

RELOCATABLE LOADER ^
W
H ':
If
Wftl!;?,:

U
(relocation)

^ I',
'
linking)

'/:
' :

,^
"fft-xii if): 1200

'' TINY BASIC *'

'iiW ,' U MACHINE LANGUAGE
Wrtil:?,: '
linking
RELOCATABLE LOADER '. *
XXXX
H
RB OBJECT

,
'
RELOCATABLE LOADER
,
RELOCATABLE LOADKR

* - I !^ ,':

'
JI4

-- I.
1

H
•

, ^ SYMBOLIC DEBUGGER
 SYSTEM PROGRAM SYSTEM PROGRAM

W«l Ifii W
S ,

K ;-
MZ- 80
'
"
' '' ''
41-
i;

BASIC
^
IAI

lAWf fc

MZ-80
*
SYSTEM PROGRAM MZ-80 '' I'Hh

" W
SYSTEM PROGRAM MZ - 80
BASIC, MACHINE LANGUAGE M

BASIC
f.

FORTRAN PASCAL '

JifJi
^

:
^
^ v - | I saiiii

ifijiH m'&
^
ffiiii

|"1," '
lo

,'.'.'; , - ^, - liiK,

iff^
(

MZ-
80
 2
ASSEMB ER
SP-2101
I11Z-SQDK
 &

2 — 1

ASSEMBLER SP-2101 TEXT EDITOR SP-2201 ft

-' H
-
'

'.
. "
(relocation)

'
rfig
1
,:^, .
', 'i:,VM
linking)

M
ENT

,;.
HI i
" ^

m'

' 4i ,'
:
ASCii

ft
f»

^,
, ^
,

^,
^
|,lf||Ai
ASCii
9S

ASSEMBLER SP- 2101 4 PASS)

1 1 [«1 I f

END

-
1

' 1

'JiK 2 -
SI;

^
-: '
ffl;

1
,
^ -
RAM , 1
i
W PASS1

1'ASS 1

- ,
' ^ «:

PASS

PASS
2

3
flIW
" RAM
RAM
"

|iii
iifij
,;'

^
/ i,
ft

RAM h

. :!S

^ , Jj
^,
80
PASS 2

1 ^
M
1
S
PASS2

PASS 4
I
Vlfii

^ 2

:
RAM

^
filename

' .

«
lli :
 2 —2
^ ,;
'
x ^ «i

>.
i!

,!
W!f

'' # '
.
,,
' IM ((
ENDA:
^'
r

fij
Jii
1

II*

Z80
1

.
- ;& ' ,

<;i:.!p
'|,
!^ W '^ ..,

END

Z80
Z80
': Z 80 U
SYSTEM PROGRAM
.
" Z80 PROGRAMMING MANUAL "

& iii

'^
4 CALL JP

1K
liij

6 ';•
;?,':

-
''

7 '
" Wi)fl
.',
^ K

7 ';":|| „
-
) H
ABCDEFG ABCDEFH
' ' ' ii

', HJ '

,
J

';•

'' " h i't

:
.

2 41' ,: f:

,;
!1
^
-filf;

'41^
^
. ' i:
.
, V
Z80

1 {
, .., END
 " «

Sii (character)

'
, M
HI i":
K
'' " '
'" gS, I
SPACE t

liiji'

1)
(^ABCDEFG
!
A'X"f- H I J
" ^
KLMNOPQRSTUVWXYZ
i '; ;'' W

16 ^
&
ift

0123456789
D decimal (10
^
H hexa(16
W AF 6

^
2) (

(10 K 16 10 16

'" JKcfli Jli K

'
3) | SPACE
T
I

', ^^
{
,

(
li'.l( OR FOH UFl ;A —X0
|1 ;?,:

XYZ PUSH |SP AF

ADD _S Pi HL, BC |SP BC COUNT I

OR F0H A X0
XYZ PUSH AF
ADD H BC BC=COUNT
T T

4) ''

'
^ 5~> I ;,': —
( START LD SP, START
MAIN ENT
T T

i :Ji^ W

( ENTRY:
TOP0 PUSH FJL
— " ENTRY" '' TOP0" W .
', ii

""
5)

(
; <i'

ti ^ SAMPLE PROGRAM
^
: I I

Hj

^
litl

CMMNT ENT COMMENT

>
 , 1

6) fCRl '
7)
' , , ''J-
+-
'' J-
' ( )

8)

W '
Hi

, J4J

^^
W
^ ifii
tfj

. ' 16H
"0"
ifii

'' 0"

line)

1 »'?: ''
Z80

^^
^^|"|, 1

;:^ rhi;?,' P.14

symbol)

6
, '? : '';-

7
w
'; 7
,
W
( ABC START BUFFER 50STEP
ABC) HL , IY +3 XYZ + 3 —,'
7 COMPAREO
COMPARE1 J
|,! - " COMPAR"
1 2 EQU
( ABC EQU 3

' ' CR
VRAM0
EQU
EQU
0DH
D000H

ENT IU
'' "
( RLDR ENT
RLDR0 PUSH HL
W CALL ABC ^,
ABC" ABC"
"

''
16 0ABCH"

;
W ^ ',
OABCflf
fr>,

ft, . ',ii
^'
 3 "

;' '
(
'
" M "
ABCI) K\T ABCD " EFGH " " IJK
LDA.B
KFGH
IJK
ENT
LD A, B
D " " EFGH
4£
"
'' ABC

AHC1)
"
EKGH I'. " ABCD " " EFGH
IJK LD A, B

( '4,W,'i:,V (ENT, EQU) W ^^ U

( XY/. l-XJU

1'\'1'
6000M

1.1) A. H
U) HI.. XY/ •
3

.)!' l)KK "I

DEF I'.X'I'

.11' ABC + 1 "I

I) DE, XYZ 10 »r

AMC
\|1

(constant)

',i

ft

W
( ',
) w
io

',lift

ii
a

(i6

10

10
0

f
1
rr';

2
.
34
"

5 6 7 8 9

iii
+ "

Wf
"

''
—

A BC
"

D "
iii

L) E F +—DH W
rr

1>
^^ "
^V
10
+ "

+3 -62

"6
23 999 161) 00031)

16 3

1« 16»( H , 16 1» , H "

(' ',i£ &

2AH CDH
(, 1A <

f 01H HH 001011 00ADH 00H

 1 1

2 —3

''
PASS 2, PASS 3 '
' Ji

, '
lih'iifii

^
^ >R '
,
1

I ^^ h
fllM

^^
Z80

iHflifti.
1

1 i
•
50

':
^^ 2 i j-
80 Z
80 &
,
'

AIM —
1 1

W ^ Ji'fi

n I
|

1 1 I n
1

I
(II

1 1
^ 1 1 1 1 I

** Z80 ASSEMBLER SP-2101 PAGE 01 **

01 0000
02 0000 ASSEMBLE LIST SAMPLE
03 0000
04 0000 REL 2000H RELOCATION
05 2000 P LETNL: EQU 0006H
06 2000 P MSG: EQU 0015H
07 2000
08 2000 START: ENT ENTRY FROM UNIT
09 2000 MAIN: ENT ; ENTRY FROM UNITES
10 2000 310020 LD SP. START INITIAL STACK POINTER
11 2003 210000 E LD HL. TEMPO
12 2006 DD210000 E LD IX. TEMPI
13 200A DD360000 EE MAINO: LD (IX + CONSTO). CONST1 CONSl = F
14 200E 00 Q XOA A A -- 00

47 205A 1A MAIN7: LD A. (DE)

48 205B B7 oR A
49 205C 2000 V JR NZ.COMP EXCHANG DE.HL
50 205E EB MAIN8: EX DE.HL

'
ii/j;' ^ UW ,
ull ^^
^^
2 14 3

fit 13 i / I
lifii I.

13 200A DD360000 EE
MAINO: LD (IX + CONSTO). C0NST1 CONSTl = P
 P

——
|-.

m w
——
ii-^
',]:
^
^'Jii

.'.'. •:

ii

E (External)
^ '' ',
!! «

E^i^
f

; '
''
(
00", 2
^ E LD
«1

•/:

CONST0
ENT

^
P.17

"FFFF"
'[
i ^, ^ 1

E
1 ''
CALL SORT
B,

CONST0" ; ij^

-'' SORT" ^: i;

EE
f
BIT
1

1
''
TOP, (IY + FLAG)

" FLAG'
TOP"
'
'
P (Phase)
ft£

P -
EQU
SI;

PASS
( P.19

1
'4£

Wi:
^ i
{
,

H
^ P.61

( 1' LETNL EQU 0006H

P
^ -

Pii ::
" LETNL"
.
DATA1
,
"
EQU 3
DATA1 " EQU
.
' ^ ii

C (illegal Character error

«i ,
( C JP +1000-3

F (Format error;
,

N (Non
fif

(
ENT,
label

EQU
N
error

EQU 0012H
^
<
 < >

L (erroreous Label error)

(
«i , ^
L
*— M
XYZ" ^ JR XYZ

^^
"
1 '-,
'1

JR, DJNZ
W L " ik>\<.

L CONT 1 EQU CONT 2

EQU - W

M (Multiple label error)

|"1 2 |yl |
( M ABC LD DE, BUFFR
S

M
"
ABC
ABC" ^ ENT
: ^
O (erroreous Operand)
Si , ^
Q (Questionable mnemonic)
^( O
Q CAL XYZ
^
CALL XYZ
Q I'SH B
I'USH BC C .
S (String error)
^ DEFM " '
"

(
')

S DEFM GAME OVER

DKFM 'GAME OVER'

V (Value over)

( V LD A,
:,
FF8H
^
V SET 8, A
V JR -130

///
 " 21 S

2 —4
:M W ^.
Z80
Z80 , '.
.
DEFB, DEFW, DEFM
I

ENT (entry)

^, ^ ^ , ','
Vi:,;;^

^ til//:

"i"

' "rfiii
,
' . tiV^u

Vi:, V

',; ^ ^ 1

Vi:,Y
'

'
:!B '
EQU
.

| 2 "GAUSS-MAIN" " GAUSS-SR " I

^
" external" .
E "

, ''
;10,

GAUSS-MAIN

MAINO ENT

CD0000 E
^ CALL CMPLX
" MAIN0 "

"
" GAUSS MAIN
external '
7

GAUSS SR

CMPLX ENT "

" CMPLX "

rr,?
RET
" GAUSS SR
C30000 E JP MAINO
externalik

,7
 '
REL nn' (relocate)

;
.
^
^, « «: I

IWj
I J'

rt
nn

0000
'/?:
; WU
0000 Ittl

If
f;ii

REL 1200H

;' 'X
REL
II

REL
M
I..
1200S
H_ .
REL '/
^^,
ii

fUi
1200 Hex)
II WU'i W

^^ '
II REL
fl!ij ' j.
H ^^0000
|)t.t

RELiTff^ Wlifl 'I ! 1 )11 1>

DEFS .
' I'.

I-.
'# W h

Z80 ASSEMBLER SP 2101 PAGE 01 *

01 0000
02 0000 EXPERIMENT OF REL NN
03 0000
04 0000 REL 1200H
05 1200 START ENT
06 1200 310012 LD SP.START ; INITIAL SP
07 1203 CD4700 CALL MSTP : MUSIC STOP (0047H)

^, J;-

REL
1200 H

/
 H *

EQU

^ .
(equate)

n
. »fift

lo Wi
^^
16 n
',ii^ dft

iR
'
W '
; .
EQU 11 ', ii ',
<H!

^
IV

KQUiSf^ Vi:,Y ENTViW ; 1

^
Ifl H;

"f KQIT

K
I/O
W
'' J.
j'lli'
1
',
^', ii

/ fM " P " EQU^r

' phase)

Z80 ASSEMBLER SP 2101 PAGE 01

01 0000
02 0000 : MONITOR SUBROUTINE
03 0000
04 0000 p PRNT EQU 0012H
05 0000 p PRNTS EQU 000CH
06 0000 p NL EQU 0009H
07 0000 p LETNL EQU 0006H i
1 ifii U t fi

08 0000 p MSG EQU 0015H :

09 0000 p GETL EQU 0003H
10 0000 p GETKY EQU 001BH
11 0000 p BRKEY EQU 001BH
12 0000 p MELDY EQU 0030H
13 0000 p BELL EQU 003EH
14 0000 p XTEMP EQU 0041H
15 0000 p MSTA EQU 0044
16 0000 p MSTP EQU 0047H
17 0000 p TIMST EQU 0033H
18 0000 p TI MRD EQU 003BH
19 0000 SKP 3

23 0000
24 0000 SET PORT« PRINTER
25 0000
26 0000 H POT : I'lQU KK}{
27 0000 P POTFP EQU FPH
 1

DEFB n (define byte)

'4 n n ', ',ii

DEFW, DEFM W

^ ,
fit

) li

, 0D
DEFB
;?,:
III "ERROR"
0015H 4

13 1PF3 B7 OR A
14 1FP4 CA0000 E JP Z. READY
15 1PP7 110020 LD DE, MESGO
16 1FPA CD0000 E CALL MSG
17 1PPD C30000 E JP MAIN2
18 2000
19 2000 MESSAGE GROUP
20 2000
21 2000 MESGO ENT " ERROR
22 2000 45 45H
23 2001 52 DEFB 52H
24 2002 52 DEFB 52H
25 2003 4P DEFB 4FH
26 2004 52 DEFB 52H
27 2005 0D DEPB ODH

DEFB '
S '
(define byte)

,: . s "
f

';• |' MESGO W ,

21 2000 MESGO ENT " ERROR
22 2000 45 DEFB ' E
'

23 2001 52 DEPB ' R

'

24 2002 52 DEFB ' R

'

25 2003 4F DEPB ' O

'

26 2004 52 DEFB ' R

'

27 2005 0D DEFB ODH

,
 "

DEFW

nn'
(
nn' (define word)
n',

III
n . 2

39 5PP1 CMDT ENT COMMAND TABLE

40 41 DEPB 41H
41 5PP2 0053 DEPW CMDA
42 5PF4 42 DEPB 42H
43 5PF5 1E53 DEPW CMDB
44 5FF7 53 DEPB 53H
45 5PP8 0000 E DEPW CMDS
46 5PFA 0D DEFB ODH
47 5PFB CONST0 ENT
48 5PFB 0F01 DEPW 010FH
49 5PFD C0NST1 ENT
50 5PFD 660D DEFW 0D66H

1 , 64
'

^
R
S '

|!H
(define message)
'; S ( I'.
4 '';"
Wi; '

ff ^'
';":i|S :JC'i":^

^ 111 . liij III " ERROR " ; *

21 2000 MESG0 ENT " ERROR
22 2000 4552524P DEFM ' ERROR '

23 2004 52
24 2005 OD DEPB ODH

J/
DEFS nn' (define storage)

(REL ^ '|1
nn'

nn' '

nn'
/
SfiW

Mil

All??:
W

^ 1
'I ! Wi
T M '
^
III W ^ Willi ^
02 4BB8 TEMPO ENT ; BUFFER A
03 4BB8 DEPS
04 4BB9 TEMPI ENT ; BUFFER B
05 4BB9 DEPS 2
06 4BBB TEMP2 ENT BUFFER C
07 4BBB DEFS 2
08 4BBD TEMP3 ENT BUFFER D
09 4BBD DEPS 128
10 4C3D BPPR ENT BUFFER E
4C3D DEFS A
12 4C47 BUFFER ENT : BUFFER F
13 4C47 DEFS 2

DEFS ^^ fift. UOJffiSc 16 ft)

 "

SKP n (skip n lines)

^ K.yj w
,, ^ . nu (line feed) ^^
30 COMMON ENT NORMAL RETURN
31 3BB8 AP XOR A A< 00
32 3BB9 32B84B LD (TEMPO). A CLEAR CMD BUFFER
33 3BBC 110020 LD DE. MESGO " READY

34 3BBP C9 RET
35 3BC0 SKP
3

39 3BC0
40 3BC0 ABNORMAL RETURN
41 3BC0
42 3BC0 ABNRET ENT SET INVALID MODE

SKP H (skip home)

,,

END (end)

1 ' ffi ', ; END "

END
PASS 1 END
^','
^ ^
)'

I',
1
f

END?

, J;—
 1 1
1 1

2 —5 PASS

PASS

2
PASS 4

PASS 1
W
:! K. 2

-, RAM
II
-
RAM
^
— PASS 1 '
^ PASS 2

PASS " GAUSS MAIN "

CASSETTE (1), RAM (2)
FILENAME? GAUSS MAIN [CR] CASSETTE, PASS
± PLAY
FOUND GAUSS MAIN
LOADING GAUSS MAIN

''
PASS
CASSETTE (1), RAM (2)
FILENAME? GAUSS S-R
* PLAY
2

|CR| ^ 51

«
GAUSS S-R"

RAM,
RAM
PASS

FOUND GAUSS S-R

LOADING GAUSS S-K ''
til GAUSS S-R" RAM

''

PASS

RAM
PASS

1
''

CASSETTE
CASSETTE

"2"
PASS 1
lli
u

"
1.
.
ik

. (1),
1

-mRAM
I. ^
RAM (2)" ^,
RAM
,;
.
'
liij

/•

')
;
O
-^

IE-

'
:

Ji
IK.

"
111

1
" tfJ
PASS

^
1

,;

: RAM
' RAM f

PASS 4
^ j'lfif?;

RAM

-^^^. .
II.

PASS ';
" RAM " CASSETTE ^
« PASS -' ' ^ ^
£4
 •

- ^ .
ft 2

-
'' FILENAME? " ^, ,;';£
i.f

PLAY

:
'
ftPASS
PLAY
ICR1

<V

ENI)
^
'i
1&,

I',
W ,'
^
fV
^
END i

"^^
END

PAS S 1
^
j'
,;'

||..

PAS S
'

AT
|
ifr, " END?
SHIFT irB"REAK|

PASS 1

.
' ^ Ji^ ^ M W: 4 K

& II
.
14
(1200 2100) ;?; fi

1200

SOURCE FILE

(2) KAM

-'' / PASS
CASSETTE - i'
{' " GAUSS
1

MONITOR SP-1Q02 ##
MAIN " ,;' ^ PL A V
LOADING Z89 ASSEMBLER
CASSETTE(l) ..RAM(2> ?1
FI E E?<3AUSS MAIN
FOUND GAUSS MAIN
ING GAUSb: MHIN
PASS I
 1 21

PASS
' 2

II W

''
W '
,
,
.16.;l!i

ASH
.
^ ^
|ilii|fii ^,
. 2 ir

4 ft' i.UW,

"PASS
PASS 1

PLAY
"

:
^',ii
^
[H]
2

,;'
CASSKTTE
tiT-ii
(RAM ^^)

PLAY

AT
^ ^,
^ ,
,
, ' ^
^
SB .if/J

256 ,
^^
HKlifii I'.

! P

,
il:

SPACE fn.£ ,':

,
|

,
PASS
^, 1
H

!iU-
^-
, SPACE
RAM ^ I :^':;
I

^
I I

PASS 2 SHIFT BREAK II I

''
I

i'i PASS 1 CASSETTE

^Vii GAUSS MAIN "
PASS 2 ': CASSETTE ( i) , RAM (2
FI MAIN
t P AY
RAM PASS 2 ii'i: . FOUND GAUSS MAIN
^, OADING GAUSS MAIN

FI ENAME7GAUSS MAIN
i P AY

,/
PASS 3

.^ ,
W
2 3 f(

liblrfii 2 ^, ,
fvwii

1
fllW

,1']" I
16

Vifii.h
8oth

PASS .1 KAM

(RAM

-"PASS"
^- 3

^
PASS 1

PLAY
^
!
T,ii |CRl
^
CASSETTE
:i:

^
PLAY

i
W
-
W
' ,;'

-
^
^^
-PASS 1
256

RAM ^^ : I.

PASS 3
NO POWKH OR NO CONNECTION (PRINTER)

ALARM PRINTER)
(
OFF
' t-:
^
I'AI'EK KM1TY PRINTKK) (

' | SHIFT I
I BREAKl
 1 0
12 0 1 0

MZ- -802) 16

,
Vli

^;
PAGE

* W
02 ,
PAGE
j;-

1
01

1 50

' il.. . '' PASS

'
-
"

ss 288 HSSEMBLER SP-2181 PH5E 61 **

_0
B
rts 0 o1 L p::
L s UJ
0
_H_
3 0
ts
4 0 0 Jl

5 0 s
u 2
- 2
on s 0 i
J". 1
Co
7
2
8 i
6 .
O crco
s 1...

INITIAL STACK POINTER

Ci;:

8 LL MUSIC STOP
...

8 7 M, nr.

R- Qrf 2 6 E -:h
:J T -
s s D 84888 u C:
0 5
L..-
: ...

2
{:

1- 506 EE W:::B
pij .
1-
ix
B p 00 A3
cL —
a::: HI L -J
LU
.1
2 2
0 ft

F .1 TM T T Ti!
" 7 /A U A
J2
3 2 2 ( A: p: p: •H
-

1 i / v
f tr

4 2 p s p..
.

0 MUSIC STOP (MONITOR)

-
11
i 2 i—
B PI .
Lr.l;
1X

U 2S8 ASSEMBLER SP- 2101 PACE 92 U

nm 1212 MRTNi 1286 MSTP 3847 SmRT 1289

1) & tfr

2) W S l»H ;
;?,: '
REL
^
^
3) fljW

4)

5)
"

Q "
''
E "

^:^ '' ,:! f

6) EQU
W
,
,
P"
CALL MSTP ^
PASS 4

^ '' , i : 5£

PASS 4

FILENAME7GAUSS MAIN |CR|

4- PLAY i " GAU
FOUND GAUSS MAIN SS MAIN"
LOADING GAUSS MAIN
OK
FILENAME?GAUSS MAIN/RB IcrI " GAUSS MAIN/RB"
4- RECORD. PLAY (CASSETTE
WRITING GAUSS MAIN/RIi

" PASS" 4
I'ASS 1 ;^ CASSETTE ^^. .mRAM
'4
" FILENAME

^
,
" ,'

',]£ fcRl PLAY

PLAY ^
— ,
1
'
ASS 1 f V X'
256

RA M ^ IV RA M '

RAM

—
—RAM

RECORD PLAY
[^g]
IS'

RECORD
'' FILENAME?

PLAY
" , '1',

[SHIFTJ I BREAK |
 PASS4
^' , j;— CASSETTE, RAM
RAM
-
;
'

; 1',
ft

(1) CASSETTE

SY

RB
SOURCE PROGRAM
<
C RELOCATABLE BINARY

(2) RAM

|| &: i Ml

"
^,!
RB "
i!

"
''
REL " ,
ASCi ' '' SOURCE"
)] U
fai

,'
"
OBJ "
I',

" BINA
RY", " SAVE " , '' DEB " ''
 3
TEXT EDITOR
SP-2201
I11Z-SQDK
 ) 2

: I
A

ill,
ik,

Hi
«iw
A ,; ' Jiu

v,

&
END j"

r« 1 *y«i ^^
(insertion

I'll] (deletion)

;
(change)

'^ W
. ( '
I
J

(
ffi^'J-
(line) column)

character pointer
2

line number)

i'JU' CP
fVii

11 f-

|
I

^
J '

1 1'-
' flSi CP lW

' Jih'

^ '; '
'? " f

3T4K '
^ | | ^ '

0000
»
1200

<-Ap|K-n<l

(RAM48K -''
^)
(ASCii)

1)000 KAM
EO0O
^

.
 f '' "

R filename

A
'- CP /

filename
^tWi
'; Read file)

CP '
.', |
R.iW
/ ' CP ;K Append file)

1 '^: CP ' Type)

^
Z
nT CP n

(
B
n.I
CP
n AT CP
fi

^; Jump)
Begin)

CP ' nL
L
nM
CP
nL
CP ;;',:
n=

n
0
n ' II

^^^
:tim
W
CP

Move)
CP -J

^Wi
Line)
! S

^
f)J

M nM n = 0 W CP
Z CP ;K 1
iiH

'
J
$)J

('
CP tt:;:*!:

CP ;': Change)
Q CP ,:
; C
Queue)
' JiU CP

I CP CP W
Vt 11.
: ^ M' sti?)f

nK CP CP
K
;;',':

?( .';
n

il'i
.',

|CR |
';tiirt
il'i

L£BJ UN ,'
Kill>
1',

nl) CP ;?,: n '; il'U;- Delete)

D CP
S
n

CP
OTP

1(0 ' ':

CP i Search)
w "H filename ,
,

V
(Write)
'',

'Jii J" CP
^ filename
Verify)
'
^^ 1CR|

Wt :
. CP
'
V ^
n* & ii'ii;-

- yj

iU'W GOTO $1200 (cold start), GOTOS1260

( t'Jl I..
(warm start) „

II NOVA, If A

,/
 B L -

3 —2 CP)

CP)
2 : ^ tWi . 1
1 (SfHfr,

O CI' M I I

1 LD A, 14H
(: twu c
}
y'

I.

r.si'j
Z LD B. 7
A
3 ADD A. B 1

(
4 DAA
' f.l-
-
.

'-,

) (
1'

D
r)M SP

(1'

RT1I
)> > 3 :1>-
A

:
D

^
I)

;
B

^ I.
n II CP
tWi
W
J
"
' rt"
•flT'ii

^ J.
tw'l L

delimiter) K t ' -)) '/

. lf| 1

IBcflAI |X:yj . fCRl

I (Insert) [CRl IU

?:
' 3 ADD ADC ' ;' ^
3.ISf Sf IDSf ICS? [CRJ BjSCADDg ADC fCR

-
 1 7 1 t

3—3

R(Read

Stfi
'
file)

'
I

CP
filename

iifl
;
*RF()RMULA#1 [CR " FORMULA* 1"

J
W

—"
— " R (Read
:<ii
file) ' j.

- fCRl PLAY ,
—PLAY ^
—
^
d£

0K" ^, CP
J

llfi
,, ,;);!

|'|
1>

;
f

-
"

—R LSHIFT. BREAK I I
1

FORMULAS
R
CP -*

FORMULA #
— ..,

'
'

-^ ' ' B
"ERROR"
"FULL BUFFER "
^^
, ;" ,
 2 Z

A (Append file)

filename

* CP
^' ;?
! &
CP

- " " f A ( Append file ) -- ,

- ICR] PLAY :
- PLAY
'
',1£

/ |
i

j
W_

CP ;?
,' h
,, ^ (

CI» l'W '' FORMULA #1 "

" FORMULA# 2 "

)— ' rt

FORMULA
'
A

—A
,
^ "OK"

- I SHIFT iBREAKl
I
CP /
^
; ti/rt .;

ERROR"

^^
b "

^ "FULL BUFFER"
^ !ti ii'i: CP
 < 1

T(Type)

CP
•/

;;^
I

Jfi '
' f'j-

^ 'ii CP
I

;;'I
r

" " n , t (Type) l«i

'j. ,

PCRl ffli 'Jiu

^
\ f

=0 T
n

n
<011
m (m ^
' '
''
CP m

- CP
cp ;;
;
f: I
I nT CP '
T I SHIFT I [BREAK]

- ''
cp
- /i'i

^ T
s A Rs TP :

ESSE NTTT TAPN

R T;
1 START ENT 1-2345
,M
UN SE Iw
c STOP
INE
Z LD SP. START CCEW?CC0

D2
3 CALL MSTP MUSIC STOP 3 T c STOP
M SE TT PN UN SE Iw
INE
4 CALL LETNL NEW LINE :

TI
5 END 3434 au 2S <v p
6 c E ST TN NEw INE
'.65535 " LARGE" ^,
 K

CP
B (Begin)

" * "
i.V B (Begin) '/
rcRi
B '; . CP : titfi ;W
nB W

" * " z
[CR]
Z ' CP •/ W iiif ';" ;

nZ W

J (Jump) I]

'
'' ' ,' n, .1 (Jump) .
- [CR]
nJ ' iiU C1' n , ';tWi ',; •:

> ^ ^
n

n<0
n- -
0

m
II.

(m
"
1 ,

" ^ Jt^ii

;:
B

Z l"j

.
 ^ (

L(Line)
CP (Line) V liij !S ' CP ^;
*nL |_CRJ CP n 1 1
M (^ 0
c i» !m cp !w
" " n L (Line) Wi ' j.

nL
fCRl
' : CP ^ : tl*fi
f'',':

\ J' *!( :i ^ <\ '

n=
n£m
n<
0

0
(m
II

i n I
L

CP
/-
^ '/
fjift

1
CP

( ^
f ,:

CP
tim 1( i ti fi

B M
Z |,

M(Move)
CP ' ^!!) 1
';
•:

"' ' n, M (Move) .

'
:
[CRl
nM : CP •fKi: ' ' ' |! JUJ

n< 0 I CP In I
t fi W
n= 0 n '4 I
CP
 I B C

C (Change)

P ' 1.
ft ' CP ;K
*
.IK: 1 ,1

;?,:

" ^ C (Change) '.

;?,:

-
?,

[CR]
^ ^^
' ': 1 1"1

;?,

/ !t fi
W
, •:
CP ,:

"NOT FOUND " ^, •:

j;- CP

Q (Queue)
c :M *, , c ' Ji

'Jih CP ^ :^ ,:

*ClstrinK lgistring 2 fCRl CP ;? { C ''

*Qstrin K 1(CR] , . strinj? 1 ift

'
'' ' ^ Q (Queue) '.
^^, ,
^^ M W
C

- 'M ' Q
': E8 M)
p
0D )E
1 LD BC. (TEMPO) . ,

2 LD (TEMPO). DE DDPEODDU MT TPHE^BFD

B(1PEB<F CT20MCBE
JT^L
3 JP 1200H F8UEE
SUFRF
FF)S
2FE
ERD2 R)E

4 TEMPO DEFS Z:

F
/

1-234-#l24*i_:\-34.*.

I> B (BUFFER
D (ELiFFER) D ,

JP 120QH
BUFFER DEFS 2
 D

(Insert)

( ^
I

CP W .
ifii

W ^O UiW
': CP w ' % - Y
i. .:

*IstrinR flf ICR] CP ^;, 1

: strinj? W
Istrinjfl [CRl CP ;K strinjfl, strinff2, strin K :{

strinj?2 |CR|

strinff3 |CR|

Sf [CRl I I [gE . 1

i 1^ ';i

"
>)<
"
1 (Insert) '/
"

^,
ll'l:

-CP ;?,': W Vii , CP , ' ,

'
'-,
i"i Wijji

[crI Kyj ; i!

af '
fCRl I

^ ':!'i ^ s Rs TP :

T<npM
R
ESST NTTE
M;
us SE IT
c TM
op
PO
-MX
p T
1 START ENT ecus

TEMpo
DI D A,5
Z LD S. START
3 CALL MSTP MUSIC STOP
s <C
4 CALL XTEMP SET TEMPO Rs TP
Ess NTT R
5 END -.123456^
TAPTM

MP
s c s Top
c TDADAN

<n -
-
Ep uos

T AL E TEMpo
CUJ
3 4

LD A. 5 TEMPO 5

W(
 , X n

K (Kill)

CP >:; n ',ii ';) ;

CP ;
CP
'•}•:
^
n * ) CP

^ 7: - m] mi;-
|W |,',|
[^] 1 flSl

" * "
n, K (Kill) Wi '/,
[crI '
' : n ; '

n > 0 ^^ ^^ CP ^;?,: J [^1]

'
M\

1
•/

'
n < 0
[crI

.
;
+
h
cp
.
;?,': :
'
'
n

•:
m 1
1
L^g]

'
mi:

-
I

icrI
1.
f

+1

n =
^',
0
ii if!"
I

W/K
n |

CP
1

;K
[51]

•;>')'
flIJP

: ,)
^
[]£BJ

CP
1 ,
f,',:;iV:
T,

';ti)rt
';

ii'i

- m E
T
': CP CL.I CFI

'¥-^ ' K ADGJJADGJ

ADGJPMDG1
BEHK4BEH4

BEHKMBEHM K T
* i-1234k-123k-123f
3 . 1-CFJK
TT>
K0
': 2

1 AABBCC H K
3 FGJG I
2 DDEEPP H
H2H JKJ KTK

K
It
3 GGHHI I
4 JJKKLL

4J
 ,

D (Delete)

CP W n ' '; &

" * " n, I) (Delete) Wi .,

[CRl

' n fift. ; '

n > o m i« cp v.. ;?. ^m |(, n

Ifljl^

'
n < 0 i&
[CRl
^ C P ^;?,:
1

^
•:

1
'' : tWi ( 1"1
' n

[CR] 1

n = 0 MP U
^ ^ VI

ii ^ Hi? ,
CP SB

':
'' / '

^ .
1)
T
DH

':

,& hi

2
CGK02C

BFJNIHJ^"

PDD

1 ABCD K
2 EPGH
3 I JKL
4 MNOP
 4 E p - 4

—— ——
S (Search)
w

* S string CRj % CP K string

—" *" S (Search) .'j.

1^

CR]
string

'
. CP ;( |(,|

^- ^
— string string ii CP string ;?;:
string "NOT FOUND " CP

-''
S
,':
" LETNL" ^ ^, stHng " LETNL"
j;-
^ 2T CP {
, sU~ing

1 START ENT
2 LD SP, START
A Rs TP
3 CALL MSTP MUSIC STOP :
R_
4 CALL LETNL NEW LINE
SLCC
,M ESSE4T
TAPN
— MUSIC STOP
NTTTHE

NEW LINE
5 LD A, 04 H TEMPO ——
:
Al -
6 CALL XTEMP »-1234567*.4#45^
-
M-vc
M TEMP0<—
CE
7 END D TN L
A ETN NEN INE
Tl
NEW INE
A.94H

4J
 „ 3

W (Write)
' I J' filename , CP

* WFORMULA # 3 |CR| '' FORMULA # 3" filename

* w[crJ filename

" * " ^ W

,
(Write)
filename

TCRl RECORD PLAY ffi

RECORD PLAY ,
" OK "

- W

filename" FORMULA #3"

FORMULA «

W |SHIFTir¥ME^|
ERROR" ^
'
"

w iihiiij cp

46'
 " 3

V (Verify)
I
filename ,
.
'' FORMULA # 3'

*V [CRj '

" " V (Verify) 'j.

t filename '
-fCRl
-PLAY
PLAY
filename ,;
-
1
',
^ ^ (Verify)

filename I
^ $

^ M— "0K" - i£ " ERROR"

^ CP ;

FORMULA #

' '

filename" FORMULA « 3

"OK"

" ERROR

-
=

<

"* "
= (equal) -.
-IcrI ' ,

"

ICR]
"
CP
. period) -
-,

&

.
"

fCR]
''

ffl*
f.V & (ampersand)
' ,
 1
i -

'

LcrI
'' ' # (sharp mark)

yj ^ .

enable,
': disable ; disable 1 |"1
-

|| ', li T
, enable

EDITOR LIST SftHPLE

IT
rlujs<

-I .H
ML IP _
s ftp-.. 1
1....
..-
:. s p.

s
....- LI … … - p.
o..-
An -
:-
IX" el
a::
II -L M Tip::
E Di.H
o
ET sc …

1 ;:: •:-
J j
.J<M: 5
<h?
f T
1
i I
....

T
ft"

i 23456
-IV;- .
BUE
p S-.--H-S .-.Or-
7.
IM
u
-HI
… p.

i T.:
-:
r-:
nr.
F

"

[CRl
''
1
;
exclamation mark) -
, 2 jifi
-

(i()T()$1200 [CR] COLD STAKT)

( OTOS1260 [CR] WARM START)

 2

3 —4 EDITOR- ASSEMBLER

'
^ EDITOR-ASSEMBLER(SYSTEM PROGRAM OPTION SIJ «i TEXT
KDITOR ASSEMBLER 1

liij, SP - 2201, SP- 2101 |, EDITOR-ASSEMBLER

EDITOR- ASSEMBLER'S ASSEMBLER SP-2102

EDITOR- ASSEMBLERS EDITOR SP-2202

ASSEMBLER
- ^^.
''
^
j&
' X "

3t
TEXT EDITOR

Hi

^ !:

EDITOR-ASSEMBLER 12002100> 4K ft

14K

.
|— : '' EDITOR- ASSEMBLER"
X ASSEMBLER SP- 2102
>t TEXT EDITOR SP - 2202
ASSEMBLER
PASS
3
X ; T ,
EDITOR- ASSEMBLER
ToR s I
2N I
p 882 2/
*
^-
fopfi

ALDT7TS
MDAIE1AP
VNX
TT oo RR
I 1 s E2 M2
As
I
SP
E
'' RAM
I"
48K
3
J;—

3
o*.4IDN
0S R
i
GTBTS V

:T
EETEA DDENR IISTT

'' X" PASS

E
p
X
#
p An s s
.
PASS X
PASS '' X
''
" T"
i START :ENT
2 SP, START
3 END

.
 4
RELOCATABLE LOADER
SP-2301
I11Z-SQDK
 4 1

. M
) ,,
CPU irt:
^ ':

. I
nu'<
. .m
fH'fi

'
WfU W
'

' . ''ii .
'
^
tiHli '2 fll*'f

& &
)!;

'
II 1 1

N
1> " (Append)
t

^
f
. 'Ji|;

.
. |"11 .
'.
^IT'ii

f;ii . '
III

f'V
H

'
||(|'

(data address)
'
',ii
'JiU
- execute address)

RELOCATABLE LOADER

1 1
'
'

ft

L ' .
N
( relocate load)

(Next file) ' ;

4i

/ f.r;

^
iiii

H (Height)

T (Table dump) I '

S (Save)
V
*
(Verify)

(clear tal)le)
':

S ,, II
. II

1 '# ^ 0000
1',

# (change printer mode) ' '

,
w
(goto monitor) f
 4 ^ |

symbol table)

"" ^
Vf,V

ti^li
..
, ENT
'
EQU

' LINK AREA I

J ;? { ; tsirt 16 I
'/ 2

.
'' /
*TBL 80

^tWi 8000H Kritl

iifilifii
, || .

0000

1200 ' '

LINK AKKA
/RAM36KN
|

8000

9FFF

1)000
RAM
E000

MONITOR SP-1802 **
<>
A<E

AOPA

DAIE

ET
C UJ E RS
GOR0 RAA o P 230
ARK CE
Ac
o*-IT NB

^ tff 1 .

'
9 W ,
 2 E 1

4 —2

W
4
' , , j ':
I

J II if ^ . ;^ <ii

m
//: W.ffi

- I I
REL WilU

ASSEMBLE BIAS

^'
|| ^
fliw
^
/;
',ii
II :

II

; -
1200H fff

REL
|:

2j!fi
45 ^^ REL ^^ .
REL

^
i:. . 'X:

-
0000H
^REL I

) ,' II

I
"1200H

REL 1200H3?
0000 '^ 1200

W 2400H *

^
If I jAC

nif O f I

REL 1200H 1 Willi Hilrt REL

1 200 H '

0000 (l)REL Hi 1200 REL 1200H 2>REL 1

1 \

FU:LOCATAB RELOCATABLE
LOADER
' >
ASSEMBLE BIAS iMBLK BIAS
0000
1200
1200 REL 1200H
0000
\ \
 i

OADING ADDRESS
|
j ti)rt

': {
''
-&
- ..
-I sm* fn,

h\ / - ^',i: . < ^ ft''j

'; M:

' .',
3000 '
,

3000
.

1
1
f '
(RAM48K

'A.vi't
BOOOiS ,

1)000
RAM
K000

. y

v
2

njfr,
REL
3000 {IT'ii

Wi.

3000

2 ' tWi RE 1200 2000

'
3200

J6'
 <

EXECUTE ADDRESS DATA ADDRESS

,'
' ^ '
'
fife flft
ftnii I ^. fh i!t w
llfi'.j

:
llfl

twi
II

n fift. . ' m
1200, 2000 II

'
^
' Y
.
1(1'

^ ^
^
1

' III
'
BASIC

.
^ <V
'
^
1 1
,
0000

1200
2000
/ ,

EXECUTE ADR.
2000
DATA ADR.
1200

1)000 KAM
: 000
 t 3

L (relocate Load)
I
j , '
,

1200, 2000

— "" L (relocate Load) <"*L" " LOADER " ^

16 4 &
ijijJt (
'
,; iiWI

REL
-, ', ' X
' ^^ .
-- '

— '' FILENAME?" ^
I
J f,!l&fn,

'
,
:

-PLAY
' { ^ PLAY
, ^
^
—^
',
,;

J'
" 0K " -^
'' 1-: " ERROR"

ll: II, | SHIFT [BREAK

| |

2000 — 5FFF 5A00 ,

2A00, RELM- '
&
, tWillf 3300

' ' 2000

3000
3300,

2000

«iM ' 2A00

L 2800

^[^WiS
.' 3300_

3300
' 2800
5A00
2800 <
5FFF
)

.
 <

N (Next
.
file)

fift ( H ,

* LN
^ W(
" *L"
" F 1 L KN A M K7
N
"
(Next
^,
file) '. ,
PLAY
^ |^ { PLAY
4£

,
^£ W_
>i

,' I',
;'£

,
WW'I ,'
&
REL nn' ,
REL
nn' fi.
^ ; N

(
'X
'J£
'
'ii'i:fiij fift

)
(Append) Unking)
'^ f " OK"
" ERROR " ^,
,
J;—

^ ||: ["SHIFTirBREAKI

H (Height)

WYr- / -

"' H (Height) .
fifi: '&lti *
, j;-
16 4 Wr ^^ ,
L 1200, 2000 ' 2A00

'
N F00
H , ;• W(

- 4B00, 5900

-
 (Table dump)

^^ ^ W : !

LT ^
-
" *L"
.
^ ^ T (Table dump)

^,
' .

X, W 16
mam
^ ' ',1£«,

- 3

''
L

^
^^
':
" U " ^
T

UR
RSKE

ECT 8H
0

'
20E46C8561

TFNIARCPMMI

^
RESETTEEAT TDVRRNPPHU-
FTNVTKEPPT
6066666666 4022433442
PRRSSSTTlix
622220^-440^-0

BPRRSSTTTW

-b
7C99353DBA

SOTAEER

70277B423C 82

13E P 60

I- a e

*.

Undefined (Adr. or Data)

2 iR '^ Multi-defined (Adr. or Data)

'
^
<i£ Cross-defined (Adr. and Data)

'4 ';

Data (Data)
Half-defined ( Data)

',

* (CLEAR bias and table)

'. ,
-*
— *L"

| '
" TBL "
CLEAR)

3? '
0000

///
 A

HL. ST, START H

ENT START 1
jSn Data
DEC HL . 2 Stl START
LD A. H ..

EQU Data
CP COUNTO
JR NZ, COUNT
LD A. L EQU
CP COUNT1 3t!*fi

JR NZ. COUNT
RET
ENT
DEFM TMDLYH'
DEFB ODH
EQU
EQU
OOH
50H
"COUNT1
COUNT1
"

Data
I)

;
ND

TMDLYL: LD
LOOP1: DEC
LD
CP " COUNT" X
JR COUNT <1
RET Adr. i 2 SII
PENI): ENT Data ', iiJS
DEFM 'TMDLYL'
DEFB ODH "FEND" M
START: EQU 10OOH PEND 1
: f
*||
COUNT: EQU

END
OOH dr.

^:^ ^ Adr. ', 2

3 '
INPUT: CALL 001BH
CALL
CALL
LD
TMDLYL
001 BH
HL, START
TMDLYL"
TMDLYL;^ Adr.
U

..,
' ENT','i:,;,
CP ODH
JR Z. END
LD (HL), A
INC HL
JR INPUT
END: JP 0000H

END

6V
 " N |

S(Save) =1

RELOCATABLE LOADER
,
II
'Ji

^ f!T4i
I&

h I'Jj

2000 3 IiFF

FILENAME? TINY BASK

"
FROM? 2000 TO? { '' TINY BASIC
EXECUTE? 1200 1200, 1200

''
L "
Vi:

'' FILENAMK?
S (Save)
" ^ ,
'.

J ^,
ti'Xir " FROM? ^
^ gH]
, ,T, : tltfi

^
16 4 Hf

" TO? " W 16 4 HrlltVi£

. ,
f
(I'Jj "HT,ii J

': EXECUTE ADR.) DATA

liijn'i
" '"
"UI 'Ji'ii- .
' Irr ft . I B
¥(> SBT IFA

X E89.D voev
D
.
M2ER6

0 2
NT8AV
T81PI

TON

tWi
'
t B A- I C
RKL

IX i!T RECORD PLAY

j&
RECORD . PLAY
,,

2000
.' '
%
n
TINY BASK
\\-
it

1200

,^
1200
3UI-F

' )) j'
OK " " ii,"

'1: " ERROR " ^

- I SHIFT [BREAK1 1

/
V (Verify)
^ ^
" *L "

^ ^ '' F1LKNAMK? "

V (Verify) .
^, X

^ [^U
, PLAY j;-

PLAY W , ' Ni

i ^
r M— "0K"
^^^ ^ , ERR
^^
I
"

OR "

- I I SHIFT LBREAKJ I

'' /i'i

| J'
''
^ TINY BASIC
//: .
"

,
LI
E ME?TINV BASIC

OEKL
VLPUR

NI
Av

TINV BASIC
V ING TINV BASIC
"
M

|
J 2000 2F00 5E00 '/tWiS
BASIC
" SUB- ROUTINE"
,,' f

, T, -
……

. HI BASIC

s
BASIC LIMIT
LIRX
A E0 u R? o E
TFT
iifl« LOAD EMCE
N^.uc M2ER
S88P
BT0A

D 00
ouiR
To
.D 0L

^^) 'Ji

i/—
"
' i
' i'i:

0000 BASIC
WJi , P. 87

/.'
 M 1i 27 7
4
0 62
07 5 B 3

-" *L" (sharp mark)

<yj

RELOCATABLE LOADER V ' disable It 1 |"| .

enable, disable f

' enable 'I',A/^,J— (

Tlfli

', li ' T ••:

r
fI ......

I::-:::
l:: L
p I: Ti-@
3 3 T.I J
..... 083 B KE 0 U_c -.4
L.LJ

Bu CO Lr
548 BuUF J- -..
.

4 5 u...

B u ..
r
80 M. 1
H 1.-.:-
D_ sp <n i
4 K_
H7.

0 24 6
-
0 6
Lr
RJ 416 I
!i ;::

r
K ft H rr ^n,,*

4 s ." E0 1 K Vp
L.U
E 3 p.. c0
r 1 @ J;

LooK 8 H
IE
....

T: f
0 K, 5 00 r
M.
An
j..:

8 i9 H 5 25 M u: L D 0 3 0 i

Hs _:.!::-

i 2 i7
..:

54i M |0 G 2 5 8 3
Ms .- 442 2 0 0 p 0: H .:.

B T. s Ti

8 0 nv L,r
8
II.,:-

R
-::

2 An 4 0 B R .L N 2 2
I CT
cH 5 2E s R 3
27
R s An LU 9 nn. A.V
•::

5
:.

B5 N E — ft p E 3 Di o:::-
2
s Tc 53 4.

EM
..:

32D p..
2 3 T Mp
U.J
5 3 H
…
u:::
4 c ft M...
pi 544

'' L ''
i exclamation mark) .
f

RELOCATABLE LOADER ' 2

* ( ()TO$ 1200 fCR]

(COLD START)
* GOTO $ 1260 [CRl
(WARM START)
 5
SYMBOLIC DEBUGGER
SP-2401
I11Z-SQDK
 t

5 — 1

'
SP-2401
'
I',

'
'
' ^
lii )•"]•( W!

'

I
r^
.
,, Hi
i'r
I..

'' . -
)"
Ji

(^
•H Hi'w ••]"

'^
^
'X
,
',
'iiH

'i: ^ ^ENT)
M
HJ

1 1

J'
'^ ,; j'
W
III U
tli irt: &

'
-/ -/

i'Aj , <

'
t f'r

|"1
. i

N
/
' |
J
.
'
'
. ,'|',

relocate Load)
1
^
,
II

T
4iY
^^
Next file)

^^ fift , Height)
^
' Table dump)
a«i 1:. Wi: 0000
' CLEAR bias and table)

,S Break point)
&
Mf
I)
|'J ' 4i
|
^
J
16 -,
1',
clear break

16 ' Memory
point)
dump)
(memory list Dump)
16
\\t
' : :

^
Write)
(
1 - ^ I
'ii Goto)
': Mi PC fift

A
C
V
4> o

A.
A',
F,
(Indicative start)

B, C, D,
F',

PC, SP, IX, IY, I

B, C, D, E,
E',

^
H,
H,
L
L'
16 ^^,
I J'
16 ^
16;1^,
-,
' Ui

Program
Accumulator)
Complementary)
counter)
R A, C, P 16jffiii,j;- Register)
X fiTxii TRANS fer)

,,
s
'
im
V
Y
*
|ft

tff
,, Save)
I '

W
^
f
Verify)
Yank)
 5—2

',ii
breakpoint)
' I
JiU'

Jft
^' ^
,.^
ll-.

I ,M t'SlK II

"f

.
'
>:;;',': (,^ :i:

',ii
',ii
^' ^
Mf<
9

Ti:

M fift E (14H)

'
F ; „;r,ii ',:;

1 ,

16 FF KST 7 W. 1 CALL
r5T R ST 7 ': I
J W 0038H
' "

-" ',, 0038*

1
', W ; 1',

' ;•

; ^ RST RST

.
7 " 7 i

ifi; IU

W , if =
'' 0 [Jf1 :
.

/
 K F

5 —3

L
-
^relocate Load)

^ At
|
j |',

. tiT,ii .

71
D" ' '' ,
-
-''
L (relocate Load) D" Debugger "

16 4 Ni.

1| '' ]"

W RELnn ' Ji ;
M •

. " FILKNAM K? "

fiT_i L^J
,
PLAY
r ^
ffivj;—

-PLAY W U

^ [T4i iiW W

"
!i\

^ "
f '' OK" ^, SVMB0 IC DEBUGGER SP-2491 **
INK AREA 258F
TB B8
CFFF
1-: " ERROR" -, J;—
]) 3080 3000
FI Atti
-^ . I SHIFT IfBREAKl P
FOUND F0RMU Attl
OADING F0RMU A#i
- ': rt

^
ORMULA # 1
" (REL
|
J 3000* I ,;

FORMULA n 1
 N (Next file)

fift. (^ H fift.)

* DN
' fji

'/
^
" D" N (Next file)

" FILENAME? " , ^ ',

[CR] PLAY , j;-

PLAY ^
^ m'-i: Aw w , ,
N '
&
Wi:

<
Ji

REL i'
' ifi;

RELmT
WlH'l ;?,':

X . /
nn' fi(i:

(Append)
••

Link)
liij

J'

":
1. I
"

.
OK"

I
" ERROR"
SHIFT BREAK
^,
II
^ I

H (Height)

.
" *D" H (Height)

lifi. ,
< ^ Wi. 16 4«r ^^

'' L
FORMULA #
fift
1
" ( 3000,

500H
3000
H ^
3500 3500

L
'' 0000,
FORMULA # 1 " Wim
4000
REL4000H Willj

'
ft

4000 ^' ''

0500,
1"
4500

: titfi 4000^

7
 o

(Table dump)

^ ^ ^; ^
* DT

—^ ^
^^),
T

^^
(Table dump) -.
X, W U6

',
Br
ii

61
^ ', ii , S!l W
M

1 \i 'iL fi "> Undelined ( Address or Data)

M 2 ,"R'4i Multi-defined (Address or Data)

X Cross-defined Address and Data)

'
(

II ',ii^ Half-defined (Data)

I) ', ii Data (Data)

^';?

* (CLEAR bias and table)

" D" * CLEAR) .

,
(

* ': 0000

. '
TBL"

7,
 1 21 2 1 1 2 W

B (Break

1
point)

,
^CPU 1"| ' ^ ^
,'
'ii

'4£
W
^ 16 W
f.¥ IV W:

*DH , Vi£

3
4
A DDK
5030
SOKT:
S()KT:l + 5

MAIN'O — A
_2
COUNT

''
'''
->0:{(>,

"
SORT3"
SOKT3"
MAIN0"
.
iHi"5t

A' lW

5 Sf ( ,; C 2 1 .

" *D" B (Break point) >

" ADDR COUNT " ^-
ii'j;- 1

'
"J "
1 E
16 4

^
1 flA|
HI

^^
^
— IT

", '' ^-
;•

W:

— DJNZ
. W:
'4£ ,: i: "DJNZ? "

1 CALL ,
CALL
,' ^, '' CALL? "

, '
,
liij'

,
^: I
I

P
W,
W
&' '
'' ^,
0

^
9 9 tfnii

^ . W , ^
'
" X "

, X "

^
"

^:i 2 " OVER" ^^ W i

, W B
^. ' Ji (T,i£ ^,
, :i
^ ^,
i
lifri 16 HJ

Wi PU ;•

1 DELETE fDELl ( i r Eg] W hi c

/£
 1 1

& (CLEAR B.P)

"

'^
D "

. iT4i
& (CLEAR break point)

,
W $
' 16 4tfr ilT,!!,

jir BA5MM
C1 oUN T

'
1
. D5IIS5 R8NNT5

i
^^ , ;• 123456
68

+13
23C

"
'' j'.J't

SORT3"
. " X " iffl

u
I :(
^ *
D

88
C1 oUN T

23C 2
D5IIS5RRR8R R8NNT5TTT8T I +13

1
333
+ 11
112
+3

123456789X 3 0

'' -i'i ,;; B

.^ .
16
;:

^
^ ^
1||
ft

12345
D
D8888

RiFcvl
C1213 oU T

RK

'' . ADDR COUNT

5000, 1 5888
G '5000 > '
UII K ifWV G

U
J V. i r

:
R ^ 5F2F2
8
3/
6 C6C6 D8D8 B/
|
j CPU 1/ 8B4B4P1 EAEAI8
HCHC
E
lifi. W 3 hi
BV8
1C8 X8
si
80 3 8 88 8
9

Z:
 M (Memory dump)

1 '
16 ^^ '
' 4i 16 ^
JII 4i '' J"

3300 3350 | ^^
'' MAIN7 "
MAIN9" ,
>

'' '' ^
STEP0" A
B

- '

' D"
1
M (Memory dump)

16J14
,
. '
'
IH
.',
!tWi

^''

- ^-" "
'4

1)M 1100 1150

1100 11001150

^
'
enable ^ h , 1 8 Dli'llfti

1 16

-
^
HCRl
:

,
1
^
Al '
A

'. i,
A
:
fCRl

tWi
" ERROR
il>
" ^
ICR1
':

' :
- i I SHIFT fBREAKl
I

/
D(memory Dump)
',ii
list

16
,i(v 'IM.V. 1

' ill ,
16 ^
1
:

330 3350

"
'',
MA1N0"
^
START " , •; .
R I {()()() ^ '' STA RT '

' 1 2U— ^

" D " I) (memory list Dump) .

1 flA| ^' J; i J'
-) '., 'AllirtT

^ . T,i£
l'f

16J1 4 Mr

^ M
III

S , " I"

fiT4i
|
j

[CR] ^^ 'IM'V W * Wi

" START " " MAIN0 " ; '

D333333 D900380
T T84

3000^ I) Mi
A3CA343
87
•'):
4i R1DF27E

S 000000
S8367AB
B E3
START ENT 0F
LD START SP.
CALL MSTP
XOR A
LD TABP). A (

LD B. A
MAINO ENT
LD A. OFH
U
^
i'

.'.'.':

L
']"
:' )
' '
M
I
J
ifi

(DEFB, DEFW, W

SPACE

' I :
|

[SHIFTi BREAK
|

j
||:,

, litu

-
 M - H

W(data Write)
' 16 1
: tff'4i 16 W
III

—
*I)W

*I)\V
8000

DATAl
ICR

7
CR
8000 >

.
-

" *D "
f.V

1 f|A|
W (data Write)

^ ' t

; tWi ' 16 4 l|j

*DW 1111

1111 llllflt

L^] ^' fom Wi; ' ,,' i-

16

^
i!2tfr

2 W 1 ?.': 8 :

:
tir I'l

figil:. B
1

5C86
— ''/A-
A
P
^ . B
(
5C68 3E 16 CD 12 0«
5C84
5CB9
C86 3E 16 CD 12 00
5C84 00 m
Z80 W
e ^^ JR DJNZ

16 4
<V, '' '
''kA
DW 6686
6686 18 .5FF0 EE M

16

4 : 1'
e ? 0 ',ii

'' / 1

^
* 1
: I CR 1 i

76
G (Goto)
'
Hi
' ! P

*DG 3200 CR |
3200 '
*DG START |CR| '' START "
^
DG |CR|
^ CPU

-
*D"
':
Goto)

AT
' 16 4 ENT ',

llj
' .

1>(
MAIN0
MAIN0 + 3L
MAIN0-H
'
':

':
'' MAIN0 "
'' MAIN0 "
'' MAIN0"
3
B
^^
^-.
liij

1 G [^1]
'Ji W:

&CPU R fift. PC (Program Counter)

'
Wi:

1260S
."'

.
'
1260H
|5? (
P

WARM STARTS
"I"
PC fift

'
?,':

ifi "*D"
*

—' COLD START

:
1200^

^;
—G ISHIFTl fHE ^
I (Indicative start)

PC ^ .^ fift
fift CPU
, W(

',i:
'
fift.
'- A,
'
C, P
'^
. ', ii G ^.
*1)1 CPU fift fift

A F li C D E H PC
01 23 45 67 89 AB CD EF
A' F' B C D' E' H L
01 23 45 67 89 AB CD EF
PC SP IX IY
33AB 1FEA 5F70 5F50 00

START OK?Sf

" D " 1 (Indicative start) '/

3fcft CPU , '& fifi. 161 2 ^ 4 '

^
I
^^
r
I J'

1C
R
"START OK?
W
" ^ fift M .1

*
J

I I
[5^1

I
fift ^ '
CPU
I

'
1. ^ | SHIFT fBREAKl
|
;
AF HC I)K HL
AF' BC DE' HL'

SP IX IY I

PC

PC
i'HJfj

,
'..
',i£
Vlli

' SP.
:
IX, IY, I CPU ,, Hi

-' J't

' 4i

:
fi". 3000

F2F2 C6C6 D8D8

3/ 7/
1, B4B4P10 EAEAI4
HCHC
E
BV5
3 SI 714 E
1C8T 5 69 8
0R T
 A

A (Accumulator) '
^
I
ai
i Z80
:
CPU
I
^^
J'

—'' r

—" *D ''
A (Accumulator) '/
A, F, iHJ(l BC, DE, HL 16

1' '^'
^G
;
Wi. I.
^ W
' . w(':
I J'

A I

CPU
;; [CR1 W

:
C (Complementary)
P

W
CPUi - ^

"
>KD'' C (Complementary) ' j.

&
' 16

^,
2 ^^ A',

iU
F,

,: A
BC', DE',

ft |
HL'

I |-'

: ;?, W:

/
P (Program counter)
ji cpu mw ^^ I '
r

"sjcD"

ft |
J'#,
1'

PC,
(Program counter)
SF, IX, IY. I

fift
^
.
'.

16

^
4

A ^
.. 2 Wr
C
^,

i
fi

I.. ;: EE
Hi

;w
fift

. -
m'w
^
,
fift

; (

!
R (Register)

^-
^ II CPU
^^ ' A, C, P . E

*I)K
A F H C I) E H L
CPU ^
01 23 45 67 89 AB CD EF
A' F' B' C D' E* H' I

01 23 45 67 89 AB CD EF
Sl> IX IY I

70 5F50 00

'

' [)" K (Register) '/

CPU I J'
16 2Wf, 4 W ^^ flft

^
'
^ .'.'.': I R
| I'lJi

^ .¥
 A. C, P
<A, C.
ACPR)
|
H
j
)

.
^
!^ Hi
fift

fift
..
II. cpu i
I

r# .
<
I ' CPU
w'w
1 1 1 m |W| ini a >\m ' ^
MAIN UE ( SKT AF 1"' I)K III. A command
|
COMI'LK.MKNTARY F uc 1)1 II (' command
l'( SI' I\ IV I <r-> V command

KKSTART FROM H.V.

OK
IM)I( ATIVK START K command

. SP IH IV I
rtB 1FEA 5F7B 5F5Q 88

A P

F2F2
5/
C6C6 D3D3 9 By
HCHC
F
1/
...

E
B4B4PF

5 9 F
1C3
SI
BVF E
B E 7Q Q Q

C R

S/
 - -

X(data TRANSfer)
m>iL

" *D

'' TO? ^,
"

"
^
"
FROM ''
+
^
X (data TRANSfer) .
16
16

4 &; 4 tfr

TOP?" ^^
(
"

'
il

.
^Sfi

;(
16 4

':
I
.',
^ :t
' ^
LINK AREA

:
H I
I

,
J

IV

t ^I5H

O "f>

LINK
A UK A

^''/-W 4000 400F

4008 ;tWi --
-\

…
-

- -

M ^ •
I
-.-=..

-.1
13
\t

\|

--- -
V -

V -.1
-----
i I-
•til-
0 11-1-

- - Q33-
31.
liiiii

--
I -..---..•=..---.-•-

- - -- --
-------

--
- -\|
------
-.
8 ------ ------
S(Save)
SYMBOLIC DEBUGGER I
J W ^^
ju',ii .',
,, ,,

'
f;ii

—
-
"

—OC'U
*D "

'' FROM?
IIT/ii
i.V

'' FILENAME?
,
S (Save)

fCRl
" -,
'-

'
r, '
.
: t
"
TO?
"

< 16 4 tfr '4£

4 Hrinvi:
iih-)^

11

-RECORD
"

PLAY
|"1

^'
16

RECORD PLAY - ,
•flT,]!

/DEB"
M S
; I',
3000
, I,
4BFF
^ .', filename " TINY BASIC

TEXT EDITOR W ,
^
ASSEMBLER PASS 4 , RELOCATABLE LOADER S
SYMBOLIC DEBUGGER S I

\xm, 11)1

-
 N

V (Verify)
^
*»V , |AJ'# ^
- ^ " D "

'' FILKN'AMK?
:
V
" ^,
(Verify)

|CR|
^ .
PLAY
^^
^
^
<i£

-PLAY

^"
>£ |',

I ' "0K" ^, ERROR

"

/
-'' S
"TINY BASICZDEB" -
-U

,
^
V '
^^
|
jy? I
" OK "
DIR

RK
s

ORI
EMET
N ft
. ON
CI
M3RG
E8D
.
0
t
T0PI
I

NTAV
vov
BASIC/DEB
4BFF
BASIC/DEB

1E?TINV BASIC/DEB
ING TINY BASIC/DEB

3000

4HKK
"TINY BASICZDEB
 E K

Y (Yank)
^ ^ ^
..
" *L» " Y (Yank) '/
^,
"FILENAME?
'
' ii
"

: :

, 1>I,AY

' -W' ' J

-PLAY
'
S
«•
W ,'
I',
I',

)} II ^ 'tiift
^
|'j

"*TBL" , I
#
'4i
S ^
'' tiirt
I
:
:
m

MACHINE LANGUAGE. RELOCATABLE LOADER ,'

7
'
-
•(

-^ ^,
^
I"

||'.
^ " OK

I
"

"ERROR"
SHIFT irB"REAK|
SYMBOLIC DEBUGGER

.-- ' V

'
MACIIIXK
LANGUAGE
-
OCATAB
LOADER

SYMBOLIC
''
'
I)1':BUGGI£R

' S,

fi'£
V,
fUj'i'

1!;':|
Y
M „ /

ifetli ;
,
#

1) # J ^
.
" *D"

SYMBOLIC DEBUGGER
#

!
(sharp mark)

fljl
'
<yj ^ disable 1 1"1 .
W
enable, disable

enable
f

TJjii - '| |fli

'

''
D " exclamation mark)
f

SYMBOLIC DEBUGGER hi 2

* ( ()T()$12(K) (Hi
(COLD START)
;0'1'0$12«01('1{'
(WARM START)
 )

5 —4 BAS

' ,, BASIC "

;li BASIC SP- 5010i'Jl

'" J"
,
M«
'
|x:>W ^
BASIC
LIMIT
. BASIC
BASIC ',ii

LIMIT

,' M,
Oi
BASIC
. , m
10

.
BASIC

" OVERLAY ERROR

' "
BASIC

, ^
i
,' fT-

fift. BASIC LIMIT K •!(£

LIMIT
'
K«i|

'^ ^ ,,' i

j'
BASIC USR ^
USR 10 '' USR (24064)"

BASIC
I'xl
1 :•'

5FFF
CALL 5K00H

^ 2
RAM20K " i '' LIMIT 24063 " 5E00& '

BASI (' FRKE AREA

1 si{ I I uirr ^ LIMIT 2J0().J

!g

' BASIC7'
< USR BASIC
j;
18 LIMIT 24063
26 LOAD
38 USR<24864>
RUN
P AV
FOUND GAUSS S-R
OADING GAUSS S-R
 5 —5
1 HI

, 11 |'

<=i ASCii
-*

* W,i,'f II

t BASIC

(
1 WH>: (^
 ^^ ^' 11. ^ ^ ,
'
!! «
' t

; £1/ '4£ ^ ^^
', iift ',ii
fl»l " E "
M •
 1

« ^

^
1 1»4^ to i iifii

j l'W Ji:

MAIN SIH-ROUTINE
DSQR
(display square)

START ( START )

|'.

lih—nfti |'.
HL 1)000
,,
J'4 f;Jl«lfift. (• •

ifii • l»4 f'l

W _|'—

CALL
1

=C
ft (
DSQR

&
J4 >

C — C +l

./
 E A 1 1

Z80 ASSEMBLER SP 2101 PAGE 01 **

01 0000
02 0000 APPROACHING SQUARE
03 0000
04 0000 REL 2000H
CHR
05 2000
06 2000 p CHR1: E u 78H iwft CHR2 H
07 2000 p CHR2: E u 5DH CHR3 CD
08 2000 p CHR3: E u 79H CHR4 H
09 2000 p CHR4: E u 1DH CHR5
10 2000 p CHR5: E QQQQQQQ

u 1CH
CHR6: B u 5CH CHR6
11 2000 p
12 2000 p STADR: B u DOOOH RAM Sti

13 2000
14 2000 3E16 3DQ0: A, 16H Wiffi

15 2002 CD0000 E LL PRNT

16 2005 112800 DE, 0028H fuJOIWi , C' 1 i(4to WPi it
17 2008 2100D0 HL. STADR
18 200B 0B01 C.
19 200D 41 3DG1: B. C c raft 1 fl»i

20 200E CD3120 LL DSQR ;K HL)l

21 2011 CD5A20 LL TMDLY
22 2014 23 c HL
23
24
25
2015
2016
2017
19
OC
79 LCLLLLCCIAILCJLDCCJLOJJ DADDDDAANDNDPRDEAPPDRRR
D
c
HL, DE
C
A, C 13
C ,
26 2018 FEOD 13
27
28
29
30
31
201 A
201C
201 F
2020
2023
20P1
110020
IB
CD0000
FE21
E
3DG2: c
LL
NZ.3DG1
DE. 2000H
DE
GETKY
21H
'' "
ifeO . ) hi
GET KEY id

32 2025 CAOOOO Z. MNTR

33 2028 7 A.D
34 2029 B3 E
35 202A 20P3 NZ.3DG2
36 202C 18D2 3DG0
37 202
38 202E SUB ROUTINE
39 202E
40 202 E 3E78 DSQRO: A. CHR1 hiii Wi
41 2030 77 (HL). A
42 2031 23 DSQR: c HL
43 2032 10PA Nz DSQRO
44 2034 3E5D A. CHR2
45 2036 41 B. C
46 2037 1802 +4
47 2039 3E79 DSQR1: A, CHR3
48 203 B 77 (HL), A
49 203C 19 D HL, DE
50 203 D 10PA LLIDLLJLLADLLJLLDDLLJ DDNJDDRDDDJDDRDDEJDDR Nz DSQR1
51 203 P 3E1D A, CHR4
52 2041 41 B, C
53 2042 1802 +4
54 2044 3E78 DSQR2: A. CHR1 iww «a
55 2046 77 (HL), A
56 2047 ZB c HL
57 2048 10PA Nz DSQR2
58 204 A 3E1C A. CHR5
59 204 C 41 B. C
60 204 D 1802 +4
 ( > J

01
02
**
204 F
2051
Z80 ASSEMBLER SP 2101 PAGE 02 **
^ RETURN

03 2052
04 2054
05 2056
06 2058
07 2059
08 205A
09 205A P5 TMDLY: PUSH AF DE 2000H|"I
10 205B D5 PUSH DE
11 205 C 110020 LD DE, 2000H
12 205F 1B DEC DE
13 2060 7A LD A. D
14 2061 B3 OR E
15 2062 20FB JR NZ. -3
16 2064 D1 POP DE
17 2065 F1 POP AF
18 2066 C9 RET
19 2067 END

. '' PRNT" .
" GETKY "

'
ti)(i

; ' ^
£i II
" MNTR "
4i
'&:
'' E , ; " 1
; | 1!« , (
P.15^.l!

PRNT: EQU 0012H

GETKY: EQU 001BH
MNTR: EQU 0000H

55 .
^ 'S 2
Wi
2 ^
I
'lifii

" I) (HL). A"

. 1 ^ 41 . 48U'

CA BLNK
m . mm w
I-

p. 132

.9
 n 1 2

2 ^ Wi SORTING)

;^ '
100 (He*)

RAM

tiift

1 ,: Bi
I

3000*

WiS //:
^
Wi

1
U
nf
- It

n
^ :
M fiij

{
-^
''

'AI

:
(RETRIEVAL)
100 (Hex)

^ « -:
R
M
') -
0000*
I
100 (Hex)

^ - RAM :t5W3000 ^
SORTING DATA OUT
' 1 ' 2 -

START

2A
2

0 3
A
5, 0
(

3 3
3)
0 3

3 3•
A ^ 1
3000
^ [*

3 3' ,3 5 0 2 N
BC
0 2 1 F
0 2, 3 5
F- n 16jtL*lc
1
W

',: liii

:^ CQ

NO
n S BC 0 J>
PASS

' ^ W
|
YES
n * n +
PRNT
PRNTS
LETN
NO—
< n = N

GETKY X YES

t>

.94
 B
D A

** Z80 ASSEMBLER SP- 2101 PAGE 01

01 0000
02 0000 SORTING
03 0000
04 0000 210000 SORTO: HL. RDADR RAM te
05 0003 110030 DE, STADR
06 0006 010F00 BC, BSIZE
07 0009 EDBO I R
08 000B 010F00 BC, BSIZE |n|»c BC ..,

09 OOOE OB c BC
10 000 P DD210030 SORT1: IX, STADR SORTING
11 0013 50 D. B 9 IX
12 0014 59 E, C
13 0015 DD7E00 A, (IX+O)
14 0018 DDBE01 (IX + 1)
15 001 3809 C.S0RT2
16 001 DD6601 LLLLLDLLLLCJLLLIDLOJDLOJ DDDDDEDDDDPRDDDNEDRREDRR

H.(IX + 1)
17 0020 DD7701 (IX + 1),
18 0023 DD7400 (IX+0),H
19 0026 DD23 SORTS: c IX -
M ft**
20 0028 IB c DE
21 0029 7A A. D
22 002A B3 E
23 002 B 20E8 NZ. S0RT1+6
24 002D OB C BC
25 002E 78 A. B
26 002 P Bl C
27 0030 20DD NZ. S0RT1
28 0032
29 0032 HEXA DATA OUT
30 0032
31 0032 3E16 HOUT0: A, 16H I ufti 16H
32 0034 CDOOOO LL PRNT
33 0037 210030 HL. STADR
34 003A 010F00 BC, BSIZE
35 003 D CDOOOO HOUT1: LL PRNTS
36 0040 1602 D.2
37
38
39
0042
0043
0045
AP
ED6F
C630
HOUT2:
RDD
A

A. 30H
^ KM)
HL |
| y.4 ' Acc

40 0047 PE3A 3AH Acc I 0 4] 3 0] (HL)

41 0049 3802 C, DSPLY Tzr

42 004 B C607 A.07H
43 004 D CDOOOO DSPLY: LCLLCLXRACJACDJCIDLOJCCJJ DADDADOLDPRDAERANEDRRAPRP DLC L PRNT
44 0050 15 D '; " PR
45 0051 20EP NZ,HOUT2 NT" CALL
46
47
0053
0056
CDOOOO
23
LL
c
LETNL
HL
SORTING ^^^
48 0057 OB c BC
49
50
51
52
53
54
0058
0059
005A 20E1
78
Bl

005C CDOOOO
005 P PE21
0061 20P9
KEYIN: LL
A.
C
NZ,
GETKY
21H
NZ,
B

KEYIN
HOUT1
^^ " '^
(GOTO MONITOR)
'

55 0063 C30000 MNTR

56 0066
57 0066 DATA
58 0066
59
60
0066 P
0066 P
61 0066 P
RDADR
STADR
BSIZE
E
E
E
QQQ UUU
0000H
3000H
000FH
^ .tP.
' £

//>*
 " S 5

3 24 |!i

"TIMRD
,
(time read)
II

"
,
>IJ
;K ,
,
^
it W " TIMST
/ ,
(time start) " HJ

; 1 ^^ ,' 1',

" '
B$ij , RAM ! i
Cfift

Ufii
(
,
" & ii ' BELL

MAIN
START
3
V < 3 t-jY T ^ ^'
"''
}»

NO ' «/
I. M l Ml-.

Y
" B.V
"
TIMST

" OKTKY 4 ;

:
"
'it " " # "

, ft
"&'

W:
2
'
tfi'

'''
YES

MONITOR I
"
[yes

1
OOfKV

i > , "i SUK-ROUTINE

25 70
START
i'
BELL '
c INTIME'

" " . B !1 TIMRD GETKY

ii-'j;- "$"
t. yj f VMS

MONITOR

,^ |, . UK 1. 1.
YES

MAIN START
0
"' '
TIMST }

TIMRD
GETKY <"< ^ _ «r

BELL Iyks
LETNL
MSG

,
 o

** Z80 ASSEMBLER SP 2101 PAGE 01 **

01 0000
02 OOOO DIGITAL CLOCK
03 OOOO
04
05
OOOO
OOOO
p
p
DTH1
DTHO
D1C1H
D1C3H V RAM
.
i
^,
06 OOOO p DTM1 D1C9H
07 0000 p DTMO D1CBH
08 OOOO p DTS1 EEEEEEER UUUUUUUL

D1D1H
09 0000 p DTSO D1D3H
10 OOOO MNTR OOOOH
11 0000 QQQQQQQE 2000H
12 2000
13
14
15
2000
310020
CDEC20
2003
CD9220
2006
START:
LL
LL
SP. START
MESGO
INTIME
, ^. B,V:«i|

16 CD0521
2009 LL MESG1
17 AF
200C R A fi«
18 200D 47 B. A B<--00 BELL W f

19 200E 110000 DE, OOOOH enable

20
21
2011
2014
CD0000
CDOOOO
E
E CLKO:
LL
LL
TIMST
TIMRD , W( ^ E C
22
23
24
2017
2018
4B
CDOOOO
201B PE21
LL
C.
GETKY
21H
E
" " (21H)
,
25 201D CA0000 Z. MNTR " $ " (24HK
26 2020 PE24 24H BELL WJ {

27 2022 2804 Z, +6
28 2024 0600 B.OH BEL 'J enable
29 2026 180C CLK1
2028 AO D B BELL W B - -FF)
30
31
32
2029 2009
202B 3AC121
NZ.
A.
+11
(PIPPI)
1
|

BELL
, W
diMble),

33 202E 2F L (I'UM'I) 00— FF, FF— 00

34
35
36
202 P 32C121
2032 06FP
2034 CDOOOO E CLK1: LL
(PIPPI ), A
B,PPH
TIMRD
]
, ^
BELL W ') ^ B

37 2037 7B A, E , - W*. * > (1

38 2038 B9
LCCCXLLCCLCCJCJLJAJLCLLCLCJLOJCLLICJLJCLICJLLLLICJ DAAAODDAADAPPPRDRNRDPDDADPRDRRADDNPRDRADNPRDDDDNPR

C 'M
39 2039 28DD Z, CLKO + 4
40 203B 3AC121 A, (PIPPI) (PIPPI) 00 BELL JJ
41 203E B7 A
42 203 F 2003 NZ. +5
43
44
2041 CDOOOO
2044 21D3D1
LL BELL
HL, DTSO ^
.^
" " 1

45 2047 7E A, (HL)
46 2048 3C c A ift 0 10
47 2049 PE2A 2AH
48 204B 2803 Z, CLK2 . Ift (CLR0)
49 204 D 77 JRCLKO: (HL). A 1
50 204E 18C4 CLKO
51 2050 CD1321 CLK2: LL SETZR
52 2053 7E A, (HL)
53 2054 3 c A
" "'
54 2055 FE26 26H 60
55 2057 20P4 NZ, JRCLKO "'' Krh
56 2059 3E20 A.20H
57 205 B 77 (HL). A
58 205 C 21CBD1 HL, DTMO
59 205 P 7E A, (HL)
60
61
62
2060 3C
2061 PE2A
2063 20E8
c A
2AH
NZ, JRCLKO
"' 1 tff J>1
 9
1
1 b 1 & >

Z80 ASSEMBLER SP-2101 PAGE 02

*
01 2065 CD1321 L SETZR «r h 10

02 2068 7E A, (HL)
03 2069 3C c A
04 Z06A FE26 26H " '' 60
05 206C 20DP NZ, JRCLK0 " '' tirhlf
06 206E 3E20 A.20H
07 2070 77 (HL). A
08 2071 21 oDl HL, DTH0
09 2074 7E A, (HL)
10 2075 3C c A
1 2076 E24 TTl TTl r\ A
24 H "" 24
12 2078 200E NZ, CLK3 00
13 207 A 2B HL
14 207B 2B HL CLICJLLLLICJDDLIICJCJCJCIJ
ADNPRDDDDNPREEDNNPRARPRANR

15 207C 7E A. (HL) cccc

16 207D 23 HL
17 207E 23 HL
lo OO TTl TTl
22H
<iUUo NZ, CLK3
o r\ *cUoo
du L SETZR
3
8 JRCLK0
r CLK3: 2AH
o
AO o r^o A
*cUo A
<iD NZ,JRCLK0
O o o /—« /"< T\ 1 O
A
L SETZR
o /™vq in
o4a
rt
C (HL)
tJB JRCLK0+1
oo
27
oo SUB-ROUTINE
O
29
30 2092 21 Dl INTIME: LD HL, DTH1 "., "
" " Wi
•5 2095 DA±20 CALL INPUT i.V

2098 21C9D1 LD HL. DTM1

33 209B CDA120 CALL INPUT
34 209E 21D1D1 LD HL. DTS1
35 20A1
36 20A1 1E02 INPUT E. 02H 2«f

.
10 1

37 20A3 CDC120 L KEYIN E 2

38 20A6 FE21 21H
39 20A8 CA0000 Z. MNTR (21H)
40 20AB PE26 26H " (26H)
4 20AD A0020 Z. START W
(J
'
42 20B0 PE30
43 20B2 38EP
44 20B4 PE3AA
>i TTl TTl 'Z
30H
C.
3AH
INPUT+2 (
0 9 1''4
'
<

^'
LCCJCJCJCJALIIDJR DAPPPPPRPRNDNNERE

20B6 30EB NC. INPUT+2

46 20B8 E62P D 2FH '&
4 f
O
20BA 77 (HL), A V-RAM ,il'^^
A
OBB 23 c HL
4y o "D o do c HL
50 ^OBD ID c E
51 20BE 20E3 NZ, INPUT+2
52 20C0 C9
53 20C1
54
55
20C1
20C3
36EP
CDCE20
KEYIN: LD
CALL
T

(HL),
1KEY
EFH EF ' .'.'.': 1

56 20C6 CO RET NZ
57 20C7 77 LD (HL), A
58 20C8 CDCE20 CALL 1KEY
59 20CB CO RET NZ
60 20CC 18P3 JR KEYIN
 :

** Z80 ASSEMBLER SP- 2101 PAGE 03 *

01 20CE 80 (

02
03
04
20CE 0680
20D0 CD0000
20D3 4P
E
1 KPIY :

LL
B.
GETKY
C.
80H
A
I

Acc
WU
J« W: C . •/

05 20D4 AP R A Wi
06 20D5 3D c A
07 20 D6 20PD NZ -1
08 20 D8 CD0000 E LL GETKY
09 20DB B9 C GETKY
10
11
12
13
20DC 20F2
20DE B7
20DP 2808
E0E1 CD0000
14 20 E4 B7
E
LCLXDJCCJOJCOJORDR DADOERAPRRRARRREJB

LL
NZ,
A
Z.
GETKY
A
+10
1KEY + 2
Acc

Acc
00

00 «
^
15 20E5 20PA NZ. -4 OR C ii. flft Acc
16 20E7 B1 C I Z RETURN
17 C9
20 E8
18 20E910E5 TNT z 1KBY+2
19 20EB C9
20 20EC
21 20EC 111921 MESGO: DE, DATA1 *
22 20EP CD0C21 LL NLMSG
23 20 P2 113P21 DE. DATA2
24 20F5 CD0C21 LL NLMSG
25 20 F8 115D21 LCLCLCLCR DADADADAE DE. DATA3
26 20PB CD0C21 LL NLMSG
27 20FE 117D21 DE, DATA4
28 2101 CD0C21 LL NLMSG
29 2104 C9 T
30
31
32
2105
2105 119B21
2108 CD0C21
MESG1: LD
CALL
DE,DATA5
NLMSG
DATA 5
, ' '
33 210B C9 RET
34
35
36
210C
210C CDOOOO
210F CDOOOO
E
E
NLMSG: CALL
CALL
LETNL
MSG
& .
37 2112 c 9 RET
38 2113
39 2113 3E o SETZR: LD A.20H 29 <

40 2115 77 LD (HL). A 2 A I . tfr

41 2116 2B DEc HL 20 W 10
42 2117 B DEc 1IL
43 2118 2c 9 RET
44 2119
45 2119 DATA
46 2119
47 2119 1611 DATA1 DEPW 1116H 9 l»l '
I'

48 211B 1111 DEFW 1111H llj

49 211D 1111 DEFW 1111H

50 211P 1111 DEFW 1111H
51
52
53
2121 1111
2123 99BEBD9B
2127 BE9220A9
DEFW
DEPM '
1111H
'
54 212B 209CBE9A
55 212F 98208620
56 2133 9E8PA420
57 2137 9CA398A0
58 213B BE9B92
59 213E 0D DEPB 0DH

.9.9
 I | 1

Z80 ASSEMBLER SP 2101 PAGE 04

01 213F
02
03
213P 20202020
2143 20202020
DATA2: DEPM -|
— ^ —
04 2147 D0E0D2E0
05 214B CE202020
06 214P D0E0D2E0
07 2153 CE202020
08 2157 D0E0D2E0
09 215B CE
10 215C 0D DEFB ODH
11 215D
12 215D 20202020 DATA3: DEPM '
13 2161 20202020
14 2165 PD202020
15 2169 PD207920
16 216D PD202020
17 2171 FD207A20
18 2175 FD202020
19 2179 FD207B
20 217C 0D DEFB ODH
21 217D
22 217D 20202020 DATA4: DEFM J I I L _1 I

23 2181 20202020
24 2185 CDE0D1E0
25 2189 DD202020
26 218D CDE0D1E0
27 2191 DD202020
28 2195 CDE0D1E0
29 2199 DD
30 219A 0D DEFB ODH
31 219B
32 219B 1511 DATA5: DEFw 1115H 9 |n|

33 219D 1111 DEFw 1111H II

34 219P 1111 D E Fw 1111H

35 21A1 1111 DEF w 1111H
36 21A3 1111 DE Fw 1111H
37 21A5 A0A0BE92 DEFM ' /
38 21A9 AF20A920
39 21AD 9CBE9A98
40 21B1 20AA3F20
41 21B5 20202020
42 21B9 20202020
43 21BD 202020
44 21C0 0D DEFB ODH
45 21C1
46 21C1 00 PIPPI: DEFB OOH (V f-P

47 21C2 END ••

I , it
' '25 63 80fi" "02 04 20
''

Nil

"
BASIC

PRINT TI$ "

TIS
6W
BASIC W
" TIMRD

6 Nr
"^ DE ,1'

-
I',
>HP:

/7
 ~ /

4 8t 16 ^ ' Ji

010000 (50H)
8«f 16 <
^ 2;1
.
00010100 (14H)

8 '
1
00000100 (04H)
It
U
16
^
^ 00010100 r: 2 1'| 01

8^ ' Ji 4000 4007* 8 1

,- SRL RR

SR RR RR UH RR
^^^ —
'
4000

RR
a X
]-l

b
'
CY]-[

Ji
«
4001

a
J-[CY

X b

CY ( --
i'iii %r
I—

a
b

fift.
1A (
[CYl )
—[

1
4006 ]-l

>:

a
Cy]-[

W (
4007

M - r:
CY]

iiiiW 8tfr 16 ! ca,

8
b 3000,

^•W 40003?
i'
! lie ( c = a X b ) 5000^
2FF8
I

8N, — 16

^
MSB 1.SH a : — MLTPR (3000H)
IS b — tiirtflf

MLTCD (4000H)

^ —
'/tlirtflf

c RSLT (500FH)

iWifti

'
- ^
* 8 ( START )

a, b,

c 16 ,
,;
, a, b
i

GETKY
a a a b
X <40H)

cccccccccccccccc

=C CY = --
1 > NO
YES
» + c
 E
P 6 H ) H "

** Z80 ASSEMBLER SP 2101 PAGE 01

01 0000
02 0000 UNSIGNED 8 BYTES BINARY MULTIPLY
03 0000
04 0000 LOOP: 40H
05 0000 MLTPR: 3000H *
06 0000 MLTCD: 4000H
07 0000 RSLT: 500FH
08 0000 ppppppppp DADR1: D17BH WtfiH'Y.SV 1
09 0000 DADR2: EEEEEEEEER UUUUUUUUUL

D1C6H
10 0000 DADR3: D20AH
11 0000 DADR4: D25BH
12 0000 MNTR: 0000
13 0000 QQQQQQQQQE 2000H
14 2000
15 2000 11C020 START: LD DE. MSSG ii,
16 2003 CD0000 CALL MSG
17 2006 CD6020 CALL DISPO •ft-w ^^;;
18 2009 CDA820 CALL CLR
19 200C 0E40 LD C, LOOP -•
"
lii-it

20 200 PD210040 MULTO: LD IY, MLTCD MUAa X b = c b i

21 2012 0607 LD B.07H 4000)IM 8

ZZ 2014 FDCB003E SRL (IY+O)
23 2018 FD23 INC IY
24 201A FDCB001E RR (IY+O) CF
25 201E 10F8 DJNZ -6 CF= 1 a c '
26 2020 3014 JR NC. MULT2
27 2022 AF XOR A a . b. c IX, IY, HI.
28 2023 LD IX, MLTPR ft
29 2027 210F50 LD HL. RSLT
30 202A 0610 LD B. 10H
31 202 C DD7E07 MULT1: LD A. (IX+7)
32 202 8E ADC A. (HL)
33 2030 77 LD (HL). A
34 2031 DD2B DEC IX
35 2033 2B DEC HL
36 2034 10F6 DJNZ MULT1
37 2036 DD210030 MULT2: LD IX, MLTPR ' i

38 203A 060F LD B. OPH

39 203C DDCB0726 SLA (IX+7)
40 2040 DD2B DEC IX
41 2042 DDCB0716 RL (IX+7
42 2046 10PB DJNZ
43
44
2048 OD
2049 20C3
DEC
JR
-

C
NZ. MULTO JS ,
^
45 204B LD HL. 5000 » "^Is
46 204E 115BD2 LD DE, DADR4
47 2051 0610 LD B, 10H
48 2053 CD8820 CALL DISP1+2
49 2056 CDOOOO E 1KEYG: CALL GETKY GET KEY
50 2059 PE21 CP 21H
51 205B CAOOOO JP Z. MNTR
52 205E 18F6 JR 1KEYG
53 2060
54 2060 SUB- ROUTINE
55 2060
56 2060 210030 DISPO: LD HL. MLTPR Jt» :
57 2063 117BD1 LD DE,DADR1
58 2066 CD8620 cA L DISPl
59 2069 210040 LD HL, MLTCD
60 206C 11C6D1 LD DE, DADR2
 5 A X

* Z80 ASSEMBLER SP 2101 PAGE 02 **

01 206P A. 6DH 4DH
02 2071 12 (DE), A
03 2072 13 c DE
04 2073 13 c DE
05 2074 13 c DE
06 2075 13 c DE
07 2076 13 c DE
08 2077 CD8620 LLIIIIICLLLLIDR DDNNNNNADDDDNJE L DISP1
09 207A 110AD2 DE, DADR3
10 207 D
11
12 2081
3E78
207P 0622
12
A,
B.
78H
22H
(DE). A
— 78H

13 2082 13 DE
14 2083 10FC CNT -Z
15 2085 C9
16 2086
17 2086
18 2086 0608 DISP1: LD 08H HL '
19 2088
20 2089
7E
23
LD
INC
B.
A.
HL
(HL)
DE ,
4£

V-RAM
1

A
* ,
21 208A 4P LD C. A
ZZ 208B CD9520 CALL DISP2
23 208E 79 LD A, C
24 208F CD9920 CALL DISP3
25 2092 10P4 DJNZ DISP1+2
26 2094 C9 RET
27 2095
28 2095
29 2095 IP DISP2: RRA
30 2096 IF RRA
31 2097 IP RRA
32 2098 IF RRA
33 2099 E60F DISP3: AND OFH
34 209B FEOA CP OAH
35 209D 3004 JR NC. +6
36 209P C620 ADD A.20H 2 «rW '&
37 20A1 1802 JR +4
38 20A3 D609 SUB 09H
39 20A5 12 LD (DB), A
40 20A6 13 INC DE
41 20A7 C9 RET
42 20A8
43 20A8
44 20A8 DD210030 LD IX. MLTPR 2FF8 -2 *
45 20AC 0608 LD B. 08H 5000 ~ 500 iff

46 20AE AF XOR A
47 20AF DD77FF LD ( IX-1).
48 20B2 DD2B DEC IX
49 20B4 10P9 DJNZ -

50 20B6 210F50 LD HL. RSLT

51 20B9 0610 LD B.10H
52 20BB 77 LD (HL), A
53 20BC 2B DEC HL
54 20BD 10PC DJNZ Z
55 20BP C9 RET
56 20C0
57 20C0 MESSAGE DATA
58
59
60
20C0
20C0 16
20C1 1111
MSSG: DEPB
DBFW
16H
1111H J
, :;K
' f«

.
 f

** Z80 ASSEMBLER SP 2101 PAGE 03 *

01 20C3 1313 DEPW 1313H

02 20C5 554E DEPW 4E55H
03 20C7 5349 DEPW 4953H
04 20C9 474E DEPW 4E47H
05 20CB 4544 DEPW 4445H •UNSIGNK1) 8 BYTKS HINARY
06 20CD 2038 L)WW 3820H MlI.ril'I.Y'
07 20CF 2042 DEFW 4220H
08
09
10
20D1
20D3
20D5
5954
4553
2042
DEFW
DEPW
DEFW
5459H
5345H
4220H
DEFM III -- :: "
11 20D7 494E DEPW 4E49H
12 20D9 4152 DEFW 5241H
13 20DB 5920 DEPW 2059H
14 20DD 4D55 DEFW 554DH
15 20DP 4C54 DEPW 544CH
16 20E1 4950 DEPW 5049H
17 20E3 4C*59 DEPW 594CH
18 20E5 0D DEPB OD
19 20E6 END

" MS ( " ,
" ( KTKY '

'

4000 8 ' W
:
(memory Write) *W 3000 8

'/
''
ftfiK
GETL" « 1 :••

!( *: ^
! 10 10 4 IlijiiiiP:

,
 M T

5 2 16 ;/i^ HL 16 4^,
16 ^
, liij
16_I1E 2 Yuii'\^

1 flAI

6 Mi
' r
f'',:
4 •',
1 3 jijj

(All. 1HKXO (4hexa data out) HL ^

(ALL PS2HX
I

CALL 2HP:X()
PS4HX (print space, 4hexa data out)

(2hexa data out)

(print space, 2hexa data out)

Acc ^ HL

Acc I
,
CALL 1IIKXO ( lhexa data out) Acc f;,:4 .., |'
1 PS1HX (print space, lhexa data out) Acc R4 .., 1
r

/': |»1.;11 " 4HEXO" " 2HEXO 2 In] CALL " 2HKXO "
,
1HEXO" 2 |"| CALL

S-R PS1IIX S-R PS2HX S-R I»S1H\

START START START
C c
CALL I>R\TS ( CALL I'KNTS

S-R HIKXO S-K 2IIKXO

STARS START

Acc - PUS I AK

CA 2HEXO Acc 4|"Ui

Acc *-
Acc- Acc OKH
CALL !'K\

CA 2HEXO CA 1HEXO
( RKTURN )
.

RKTURN

Acc — Acc OFH

CALL 1HEXO

RKTURN
 B
D
P
A
E
F 1

HEXA DATA OUT SUB-ROUTINE

** Z80 ASSEMBLER SP- 2101 PAGE 01

01 0000
02 0000 4 HEXA DATA OUT (DESTROYED: A)
03 0000 CALL 4HEX0
04 0000 CALL PS4HX (PRINT SPACE)
05 0000
06 0000 PS4HX: ENT
07 0000 F5 PUSH AP
08 0001 CDOOOO CALL PRNTS
09 0004 Fl POP AF
10 0005 4HEXO: ENT
11 7C
0005 LD A. H H. L Acc 2HEX0
12 CD1300
0006 CALL 2HEXO CALL
13 7D
0009 LD A. L
14 OOOA CD1300 CALL 2HEX0
15 000 C9 RET
16 OOOE SKP 2

19 OOOE
20 OOOE Z HEXA DATA OUT DESTROYED ( : A)
21 OOOE CALL 2HEXO
ZZ OOOE CALL PS2HX
23 OOOE
24 OOOE PS2HX: ENT
25 OOOE F5 PUSH AF
26 000 CDOOOO E CALL PRNTS
27 0012 PI POP AF
28 0013 2HEXO: ENT
29
30
31
0013
0014
0015
F5
OF
OF
PUSH
RRCA
RRCA
AP
Acc I
r 4 M '
RRCA
32 0016 OP RRCA C Y

33 0017 OF RRCA Acc

34 0018 E60P AND OFH Acc 4 2 [•!

35 001 CD2900 CALL 1HEXO CALL 1HEXO

36 001 Fl POP AP
37 001 E60P AND OFH
38 0020 CD2900 CALL 1HEXO
39 0023 C9 RET
40 0024 SKP 2

43 0024
44 0024 HEXA DATA OUT (DESTROYED: A)
45 0024 CALL 1HEXO
46 0024 CALL PS1HX
47 0024
48 0024 PS1HX: T
49 0024 F5 sH AP
50 0025 CDOOOO E LL PRNTS
51 0028 F p AF
52 0029 1HEXO: T
53 0029 P ER^ OAH
54 002 3oo6 EPCPECJACRAJE NUAONPRDAEDRN NC, HXT1
55 002 c6 o D A. 30H 0 '
c D^ o
9 30 ft'i":
56 002 E HXT0: LL PRNT
57 0032 c9 ^ T
58 0033 C 637 HXT1 D A. 37H A F 37 ;
59 0035 8 P8 HXT0
60 0037 D
7 Ji)j " 1»RNTS " PRNT '

',i£
 11 " >

16
16

«U'A
!(
16 ^ 1,

'
2,
"
4 ^ " '/:
' ^ ft '

*
.,.

Z
I ||-.

; K ;K & 2j!li '

i
,; 6

CALL GET4K (get 4hexa data) HL 16 4 tir

CALL l'SG.'lK (print space, get 4hexa data) Ji'" HL '# 16 4

CALL ( KT2K (get 2hexa data) Acccn ^ 16 2 t )1

CALL PS ( 2K (print space, get 2hexa data) Ace U 16 2 tff

CA ( i:TlK <Ket lhexa data) Acc R4 16 1

CALL PS(J1K (print space, get lhexa (lata) Acc ',:4 16 1 tir JJ

2 |»| CALL
CALL
:
"GET1K "
GKT "
" GET4K

CALL
" (i " GET2K
;>4
" 2|"ICALL
'' " GET2K " '' GET1K "
GETKY "
S-R PSG4K S-K PSG2K S-K PS ( IK
START I START START

CALL I'RNTS - i

)
:AI I'RNTS CALL CKNTS

S-R ( KT1K S-R ( KT2K S-R ( KT1K

START ( START START

CAL GET2K CAM. GET1K CALL ( KT

YKS YKS
ZF 1

KKTl'UN KKTURN y.y -

i

H — Acc Acc 4|ii|/ :

CA GET2K 1 Arc
CALL PRNT ( RKTl*HN

y.y l
Y KS CALL GKTIK
'&
 D «

'' GET" ^.
1
2 «: ^
'' 1

GETKY" HI ' Ji
.'.'.':

1 Acc

V-RAM

'' .
I
)lfii

V- BlankU'';. (E002 7 V- BLANK ON

VBLNK"
';": 16 ft '' ALPHA "

S-K ( KT S-H WINK

START START '
C iti 3
CA A PHA ^^^- - .'.'.':

"
E "
1-0
CALL WINK
CALL VB NK
1
> P.136
CA GTOO CALL SADR
" SADR" V- RAM f,',:;
':

CALL GETKY
—
—.'.'.':
?:
P: ?.;
RETURN
HL
NO
L^cT " O"
YES RETURN
CALL GTOO

S-K VHLNK
CALL GETKY

~<T' o
1
" ^;
.\()

CAL SADR

( RETURN )
 B
A
D
P
C * B

GET HEXA DATA SUB-ROUTINE

* Z80 ASSEMBLER SP 2101 PAGE 01

01 0000
02 0000 GET 4 CHARACTER (DESTROYED: A,H,L)
03 0000 CALL GBT4K
04 0000 CALL PSG4K
05 0000 EXIT:HL< XXXX X:HEXA
06 0000
07 0000 PSG4K: ENT
08 0000 P5 PUSH AP
09 0001 CDOOOO E CALL PRNTS
10 0004 PI POP AF
11 0005 GET4K: ENT
12 0005 CD1500 CALL GET2K " GET2K " 2 CALL
13 0008 C8 RET Z
14 0009 67 LD H, A
15 000A CD1500 CALL GET2K
16 000 D C8 RET Z
17 000 E 6F LD L. A
18 000 P C9 RET
19 0010 SKP 2

ZZ 0010
23 0010 GET 2 CHARACTER DESTROYED ( :
A)
24 0010 CALL GET2K
25 0010 CALL PSG2K
26 0010 EXIT: A< XX X:HEXA
27 0010
28 0010 PSG2K: ENT
29 0010 P5 PUSH AP
30 0011 CDOOOO E CALL PRNTS
31 0014 PI POP AP
32 0015 GET2K: ENT
33 0015 CD2B00 CALL GET1K " GET1K " Acc OX
34 0018 C8 RET Z 4 |"| :
35 0019 07 RLCA X0 Acc
36 001 07 RLCA
37 001 07 RLCA
38 001 07 RLCA
39 001 C5 PUSH BC
40 001E 47 LD B. A
41 001 CD2B00 CALL GET1K GET1K"
42 0022 2802 JR Z. + 4 Acc 0X
43 0024 BO OR B OR Acc
0025 INC B
44
45
46
0026
0027
04
CI
C9
POP
RET
BC B
XX
Z
..,

' y
INC

47 0028 SKP

50 0028
51 0028 GET CHARACTER (DESTROYED: A)
52 0028 CALL GET1K
53 0028 CALL PSG1K
54 0028 EXIT A< OX X:HEXA
55 0028
56 0028 PSG1K: ENT
57 0028 CDOOOO E c A LL PRNTS
58 002 B GET1K: ENT
59 002 B CD5C00 cALL GET
60 002 E PEOD cp ODH "I

|
^
 C
P
D : 1

** Z80 ASSEMBLER SP-2101 PAGE 02 **

01 0030 C8 HhVV Z |CRl
02 0031 PE66 CP 66H Z
03 0033 C8 RET Z RETURN
04 0034 P5 PUSH AP
05 0035 PE30 CP 30H
06 0037 381D JR C, GGG2 16
07 0039 FE3A CP 3AH "MJW ,
08 003B 3008 JR NC, GGGO 2 jtt
09 003 D CD0000 E CALL PRNT Acc
10 0040 Fl POP AF 4
11 0041 D630 SUB 30H v
12 0043 180E JR GGG1
13 0045 FK41 GGGO: CP 41H
14 0047 380D JR C. GGG2
15 0049 FE47 CP 47H
16 004 B 3009 JR NC.GGG2
17 004 D CDOOOO E CALL PRNT
18 0050 Fl POP AP
19 0051 D637 SUB 37H
20 0053 PEPO GGG1 CP POH ;ZP< 0 Z -.,
21 0055 C9 RET RETURN
POP ILLEGAL KEY HERE
22
23
24
25
0056
0057
005 A
005C
Fl
CDOOOO
18CP
E
GGG2:
CALL
JR
SKP
AP
BELL
GET1K
Z
; 16;|£

BELL ,
28 005C
29 005C CURSOR WINK AND GETKEY
30 005C CALL GET
31 005 C EXIT:A< ASCI I
32 005
33 005 C GET: ENT
34 005C D5 PUSH DE
35 005 E5 PUSH HL
36 005E CD8800 CALL ALPHA
37 0061 CD9200 CALL WINK
38 0064 CD9E00 CALL GTOO
39 0067 CDOOOO E CALL GETKY
40 006A B7 OR A
41 006B 20F7 JR NZ. 7 -

42 006 D CD9E00 CALL GTOO

43 0070 CDOOOO E CALL GETKY
44 0073 B7 OR A
45 0074 28F7 JR Z. -7
46 0076 CDCDOO CALL SADR
47 0079 3600 LD (HL). OH : DELETE CURSOR
48 007 B P5 PUSH AF
49 007 112003 LD DE. OOODH TIME DELAY
50 007 IB DEC DE
51 0080 7A LD A, D
52 0081 B3 OR E
53 0082 20PB JR NZ, -3
54 0084 PI POP AP
55 0085 El POP HL
56 0086 Dl POP DE
57 0087 C9 RET
58 0088 SKP

/'
 ** Z80 ASSEMBLER SP 2101 PAGE 03
01 0088 ALPHA: E T FIX ALPHA MODE
02 0088 3E05 L A.05H
03 008A 320000 E L (KANST). A
04 008 D AP X R NDDODEK A
05 008E 320000 E L (KANAF). A
06 0091 C9 R TP
07 0092 s 2

10 0092 WINK: T
11 0092 AP R A
12 0093 320000 E (KEYPA), A
13 0096 21E500 HL, WRKO
14 0099 77 (HL), A
15 009A 2P L
16 009B 320000 P (KEYPA). A
17 009E GTOO: T
18 009 E 3A0000 K A. (KEYPC)
19 00A1 07 c
20 00 AZ 07 c
21 00A3 3813 C. GT02
22 00A5 7E A. (HL)
23 00A6 OP c
24 00A7 D8 T C
25 00A8 3EEP EXLLLCLELRRJLRRLCECLELXLRLRRXJS NODDDPDNDLLRDREDAXADXDODEDREORK
A.EFH ;A<— CURSOL PATTERN
26 OOAA CDBEOO GT01: L VBLNK
27 OOAD EB DE. HL
28 OOAE CDCDOO L SADR
29 00B1 77 (HL). A
30 00B2 EB DE, HL
31 00B3 7E A, (HL) (COMPLEMENT STATUS
32 00B4 EE01 R 01H
33 00B6 77 (HL). A
34 00B7 C9 T
35 00B8 7E GT02: A. (HL)
36 00B9 OP
37 OOBA DO CTR NC
38 OOBB AP A ;A<— SPACE PATTERN
39 OOBC 18EC GT01
40 OOBE p Z

43 OOBE VBLNK: ENT

44 OOBE F5 PUSH AF
45 OOBF 3A0000 E LD A, (KEYPC) V-BLANK CHECK
46 00C2 07 RLCA
47 00C3 30FA JR NC, 4
48 00C5 3A0000 E LD A, (KEYPC)
49 00C8 07 RLCA
50 00C9 38FA JR C. -4
51 OOCB PI POP AF
52 OOCC C9 RET
53 OOCD SKP H

///
 ** Z80 ASSEMBLER SP-2101 PAGE 04
01 OOCD T
02 OOCD 2A0000 E HL, (DSPXY) COMPUTE SCREEN ADR.
03 00D0 C5 s BC
04 00D1 D5 s DE
05 00 D2 E5 s HL
06 00D3 CI BC
07 00 D4 112800 p DE, 28H
08 00D7 21D8CF HL. CFD8H
09 OODA 19 ELPPPPLLADJLAPPRS NDUUUODDDEPDDOOEK HL, DE
DC
10 OODB 05 B
11 OODC F2DA00 P. 2
12 OODP 0600 B.OH
13 00E1 09 D HL. BC
14 00 E2 Dl p DE
15 00E3 CI p BC
16 00 E4 C9 T
17 00E5 p 2

20 00E5 WI^KO: ENT

21 00E5 00 DEFB OH
22 00E6 END

W ' ,
PUNTS (print space) 000CH
l'RNT (print accumulator) 0012H
KELL (bell) 003EH
(iKTKY (get key) 001 BH

I
0 &
KKYPA (key port A) K000H
KKYPC (key port ) K002H

^,
KANAF (kana flag) 1170H
(display X-Y) 117111

W '
DELETE
GET4K
- 16 ( W?K

3A fif

liij A B '& ^^, [PELl 1 A delete

//
 ) 1 i

7 ^
MACHINE LANGUAGE
16

M
,
' llj '' M
| J'
"

'

. j II M ,
'
M
M

. ,;;!: Vii .
#
1 flA|

|
. 16

f.V
4 Hr)
'

MKMORY 1)1 MT
START
B«-8
^

CALL N
A,',.'

[] CALL PRNT
[

CAI.I. I'S ( 4K

YES
< ~< ZF=

EX DE, HL S-H ( O.MI'H

START
CAI.I. S(:4K c 3
fix ~
YKS
v.v
C

YKS

V.V -
1

VKS
Q<~<T CF = 1 \()

408@
,'.M 4037 KX UK. HI. CF«-1
4000 3E 16 CD 12 90 06 0A 21
4608 61 40 5E 23 56 23 ED A0 -
4810 CD 42 40 16 F5 CD IB 00 2
4818 FE 31 20 F9 CD 4B 40 21
4820 6Pi D2 36 35 CD 42 48 3 CALL NL KKTURN
4828 90
4038 C7
11 28
28 EF
00 ED
CD 4B
52
48
7E FE
36 08
J
/I CALL 4HKXO

//J
 P
C * - 4

Z80 ASSEMBLER SP 2101 PAGE 01 **

01 0000
02 0000 MEMORY DUMP
03 0000 M START
:

04 0000 GOTO MONITOR

05 0000
06
07
08
09
0000
0000
0003
0005
CDOOOO
3ESP
CDOOOO
E
E
MEMRY ENT
CALL
LD
CALL
NL
A. 2FH
PRNT
^
ikU slash " / 1

10
11
12
13
0008 CDOOOO
000B PE21
OOOD CAOOOO
0010 PE4D
E
E
CALL
CP
JP
CP
GET
21H
4DH
Z, MNTR M
'

"
' .,
14 0012 2805 JR Z, +7
15 0014 CDOOOO K MEMRO CALL BELL
16 0017 18E7 JR MEMRY
17
18
0019
001
CDOOOO
CDOOOO
E
E
CALL
CALL
JR
PRNT
PSG4K ''
-
19
20
21
001
0021
0022
28P3
EB
CDOOOO E
EX
CALL
Zj,

HL
TN TTl
DE.
PSG4K
MiliMRO
TT T
, 16

ZZ
23
0025
0027
28ED
CD4300
JR
CALL
Z. MEMRO
COMPR
'
24 002 A 38E8 JR C, MEMRO
25 002 C EB EX DE. HL
26 002 D CDOOOO E MEMR1 CALL NL /^:;
27 0030 CDOOOO E CALL 4HEXO
28 0033 0608 LD B,8 1 8
Z9 0035 7E MEMR2 LD A, (HL)
30 0036 CDOOOO E CALL PS2HX
31 0039 CD4300 CALL COMPR
32 003C 28C2 JR Z. MEMRO
33 003E 23 INC HL
34 003 P 10P4 DJNZ MEMR2
35 0041 18EA JR MEMR1
36 0043 SKP H

COMPARE SUB-ROUTINE

** Z80 ASSEMBLER SP- 2101 PAGE 02

01 0043
02 0043 COMPARE DE. HL DESTROYED ( A)
03 0043 CALL COMPR
04 0043 EXIT:DE = HL Z =l
05 0043 DE>HL C=l
06 0043
07 0043 COMPR: ENT
08 0043 7c LD A H DE HL l«ftZ
09 0044 92 SUB D RETURN
10 0045 co RET N DE>HL .'/
11 0046 7D LD A L RETURN
12 0047 93 SUB E
13
14
0048
0049
c9

ET
RET
END

(cursor wink and get key)

- ^ ^,
6
I'S(;4K (print space, get 4 hexa data) 6
4HEXO (4 hexa data out) mm 5
I'S2HX (print space, 2 hexa data out) 5
 1 1

'
8 ^I'ili. W

^' ',ii 1
16 2 ;

*
' w

W
GET4K
mem<"-yw'Hte)
^,
<16_iE 4 H
16
^
2tif

fV

W |"^]

MKMOKY WKITK
I START )
1 ) >
1

CALL NL f
l^l ^ )
)

/u 4070
4979 41 38 42 33 43 35 44 38 slash '"
4677 45 31
CALL GET

YES

MONITOK
0>

CALL PRNT

CALL PSG4H

' YKS

H-

CALL N

CALL 4HIiXO

(HL»< Acc

H — HL 4

//.
 P X

Z80 ASSEMBLER SP- 2101 PAGE 01

w
02 QOOO MEMORY WRITE
03 oooo W:START
04 oooo :GOTO MONITOR
05 oooo
06 oooo WRITE-
• ~ j i ENT
~p*
j

07 oooo CDOOOO CALL NL slash" / " (2FH) ;!V

08 0003 3E2F LD A, 2FH
09 0005 CDOOOO E CALL PRNT
10 0008 CDOOOO E CALL GET
11 000 B PE21 CP 21H " " (21H)
12 000 D CA0000 E JP Z. MNTR . "W" (57H)
13 0010 FE57 CP 57H
14 0012 2805 JR Z, +7
15 0014 CD3E00 WRITEO: CALL BELL
16 0017 18B7 JR WRITE
CALL

^
17 0019 CDOOOO E PRNT Memory Write
18 001C CDOOOO E CALL PSG4K
19 001 28P3 JR Z. WRITEO
20
21
0021
0023
0608
CDOOOO
WRITE1: LD
CALL
B,8
NL
^ 1

Memory Write
8

ZZ 0026 CDOOOO E CALL 4HEXO "-

23 0029 CDOOOO E WRITES: CALL PSG2K W [CRl

24 002 C 28E6 JR Z, WRITEO
25 002 E 77 LD (HL). A
26 002 P 23 INC HL
27 0030 10P7 DJNZ WRITES
28 0032 18ED JR WRITE1
29 0034 SKP H

- ,
uET (cursor wink and get key) mm 6
I'Sd IK ( print space, get 4 hcxa data)

4HEXO (4 hexa data out) mm 5

I'S ( 2K (print space, get 2 hexa data) 6

'' NL". " PRNT" , ', iij^

' ,
':
W

G
,:^
GET4K
|W M Hi

^ 'J^j' (Program Count er :PC

XXX memorv write

/'

ZG
/
M XX XX Y Y Y Y memory dump
goto XXXX
goto monitor
-
•OOOOfffWl
XXXX ,
MAIN SUB- ROUTINE 2
 I

9
-
ffr'ii

3000 '' ,3009

' '
'
if iu 1 .

'
, •:

; TiT^'li',: , ji -)
L(List)

I-. . ''
' CD " 3 ^ ' M
"
AF "
T(r

1 ' ^; •
>
1
:
,
(•JU.
Z 80
DJNZ)
8080ACHJ
DD, ED. FD «f:
. '
.

^ . ^
^.
1

.
5ffi

' 1.
i,

'
,
6W«i
•

'' r "

1 f'fiWi
. 3 .. 7flA|
,

"00—
.
r— 110"
-,

HL)
JUifi f.V
2
8fl*i

^,H'8flA|
flrlf

iTfr

LD B,n LD C,n LD D,n LD E,n

I.I) H,n LD L.n I.I) A.n LD (HL),n

 hU!f « JR, DJNZ 2 W

^"
JR DJNZ Ik

^
m!&
,' I',

^ 6
LKJK1XT' (LOOK
flW
JR, DJNZ TABLE)
" JKDJT" (Z80 JR,
JR,

DJNZ TABLE)
DJNZilfr

YES

Jl.
>

:
2 iljrfr

|-
JR,

^
DJNZ
^
,, njft"

titfi
iWK
DD
^ ED, FD
8080ACPU
Z80CPU
|"| Z80CPU

liij r>, 8080A ^

^ ^ O " L(>OKl
'' " (LOOK UP 8080/Z80 TABLE) '' 8080T "

(8080
LE *
TABLE)
^ ( JR. DJNZ
O
'
"

T 4
" Z80TB " (Z80 TABLE)
" LOOK1 " JUili
* TAB

—
3

.\()

' 1 "II II

C
TABLE ' f TABLE 2

. 1 ' ; "!
i

•—
i(M>>: JWlfi 1 '
. '' u

WWi

06H
liij"

; XOK ;
00<

JR.
r ->110"

JUiflfH;

C7H
C7H AND
2
06H
8080
1

;?,:
MVI

; Mi
I

00H
^
" r
•
— " '
8080 TABLE

XXH
XXH
0
 O
G
y
u A
o
l H i XiA
i n W ur f , l

* Z80 ASSEMBLER SP 2101 PAGE 01 **

01 0000
02 0000 MEMORY LIST
03 0000 •
,
T START J-i
•
.

04 0000 GOTO MONITOR

1 .

05 oooo
Uo (JUUL) T
J_i T QT. 1 -

U r\r\r\c\
ODUUUU ,
hi r* AA T l_i T
J_i IN i_t
r\c\
Uo 0003 3E2P T Tl
J\ , fCr rl liXfj U, slash Z
09 000 CD0000 E /"•ATT
L/ A -Li J_i IM T *
0D0000 TTI
Hi O r\A T
r~»
I-j T
J_i Or £U L * J
i
11 000B Ir
p T tJ
<c < AI l_ y
12 000D A0000 E TP
13 0010 PE4C v_/ n
14 «J
D
T rv t
'

15 0014 CD0000 K T T Q rp/-\ . r»

AA T T "RTTT T
OU 7 1
' J rv.
J_J J_J

T T
DTD TVT rp
Qrp
17 0019 D0000 E AA T T
J_( J_l

18 00 1C CD0000 TTI
v. r\ I_i J_i LIFTING '
f j

r\r\ i tti
oTTD
rt 7 T T QTipi J f o I CR 1
1 1
! e 'Ai

<.U
r\r\ o ' i A Hi XT i_i
i I ' • o
O1 o o CD0000
r\r\
0022 TTI
V, CALL PSG4K
oo 0025 JR Z, LIST0
<23 ODUUUU El LIST1: p
V_>
A T T
1-1 J_l \J Hi IV I 1
o ACt
t Ty i*r jL/>. i-io in\f
'ill /•* 2L
UU<- *c

PR
\J\Jt^ Hi
pni r
V-> Hi
TR
pAT T
J_i i_i
1ST "7,

V_J Hj
T T

IV I
ST S 1
1
(• 7) f .) "
or?
(J (Jo Jr> / OR AA
OQ
<:cS *cUH A TR TSJ7 A
|CR "1

or^ *Z A
JJUUUU T T TP •
W /\
r» A T T
J_J J_J W
oU UUo f HP GDH
o uuoy o r^n 7,
Z_l ,
T
J t
T kJ
C!

'£ /•
-7 i ,
i

do n
<-7
oo UUoL) O Q "PvR TR <7 q*pn
UUor r ili/cU on w SK\CK .'. 1.1STI.\(,
OO
.s
r\r\A

0043
i

Al
Dr
D
JT R
K
A J_i J_>
M "7
Vi £j

O v_/ tvi Ir
,
T
J_i
T

rV
QT ^
O 1

^^ v- -

O f 004b 68 O , J_i o
V
OO (J
0040 DOOOO i,i
il
O A T T lSJT

o9 004 B C ^\ C TTI *Z t
A. A A. A W Hi

,
V ^ , J-'

T
4U
/«c\
004 F #c<c(JoUl 1
i_> L> \ x i i i nj_>
41 0052 EB rp y
42 0053 CD0000 P A T T
J_i J_j *± ii Hi

43 OOob 0C501 T LJ
J_» D BYTE 1

44 / r h (J(J
T T\ II
JR,
11 f
DJNZ k >

, ^ LI ,

45 005B CDB900 /
r A\ Tl_i TJ_i
1

7 TA
46 005E #co4b J K T T C? 1

T Tk
47 0060 79 J-iL> A,
48 '
49C\
FHjDD xn tti t-v t-\
Jr U U ii DD, ED, FD i

50 0064 282 D TR T . T 5=5 TP Z80TABLE ,

51 0066 PEED EDH
52 0068 2809 TR /-i ,
T,TST55o
J_i J. «-/

53 006 A PEPD CP
54 006C oooc JR Z. LIST2
bo LD HL.8080T M H'V ( • 8080 A I ABLK ,
!'
OD 0071 T OOC JR LIST3
R
D f LIST55 INC B
58 0074 13 INC DE
59 0075 1A LD A. (DE)
FE46 CP 46H ED '
60
61
62
0076
0078 CA9100
007B FE56
JP
CP
Z.
56H
LIST66 . DD, FD ^^ W 2 ''

63 007 D CA9100 JP Z. LIST66

64 0080 PE5E CP 5EH
65 0082 CA9100 JP Z. LIST66
66 PE72 CP 72H

/
 E
1

** Z80 ASSEMBLER SP 2101 PAGE 02 **

0087 CA9100 JP Z. LIST66
01
02
03
008A PE73
008C 2007
CP
JR
73H
NZ, LIST3-3
ED73 ' ^ 4''

04 008 E 0604 LD B. 4
05 0090 B7 LIST66: OR A
06 0091 1813 JR LIST5
DD, ED, FD -
^—
07 0093 04 LIST2: INC B
08 0094 13 INC DE ' J, 1

09 0095 21EA00 LD HL. Z80TB ii .

'
h .UJH;

10 0098 CDC500 LIST3: CALL L00K1 2 II DE

PEFO CP FOH
11
12
13
14
009B
009D
009F
00A0
2807
79
PE05
JR
LD
CP
Z. LIST5
A.
05H
C (
T ||
|- (— /1_ (j B «~ hi
15 00 A2 3801 JR C. LIST4 f« \- B B + 2

16
17
18
19
20
21
00 A4
00A5
00A6
00A9
OOAD 1A
04
04
CDOOOO
ED5B0601
OOAE CDOOOO
h;

E
LIST4:
LIST5:
LIST6:
INC
INC
CALL
LD
LD
CALL
B
B
PRNTS
DE. (XXXXO)
A,(DE)
2HEXO
,

W!
/,
1

f r
'J

<,J (2H
^IJ '
h XO
'
22 00B1 13 INC DE
23 00B2 10P9 DJNZ LIST6
24 00B4 2A0801 LD HL, (YYYYO)
25 00B7 188E JR LIST1
26 00B9
27 00B9 LOOK JR DJNZ TABLE
28 00B9
29 00B9 LKJRDJ ENT
30 00B9 4B LD C, (HL) C
31 OOBA IB DEC DE
32 OOBB 13 LKJDO: i NC; DE
33 OOBC 1A LD A, (DE) JR. DJNZ
34 OOBD B9 CP C ZF = 1 R
35 OOBE C8 RET Z TURN
36 OOBF FEPO CP POH t Y ZF 0 RETURN
37 00C1 20 F8 JR NZ. LKJDO (Acc FOH " OR A " ZF
38 00C3 B7 OR A '-,

39 00C4 C9 RET
40 00C5
41 00C5 LOOK UP 8080 Z80 TABLE
42 00C5 (DESTROYED: A. C. H, L)
43 00C5 IN HL< TOP ADR OF TBL
44 00C5 DE< OPECODE ADR
45 00C5 CALL LOOK1
46 00C5 EXT A = FO TABLE END
47 00C5 C = DATA# OP TBL
48 00C5
49 00C5 LOOK1: ENT
50 00C5 OEOO LD C.OH C 00
51 00C7 2B DEC HL
52 00C8 23 LKOO: INC HL
53 00C.9OC INC C
54
55
56
OOCA 7E
OOCB FEPO
OOCD C8*
LD
CP
RET
A.
POH
Z
(HL)
C ^ XO
57 OOCE 1A LD A.(DE) R ( !
58 OOCF AE XOR (HL)
59 OODO 23 INC HL AND
60
61
62
00D1 A6
00D2 20 F4
00 D4 C9
AND
JR
RET
(HL)
NZ, LKOO — «
C
W Acc
F 0
 2

** Z80 ASSEMBLER SP 2101 PAGE 03

01 00D5
02 00D5 8080 TABLE
03 00D5
04 00D5 8080T: ENT 8080 A BYTE SIZE
05 00D5 DEPB MVI(2 BYTE)
06 00 D6 DEPB REGISTER MASK
07 00D7 DEPB DIRECT ALU
08 00 D8 DEPB HHHHKHH^ OPERATION MASK
09 00D9 DEPB IN. OUT
OCCCDFCP OCCCDFCP

10 OODA DEFB MASK

11 OODB 6767B7BF
DEFB 6767B7BP

RLC. RRC, BIT. SET

12 00 DC DEFB UNCONDITIONAL
13 OODD
14 OODD
15 OODD 01 DEFB LXI(3 BYTE)
16 OODE CP DEPB REGISTER MASK
17 OODF 22 DEPB F2 STA. LDA. LHLD. SHLD
18 00 EO E7 DEFB MASK
19 00 El C2 DEFB jXX
20 00 E2 C7 DEFB CONDITION MASK
21 00E3 C4 DEFB CXX
DEFB CONDITION MASK
OC2ECCCCCFCPF2

22 00E4 C7
23 00E5 C3 DEPB JMP
24 00E6 FP DEPB UNCONDITIONAL
25 00E7 CD DEPB CALL
26 00E8 PF DEPB 727473FDFO

UNCONDITIONAL
Z7 00 E9 PO DEPB TABLE END
28 OOEA SKP

31 00EA
32 00EA Z80 TABLE
33 00EA
34 00EA Z80TB: Z80 BYTE SIZE
35 00EA 46 (3 BYTE)
36 00EB C7
37 00EC 70
38 00ED F8 EDDDDDDDD NEEEEEEEE TFFFFFFFF HHHHHHH^

39 00EE
BBBBBBBB

86 4C7F8C3F

40 00EF C7
41 00 F0 34
42 00F1 PE 6708674E

43 00 F2
44 00 P2
45 00 F2 36 (4 BYTE)
46 00 F3 PP
47 00 F4 21
48 00F5 PP
49 00 Wfj 2A
50 00 P7 PF 6F1FAF2FBF370

51 00 h'8 22 BBBBBBBBBBBBB HLHFHhHKLhHHH

52 00 F9 FF
DDDDDDDDDDDDDS BEEEEEEEEEEEEK FFFFPFFFPFFFFP

53 OOFA CB 3F2F2F2FCF4CPH

54 OOFB PF
55 OOPC 43
56 OOPD C7
57 OOFE PO TABLE END
58
8080A
OOFP
! ^
TABLE
TAB E DI), ED, FD Z 80 2 1
1

W . iWt ' h 6M(

I i^t

TABLE W
5 f'fi: i

' 1

,
8080A TABLE 0, Z80 TABLE 1

/
 ** Z80 ASSEMBLER SP 2101 PAGE 04
01 00PF
02 00FF Z80 JR, DJNZ TABLE
03 00FF
04 OOPF JRDJT: ENT (2 BYTE)
05 OOFF 1
o DEPB 10 AIM JR, DJNZ
06 0100 8 DEFB 18
07 0101 1o
2 DEFB 20 t
08 0102 2 00 DEFB 28 UH
09 0103 3o DEFB 30 Jr-

10 0104 38 DEFB 38 UH
11 0105 pp DEFB FO
12 0106 SKP 2

15 0106
16 0106
17
18
19
0106
0106
0108
XXXX0:
YYYY0:
ENT
DEFs
ENT 2
U . LIST

20 0108 DEFs 2
21 010A sKp 2

24
25
26
27
28
29
30
31
32
010A
010A
010A
010A
010A
010B
010C
010D
010E
COMPARE
C0MPR: ENT
LD
suB
RET
LD
s uB
DE. HL

A I.H
D
Nz
A L
E
,
DE HL
DE = HL
DE>HL
^* ZF = 1
CF = 1

33 010F RET
'

GET (cursor wink and get key) iH'Mi 6

1'S (. IK (print space, get 4 hexa) 6

4HEXO (4 hexa deta out) mm 5 #.'!«.

211 EXO (2 hexa data out) MM 5 #»«

' 4if< : QU

. ft
1'.
l«J

[ G
M W L G fV

^
Ji

(
Z80 , i i Z 80 l)IS ASSEMBLER
 -
1 0

MZ
fi

"
W

80K
^'
.
MSTA"

,' M
4 II

.
"

.
"
li

MSTP"
)"

:M

|
GETKY "

T ,
f iW

^
Willi

I I
3||

'
,
I',
:

il..
" A "

I. Wi:

.
" f
&

v Esj3

A S D G H J K m n

>
ZZ —
"5"
ZT ^ °
^^ 1

"

&
GETKY " '' MSTA "
'

II
.!i
^
#
175(174.6)
186(185)
2CA4
2A00
i'Vii,

t
l,V|
2

^
MHz 11A1,
ii

W
11A2S
^ 2 '
i,y
« '

9
197(196)
208(207.5)
222(220)
233(233.1)
27A8
2 58
2 3 3

2 187
2

245(246.9) 1 KK 3
261(261.6) IDEE

^ l,VJ
j

1.

?:
^
f<Hz) 2 (MHz) l,V)

W »
#

*
-
277(277.2)
294(293.7)
311(311.1)
329(329.6)
1C34
1A92
1

17BF
9 IE

f- J-'
fV
. ^ '-.
f(

':
.
i ^^ 4t

* '
350(349.2)
373(370)
394(392)
417(415)
1652

cu

444(440) 1198
# 466(466.2) 1OC3
490(493.2) OFF1
S ' 522(523.3) 0EF7
- 553(554.4) 0K2 0
#
590(587.3) 0 1) 3 D
# 621(622.3) 0C94
658(659.3) OBDF
699(698.5) 0B2D
# 745(740) 0A7C
788(784! 09EA

.
 w
G 1

-, ''

F OWCHART
ETKY " Acc

^~
^"
'

'
MUSIC STOP " MSTP
I GOTO MONITOR
Acc< KKY " GKTKV
,'•'•

11A1, llA2fff "MSTA' '

GETKY

— l,VJ

,' ^
W
),'..
SCALE TABLE)
3 ,
Acc
VKS

c MOMTOK
SCALE TAB

I
KEY 1
H — SCALli THL

Acc- (HL)
KEY
SCALE TBL KM)
YKS

SCALE TAB E KEY START

H_ ;' 2 W
11A1, 11 A2{ff
NO
<c A B ^>
SCALE TABLE KEY W_
VKS
(TABLE END II * 111. 2

F0 START W: :' "1>

1

lh (ML)

(11A )' l)K

P
MUSIC START
J

/
 • K

li ^
** Z80 ASSEMBLER SP — 2101 PAGE 01 **
01 0000 p MNTR: 0000H
02 0000 p MSTP: 0047 H
03 0000 p MSTA: EEEES
uuuup

0044H
04 0000 P GETKY: 001BH
05 0000 QQQQK 3

09 0000 CD4700 STARTO: L MSTP

10 0003 CD1B00 START1: L GETKY
11 0006 B7 A
12 0007 28P7 Z. STARTO •'
" ^ -
'
13 0009 FE21 21H
14 000B CAOOOO Z. MNTR
15 000E 47 B. A
16 000P 212B00 HL. SCTBL
17 0012 7E CMPR: A. (HL)
18 0013 PEPO FOH
19 0015 28E9 Z, STARTO
20 0017 23 c HL
21 0018 B8 CCOJCJLLLCJICJIIJLILLCJS AARRPPDDDPRNPRNNRDNDDARK

B
ZZ 0019 2804 Z, +6
23 001B 23
cc
HL
24 001C 23 HL
25 001D 18F3 CMPR
26 001F 5E E. (HL)
27 0020 23 c HL 11 Al. 11A2S W
28 0021 " MSTA "
56 D,(HL)
29 0022 ED53A111 (11A1H). DE
30 0026 CD4400 L MSTA
31 0029 18D8 START1
32 002B P 3

36
37
38
39
002B
002C
002E
002F
41
A42C
57
002A
SCTBL: DEFB
DEFW
DEFB
DEPW
41H
2CA4H
57H
2A00H
—
"

"
L#
A

W
"

"
KEY
KEY
SCALK TAB 'UU

40 0031 53 DEFB 53H " S " KEY

41 0032 A827 DEPW 27A8H
42 0034 45 DEPB 45H " E" KEY
43 0035 8225 DEPW 2582H
44 0037 44 DEFB 44H " D" KEY
45 0038 DEFW 2331H
46 003A 52 DEFB 52H " R" KEY
47 003B 8721 DEPW 2187H —
48 003D 46 DEPB 46H " F" KEY
49 003E E31F DEFW 1FE3H
50 0040 47 DEFB 47H " G" KEY
51 0041 EE1D DEPW 1DEEH K
Y
52 0043 59 DEPB 59H " " KEY
53 0044 341C DEFW 1C34H #
54 0046 48 DEPB 48H " H " KEY
55 0047 921A DEPW 1A92H
56 0049 55 DEPB 55H "
U " KEY
57 004A 1E19 DEFW 191EH #
58 004C 4A DEFB 4AH " J " KEY
59 004D BF17 DEFW 17BFH
60 004P 4B DEFB 4BH "
K " KEY

/-
 Z80 ASSEMBLER SP 2101 PAGE 02
0050 5216 DEPW 1652H
0052 4F DEPB 4FH " o " KEY
0053 P114 DEFW 14P1H #
0055 4C DEPB 4CH " L " KEY
0056 D413 DEPW 13D4H
0058 50 DEFB 50H " p " KEY
OOOOC00001111111111222222222P-33
0059 BC12 DEPW 12BCH #
005B 3B DEFB 3BH " " KEY
005C 9811 DEFW 1198H
005E 3D DEFB 3DH ,
" = " KEY
005F C310 DEFW 10C3H #
0061 FB DEFB FBH " + " KEY
0062 F10P DEPW 0PP1H
0064 E3 DEFB E3H " " KEY
0065 F70E DEFW 0EP7H n
DEPB —" D
1234567890123456789012345678901
0067 P4 F4H " KEY
0068 200E DEFW 0E20H #
006A E2 DEPB E2H " (D " KEY
006B 3D0D DEFW 0D3DH
006 D EC DEFB ECH " " KEY
006 E 940C DEFW 0C94H —#
0070 D7 DEPB D7H "
n " KEY
0071 DPOB DEPW OBDFH
0073 D4
0074 2D0B
DEPB
DEPW
D4H " " KEY
0B2DH n
0076 73 DEFB 73H KEY
0077 7C0A
0079 75
DEFW
DEFB
0A7CH
75H
#
"

"
"

" KEY
007 A EA09 DEFW 09EAH r
007 C FO DEFB POH SCALE TBL END
007 D END

^
^
,'|',

C II, - C

^^
Amoll ,, i J'

' -

^
1 C •/ Amoll ,

iiif i'sii

<>,

' 1
'
|
^^ ,
'' TIMST"
H.H'!j

t:002{f?
( ,'
"TIMRD"
TEMPO
I

—-
111

E002f&
fP. 136 )
I
J CPU ^^ 555(IC1> l,V| 0,1

/Jo'
 7
MZ-80K
I11Z-SQDK
 1

^' fll' '.

|
4
ikHi "

W 1
' " ,: ii

-
'I

" A " t, 16 41 H ''Z"5AH

^,
ACC
^' 11

15H
H ~ 16H
I CALL PRNT ( '
>
'' i r
(
" H
"

.., ' ';•: '' " (87H). '; J A

ASCii
1SI)

LSD

0000 H HI
gs
H
00 0 1
©A Si
H@
aH
HH QyHm
2 00 10 s<

HH sn
3 00 11
4< ffl

4 0 100
Ml
C s
^ In
5 0 10 1
^ SI BnB
0 110 u ra ya
0 111 uH EE
8 1000 n X © n
9 1001 nE Y a Hs
A 10 10 ^H
B 10 11 H K Esau ffi E
C 1100 B \ see H
1) 110 1
m
USD Q
E 3 H
1111 o n-00LJ

/
 1

7—2 '4
=
SP-1002
^^ HI

^
X

161
ft

^^
(16

CALL LETNL
(0006)
'a
1
.
J C m^
t * y Vcr\\
1 J\
V
(r)
' % utiH » w —— ' ' ^ C * 1 7 ^ O
AF
8

( ALL I'KNTS
(OOOC)
iitfiifd ;^ 1 flAI ^^ AF
13

^^
ACC ASCii iin'iifii

ASCii liij

CALL PRNT ' AF

0D 13
(0012)
': 1116

-;S , ;-

de itr,]:

CALL MSG ASCii

13
(0015) 0D
' Ji 11 16

CALL BELL AF
ft: 440Hz> n 5
(003E)

^
i'
fV

(
DE & r
BASIC
,! , ; 8889 1
>j;— W & ,'V
CALL MELDY AF
i4 Wi ASCii % 0D 7
(0030)
C8 )
m c o r, c
IBREAKI
i'K , ffi 01 07) ACC

ACC-HJ1 M
CALL XTEMP ACC— 04 ^
(0041) ACC— 07
«: ACC
7 " ASCii
1 7
31

^
1 ,

37)

CALL MSTA nn' (2

^ & ill

11A1 n', BC, DE

3
(0044) n

IS) ), VI 2MHz/nn

/
 1 8 B

CALL MSTP
(0047)
^, •:

(
AF
1
1

CALL TIM ST
ACO
' ,
v

ACO
AF

DE — 0 (AM), 1 ( I'M)
2

,
('ALL TI.MKI)
ACO ACO-1
AF, DEW
0 (AM), ( I'M)

DE 2

,
:
ll>V |!iJ

["SHIFT + BREAKl
CALL BRKEY I I

AF
Z
(001 K)
Z

.
1

DE
', ii

1001. 1002

CALL (iKTL
(0003)
'; " 0D ^
^
0D

f—
WA:80 '; fr

%<<
15

SHIFT + BREAK DE ,
;
1 |
I |

BK : AK

' ASCii ACC

AF
- U
ACC 00
|
9

CALL (iKTKY GETKY ^^, ACC

(001 H)

"' ' "^ iDELl

ACC ^
^
I
J

nf. ''J- 'JiP ACC iU

'
ACC
SP-1001 SP-1002
DEL C 7 F0 60
INST ( F 0 61
(JKTKY C 9 F 0 62
CA F 0 63
BREAK CB 1 64
CR CD 0 D 66
 f , 1 > ) )

CALL ASC ACC ft 4 16 W_f ASCii '& AF

(Q.3DA) ACC
ACC 8 ASCii WJtt 16 lc

CALL HEX ACC KfA: 4 AF

(03F9) I CF = " 0 " ACC— 16
CF=" 1
" ACC :.
4 flA| ASCii 16 W HL
i *
I)E— ASCii |
CALL H HEX
^ lifi f<ij

!-DK
" 3" "1" "A" " 5" AF, HLli

CF = 0 HL— 16 =
HL 31A5n)
CF=1 HL ;
ai«c 2 flA| ASCii 16 ACC

^
*fr.
CALL 2HEX DE— ASCii fi " 3" " A" AF, DEW
(041 F) CALL 2HEX LE
CF = 0 ACC 16 (m ACC = 3AH)
CF-1 ACC
.'. AF
ACC
ASCii

ACC - ASCiiWi: AF

—
—
CALX ADCN
ACC
ASCii Wi. '—
fl'. ;' ; llj

AF
ACC
(0IJCE)
CALL DACN
ACC — ASCii

CALL BLNK : :
WNij
(0DA6)

j'tfii— J-.
"
CALL DPCT
(0DDC)
ACC

COh
CIh
C2h
o
n
C6ii

C7h
C8h
[CLRj

I
DEL
INST
I
^
C3h b C9h
C4h S CAh
C5hJ [HOME] M
^ :
rt . I
1 ifti \n hl
CALL PONT AF, HLH
CALL PONT
(0FB1)
HL— l
lifti f (
 sp H o i

I ,' |',
S
;
J

. '
'' &
I
Wii ,n
I'RNT (0012H)
'
''

,
' '
K A

MSG (0015H>

, KAM ,:
M

" Uii
U

' m '' •:.

cihc6h
" 9EH), '
hi -; ••/

DISP AY

LSI)
_
i
0 0000 SP n@ ± a
1 000 1
s s < D
2 0 0 1 0
[SB B B D
Bo
3 00 1 1
aHnH N
4 0 100 is B 0Bn Q
5 0 10 1
[E B s^l S n
6 0 110 n a00saa H SB S
w7 s a > K! * s
8 1000 a H sH H KIJ
*
9 100 1
Y 9 aB n K al H 0 K H
A 10 10 u@ B s H ES -K
SS K

B 10 11 n BB
un
C 1100

I) 110 1
E BS o
E 1110 u
F 1111
g
, ) 1

7 —4
MZ- 80K fH; Z80-CPU INT
m INT
1^<,;« '
^
. Hj

(NMI)
1 Ki2

MZ - 80K ' b- 24 - /
1 , K °
W 2 iifi

(1) BAS Tl$

fJi MZ- 80K Ml WI BASIC TI$ , .
,; 8253 * 1 , # 2 U W BASIC WlMf= 0 0
8253 OUT 2
0

, 8253

EST 24

W
M
:
12

,
0

BASIC

^
BASIC INT{,r'J- i'

1 ^'' CPU '2 0038#

, ' Ji

BASIC
0038H*

W
JP 1038H"

INTf,;'';
.
^^; 8253 ',"
1038H
flj |:
,

(2)

SYSTEM PROGRAM |'|

i •>
N—
I— ' , g: l|j

''
Z80-CPU 0 1 , 2

0UT2 ' I
ff, : Willi 8253

' ^ •/

'' EI" ':

,
 - B h c 1 0 4
0
2
3
5 1 I 1I E

—5 EOOOh

EOOOh {fr fVW W 1-0 (Memory Mapped 1-0) ,&

8255 (Programmable Peripheral Interface), 8253 ( Programmable Interval Timer) EOOOh
008h
8255, 8253 ,
D7 D6 Ds D4 Ds D 2 Di Do D? D6 Ds D4 Ds D2 Di Do

0 0 0 0 0 0 1 1 0 1 0 0 2 1 Vii

0 0 0 0 0 0 0 #2
0 0 0 1 0 0 |
IS)
]

8255
>Pa?

PC7
Pao

PC4
8253
CGO LAV
K
TE
T (^ 0
# 2
111)

D? - Do< c H 4
•P ,"
D7-D0 CGO
LT K

Au T
E
( 2 1)

B k ^^8 Pb7- Pi,

CGr
LK
AT K
uT ( ) 2
#0

8255 0 ) 8253

A B D? D( Ds D4 Ds Dz Di Do

D« Da 02 Di 4«- a|,
|(« # - -

('
SCI SCO R I R 0 M2 Ml MO BCD

0 0 0 0 (|', 0 >1 SC SCO

0 0 0 1 , h 0 0 • 0
0 0 0 ;|', >) 2 1'. h 0 1 •

0 0 )i 3 h 1 2

^
•

0 0 0 )} )i 4 11', , h
0 1 0 1 . )> h 5

//
II',

0 1 0 Jj 6 ,
0 , Jj 7 0 0 '
0 0 0 )} 8 1'. 0 1 MSB '/
1 0 0 h 9 0 LSB
0 0 h 10 MSB, LSB ) «i

0 )i h 11

0 0 )} 12 , Ml MO BCD Binary/BCDiM
0 1 13 0 0 0 16
0
0 14 ft'. 0 0 1

15 h X 1 0 4«fBCD
X 1 1

1 0 ()

0 …

/J.-J
 1 H

6 O

16

(KKYI'A)
| •

1)7

D3-
'' ..'Xi* Mi '

- |',

Do-

D7
1

Do
-,

-
-
E002
(KKYPC)
D7 — V- BLANK Da — ^
/ ON/OFF

/
1
Ds D2 'Xf<
Ds
D«
—
— ;?
.

;?,
(i 111

Record/ Play
D.
Do— V-GATE
^,: '::

•: ,,

E003 MlSi^C
(K AN AST)
^•r« LD A. 05
LD E003H). A
'
(

LD A, 04
LD (E003H). A
KOOJ 8253 •() -'

MZ- 80K 2MHZ '-,

8253
•() • ,'\1 '
4,;! ii I

" CALL MSTA " 1,',.

GATE

i:oor,

E006
E007
|
8253

8253 '^ '1

2 ,;' Jf
1
8253

8253

8253 ,
'1

'2

—
'4£

KOO.S
J
Do fll Do Music Stand ), STOP(0)

//
 A D n C

—7

- HiilS': I ! f) 1; '
g U': RESET
'' .
II

! ^
,^ ^
I
0 U''J. , 0
' MZ- 80K ; |i

MZ-80K '
Q 1 5V

Ci 2

MZ 80K
* 5V

15,N
t 5V
9
$ 0.01
^ MZ 80 K KKSKT

| 10K
"1
1 74121
A2
1 100 IC2 1

CPU
',1

C, :
ON

RESET
fc'Oi:
Tr
', lif',:
A
OFF

Hi
d

•,:
',

Tr
,

Vbk
1',

2
Ci
,
l«i
'::;',1^:,

-idl'Oih.: V
Tr
IC1

Tr
; ^, ON
',:

:
OFF , D, ', OFF
ON U

^' ^
,1. JiWV-

mz- 80K ', liii!;': I

' 'oi w
> "|» ': B ASIC ' ^
'/

W RAM
^^
, 1 :••
•
'I
-
POKE

; -
W
'
>i

llH'U
BASIC

'/ h m
IC2 W "4
SW- ON
M
2
.

',
-|

lif,',:
B
^
' ;!
W
4iQ
if

^' 1-:
3

^ .
1*1)

dv.j. cpu 1; :
.. «: m
, |"| ,; Mil
I'
'(^
 «

7—8

1978 Z80

W. . Jr
1978

1979 Z80
Z80

/ 1

;
|

'
(W 1978

1977

1970

1979
^ I ^
II ^ «
+|:

•1... '' "V 1974 ° I II

U "
D. 1978

N.
V

V 1979 + = ' II

II
Ift^

^
PASCAL

/:
I11Z-SQDK
I11Z-SQDK
 545 22 22 (06) 621 1221 ( )
S 8B 639 11 492 07435)3 5521 ( )

' S (011)642 4649 0222)96-4649 0286)35-1151

03)893-4649 0762)49-4649 052)322 4649
06)643-4649 082)874-4649 0878)33-4649
092)572-4649 (0988)62 -2231
y it