Operating instructions

0036 .BY $60+REG
0091
.ME
0037 .ME
0092
! ! ! BM
.MD
( WHERE)
0038
! ! lSTD@
.MII
(REG)
0093
.BY 5
0039
.BY
$70+REG
0094
RELBR (WHERE)
0040
.ME
0095
.ME
0041 ! ! lPOP@
• MIl
( REG)
0096 ! ! ! BZ
.MIt
( WHERE)
0042 .BY
$80+REG
0097
.BY
6
0043 .ME
0098
RELBR
( WHERE)
0044 ! ! ! STP@ .MII
( REG)
0099
.ME
0045 .BY
$90+REG
0100
!! !BNZ
.MII
( WHERE)
0046 .ME
0101
.BY 7
0047 ! ! ! AIID
.MD
(REG)
0102
RELBR
( WHERE)
0048
.BY $AO+REG
0103
.ME
0049 .ME
0104 ! ! ! BMl
.MII
( WHERE)
0050 ! ! !SUB .MD
(REG)
0105
.BY
8
0051
.BY
$BO+REG
'0106 RELBf\
( WHERE)
0052 .ME
0107
.ME
0053 ! ! (POPD@ .MII
(REG)
0108
! ! ! BNMl
.MIt
( WHERE)
0054 .BY
$CO+REG
0109
.BY 9
0055 .ME
0110
RELBR
( WHEI:;;E )
0056 ! ! !CPR
.MII
(REG)
0111
.ME
0057
.BY
$ItO+REG
0112
! ! !BRK
.MII
0058
.ME
0113
.BY
$A
0059
! 1 !INCR
.MD
(REG)
0114
.ME
0060 .BY
$EO
+ REG
0115
! ! ! 1=(5 .MII
0061 .ME
0116
.BY
$B
0062
!! !DECR .MII
(REG)
0117
.ME
0063
.BY
$FO+REG
0118
!! !BS
.MII
(WHERE)
0064
.ME
0119
.BY
$C
0065 ! ! !RTN
.MII
0120
RELBR
(WHERE)
0066
.BY 00
0121
.ME
0067
.ME
0122 !!!@SW16
.MII
0068 !!!RELBR .MD
(LOC)
0123
.JSR $F689
0069
IFP
=-LOC
0124
.ME
0070
.BY
LOC-=-l
0999
.EN
0071
***
0072 IFM
=-LOC
0073 .BY
=-LOC+1
0074
***
0075 .ME
LABEL
FILE:
[
J
=
EXTERNAL
]
0076
!! !BR .MII
( WHERE)
0077
.BY 1
0078 RELBR
(WHERE)
0079 .ME
JRO=OOOO
JR1=00Ol
0080
!! !BNC • MIl
( WHERE)
JR3=0003
JR4=OOO4
0081 .BY
~
JR6=0006
JR7=OO07
'"
0082 RELBR
( WHERE)
JR9=OO09
JR10=OOOA
0083
.ME
JR12=000C
JR13=OOOD
0084
!! !BG .MII
( WHERE)
IR15=OOOF
0085
.BY 3
110000,0200,0200
0086 RELBR
( WHEF<E )
If{2=OO()2
0087 .ME
IR5=O()()5
0088
! ! !BP
.MIt
( WHERE)
IR8=O()()8
0089
.BY 4
IR11=O()OB
j
0090 RELBR
( WHEF<E)
IR14=OOOE
January, 1980
MICRO
-- The 6502 Journal
20:29