Home » CEEFAX disks » telesoftware5.adl » 30-01-88/T\SWR14
30-01-88/T\SWR14
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware5.adl |
| Filename: | 30-01-88/T\SWR14 |
| Read OK: | ✔ |
| File size: | 3B8D bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware10.adl » 08-10-88/T\SWR14
- CEEFAX disks » telesoftware5.adl » 30-01-88/T\SWR14
File contents
Mastering Sideways ROM & RAM - Module 14 - Unrecognised Interupts
-----------------------------------------------------------------
An interupt is a signal to the 6502 processor informing it that a
hardware device somewhere in the system requires immediate attention.
Interupts not recognised by the operating system are first offered to
the paged roms and then to the user via the IRQ2 vector.
Service call 5 is used to offer unrecognised interupts to the paged
roms but, because an interupt could be generated by almost any device,
it is not possible to identify the source of an interupt without
directly interrogating the hardware that might be responsible for
generating it.
If you want to design a SWR program to process interupts it must
intercept service call 5 and poll the hardware that it expects to
generate an interupt to see if that device was responsible for the
unrecognised interupt, and if so process it. If you do not want the
interupt to be offered to the other roms the accumulator should be
reset to zero before returning. Always return from an unrecognised
interupt with RTS and not RTI.
One way of connecting hardware to the BBC Micro is to use the 6522
versatile interface adaptor (VIA). There are two 6522 VIAs in the BBC
B. VIA-A is used for internal functions and the joystick fire buttons.
VIA-B provides the parallel printer interface and the user port.
Printers are the most commonly used device connected to VIA-B, and a
printer buffer will be used to demonstrate how interupts generated by
external hardware can be intercepted and processed in sideways ram.
The program BUFFER is used to generate an object code file just
under &100 bytes long. When the object code is loaded into SWR it uses
the remaining 15.75k in the ram bank as a parallel printer buffer.
When sideways ram is used in this way the size of the object code
needs to be as small as possible. For this reason a number of
techniques have been used in the source code to make the object code
fit into just one page of memory.
The SWR header used by the buffer is as small as it can be. All the
optional coding has been left out. There is no binary version number,
title string, version string, copyright message or tube relocation
address. Just the essential jump to the service entry point, rom type
byte, copyright offset pointer and minimum copyright string (lines
250-340). Reseting the user print vector is done with the minimum of
coding by taking the Osbyte &A8 call out of the object code (lines
180-210). The service call interpreter does not implement * commands
to enable the buffer but instead intercepts service call &FE (tube
system post initialisation) to set up the user print extended vector
to point to the printer buffer code (lines 470-710).
To use the buffer load the object code into SWR and press the Break
key. Service call &FE is always issued on reset and so the buffer will
be initialised every time you press Break.
After pressing the Break key type *FX5,3 to enable the buffer. The
printer can then be used as normal but with a 15.75k buffer. Type
*FX5,1 or press Ctrl+Break to disable the buffer after printing has
been completed.
The buffer was designed to be used with an Epson parallel printer
and may not be suitable for other parallel printers unless they use
the same Centronics protocol as the Epson range (most parallel
printers use the Centronics protocol). It is unsuitable for all serial
printers and I suspect that the early versions of the Solidisk
sideways ram boards may not allow this program to work properly,
although I have not been able to test the program with one to confirm
this suspicion.
The user print vector is normally used to provide a printer driver
for printers which do not have either a Centronics parallel or a
standard serial interface. With this printer buffer program the user
print vector interfaces the printer buffer with the SWR buffer and the
printer hardware.
The buffer program reads data from the printer buffer using Osbyte
&91 (lines 1020-1040) and writes it into the SWR buffer using a
pointer (line 1080) to indicate the position in SWR to store each
individual byte. The data is read from the SWR buffer using another
pointer (line 1540) to indicate the byte to be written into the VIA-B
printer output register. When a byte is recieved by the printer the
acknowledge line goes low and generates an IRQ interupt. This is the
source of the interupt processed by the program.
The pointers are updated with every read and write of the SWR buffer
and when a pointer reaches &C000 it is reset to &8100 (lines 900-920
and lines 1620-1640). When the last character in the buffer has been
printed the printer driver declares itself dormant and the MOS is
informed using Osbyte &7B (lines 1350-1470). When all the data is
either printed or in the SWR buffer the computer is released to
continue with other tasks but you must not press the Break key or use
*FX5 until all printing has been completed. You can continue with any
task such as word processing or programming while the printer is using
the data in SWR printer buffer.
The 6522 VIA used to control the parallel printer interface is quite
a complex device controled by 16 registers. The VIA-B registers are
mapped onto Sheila addresses &60 to &6F as shown in figure 14.1
+-------------------------------------+
&FE6F ! A Input/Output (no handshake) !
+-------------------------------------+
&FE6E ! Interupt control !
+-------------------------------------+
&FE6D ! Interupt status !
+-------------------------------------+
&FE6C ! Peripheral control (handshake) !
+-------------------------------------+
&FE6B ! Auxiliary (timer/shift reg) control !
+-------------------------------------+
&FE6A ! Shift register !
+-------------------------------------+
&FE69 ! Timer 2 MSB counter !
+-------------------------------------+
&FE68 ! Timer 2 LSB latch/counter !
+-------------------------------------+
&FE67 ! Timer 1 MSB latch !
+-------------------------------------+
&FE66 ! Timer 1 LSB latch !
+-------------------------------------+
&FE65 ! Timer 1 MSB latch/counter !
+-------------------------------------+
&FE64 ! Timer 1 LSB latch/counter !
+-------------------------------------+
&FE63 ! Direction register A !
+-------------------------------------+
&FE62 ! Direction register B !
+-------------------------------------+
&FE61 ! A Input/Output !
+-------------------------------------+
&FE60 ! B Input/Output !
+-------------------------------------+
Figure 14.1 The VIA-B registers
----------- -------------------
Both VIAs have 20 I/O lines grouped into an A side and a B side of
10 lines each. These 10 lines are divided into 8 data lines and 2
handshake lines. The data lines are called PA0 to PA7 on the A side
and PB0 to PB7 on the B side. The handshake lines are called CA1 and
CA2 on the A side and CB1 and CB2 on the B side. The BBC Micro uses
the A side of VIA-B for the printer interface and the B side of VIA-B
for the user port. PA0 to PA7 are used as the output data lines for
the parallel printer, CA1 is used for the printer acknowledge and CA2
for the printer strobe.
The printer buffer program uses the output register at &FE61, the
peripheral control register at &FE6C, the interupt status register at
&FE6D and the interupt control register at &FE6E.
The peripheral control register is used to set up the handshaking
with the printer (lines 1490-1510 and line 1550). The number &0A is
stored in the least significant nybble of this register and this has
the effect of sending a strobe pulse (CA2 low) to the printer for 1
cycle of the 1 MHz clock following a write to the output register at
&FE61. The Centronics interface requires a strobe pulse width of at
least 0.5 micro seconds at the recieving terminal. The peripheral
control register is shown in figure 14.2 with bits 1 and 3 set (see
also program lines 1490-1510 and line 1550).
7 6 5 4 3 2 1 0
+-------+-------+-------+-------+-------+-------+-------+-------+
! CB2 ! CB1 ! CA2 ! CA1 !
! control !control! control !control!
+-------+-------+-------+-------+-------+-------+-------+-------+
1 0 1 0 &0A
Figure 14.2 The peripheral control (handshake) register.
----------- --------------------------------------------
The acknowledge line is connected to CA1 and is used to generate an
interupt when the printer has recieved data and is ready to accept
more data from the printer buffer. The Centronics protocol takes the
acknowledge line low for about 12 micro seconds. CA1 is reset to zero
in the peripheral control register (lines 1490-1510 and line 1550) and
its corresponding bit in the interupt status register will be set to 1
when the voltage on the CA1 input line goes from high to low. CA1 will
set a bit in the interupt status register and generate an IRQ interupt
if the CA1 bit in the status register has been set. Bit 2 (CA1) is set
by setting bits 7 and 2, ie. by storing &82 in the control register as
shown in figure 14.3 (line 1520 and line 1560). Bit 2 of the control
register can be cleared by clearing bit 7 and setting bit 2, ie. by
storing 2 in the control register (lines 1420-1430).
7 6 5 4 3 2 1 0
+---------+-----+-----+-----+-----+-----+-----+-----+
! IRQ ! T1 ! T2 ! CB1 ! CB2 ! SR ! CA1 ! CA2 ! Interupt status
+---------+-----+-----+-----+-----+-----+-----+-----+
!Set/Clear! T1 ! T2 ! CB1 ! CB2 ! SR ! CA1 ! CA2 ! Interupt control
+---------+-----+-----+-----+-----+-----+-----+-----+
1 0 0 0 0 0 1 0 &82
Figure 14.3 Interupt status and control registers.
----------- --------------------------------------
The control and status registers work as a pair and the status
register is interrogated by the buffer program to see if the printer
is the source of an interupt (lines 1140-1160). If bits 1 and 7 of the
status register are not set then the printer was not the source of the
interupt and control is returned to the MOS with all the register
preserved (line 1160, lines 1280-1300 and lines 640-710). If the
buffer has not been enabled with *FX5,3 control is also returned to
the MOS (lines 1170-1190, lines 1280-1300 and lines 640-710).
10 REM: BUFFER
20 REM: (C) Gordon Horsington 1987
30 MODE7
40 HIMEM=&3C00
50 DIM save 50
60 diff=&8000-HIMEM
70 romnumber=&F4
80 stack=&103
90 uptv=&222
100 starfx5=&285
110 pointer=&8100
120 printout=&FE61
130 handshake=&FE6C
140 status=&FE6D
150 control=&FE6E
160 osbyte=&FFF4
170 oscli=&FFF7
180 A%=&A8
190 X%=0
200 Y%=&FF
210 extvec=(USR(osbyte)AND&FFFF00)DIV256
220 FOR pass = 0 TO 2 STEP 2
230 P%=HIMEM
240 [ OPT pass
250 BRK
260 BRK
270 BRK
280 JMP service+diff
290 OPT FNequb(&82)
300 OPT FNequb((copyright+diff) MOD 256)
310 .copyright
320 BRK
330 OPT FNequs("(C)")
340 BRK
350 .flag
360 BRK
370 .service
380 PHA
390 TXA
400 PHA
410 TYA
420 PHA
430 TSX
440 LDA stack,X
450 CMP #5
460 BEQ interupt
470 CMP #&FE
480 BNE exit
490 LDA #(buffer+diff) MOD 256
500 STA extvec+&33
510 LDA #(buffer+diff) DIV 256
520 STA extvec+&34
530 LDA romnumber
540 STA extvec+&35
550 LDA #&81
560 STA datin+diff+1
570 STA datin+diff+2
580 STA datout+diff+1
590 STA datout+diff+2
600 LDX #&33
610 LDY #&FF
620 STX uptv
630 STY uptv+1
640 .exit
650 PLA
660 TAY
670 PLA
680 TAX
690 PLA
700 .return
710 RTS
720 .buffer
730 CPY #3
740 BNE return
750 CMP #1
760 BNE active
770 STA flag+diff
780 .active
790 PHA
800 TXA
810 PHA
820 TYA
830 PHA
840 .outerloop
850 LDY datin+diff+2
860 LDX datin+diff+1
870 INX
880 BNE nottop
890 INY
900 CPY #&C0
910 BNE nottop
920 LDY #&81
930 .nottop
940 CPX datout+diff+1
950 BNE morespace
960 CPY datout+diff+2
970 BEQ innerloop
980 SEC
990 .morespace
1000 TYA
1010 PHA
1020 LDA #&91
1030 LDX #3
1040 JSR osbyte
1050 PLA
1060 BCS innerloop
1070 .datin
1080 STY pointer
1090 INC datin+diff+1
1100 STA datin+diff+2
1110 CLC
1120 BCC innerloop
1130 .interupt
1140 LDA #&82
1150 BIT status
1160 BEQ restore
1170 LDA starfx5
1180 CMP #3
1190 BNE restore
1200 .innerloop
1210 LDA flag+diff
1220 BNE notpoll
1230 LDA #&82
1240 BIT status
1250 BNE notpoll
1260 .step
1270 BCC outerloop
1280 .restore
1290 CLC
1300 BCC exit
1310 .notpoll
1320 PHP
1330 LDA #0
1340 STA flag+diff
1350 LDA datin+diff+1
1360 CMP datout+diff+1
1370 BNE output
1380 LDA datin+diff+2
1390 CMP datout+diff+2
1400 BNE output
1410 PLP
1420 LDX #2
1430 STX control
1440 LDA #&7B
1450 INX
1460 JSR osbyte
1470 JMP restore+diff
1480 .output
1490 LDA handshake
1500 AND #&F0
1510 ORA #&0A
1520 LDX #&82
1530 .datout
1540 LDY pointer
1550 STA handshake
1560 STX control
1570 STY printout
1580 INC datout+diff+1
1590 BNE notpage
1600 LDY datout+diff+2
1610 INY
1620 CPY #&C0
1630 BNE moreroom
1640 LDY #&81
1650 .moreroom
1660 STY datout+diff+2
1670 .notpage
1680 PLP
1690 BCS innerloop
1700 BCC step
1710 .lastbyte
1720 ]
1730 NEXT
1740 INPUT'"Save filename = "filename$
1750 IF filename$="" END
1760 $save="SAVE "+filename$+" "+STR$~(HIMEM)+" "+STR$~(las
tbyte)+" FFFF8000 FFFF8000"
1770 X%=save MOD 256
1780 Y%=save DIV 256
1790 *OPT1,2
1800 CALL oscli
1810 *OPT1,0
1820 END
1830 DEFFNequb(byte)
1840 ?P%=byte
1850 P%=P%+1
1860 =pass
1870 DEFFNequw(word)
1880 ?P%=word MOD 256
1890 P%?1=word DIV 256
1900 P%=P%+2
1910 =pass
1920 DEFFNequd(double)
1930 !P%=double
1940 P%=P%+4
1950 =pass
1960 DEFFNequs(string$)
1970 $P%=string$
1980 P%=P%+LEN(string$)
1990 =pass
00000000 0d 4d 61 73 74 65 72 69 6e 67 20 53 69 64 65 77 |.Mastering Sidew|
00000010 61 79 73 20 52 4f 4d 20 26 20 52 41 4d 20 2d 20 |ays ROM & RAM - |
00000020 4d 6f 64 75 6c 65 20 31 34 20 2d 20 55 6e 72 65 |Module 14 - Unre|
00000030 63 6f 67 6e 69 73 65 64 20 49 6e 74 65 72 75 70 |cognised Interup|
00000040 74 73 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ts.-------------|
00000050 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000080 2d 2d 2d 2d 0d 0d 20 20 41 6e 20 69 6e 74 65 72 |----.. An inter|
00000090 75 70 74 20 69 73 20 61 20 73 69 67 6e 61 6c 20 |upt is a signal |
000000a0 74 6f 20 74 68 65 20 36 35 30 32 20 70 72 6f 63 |to the 6502 proc|
000000b0 65 73 73 6f 72 20 69 6e 66 6f 72 6d 69 6e 67 20 |essor informing |
000000c0 69 74 20 74 68 61 74 20 61 0d 68 61 72 64 77 61 |it that a.hardwa|
000000d0 72 65 20 64 65 76 69 63 65 20 73 6f 6d 65 77 68 |re device somewh|
000000e0 65 72 65 20 69 6e 20 74 68 65 20 73 79 73 74 65 |ere in the syste|
000000f0 6d 20 72 65 71 75 69 72 65 73 20 69 6d 6d 65 64 |m requires immed|
00000100 69 61 74 65 20 61 74 74 65 6e 74 69 6f 6e 2e 0d |iate attention..|
00000110 49 6e 74 65 72 75 70 74 73 20 6e 6f 74 20 72 65 |Interupts not re|
00000120 63 6f 67 6e 69 73 65 64 20 62 79 20 74 68 65 20 |cognised by the |
00000130 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d |operating system|
00000140 20 61 72 65 20 66 69 72 73 74 20 6f 66 66 65 72 | are first offer|
00000150 65 64 20 74 6f 0d 74 68 65 20 70 61 67 65 64 20 |ed to.the paged |
00000160 72 6f 6d 73 20 61 6e 64 20 74 68 65 6e 20 74 6f |roms and then to|
00000170 20 74 68 65 20 75 73 65 72 20 76 69 61 20 74 68 | the user via th|
00000180 65 20 49 52 51 32 20 76 65 63 74 6f 72 2e 0d 0d |e IRQ2 vector...|
00000190 20 20 53 65 72 76 69 63 65 20 63 61 6c 6c 20 35 | Service call 5|
000001a0 20 69 73 20 75 73 65 64 20 74 6f 20 6f 66 66 65 | is used to offe|
000001b0 72 20 75 6e 72 65 63 6f 67 6e 69 73 65 64 20 69 |r unrecognised i|
000001c0 6e 74 65 72 75 70 74 73 20 74 6f 20 74 68 65 20 |nterupts to the |
000001d0 70 61 67 65 64 0d 72 6f 6d 73 20 62 75 74 2c 20 |paged.roms but, |
000001e0 62 65 63 61 75 73 65 20 61 6e 20 69 6e 74 65 72 |because an inter|
000001f0 75 70 74 20 63 6f 75 6c 64 20 62 65 20 67 65 6e |upt could be gen|
00000200 65 72 61 74 65 64 20 62 79 20 61 6c 6d 6f 73 74 |erated by almost|
00000210 20 61 6e 79 20 64 65 76 69 63 65 2c 0d 69 74 20 | any device,.it |
00000220 69 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 |is not possible |
00000230 74 6f 20 69 64 65 6e 74 69 66 79 20 74 68 65 20 |to identify the |
00000240 73 6f 75 72 63 65 20 6f 66 20 61 6e 20 69 6e 74 |source of an int|
00000250 65 72 75 70 74 20 77 69 74 68 6f 75 74 0d 64 69 |erupt without.di|
00000260 72 65 63 74 6c 79 20 69 6e 74 65 72 72 6f 67 61 |rectly interroga|
00000270 74 69 6e 67 20 74 68 65 20 68 61 72 64 77 61 72 |ting the hardwar|
00000280 65 20 74 68 61 74 20 6d 69 67 68 74 20 62 65 20 |e that might be |
00000290 72 65 73 70 6f 6e 73 69 62 6c 65 20 66 6f 72 0d |responsible for.|
000002a0 67 65 6e 65 72 61 74 69 6e 67 20 69 74 2e 0d 0d |generating it...|
000002b0 20 20 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f | If you want to|
000002c0 20 64 65 73 69 67 6e 20 61 20 53 57 52 20 70 72 | design a SWR pr|
000002d0 6f 67 72 61 6d 20 74 6f 20 70 72 6f 63 65 73 73 |ogram to process|
000002e0 20 69 6e 74 65 72 75 70 74 73 20 69 74 20 6d 75 | interupts it mu|
000002f0 73 74 0d 69 6e 74 65 72 63 65 70 74 20 73 65 72 |st.intercept ser|
00000300 76 69 63 65 20 63 61 6c 6c 20 35 20 61 6e 64 20 |vice call 5 and |
00000310 70 6f 6c 6c 20 74 68 65 20 68 61 72 64 77 61 72 |poll the hardwar|
00000320 65 20 74 68 61 74 20 69 74 20 65 78 70 65 63 74 |e that it expect|
00000330 73 20 74 6f 0d 67 65 6e 65 72 61 74 65 20 61 6e |s to.generate an|
00000340 20 69 6e 74 65 72 75 70 74 20 74 6f 20 73 65 65 | interupt to see|
00000350 20 69 66 20 74 68 61 74 20 64 65 76 69 63 65 20 | if that device |
00000360 77 61 73 20 72 65 73 70 6f 6e 73 69 62 6c 65 20 |was responsible |
00000370 66 6f 72 20 74 68 65 0d 75 6e 72 65 63 6f 67 6e |for the.unrecogn|
00000380 69 73 65 64 20 69 6e 74 65 72 75 70 74 2c 20 61 |ised interupt, a|
00000390 6e 64 20 69 66 20 73 6f 20 70 72 6f 63 65 73 73 |nd if so process|
000003a0 20 69 74 2e 20 49 66 20 79 6f 75 20 64 6f 20 6e | it. If you do n|
000003b0 6f 74 20 77 61 6e 74 20 74 68 65 0d 69 6e 74 65 |ot want the.inte|
000003c0 72 75 70 74 20 74 6f 20 62 65 20 6f 66 66 65 72 |rupt to be offer|
000003d0 65 64 20 74 6f 20 74 68 65 20 6f 74 68 65 72 20 |ed to the other |
000003e0 72 6f 6d 73 20 74 68 65 20 61 63 63 75 6d 75 6c |roms the accumul|
000003f0 61 74 6f 72 20 73 68 6f 75 6c 64 20 62 65 0d 72 |ator should be.r|
00000400 65 73 65 74 20 74 6f 20 7a 65 72 6f 20 62 65 66 |eset to zero bef|
00000410 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2e 20 41 |ore returning. A|
00000420 6c 77 61 79 73 20 72 65 74 75 72 6e 20 66 72 6f |lways return fro|
00000430 6d 20 61 6e 20 75 6e 72 65 63 6f 67 6e 69 73 65 |m an unrecognise|
00000440 64 0d 69 6e 74 65 72 75 70 74 20 77 69 74 68 20 |d.interupt with |
00000450 52 54 53 20 61 6e 64 20 6e 6f 74 20 52 54 49 2e |RTS and not RTI.|
00000460 0d 0d 20 20 4f 6e 65 20 77 61 79 20 6f 66 20 63 |.. One way of c|
00000470 6f 6e 6e 65 63 74 69 6e 67 20 68 61 72 64 77 61 |onnecting hardwa|
00000480 72 65 20 74 6f 20 74 68 65 20 42 42 43 20 4d 69 |re to the BBC Mi|
00000490 63 72 6f 20 69 73 20 74 6f 20 75 73 65 20 74 68 |cro is to use th|
000004a0 65 20 36 35 32 32 0d 76 65 72 73 61 74 69 6c 65 |e 6522.versatile|
000004b0 20 69 6e 74 65 72 66 61 63 65 20 61 64 61 70 74 | interface adapt|
000004c0 6f 72 20 28 56 49 41 29 2e 20 54 68 65 72 65 20 |or (VIA). There |
000004d0 61 72 65 20 74 77 6f 20 36 35 32 32 20 56 49 41 |are two 6522 VIA|
000004e0 73 20 69 6e 20 74 68 65 20 42 42 43 0d 42 2e 20 |s in the BBC.B. |
000004f0 56 49 41 2d 41 20 69 73 20 75 73 65 64 20 66 6f |VIA-A is used fo|
00000500 72 20 69 6e 74 65 72 6e 61 6c 20 66 75 6e 63 74 |r internal funct|
00000510 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 6a 6f 79 |ions and the joy|
00000520 73 74 69 63 6b 20 66 69 72 65 20 62 75 74 74 6f |stick fire butto|
00000530 6e 73 2e 0d 56 49 41 2d 42 20 70 72 6f 76 69 64 |ns..VIA-B provid|
00000540 65 73 20 74 68 65 20 70 61 72 61 6c 6c 65 6c 20 |es the parallel |
00000550 70 72 69 6e 74 65 72 20 69 6e 74 65 72 66 61 63 |printer interfac|
00000560 65 20 61 6e 64 20 74 68 65 20 75 73 65 72 20 70 |e and the user p|
00000570 6f 72 74 2e 0d 50 72 69 6e 74 65 72 73 20 61 72 |ort..Printers ar|
00000580 65 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f |e the most commo|
00000590 6e 6c 79 20 75 73 65 64 20 64 65 76 69 63 65 20 |nly used device |
000005a0 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 56 49 41 |connected to VIA|
000005b0 2d 42 2c 20 61 6e 64 20 61 0d 70 72 69 6e 74 65 |-B, and a.printe|
000005c0 72 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 |r buffer will be|
000005d0 20 75 73 65 64 20 74 6f 20 64 65 6d 6f 6e 73 74 | used to demonst|
000005e0 72 61 74 65 20 68 6f 77 20 69 6e 74 65 72 75 70 |rate how interup|
000005f0 74 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 0d |ts generated by.|
00000600 65 78 74 65 72 6e 61 6c 20 68 61 72 64 77 61 72 |external hardwar|
00000610 65 20 63 61 6e 20 62 65 20 69 6e 74 65 72 63 65 |e can be interce|
00000620 70 74 65 64 20 61 6e 64 20 70 72 6f 63 65 73 73 |pted and process|
00000630 65 64 20 69 6e 20 73 69 64 65 77 61 79 73 20 72 |ed in sideways r|
00000640 61 6d 2e 0d 0d 20 20 54 68 65 20 70 72 6f 67 72 |am... The progr|
00000650 61 6d 20 42 55 46 46 45 52 20 69 73 20 75 73 65 |am BUFFER is use|
00000660 64 20 74 6f 20 67 65 6e 65 72 61 74 65 20 61 6e |d to generate an|
00000670 20 6f 62 6a 65 63 74 20 63 6f 64 65 20 66 69 6c | object code fil|
00000680 65 20 6a 75 73 74 0d 75 6e 64 65 72 20 26 31 30 |e just.under &10|
00000690 30 20 62 79 74 65 73 20 6c 6f 6e 67 2e 20 57 68 |0 bytes long. Wh|
000006a0 65 6e 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f |en the object co|
000006b0 64 65 20 69 73 20 6c 6f 61 64 65 64 20 69 6e 74 |de is loaded int|
000006c0 6f 20 53 57 52 20 69 74 20 75 73 65 73 0d 74 68 |o SWR it uses.th|
000006d0 65 20 72 65 6d 61 69 6e 69 6e 67 20 31 35 2e 37 |e remaining 15.7|
000006e0 35 6b 20 69 6e 20 74 68 65 20 72 61 6d 20 62 61 |5k in the ram ba|
000006f0 6e 6b 20 61 73 20 61 20 70 61 72 61 6c 6c 65 6c |nk as a parallel|
00000700 20 70 72 69 6e 74 65 72 20 62 75 66 66 65 72 2e | printer buffer.|
00000710 0d 57 68 65 6e 20 73 69 64 65 77 61 79 73 20 72 |.When sideways r|
00000720 61 6d 20 69 73 20 75 73 65 64 20 69 6e 20 74 68 |am is used in th|
00000730 69 73 20 77 61 79 20 74 68 65 20 73 69 7a 65 20 |is way the size |
00000740 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f |of the object co|
00000750 64 65 0d 6e 65 65 64 73 20 74 6f 20 62 65 20 61 |de.needs to be a|
00000760 73 20 73 6d 61 6c 6c 20 61 73 20 70 6f 73 73 69 |s small as possi|
00000770 62 6c 65 2e 20 46 6f 72 20 74 68 69 73 20 72 65 |ble. For this re|
00000780 61 73 6f 6e 20 61 20 6e 75 6d 62 65 72 20 6f 66 |ason a number of|
00000790 0d 74 65 63 68 6e 69 71 75 65 73 20 68 61 76 65 |.techniques have|
000007a0 20 62 65 65 6e 20 75 73 65 64 20 69 6e 20 74 68 | been used in th|
000007b0 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 74 6f |e source code to|
000007c0 20 6d 61 6b 65 20 74 68 65 20 6f 62 6a 65 63 74 | make the object|
000007d0 20 63 6f 64 65 0d 66 69 74 20 69 6e 74 6f 20 6a | code.fit into j|
000007e0 75 73 74 20 6f 6e 65 20 70 61 67 65 20 6f 66 20 |ust one page of |
000007f0 6d 65 6d 6f 72 79 2e 0d 0d 20 20 54 68 65 20 53 |memory... The S|
00000800 57 52 20 68 65 61 64 65 72 20 75 73 65 64 20 62 |WR header used b|
00000810 79 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 |y the buffer is |
00000820 61 73 20 73 6d 61 6c 6c 20 61 73 20 69 74 20 63 |as small as it c|
00000830 61 6e 20 62 65 2e 20 41 6c 6c 20 74 68 65 0d 6f |an be. All the.o|
00000840 70 74 69 6f 6e 61 6c 20 63 6f 64 69 6e 67 20 68 |ptional coding h|
00000850 61 73 20 62 65 65 6e 20 6c 65 66 74 20 6f 75 74 |as been left out|
00000860 2e 20 54 68 65 72 65 20 69 73 20 6e 6f 20 62 69 |. There is no bi|
00000870 6e 61 72 79 20 76 65 72 73 69 6f 6e 20 6e 75 6d |nary version num|
00000880 62 65 72 2c 0d 74 69 74 6c 65 20 73 74 72 69 6e |ber,.title strin|
00000890 67 2c 20 76 65 72 73 69 6f 6e 20 73 74 72 69 6e |g, version strin|
000008a0 67 2c 20 63 6f 70 79 72 69 67 68 74 20 6d 65 73 |g, copyright mes|
000008b0 73 61 67 65 20 6f 72 20 74 75 62 65 20 72 65 6c |sage or tube rel|
000008c0 6f 63 61 74 69 6f 6e 0d 61 64 64 72 65 73 73 2e |ocation.address.|
000008d0 20 4a 75 73 74 20 74 68 65 20 65 73 73 65 6e 74 | Just the essent|
000008e0 69 61 6c 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 |ial jump to the |
000008f0 73 65 72 76 69 63 65 20 65 6e 74 72 79 20 70 6f |service entry po|
00000900 69 6e 74 2c 20 72 6f 6d 20 74 79 70 65 0d 62 79 |int, rom type.by|
00000910 74 65 2c 20 63 6f 70 79 72 69 67 68 74 20 6f 66 |te, copyright of|
00000920 66 73 65 74 20 70 6f 69 6e 74 65 72 20 61 6e 64 |fset pointer and|
00000930 20 6d 69 6e 69 6d 75 6d 20 63 6f 70 79 72 69 67 | minimum copyrig|
00000940 68 74 20 73 74 72 69 6e 67 20 28 6c 69 6e 65 73 |ht string (lines|
00000950 0d 32 35 30 2d 33 34 30 29 2e 20 52 65 73 65 74 |.250-340). Reset|
00000960 69 6e 67 20 74 68 65 20 75 73 65 72 20 70 72 69 |ing the user pri|
00000970 6e 74 20 76 65 63 74 6f 72 20 69 73 20 64 6f 6e |nt vector is don|
00000980 65 20 77 69 74 68 20 74 68 65 20 6d 69 6e 69 6d |e with the minim|
00000990 75 6d 20 6f 66 0d 63 6f 64 69 6e 67 20 62 79 20 |um of.coding by |
000009a0 74 61 6b 69 6e 67 20 74 68 65 20 4f 73 62 79 74 |taking the Osbyt|
000009b0 65 20 26 41 38 20 63 61 6c 6c 20 6f 75 74 20 6f |e &A8 call out o|
000009c0 66 20 74 68 65 20 6f 62 6a 65 63 74 20 63 6f 64 |f the object cod|
000009d0 65 20 28 6c 69 6e 65 73 0d 31 38 30 2d 32 31 30 |e (lines.180-210|
000009e0 29 2e 20 54 68 65 20 73 65 72 76 69 63 65 20 63 |). The service c|
000009f0 61 6c 6c 20 69 6e 74 65 72 70 72 65 74 65 72 20 |all interpreter |
00000a00 64 6f 65 73 20 6e 6f 74 20 69 6d 70 6c 65 6d 65 |does not impleme|
00000a10 6e 74 20 2a 20 63 6f 6d 6d 61 6e 64 73 0d 74 6f |nt * commands.to|
00000a20 20 65 6e 61 62 6c 65 20 74 68 65 20 62 75 66 66 | enable the buff|
00000a30 65 72 20 62 75 74 20 69 6e 73 74 65 61 64 20 69 |er but instead i|
00000a40 6e 74 65 72 63 65 70 74 73 20 73 65 72 76 69 63 |ntercepts servic|
00000a50 65 20 63 61 6c 6c 20 26 46 45 20 28 74 75 62 65 |e call &FE (tube|
00000a60 0d 73 79 73 74 65 6d 20 70 6f 73 74 20 69 6e 69 |.system post ini|
00000a70 74 69 61 6c 69 73 61 74 69 6f 6e 29 20 74 6f 20 |tialisation) to |
00000a80 73 65 74 20 75 70 20 74 68 65 20 75 73 65 72 20 |set up the user |
00000a90 70 72 69 6e 74 20 65 78 74 65 6e 64 65 64 20 76 |print extended v|
00000aa0 65 63 74 6f 72 0d 74 6f 20 70 6f 69 6e 74 20 74 |ector.to point t|
00000ab0 6f 20 74 68 65 20 70 72 69 6e 74 65 72 20 62 75 |o the printer bu|
00000ac0 66 66 65 72 20 63 6f 64 65 20 28 6c 69 6e 65 73 |ffer code (lines|
00000ad0 20 34 37 30 2d 37 31 30 29 2e 0d 0d 20 20 54 6f | 470-710)... To|
00000ae0 20 75 73 65 20 74 68 65 20 62 75 66 66 65 72 20 | use the buffer |
00000af0 6c 6f 61 64 20 74 68 65 20 6f 62 6a 65 63 74 20 |load the object |
00000b00 63 6f 64 65 20 69 6e 74 6f 20 53 57 52 20 61 6e |code into SWR an|
00000b10 64 20 70 72 65 73 73 20 74 68 65 20 42 72 65 61 |d press the Brea|
00000b20 6b 0d 6b 65 79 2e 20 53 65 72 76 69 63 65 20 63 |k.key. Service c|
00000b30 61 6c 6c 20 26 46 45 20 69 73 20 61 6c 77 61 79 |all &FE is alway|
00000b40 73 20 69 73 73 75 65 64 20 6f 6e 20 72 65 73 65 |s issued on rese|
00000b50 74 20 61 6e 64 20 73 6f 20 74 68 65 20 62 75 66 |t and so the buf|
00000b60 66 65 72 20 77 69 6c 6c 0d 62 65 20 69 6e 69 74 |fer will.be init|
00000b70 69 61 6c 69 73 65 64 20 65 76 65 72 79 20 74 69 |ialised every ti|
00000b80 6d 65 20 79 6f 75 20 70 72 65 73 73 20 42 72 65 |me you press Bre|
00000b90 61 6b 2e 0d 0d 20 20 41 66 74 65 72 20 70 72 65 |ak... After pre|
00000ba0 73 73 69 6e 67 20 74 68 65 20 42 72 65 61 6b 20 |ssing the Break |
00000bb0 6b 65 79 20 74 79 70 65 20 2a 46 58 35 2c 33 20 |key type *FX5,3 |
00000bc0 74 6f 20 65 6e 61 62 6c 65 20 74 68 65 20 62 75 |to enable the bu|
00000bd0 66 66 65 72 2e 20 54 68 65 0d 70 72 69 6e 74 65 |ffer. The.printe|
00000be0 72 20 63 61 6e 20 74 68 65 6e 20 62 65 20 75 73 |r can then be us|
00000bf0 65 64 20 61 73 20 6e 6f 72 6d 61 6c 20 62 75 74 |ed as normal but|
00000c00 20 77 69 74 68 20 61 20 31 35 2e 37 35 6b 20 62 | with a 15.75k b|
00000c10 75 66 66 65 72 2e 20 54 79 70 65 0d 2a 46 58 35 |uffer. Type.*FX5|
00000c20 2c 31 20 6f 72 20 70 72 65 73 73 20 43 74 72 6c |,1 or press Ctrl|
00000c30 2b 42 72 65 61 6b 20 74 6f 20 64 69 73 61 62 6c |+Break to disabl|
00000c40 65 20 74 68 65 20 62 75 66 66 65 72 20 61 66 74 |e the buffer aft|
00000c50 65 72 20 70 72 69 6e 74 69 6e 67 20 68 61 73 0d |er printing has.|
00000c60 62 65 65 6e 20 63 6f 6d 70 6c 65 74 65 64 2e 0d |been completed..|
00000c70 0d 20 20 54 68 65 20 62 75 66 66 65 72 20 77 61 |. The buffer wa|
00000c80 73 20 64 65 73 69 67 6e 65 64 20 74 6f 20 62 65 |s designed to be|
00000c90 20 75 73 65 64 20 77 69 74 68 20 61 6e 20 45 70 | used with an Ep|
00000ca0 73 6f 6e 20 70 61 72 61 6c 6c 65 6c 20 70 72 69 |son parallel pri|
00000cb0 6e 74 65 72 0d 61 6e 64 20 6d 61 79 20 6e 6f 74 |nter.and may not|
00000cc0 20 62 65 20 73 75 69 74 61 62 6c 65 20 66 6f 72 | be suitable for|
00000cd0 20 6f 74 68 65 72 20 70 61 72 61 6c 6c 65 6c 20 | other parallel |
00000ce0 70 72 69 6e 74 65 72 73 20 75 6e 6c 65 73 73 20 |printers unless |
00000cf0 74 68 65 79 20 75 73 65 0d 74 68 65 20 73 61 6d |they use.the sam|
00000d00 65 20 43 65 6e 74 72 6f 6e 69 63 73 20 70 72 6f |e Centronics pro|
00000d10 74 6f 63 6f 6c 20 61 73 20 74 68 65 20 45 70 73 |tocol as the Eps|
00000d20 6f 6e 20 72 61 6e 67 65 20 28 6d 6f 73 74 20 70 |on range (most p|
00000d30 61 72 61 6c 6c 65 6c 0d 70 72 69 6e 74 65 72 73 |arallel.printers|
00000d40 20 75 73 65 20 74 68 65 20 43 65 6e 74 72 6f 6e | use the Centron|
00000d50 69 63 73 20 70 72 6f 74 6f 63 6f 6c 29 2e 20 49 |ics protocol). I|
00000d60 74 20 69 73 20 75 6e 73 75 69 74 61 62 6c 65 20 |t is unsuitable |
00000d70 66 6f 72 20 61 6c 6c 20 73 65 72 69 61 6c 0d 70 |for all serial.p|
00000d80 72 69 6e 74 65 72 73 20 61 6e 64 20 49 20 73 75 |rinters and I su|
00000d90 73 70 65 63 74 20 74 68 61 74 20 74 68 65 20 65 |spect that the e|
00000da0 61 72 6c 79 20 76 65 72 73 69 6f 6e 73 20 6f 66 |arly versions of|
00000db0 20 74 68 65 20 53 6f 6c 69 64 69 73 6b 0d 73 69 | the Solidisk.si|
00000dc0 64 65 77 61 79 73 20 72 61 6d 20 62 6f 61 72 64 |deways ram board|
00000dd0 73 20 6d 61 79 20 6e 6f 74 20 61 6c 6c 6f 77 20 |s may not allow |
00000de0 74 68 69 73 20 70 72 6f 67 72 61 6d 20 74 6f 20 |this program to |
00000df0 77 6f 72 6b 20 70 72 6f 70 65 72 6c 79 2c 0d 61 |work properly,.a|
00000e00 6c 74 68 6f 75 67 68 20 49 20 68 61 76 65 20 6e |lthough I have n|
00000e10 6f 74 20 62 65 65 6e 20 61 62 6c 65 20 74 6f 20 |ot been able to |
00000e20 74 65 73 74 20 74 68 65 20 70 72 6f 67 72 61 6d |test the program|
00000e30 20 77 69 74 68 20 6f 6e 65 20 74 6f 20 63 6f 6e | with one to con|
00000e40 66 69 72 6d 0d 74 68 69 73 20 73 75 73 70 69 63 |firm.this suspic|
00000e50 69 6f 6e 2e 0d 0d 20 20 54 68 65 20 75 73 65 72 |ion... The user|
00000e60 20 70 72 69 6e 74 20 76 65 63 74 6f 72 20 69 73 | print vector is|
00000e70 20 6e 6f 72 6d 61 6c 6c 79 20 75 73 65 64 20 74 | normally used t|
00000e80 6f 20 70 72 6f 76 69 64 65 20 61 20 70 72 69 6e |o provide a prin|
00000e90 74 65 72 20 64 72 69 76 65 72 0d 66 6f 72 20 70 |ter driver.for p|
00000ea0 72 69 6e 74 65 72 73 20 77 68 69 63 68 20 64 6f |rinters which do|
00000eb0 20 6e 6f 74 20 68 61 76 65 20 65 69 74 68 65 72 | not have either|
00000ec0 20 61 20 43 65 6e 74 72 6f 6e 69 63 73 20 70 61 | a Centronics pa|
00000ed0 72 61 6c 6c 65 6c 20 6f 72 20 61 0d 73 74 61 6e |rallel or a.stan|
00000ee0 64 61 72 64 20 73 65 72 69 61 6c 20 69 6e 74 65 |dard serial inte|
00000ef0 72 66 61 63 65 2e 20 57 69 74 68 20 74 68 69 73 |rface. With this|
00000f00 20 70 72 69 6e 74 65 72 20 62 75 66 66 65 72 20 | printer buffer |
00000f10 70 72 6f 67 72 61 6d 20 74 68 65 20 75 73 65 72 |program the user|
00000f20 0d 70 72 69 6e 74 20 76 65 63 74 6f 72 20 69 6e |.print vector in|
00000f30 74 65 72 66 61 63 65 73 20 74 68 65 20 70 72 69 |terfaces the pri|
00000f40 6e 74 65 72 20 62 75 66 66 65 72 20 77 69 74 68 |nter buffer with|
00000f50 20 74 68 65 20 53 57 52 20 62 75 66 66 65 72 20 | the SWR buffer |
00000f60 61 6e 64 20 74 68 65 0d 70 72 69 6e 74 65 72 20 |and the.printer |
00000f70 68 61 72 64 77 61 72 65 2e 0d 0d 20 20 54 68 65 |hardware... The|
00000f80 20 62 75 66 66 65 72 20 70 72 6f 67 72 61 6d 20 | buffer program |
00000f90 72 65 61 64 73 20 64 61 74 61 20 66 72 6f 6d 20 |reads data from |
00000fa0 74 68 65 20 70 72 69 6e 74 65 72 20 62 75 66 66 |the printer buff|
00000fb0 65 72 20 75 73 69 6e 67 20 4f 73 62 79 74 65 0d |er using Osbyte.|
00000fc0 26 39 31 20 28 6c 69 6e 65 73 20 31 30 32 30 2d |&91 (lines 1020-|
00000fd0 31 30 34 30 29 20 61 6e 64 20 77 72 69 74 65 73 |1040) and writes|
00000fe0 20 69 74 20 69 6e 74 6f 20 74 68 65 20 53 57 52 | it into the SWR|
00000ff0 20 62 75 66 66 65 72 20 75 73 69 6e 67 20 61 0d | buffer using a.|
00001000 70 6f 69 6e 74 65 72 20 28 6c 69 6e 65 20 31 30 |pointer (line 10|
00001010 38 30 29 20 74 6f 20 69 6e 64 69 63 61 74 65 20 |80) to indicate |
00001020 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 |the position in |
00001030 53 57 52 20 74 6f 20 73 74 6f 72 65 20 65 61 63 |SWR to store eac|
00001040 68 0d 69 6e 64 69 76 69 64 75 61 6c 20 62 79 74 |h.individual byt|
00001050 65 2e 20 54 68 65 20 64 61 74 61 20 69 73 20 72 |e. The data is r|
00001060 65 61 64 20 66 72 6f 6d 20 74 68 65 20 53 57 52 |ead from the SWR|
00001070 20 62 75 66 66 65 72 20 75 73 69 6e 67 20 61 6e | buffer using an|
00001080 6f 74 68 65 72 0d 70 6f 69 6e 74 65 72 20 28 6c |other.pointer (l|
00001090 69 6e 65 20 31 35 34 30 29 20 74 6f 20 69 6e 64 |ine 1540) to ind|
000010a0 69 63 61 74 65 20 74 68 65 20 62 79 74 65 20 74 |icate the byte t|
000010b0 6f 20 62 65 20 77 72 69 74 74 65 6e 20 69 6e 74 |o be written int|
000010c0 6f 20 74 68 65 20 56 49 41 2d 42 0d 70 72 69 6e |o the VIA-B.prin|
000010d0 74 65 72 20 6f 75 74 70 75 74 20 72 65 67 69 73 |ter output regis|
000010e0 74 65 72 2e 20 57 68 65 6e 20 61 20 62 79 74 65 |ter. When a byte|
000010f0 20 69 73 20 72 65 63 69 65 76 65 64 20 62 79 20 | is recieved by |
00001100 74 68 65 20 70 72 69 6e 74 65 72 20 74 68 65 0d |the printer the.|
00001110 61 63 6b 6e 6f 77 6c 65 64 67 65 20 6c 69 6e 65 |acknowledge line|
00001120 20 67 6f 65 73 20 6c 6f 77 20 61 6e 64 20 67 65 | goes low and ge|
00001130 6e 65 72 61 74 65 73 20 61 6e 20 49 52 51 20 69 |nerates an IRQ i|
00001140 6e 74 65 72 75 70 74 2e 20 54 68 69 73 20 69 73 |nterupt. This is|
00001150 20 74 68 65 0d 73 6f 75 72 63 65 20 6f 66 20 74 | the.source of t|
00001160 68 65 20 69 6e 74 65 72 75 70 74 20 70 72 6f 63 |he interupt proc|
00001170 65 73 73 65 64 20 62 79 20 74 68 65 20 70 72 6f |essed by the pro|
00001180 67 72 61 6d 2e 0d 0d 20 20 54 68 65 20 70 6f 69 |gram... The poi|
00001190 6e 74 65 72 73 20 61 72 65 20 75 70 64 61 74 65 |nters are update|
000011a0 64 20 77 69 74 68 20 65 76 65 72 79 20 72 65 61 |d with every rea|
000011b0 64 20 61 6e 64 20 77 72 69 74 65 20 6f 66 20 74 |d and write of t|
000011c0 68 65 20 53 57 52 20 62 75 66 66 65 72 0d 61 6e |he SWR buffer.an|
000011d0 64 20 77 68 65 6e 20 61 20 70 6f 69 6e 74 65 72 |d when a pointer|
000011e0 20 72 65 61 63 68 65 73 20 26 43 30 30 30 20 69 | reaches &C000 i|
000011f0 74 20 69 73 20 72 65 73 65 74 20 74 6f 20 26 38 |t is reset to &8|
00001200 31 30 30 20 28 6c 69 6e 65 73 20 39 30 30 2d 39 |100 (lines 900-9|
00001210 32 30 0d 61 6e 64 20 6c 69 6e 65 73 20 31 36 32 |20.and lines 162|
00001220 30 2d 31 36 34 30 29 2e 20 57 68 65 6e 20 74 68 |0-1640). When th|
00001230 65 20 6c 61 73 74 20 63 68 61 72 61 63 74 65 72 |e last character|
00001240 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 68 | in the buffer h|
00001250 61 73 20 62 65 65 6e 0d 70 72 69 6e 74 65 64 20 |as been.printed |
00001260 74 68 65 20 70 72 69 6e 74 65 72 20 64 72 69 76 |the printer driv|
00001270 65 72 20 64 65 63 6c 61 72 65 73 20 69 74 73 65 |er declares itse|
00001280 6c 66 20 64 6f 72 6d 61 6e 74 20 61 6e 64 20 74 |lf dormant and t|
00001290 68 65 20 4d 4f 53 20 69 73 0d 69 6e 66 6f 72 6d |he MOS is.inform|
000012a0 65 64 20 75 73 69 6e 67 20 4f 73 62 79 74 65 20 |ed using Osbyte |
000012b0 26 37 42 20 28 6c 69 6e 65 73 20 31 33 35 30 2d |&7B (lines 1350-|
000012c0 31 34 37 30 29 2e 20 57 68 65 6e 20 61 6c 6c 20 |1470). When all |
000012d0 74 68 65 20 64 61 74 61 20 69 73 0d 65 69 74 68 |the data is.eith|
000012e0 65 72 20 70 72 69 6e 74 65 64 20 6f 72 20 69 6e |er printed or in|
000012f0 20 74 68 65 20 53 57 52 20 62 75 66 66 65 72 20 | the SWR buffer |
00001300 74 68 65 20 63 6f 6d 70 75 74 65 72 20 69 73 20 |the computer is |
00001310 72 65 6c 65 61 73 65 64 20 74 6f 0d 63 6f 6e 74 |released to.cont|
00001320 69 6e 75 65 20 77 69 74 68 20 6f 74 68 65 72 20 |inue with other |
00001330 74 61 73 6b 73 20 62 75 74 20 79 6f 75 20 6d 75 |tasks but you mu|
00001340 73 74 20 6e 6f 74 20 70 72 65 73 73 20 74 68 65 |st not press the|
00001350 20 42 72 65 61 6b 20 6b 65 79 20 6f 72 20 75 73 | Break key or us|
00001360 65 0d 2a 46 58 35 20 75 6e 74 69 6c 20 61 6c 6c |e.*FX5 until all|
00001370 20 70 72 69 6e 74 69 6e 67 20 68 61 73 20 62 65 | printing has be|
00001380 65 6e 20 63 6f 6d 70 6c 65 74 65 64 2e 20 59 6f |en completed. Yo|
00001390 75 20 63 61 6e 20 63 6f 6e 74 69 6e 75 65 20 77 |u can continue w|
000013a0 69 74 68 20 61 6e 79 0d 74 61 73 6b 20 73 75 63 |ith any.task suc|
000013b0 68 20 61 73 20 77 6f 72 64 20 70 72 6f 63 65 73 |h as word proces|
000013c0 73 69 6e 67 20 6f 72 20 70 72 6f 67 72 61 6d 6d |sing or programm|
000013d0 69 6e 67 20 77 68 69 6c 65 20 74 68 65 20 70 72 |ing while the pr|
000013e0 69 6e 74 65 72 20 69 73 20 75 73 69 6e 67 0d 74 |inter is using.t|
000013f0 68 65 20 64 61 74 61 20 69 6e 20 53 57 52 20 70 |he data in SWR p|
00001400 72 69 6e 74 65 72 20 62 75 66 66 65 72 2e 0d 0d |rinter buffer...|
00001410 20 20 54 68 65 20 36 35 32 32 20 56 49 41 20 75 | The 6522 VIA u|
00001420 73 65 64 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 |sed to control t|
00001430 68 65 20 70 61 72 61 6c 6c 65 6c 20 70 72 69 6e |he parallel prin|
00001440 74 65 72 20 69 6e 74 65 72 66 61 63 65 20 69 73 |ter interface is|
00001450 20 71 75 69 74 65 0d 61 20 63 6f 6d 70 6c 65 78 | quite.a complex|
00001460 20 64 65 76 69 63 65 20 63 6f 6e 74 72 6f 6c 65 | device controle|
00001470 64 20 62 79 20 31 36 20 72 65 67 69 73 74 65 72 |d by 16 register|
00001480 73 2e 20 54 68 65 20 56 49 41 2d 42 20 72 65 67 |s. The VIA-B reg|
00001490 69 73 74 65 72 73 20 61 72 65 0d 6d 61 70 70 65 |isters are.mappe|
000014a0 64 20 6f 6e 74 6f 20 53 68 65 69 6c 61 20 61 64 |d onto Sheila ad|
000014b0 64 72 65 73 73 65 73 20 26 36 30 20 74 6f 20 26 |dresses &60 to &|
000014c0 36 46 20 61 73 20 73 68 6f 77 6e 20 69 6e 20 66 |6F as shown in f|
000014d0 69 67 75 72 65 20 31 34 2e 31 0d 0d 0d 0d 0d 20 |igure 14.1..... |
000014e0 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +----------|
000014f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 |-----------+.&FE|
00001510 36 46 20 21 20 41 20 49 6e 70 75 74 2f 4f 75 74 |6F ! A Input/Out|
00001520 70 75 74 20 28 6e 6f 20 68 61 6e 64 73 68 61 6b |put (no handshak|
00001530 65 29 20 20 20 20 20 20 20 21 0d 20 20 20 20 20 |e) !. |
00001540 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +--------------|
00001550 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001560 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 36 45 20 21 |-------+.&FE6E !|
00001570 20 49 6e 74 65 72 75 70 74 20 63 6f 6e 74 72 6f | Interupt contro|
00001580 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |l |
00001590 20 20 20 20 20 21 0d 20 20 20 20 20 20 2b 2d 2d | !. +--|
000015a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000015c0 2d 2d 2d 2b 0d 26 46 45 36 44 20 21 20 49 6e 74 |---+.&FE6D ! Int|
000015d0 65 72 75 70 74 20 73 74 61 74 75 73 20 20 20 20 |erupt status |
000015e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015f0 20 21 0d 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d | !. +------|
00001600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001610 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---------------+|
00001620 0d 26 46 45 36 43 20 21 20 50 65 72 69 70 68 65 |.&FE6C ! Periphe|
00001630 72 61 6c 20 63 6f 6e 74 72 6f 6c 20 28 68 61 6e |ral control (han|
00001640 64 73 68 61 6b 65 29 20 20 20 20 20 20 21 0d 20 |dshake) !. |
00001650 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +----------|
00001660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001670 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 |-----------+.&FE|
00001680 36 42 20 21 20 41 75 78 69 6c 69 61 72 79 20 28 |6B ! Auxiliary (|
00001690 74 69 6d 65 72 2f 73 68 69 66 74 20 72 65 67 29 |timer/shift reg)|
000016a0 20 63 6f 6e 74 72 6f 6c 20 21 0d 20 20 20 20 20 | control !. |
000016b0 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +--------------|
000016c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000016d0 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 36 41 20 21 |-------+.&FE6A !|
000016e0 20 53 68 69 66 74 20 72 65 67 69 73 74 65 72 20 | Shift register |
000016f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001700 20 20 20 20 20 21 0d 20 20 20 20 20 20 2b 2d 2d | !. +--|
00001710 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001730 2d 2d 2d 2b 0d 26 46 45 36 39 20 21 20 54 69 6d |---+.&FE69 ! Tim|
00001740 65 72 20 32 20 4d 53 42 20 63 6f 75 6e 74 65 72 |er 2 MSB counter|
00001750 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001760 20 21 0d 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d | !. +------|
00001770 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---------------+|
00001790 0d 26 46 45 36 38 20 21 20 54 69 6d 65 72 20 32 |.&FE68 ! Timer 2|
000017a0 20 4c 53 42 20 6c 61 74 63 68 2f 63 6f 75 6e 74 | LSB latch/count|
000017b0 65 72 20 20 20 20 20 20 20 20 20 20 20 21 0d 20 |er !. |
000017c0 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +----------|
000017d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000017e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 |-----------+.&FE|
000017f0 36 37 20 21 20 54 69 6d 65 72 20 31 20 4d 53 42 |67 ! Timer 1 MSB|
00001800 20 6c 61 74 63 68 20 20 20 20 20 20 20 20 20 20 | latch |
00001810 20 20 20 20 20 20 20 20 20 21 0d 20 20 20 20 20 | !. |
00001820 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +--------------|
00001830 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001840 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 36 36 20 21 |-------+.&FE66 !|
00001850 20 54 69 6d 65 72 20 31 20 4c 53 42 20 6c 61 74 | Timer 1 LSB lat|
00001860 63 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ch |
00001870 20 20 20 20 20 21 0d 20 20 20 20 20 20 2b 2d 2d | !. +--|
00001880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000018a0 2d 2d 2d 2b 0d 26 46 45 36 35 20 21 20 54 69 6d |---+.&FE65 ! Tim|
000018b0 65 72 20 31 20 4d 53 42 20 6c 61 74 63 68 2f 63 |er 1 MSB latch/c|
000018c0 6f 75 6e 74 65 72 20 20 20 20 20 20 20 20 20 20 |ounter |
000018d0 20 21 0d 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d | !. +------|
000018e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000018f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---------------+|
00001900 0d 26 46 45 36 34 20 21 20 54 69 6d 65 72 20 31 |.&FE64 ! Timer 1|
00001910 20 4c 53 42 20 6c 61 74 63 68 2f 63 6f 75 6e 74 | LSB latch/count|
00001920 65 72 20 20 20 20 20 20 20 20 20 20 20 21 0d 20 |er !. |
00001930 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +----------|
00001940 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001950 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 |-----------+.&FE|
00001960 36 33 20 21 20 44 69 72 65 63 74 69 6f 6e 20 72 |63 ! Direction r|
00001970 65 67 69 73 74 65 72 20 41 20 20 20 20 20 20 20 |egister A |
00001980 20 20 20 20 20 20 20 20 20 21 0d 20 20 20 20 20 | !. |
00001990 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +--------------|
000019a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000019b0 2d 2d 2d 2d 2d 2d 2d 2b 0d 26 46 45 36 32 20 21 |-------+.&FE62 !|
000019c0 20 44 69 72 65 63 74 69 6f 6e 20 72 65 67 69 73 | Direction regis|
000019d0 74 65 72 20 42 20 20 20 20 20 20 20 20 20 20 20 |ter B |
000019e0 20 20 20 20 20 21 0d 20 20 20 20 20 20 2b 2d 2d | !. +--|
000019f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001a10 2d 2d 2d 2b 0d 26 46 45 36 31 20 21 20 41 20 49 |---+.&FE61 ! A I|
00001a20 6e 70 75 74 2f 4f 75 74 70 75 74 20 20 20 20 20 |nput/Output |
00001a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001a40 20 21 0d 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d | !. +------|
00001a50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---------------+|
00001a70 0d 26 46 45 36 30 20 21 20 42 20 49 6e 70 75 74 |.&FE60 ! B Input|
00001a80 2f 4f 75 74 70 75 74 20 20 20 20 20 20 20 20 20 |/Output |
00001a90 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0d 20 | !. |
00001aa0 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | +----------|
00001ab0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0d 0d 46 69 |-----------+..Fi|
00001ad0 67 75 72 65 20 31 34 2e 31 20 20 54 68 65 20 56 |gure 14.1 The V|
00001ae0 49 41 2d 42 20 72 65 67 69 73 74 65 72 73 0d 2d |IA-B registers.-|
00001af0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 2d 2d 2d 2d |---------- ----|
00001b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
00001b10 0d 0d 0d 20 20 42 6f 74 68 20 56 49 41 73 20 68 |... Both VIAs h|
00001b20 61 76 65 20 32 30 20 49 2f 4f 20 6c 69 6e 65 73 |ave 20 I/O lines|
00001b30 20 67 72 6f 75 70 65 64 20 69 6e 74 6f 20 61 6e | grouped into an|
00001b40 20 41 20 73 69 64 65 20 61 6e 64 20 61 20 42 20 | A side and a B |
00001b50 73 69 64 65 20 6f 66 0d 31 30 20 6c 69 6e 65 73 |side of.10 lines|
00001b60 20 65 61 63 68 2e 20 54 68 65 73 65 20 31 30 20 | each. These 10 |
00001b70 6c 69 6e 65 73 20 61 72 65 20 64 69 76 69 64 65 |lines are divide|
00001b80 64 20 69 6e 74 6f 20 38 20 64 61 74 61 20 6c 69 |d into 8 data li|
00001b90 6e 65 73 20 61 6e 64 20 32 0d 68 61 6e 64 73 68 |nes and 2.handsh|
00001ba0 61 6b 65 20 6c 69 6e 65 73 2e 20 54 68 65 20 64 |ake lines. The d|
00001bb0 61 74 61 20 6c 69 6e 65 73 20 61 72 65 20 63 61 |ata lines are ca|
00001bc0 6c 6c 65 64 20 50 41 30 20 74 6f 20 50 41 37 20 |lled PA0 to PA7 |
00001bd0 6f 6e 20 74 68 65 20 41 20 73 69 64 65 0d 61 6e |on the A side.an|
00001be0 64 20 50 42 30 20 74 6f 20 50 42 37 20 6f 6e 20 |d PB0 to PB7 on |
00001bf0 74 68 65 20 42 20 73 69 64 65 2e 20 54 68 65 20 |the B side. The |
00001c00 68 61 6e 64 73 68 61 6b 65 20 6c 69 6e 65 73 20 |handshake lines |
00001c10 61 72 65 20 63 61 6c 6c 65 64 20 43 41 31 20 61 |are called CA1 a|
00001c20 6e 64 0d 43 41 32 20 6f 6e 20 74 68 65 20 41 20 |nd.CA2 on the A |
00001c30 73 69 64 65 20 61 6e 64 20 43 42 31 20 61 6e 64 |side and CB1 and|
00001c40 20 43 42 32 20 6f 6e 20 74 68 65 20 42 20 73 69 | CB2 on the B si|
00001c50 64 65 2e 20 54 68 65 20 42 42 43 20 4d 69 63 72 |de. The BBC Micr|
00001c60 6f 20 75 73 65 73 0d 74 68 65 20 41 20 73 69 64 |o uses.the A sid|
00001c70 65 20 6f 66 20 56 49 41 2d 42 20 66 6f 72 20 74 |e of VIA-B for t|
00001c80 68 65 20 70 72 69 6e 74 65 72 20 69 6e 74 65 72 |he printer inter|
00001c90 66 61 63 65 20 61 6e 64 20 74 68 65 20 42 20 73 |face and the B s|
00001ca0 69 64 65 20 6f 66 20 56 49 41 2d 42 0d 66 6f 72 |ide of VIA-B.for|
00001cb0 20 74 68 65 20 75 73 65 72 20 70 6f 72 74 2e 20 | the user port. |
00001cc0 50 41 30 20 74 6f 20 50 41 37 20 61 72 65 20 75 |PA0 to PA7 are u|
00001cd0 73 65 64 20 61 73 20 74 68 65 20 6f 75 74 70 75 |sed as the outpu|
00001ce0 74 20 64 61 74 61 20 6c 69 6e 65 73 20 66 6f 72 |t data lines for|
00001cf0 0d 74 68 65 20 70 61 72 61 6c 6c 65 6c 20 70 72 |.the parallel pr|
00001d00 69 6e 74 65 72 2c 20 43 41 31 20 69 73 20 75 73 |inter, CA1 is us|
00001d10 65 64 20 66 6f 72 20 74 68 65 20 70 72 69 6e 74 |ed for the print|
00001d20 65 72 20 61 63 6b 6e 6f 77 6c 65 64 67 65 20 61 |er acknowledge a|
00001d30 6e 64 20 43 41 32 0d 66 6f 72 20 74 68 65 20 70 |nd CA2.for the p|
00001d40 72 69 6e 74 65 72 20 73 74 72 6f 62 65 2e 0d 0d |rinter strobe...|
00001d50 20 20 54 68 65 20 70 72 69 6e 74 65 72 20 62 75 | The printer bu|
00001d60 66 66 65 72 20 70 72 6f 67 72 61 6d 20 75 73 65 |ffer program use|
00001d70 73 20 74 68 65 20 6f 75 74 70 75 74 20 72 65 67 |s the output reg|
00001d80 69 73 74 65 72 20 61 74 20 26 46 45 36 31 2c 20 |ister at &FE61, |
00001d90 74 68 65 0d 70 65 72 69 70 68 65 72 61 6c 20 63 |the.peripheral c|
00001da0 6f 6e 74 72 6f 6c 20 72 65 67 69 73 74 65 72 20 |ontrol register |
00001db0 61 74 20 26 46 45 36 43 2c 20 74 68 65 20 69 6e |at &FE6C, the in|
00001dc0 74 65 72 75 70 74 20 73 74 61 74 75 73 20 72 65 |terupt status re|
00001dd0 67 69 73 74 65 72 20 61 74 0d 26 46 45 36 44 20 |gister at.&FE6D |
00001de0 61 6e 64 20 74 68 65 20 69 6e 74 65 72 75 70 74 |and the interupt|
00001df0 20 63 6f 6e 74 72 6f 6c 20 72 65 67 69 73 74 65 | control registe|
00001e00 72 20 61 74 20 26 46 45 36 45 2e 0d 0d 20 20 54 |r at &FE6E... T|
00001e10 68 65 20 70 65 72 69 70 68 65 72 61 6c 20 63 6f |he peripheral co|
00001e20 6e 74 72 6f 6c 20 72 65 67 69 73 74 65 72 20 69 |ntrol register i|
00001e30 73 20 75 73 65 64 20 74 6f 20 73 65 74 20 75 70 |s used to set up|
00001e40 20 74 68 65 20 68 61 6e 64 73 68 61 6b 69 6e 67 | the handshaking|
00001e50 0d 77 69 74 68 20 74 68 65 20 70 72 69 6e 74 65 |.with the printe|
00001e60 72 20 28 6c 69 6e 65 73 20 31 34 39 30 2d 31 35 |r (lines 1490-15|
00001e70 31 30 20 61 6e 64 20 6c 69 6e 65 20 31 35 35 30 |10 and line 1550|
00001e80 29 2e 20 54 68 65 20 6e 75 6d 62 65 72 20 26 30 |). The number &0|
00001e90 41 20 69 73 0d 73 74 6f 72 65 64 20 69 6e 20 74 |A is.stored in t|
00001ea0 68 65 20 6c 65 61 73 74 20 73 69 67 6e 69 66 69 |he least signifi|
00001eb0 63 61 6e 74 20 6e 79 62 62 6c 65 20 6f 66 20 74 |cant nybble of t|
00001ec0 68 69 73 20 72 65 67 69 73 74 65 72 20 61 6e 64 |his register and|
00001ed0 20 74 68 69 73 20 68 61 73 0d 74 68 65 20 65 66 | this has.the ef|
00001ee0 66 65 63 74 20 6f 66 20 73 65 6e 64 69 6e 67 20 |fect of sending |
00001ef0 61 20 73 74 72 6f 62 65 20 70 75 6c 73 65 20 28 |a strobe pulse (|
00001f00 43 41 32 20 6c 6f 77 29 20 74 6f 20 74 68 65 20 |CA2 low) to the |
00001f10 70 72 69 6e 74 65 72 20 66 6f 72 20 31 0d 63 79 |printer for 1.cy|
00001f20 63 6c 65 20 6f 66 20 74 68 65 20 31 20 4d 48 7a |cle of the 1 MHz|
00001f30 20 63 6c 6f 63 6b 20 66 6f 6c 6c 6f 77 69 6e 67 | clock following|
00001f40 20 61 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 | a write to the |
00001f50 6f 75 74 70 75 74 20 72 65 67 69 73 74 65 72 20 |output register |
00001f60 61 74 0d 26 46 45 36 31 2e 20 54 68 65 20 43 65 |at.&FE61. The Ce|
00001f70 6e 74 72 6f 6e 69 63 73 20 69 6e 74 65 72 66 61 |ntronics interfa|
00001f80 63 65 20 72 65 71 75 69 72 65 73 20 61 20 73 74 |ce requires a st|
00001f90 72 6f 62 65 20 70 75 6c 73 65 20 77 69 64 74 68 |robe pulse width|
00001fa0 20 6f 66 20 61 74 0d 6c 65 61 73 74 20 30 2e 35 | of at.least 0.5|
00001fb0 20 6d 69 63 72 6f 20 73 65 63 6f 6e 64 73 20 61 | micro seconds a|
00001fc0 74 20 74 68 65 20 72 65 63 69 65 76 69 6e 67 20 |t the recieving |
00001fd0 74 65 72 6d 69 6e 61 6c 2e 20 54 68 65 20 70 65 |terminal. The pe|
00001fe0 72 69 70 68 65 72 61 6c 0d 63 6f 6e 74 72 6f 6c |ripheral.control|
00001ff0 20 72 65 67 69 73 74 65 72 20 69 73 20 73 68 6f | register is sho|
00002000 77 6e 20 69 6e 20 66 69 67 75 72 65 20 31 34 2e |wn in figure 14.|
00002010 32 20 77 69 74 68 20 62 69 74 73 20 31 20 61 6e |2 with bits 1 an|
00002020 64 20 33 20 73 65 74 20 28 73 65 65 0d 61 6c 73 |d 3 set (see.als|
00002030 6f 20 70 72 6f 67 72 61 6d 20 6c 69 6e 65 73 20 |o program lines |
00002040 31 34 39 30 2d 31 35 31 30 20 61 6e 64 20 6c 69 |1490-1510 and li|
00002050 6e 65 20 31 35 35 30 29 2e 0d 0d 0d 0d 0d 0d 0d |ne 1550)........|
00002060 20 20 20 20 37 20 20 20 20 20 20 20 36 20 20 20 | 7 6 |
00002070 20 20 20 20 35 20 20 20 20 20 20 20 34 20 20 20 | 5 4 |
00002080 20 20 20 20 33 20 20 20 20 20 20 20 32 20 20 20 | 3 2 |
00002090 20 20 20 20 31 20 20 20 20 20 20 20 30 0d 2b 2d | 1 0.+-|
000020a0 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2b 2d |------+-------+-|
*
000020d0 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2b 0d |------+-------+.|
000020e0 21 20 20 20 20 20 20 20 20 20 20 43 42 32 20 20 |! CB2 |
000020f0 20 20 20 20 20 20 20 20 21 20 20 43 42 31 20 20 | ! CB1 |
00002100 21 20 20 20 20 20 20 20 20 20 20 43 41 32 20 20 |! CA2 |
00002110 20 20 20 20 20 20 20 20 21 20 20 43 41 31 20 20 | ! CA1 |
00002120 21 0d 21 20 20 20 20 20 20 20 20 63 6f 6e 74 72 |!.! contr|
00002130 6f 6c 20 20 20 20 20 20 20 20 21 63 6f 6e 74 72 |ol !contr|
00002140 6f 6c 21 20 20 20 20 20 20 20 20 63 6f 6e 74 72 |ol! contr|
00002150 6f 6c 20 20 20 20 20 20 20 20 21 63 6f 6e 74 72 |ol !contr|
00002160 6f 6c 21 0d 2b 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |ol!.+-------+---|
00002170 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |----+-------+---|
*
000021a0 2d 2d 2d 2d 2b 0d 20 20 20 20 20 20 20 20 20 20 |----+. |
000021b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021c0 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 | 1 |
000021d0 20 20 30 20 20 20 20 20 20 20 31 20 20 20 20 20 | 0 1 |
000021e0 20 20 30 20 20 20 20 20 26 30 41 0d 0d 46 69 67 | 0 &0A..Fig|
000021f0 75 72 65 20 31 34 2e 32 20 20 54 68 65 20 70 65 |ure 14.2 The pe|
00002200 72 69 70 68 65 72 61 6c 20 63 6f 6e 74 72 6f 6c |ripheral control|
00002210 20 28 68 61 6e 64 73 68 61 6b 65 29 20 72 65 67 | (handshake) reg|
00002220 69 73 74 65 72 2e 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ister..---------|
00002230 2d 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |-- ------------|
00002240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00002260 0d 0d 0d 0d 20 20 54 68 65 20 61 63 6b 6e 6f 77 |.... The acknow|
00002270 6c 65 64 67 65 20 6c 69 6e 65 20 69 73 20 63 6f |ledge line is co|
00002280 6e 6e 65 63 74 65 64 20 74 6f 20 43 41 31 20 61 |nnected to CA1 a|
00002290 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 67 65 |nd is used to ge|
000022a0 6e 65 72 61 74 65 20 61 6e 0d 69 6e 74 65 72 75 |nerate an.interu|
000022b0 70 74 20 77 68 65 6e 20 74 68 65 20 70 72 69 6e |pt when the prin|
000022c0 74 65 72 20 68 61 73 20 72 65 63 69 65 76 65 64 |ter has recieved|
000022d0 20 64 61 74 61 20 61 6e 64 20 69 73 20 72 65 61 | data and is rea|
000022e0 64 79 20 74 6f 20 61 63 63 65 70 74 0d 6d 6f 72 |dy to accept.mor|
000022f0 65 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 |e data from the |
00002300 70 72 69 6e 74 65 72 20 62 75 66 66 65 72 2e 20 |printer buffer. |
00002310 54 68 65 20 43 65 6e 74 72 6f 6e 69 63 73 20 70 |The Centronics p|
00002320 72 6f 74 6f 63 6f 6c 20 74 61 6b 65 73 20 74 68 |rotocol takes th|
00002330 65 0d 61 63 6b 6e 6f 77 6c 65 64 67 65 20 6c 69 |e.acknowledge li|
00002340 6e 65 20 6c 6f 77 20 66 6f 72 20 61 62 6f 75 74 |ne low for about|
00002350 20 31 32 20 6d 69 63 72 6f 20 73 65 63 6f 6e 64 | 12 micro second|
00002360 73 2e 20 43 41 31 20 69 73 20 72 65 73 65 74 20 |s. CA1 is reset |
00002370 74 6f 20 7a 65 72 6f 0d 69 6e 20 74 68 65 20 70 |to zero.in the p|
00002380 65 72 69 70 68 65 72 61 6c 20 63 6f 6e 74 72 6f |eripheral contro|
00002390 6c 20 72 65 67 69 73 74 65 72 20 28 6c 69 6e 65 |l register (line|
000023a0 73 20 31 34 39 30 2d 31 35 31 30 20 61 6e 64 20 |s 1490-1510 and |
000023b0 6c 69 6e 65 20 31 35 35 30 29 20 61 6e 64 0d 69 |line 1550) and.i|
000023c0 74 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 |ts corresponding|
000023d0 20 62 69 74 20 69 6e 20 74 68 65 20 69 6e 74 65 | bit in the inte|
000023e0 72 75 70 74 20 73 74 61 74 75 73 20 72 65 67 69 |rupt status regi|
000023f0 73 74 65 72 20 77 69 6c 6c 20 62 65 20 73 65 74 |ster will be set|
00002400 20 74 6f 20 31 0d 77 68 65 6e 20 74 68 65 20 76 | to 1.when the v|
00002410 6f 6c 74 61 67 65 20 6f 6e 20 74 68 65 20 43 41 |oltage on the CA|
00002420 31 20 69 6e 70 75 74 20 6c 69 6e 65 20 67 6f 65 |1 input line goe|
00002430 73 20 66 72 6f 6d 20 68 69 67 68 20 74 6f 20 6c |s from high to l|
00002440 6f 77 2e 20 43 41 31 20 77 69 6c 6c 0d 73 65 74 |ow. CA1 will.set|
00002450 20 61 20 62 69 74 20 69 6e 20 74 68 65 20 69 6e | a bit in the in|
00002460 74 65 72 75 70 74 20 73 74 61 74 75 73 20 72 65 |terupt status re|
00002470 67 69 73 74 65 72 20 61 6e 64 20 67 65 6e 65 72 |gister and gener|
00002480 61 74 65 20 61 6e 20 49 52 51 20 69 6e 74 65 72 |ate an IRQ inter|
00002490 75 70 74 0d 69 66 20 74 68 65 20 43 41 31 20 62 |upt.if the CA1 b|
000024a0 69 74 20 69 6e 20 74 68 65 20 73 74 61 74 75 73 |it in the status|
000024b0 20 72 65 67 69 73 74 65 72 20 68 61 73 20 62 65 | register has be|
000024c0 65 6e 20 73 65 74 2e 20 42 69 74 20 32 20 28 43 |en set. Bit 2 (C|
000024d0 41 31 29 20 69 73 20 73 65 74 0d 62 79 20 73 65 |A1) is set.by se|
000024e0 74 74 69 6e 67 20 62 69 74 73 20 37 20 61 6e 64 |tting bits 7 and|
000024f0 20 32 2c 20 69 65 2e 20 62 79 20 73 74 6f 72 69 | 2, ie. by stori|
00002500 6e 67 20 26 38 32 20 69 6e 20 74 68 65 20 63 6f |ng &82 in the co|
00002510 6e 74 72 6f 6c 20 72 65 67 69 73 74 65 72 20 61 |ntrol register a|
00002520 73 0d 73 68 6f 77 6e 20 69 6e 20 66 69 67 75 72 |s.shown in figur|
00002530 65 20 31 34 2e 33 20 28 6c 69 6e 65 20 31 35 32 |e 14.3 (line 152|
00002540 30 20 61 6e 64 20 6c 69 6e 65 20 31 35 36 30 29 |0 and line 1560)|
00002550 2e 20 42 69 74 20 32 20 6f 66 20 74 68 65 20 63 |. Bit 2 of the c|
00002560 6f 6e 74 72 6f 6c 0d 72 65 67 69 73 74 65 72 20 |ontrol.register |
00002570 63 61 6e 20 62 65 20 63 6c 65 61 72 65 64 20 62 |can be cleared b|
00002580 79 20 63 6c 65 61 72 69 6e 67 20 62 69 74 20 37 |y clearing bit 7|
00002590 20 61 6e 64 20 73 65 74 74 69 6e 67 20 62 69 74 | and setting bit|
000025a0 20 32 2c 20 69 65 2e 20 62 79 0d 73 74 6f 72 69 | 2, ie. by.stori|
000025b0 6e 67 20 32 20 69 6e 20 74 68 65 20 63 6f 6e 74 |ng 2 in the cont|
000025c0 72 6f 6c 20 72 65 67 69 73 74 65 72 20 28 6c 69 |rol register (li|
000025d0 6e 65 73 20 31 34 32 30 2d 31 34 33 30 29 2e 0d |nes 1420-1430)..|
000025e0 0d 0d 0d 0d 0d 20 20 20 20 20 37 20 20 20 20 20 |..... 7 |
000025f0 20 20 36 20 20 20 20 20 35 20 20 20 20 20 34 20 | 6 5 4 |
00002600 20 20 20 20 33 20 20 20 20 20 32 20 20 20 20 20 | 3 2 |
00002610 31 20 20 20 20 20 30 0d 2b 2d 2d 2d 2d 2d 2d 2d |1 0.+-------|
00002620 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d |--+-----+-----+-|
00002630 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d |----+-----+-----|
00002640 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 0d 21 20 |+-----+-----+.! |
00002650 20 20 49 52 51 20 20 20 21 20 54 31 20 20 21 20 | IRQ ! T1 ! |
00002660 54 32 20 20 21 20 43 42 31 20 21 20 43 42 32 20 |T2 ! CB1 ! CB2 |
00002670 21 20 53 52 20 20 21 20 43 41 31 20 21 20 43 41 |! SR ! CA1 ! CA|
00002680 32 20 21 20 49 6e 74 65 72 75 70 74 20 73 74 61 |2 ! Interupt sta|
00002690 74 75 73 0d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d |tus.+---------+-|
000026a0 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d |----+-----+-----|
000026b0 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d |+-----+-----+---|
000026c0 2d 2d 2b 2d 2d 2d 2d 2d 2b 0d 21 53 65 74 2f 43 |--+-----+.!Set/C|
000026d0 6c 65 61 72 21 20 54 31 20 20 21 20 54 32 20 20 |lear! T1 ! T2 |
000026e0 21 20 43 42 31 20 21 20 43 42 32 20 21 20 53 52 |! CB1 ! CB2 ! SR|
000026f0 20 20 21 20 43 41 31 20 21 20 43 41 32 20 21 20 | ! CA1 ! CA2 ! |
00002700 49 6e 74 65 72 75 70 74 20 63 6f 6e 74 72 6f 6c |Interupt control|
00002710 0d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d |.+---------+----|
00002720 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d |-+-----+-----+--|
00002730 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b |---+-----+-----+|
00002740 2d 2d 2d 2d 2d 2b 0d 20 20 20 20 20 31 20 20 20 |-----+. 1 |
00002750 20 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20 | 0 0 |
00002760 30 20 20 20 20 20 30 20 20 20 20 20 30 20 20 20 |0 0 0 |
00002770 20 20 31 20 20 20 20 20 30 20 20 20 20 26 38 32 | 1 0 &82|
00002780 0d 0d 46 69 67 75 72 65 20 31 34 2e 33 20 20 49 |..Figure 14.3 I|
00002790 6e 74 65 72 75 70 74 20 73 74 61 74 75 73 20 61 |nterupt status a|
000027a0 6e 64 20 63 6f 6e 74 72 6f 6c 20 72 65 67 69 73 |nd control regis|
000027b0 74 65 72 73 2e 0d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ters..----------|
000027c0 2d 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |- -------------|
000027d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000027e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d 0d 0d 0d 20 54 |---------..... T|
000027f0 68 65 20 63 6f 6e 74 72 6f 6c 20 61 6e 64 20 73 |he control and s|
00002800 74 61 74 75 73 20 72 65 67 69 73 74 65 72 73 20 |tatus registers |
00002810 77 6f 72 6b 20 61 73 20 61 20 70 61 69 72 20 61 |work as a pair a|
00002820 6e 64 20 74 68 65 20 73 74 61 74 75 73 0d 72 65 |nd the status.re|
00002830 67 69 73 74 65 72 20 69 73 20 69 6e 74 65 72 72 |gister is interr|
00002840 6f 67 61 74 65 64 20 62 79 20 74 68 65 20 62 75 |ogated by the bu|
00002850 66 66 65 72 20 70 72 6f 67 72 61 6d 20 74 6f 20 |ffer program to |
00002860 73 65 65 20 69 66 20 74 68 65 20 70 72 69 6e 74 |see if the print|
00002870 65 72 0d 69 73 20 74 68 65 20 73 6f 75 72 63 65 |er.is the source|
00002880 20 6f 66 20 61 6e 20 69 6e 74 65 72 75 70 74 20 | of an interupt |
00002890 28 6c 69 6e 65 73 20 31 31 34 30 2d 31 31 36 30 |(lines 1140-1160|
000028a0 29 2e 20 49 66 20 62 69 74 73 20 31 20 61 6e 64 |). If bits 1 and|
000028b0 20 37 20 6f 66 20 74 68 65 0d 73 74 61 74 75 73 | 7 of the.status|
000028c0 20 72 65 67 69 73 74 65 72 20 61 72 65 20 6e 6f | register are no|
000028d0 74 20 73 65 74 20 74 68 65 6e 20 74 68 65 20 70 |t set then the p|
000028e0 72 69 6e 74 65 72 20 77 61 73 20 6e 6f 74 20 74 |rinter was not t|
000028f0 68 65 20 73 6f 75 72 63 65 20 6f 66 20 74 68 65 |he source of the|
00002900 0d 69 6e 74 65 72 75 70 74 20 61 6e 64 20 63 6f |.interupt and co|
00002910 6e 74 72 6f 6c 20 69 73 20 72 65 74 75 72 6e 65 |ntrol is returne|
00002920 64 20 74 6f 20 74 68 65 20 4d 4f 53 20 77 69 74 |d to the MOS wit|
00002930 68 20 61 6c 6c 20 74 68 65 20 72 65 67 69 73 74 |h all the regist|
00002940 65 72 0d 70 72 65 73 65 72 76 65 64 20 28 6c 69 |er.preserved (li|
00002950 6e 65 20 31 31 36 30 2c 20 6c 69 6e 65 73 20 31 |ne 1160, lines 1|
00002960 32 38 30 2d 31 33 30 30 20 61 6e 64 20 6c 69 6e |280-1300 and lin|
00002970 65 73 20 36 34 30 2d 37 31 30 29 2e 20 49 66 20 |es 640-710). If |
00002980 74 68 65 0d 62 75 66 66 65 72 20 68 61 73 20 6e |the.buffer has n|
00002990 6f 74 20 62 65 65 6e 20 65 6e 61 62 6c 65 64 20 |ot been enabled |
000029a0 77 69 74 68 20 2a 46 58 35 2c 33 20 63 6f 6e 74 |with *FX5,3 cont|
000029b0 72 6f 6c 20 69 73 20 61 6c 73 6f 20 72 65 74 75 |rol is also retu|
000029c0 72 6e 65 64 20 74 6f 0d 74 68 65 20 4d 4f 53 20 |rned to.the MOS |
000029d0 28 6c 69 6e 65 73 20 31 31 37 30 2d 31 31 39 30 |(lines 1170-1190|
000029e0 2c 20 6c 69 6e 65 73 20 31 32 38 30 2d 31 33 30 |, lines 1280-130|
000029f0 30 20 61 6e 64 20 6c 69 6e 65 73 20 36 34 30 2d |0 and lines 640-|
00002a00 37 31 30 29 2e 0d 0d 0d 0d 0d 20 20 20 31 30 20 |710)...... 10 |
00002a10 52 45 4d 3a 20 42 55 46 46 45 52 0d 20 20 20 32 |REM: BUFFER. 2|
00002a20 30 20 52 45 4d 3a 20 28 43 29 20 47 6f 72 64 6f |0 REM: (C) Gordo|
00002a30 6e 20 48 6f 72 73 69 6e 67 74 6f 6e 20 31 39 38 |n Horsington 198|
00002a40 37 0d 20 20 20 33 30 20 4d 4f 44 45 37 0d 20 20 |7. 30 MODE7. |
00002a50 20 34 30 20 48 49 4d 45 4d 3d 26 33 43 30 30 0d | 40 HIMEM=&3C00.|
00002a60 20 20 20 35 30 20 44 49 4d 20 73 61 76 65 20 35 | 50 DIM save 5|
00002a70 30 0d 20 20 20 36 30 20 64 69 66 66 3d 26 38 30 |0. 60 diff=&80|
00002a80 30 30 2d 48 49 4d 45 4d 0d 20 20 20 37 30 20 72 |00-HIMEM. 70 r|
00002a90 6f 6d 6e 75 6d 62 65 72 3d 26 46 34 0d 20 20 20 |omnumber=&F4. |
00002aa0 38 30 20 73 74 61 63 6b 3d 26 31 30 33 0d 20 20 |80 stack=&103. |
00002ab0 20 39 30 20 75 70 74 76 3d 26 32 32 32 0d 20 20 | 90 uptv=&222. |
00002ac0 31 30 30 20 73 74 61 72 66 78 35 3d 26 32 38 35 |100 starfx5=&285|
00002ad0 0d 20 20 31 31 30 20 70 6f 69 6e 74 65 72 3d 26 |. 110 pointer=&|
00002ae0 38 31 30 30 0d 20 20 31 32 30 20 70 72 69 6e 74 |8100. 120 print|
00002af0 6f 75 74 3d 26 46 45 36 31 0d 20 20 31 33 30 20 |out=&FE61. 130 |
00002b00 68 61 6e 64 73 68 61 6b 65 3d 26 46 45 36 43 0d |handshake=&FE6C.|
00002b10 20 20 31 34 30 20 73 74 61 74 75 73 3d 26 46 45 | 140 status=&FE|
00002b20 36 44 0d 20 20 31 35 30 20 63 6f 6e 74 72 6f 6c |6D. 150 control|
00002b30 3d 26 46 45 36 45 0d 20 20 31 36 30 20 6f 73 62 |=&FE6E. 160 osb|
00002b40 79 74 65 3d 26 46 46 46 34 0d 20 20 31 37 30 20 |yte=&FFF4. 170 |
00002b50 6f 73 63 6c 69 3d 26 46 46 46 37 0d 20 20 31 38 |oscli=&FFF7. 18|
00002b60 30 20 41 25 3d 26 41 38 0d 20 20 31 39 30 20 58 |0 A%=&A8. 190 X|
00002b70 25 3d 30 0d 20 20 32 30 30 20 59 25 3d 26 46 46 |%=0. 200 Y%=&FF|
00002b80 0d 20 20 32 31 30 20 65 78 74 76 65 63 3d 28 55 |. 210 extvec=(U|
00002b90 53 52 28 6f 73 62 79 74 65 29 41 4e 44 26 46 46 |SR(osbyte)AND&FF|
00002ba0 46 46 30 30 29 44 49 56 32 35 36 0d 20 20 32 32 |FF00)DIV256. 22|
00002bb0 30 20 46 4f 52 20 70 61 73 73 20 3d 20 30 20 54 |0 FOR pass = 0 T|
00002bc0 4f 20 32 20 53 54 45 50 20 32 0d 20 20 32 33 30 |O 2 STEP 2. 230|
00002bd0 20 50 25 3d 48 49 4d 45 4d 0d 20 20 32 34 30 20 | P%=HIMEM. 240 |
00002be0 5b 20 20 20 20 20 20 20 4f 50 54 20 70 61 73 73 |[ OPT pass|
00002bf0 0d 20 20 32 35 30 20 20 20 20 20 20 20 20 20 42 |. 250 B|
00002c00 52 4b 0d 20 20 32 36 30 20 20 20 20 20 20 20 20 |RK. 260 |
00002c10 20 42 52 4b 0d 20 20 32 37 30 20 20 20 20 20 20 | BRK. 270 |
00002c20 20 20 20 42 52 4b 0d 20 20 32 38 30 20 20 20 20 | BRK. 280 |
00002c30 20 20 20 20 20 4a 4d 50 20 73 65 72 76 69 63 65 | JMP service|
00002c40 2b 64 69 66 66 0d 20 20 32 39 30 20 20 20 20 20 |+diff. 290 |
00002c50 20 20 20 20 4f 50 54 20 46 4e 65 71 75 62 28 26 | OPT FNequb(&|
00002c60 38 32 29 0d 20 20 33 30 30 20 20 20 20 20 20 20 |82). 300 |
00002c70 20 20 4f 50 54 20 46 4e 65 71 75 62 28 28 63 6f | OPT FNequb((co|
00002c80 70 79 72 69 67 68 74 2b 64 69 66 66 29 20 4d 4f |pyright+diff) MO|
00002c90 44 20 32 35 36 29 0d 20 20 33 31 30 20 2e 63 6f |D 256). 310 .co|
00002ca0 70 79 72 69 67 68 74 0d 20 20 33 32 30 20 20 20 |pyright. 320 |
00002cb0 20 20 20 20 20 20 42 52 4b 0d 20 20 33 33 30 20 | BRK. 330 |
00002cc0 20 20 20 20 20 20 20 20 4f 50 54 20 46 4e 65 71 | OPT FNeq|
00002cd0 75 73 28 22 28 43 29 22 29 0d 20 20 33 34 30 20 |us("(C)"). 340 |
00002ce0 20 20 20 20 20 20 20 20 42 52 4b 0d 20 20 33 35 | BRK. 35|
00002cf0 30 20 2e 66 6c 61 67 0d 20 20 33 36 30 20 20 20 |0 .flag. 360 |
00002d00 20 20 20 20 20 20 42 52 4b 0d 20 20 33 37 30 20 | BRK. 370 |
00002d10 2e 73 65 72 76 69 63 65 0d 20 20 33 38 30 20 20 |.service. 380 |
00002d20 20 20 20 20 20 20 20 50 48 41 0d 20 20 33 39 30 | PHA. 390|
00002d30 20 20 20 20 20 20 20 20 20 54 58 41 0d 20 20 34 | TXA. 4|
00002d40 30 30 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 |00 PHA. |
00002d50 20 34 31 30 20 20 20 20 20 20 20 20 20 54 59 41 | 410 TYA|
00002d60 0d 20 20 34 32 30 20 20 20 20 20 20 20 20 20 50 |. 420 P|
00002d70 48 41 0d 20 20 34 33 30 20 20 20 20 20 20 20 20 |HA. 430 |
00002d80 20 54 53 58 0d 20 20 34 34 30 20 20 20 20 20 20 | TSX. 440 |
00002d90 20 20 20 4c 44 41 20 73 74 61 63 6b 2c 58 0d 20 | LDA stack,X. |
00002da0 20 34 35 30 20 20 20 20 20 20 20 20 20 43 4d 50 | 450 CMP|
00002db0 20 23 35 0d 20 20 34 36 30 20 20 20 20 20 20 20 | #5. 460 |
00002dc0 20 20 42 45 51 20 69 6e 74 65 72 75 70 74 0d 20 | BEQ interupt. |
00002dd0 20 34 37 30 20 20 20 20 20 20 20 20 20 43 4d 50 | 470 CMP|
00002de0 20 23 26 46 45 0d 20 20 34 38 30 20 20 20 20 20 | #&FE. 480 |
00002df0 20 20 20 20 42 4e 45 20 65 78 69 74 0d 20 20 34 | BNE exit. 4|
00002e00 39 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 23 |90 LDA #|
00002e10 28 62 75 66 66 65 72 2b 64 69 66 66 29 20 4d 4f |(buffer+diff) MO|
00002e20 44 20 32 35 36 20 0d 20 20 35 30 30 20 20 20 20 |D 256 . 500 |
00002e30 20 20 20 20 20 53 54 41 20 65 78 74 76 65 63 2b | STA extvec+|
00002e40 26 33 33 0d 20 20 35 31 30 20 20 20 20 20 20 20 |&33. 510 |
00002e50 20 20 4c 44 41 20 23 28 62 75 66 66 65 72 2b 64 | LDA #(buffer+d|
00002e60 69 66 66 29 20 44 49 56 20 32 35 36 20 0d 20 20 |iff) DIV 256 . |
00002e70 35 32 30 20 20 20 20 20 20 20 20 20 53 54 41 20 |520 STA |
00002e80 65 78 74 76 65 63 2b 26 33 34 0d 20 20 35 33 30 |extvec+&34. 530|
00002e90 20 20 20 20 20 20 20 20 20 4c 44 41 20 72 6f 6d | LDA rom|
00002ea0 6e 75 6d 62 65 72 0d 20 20 35 34 30 20 20 20 20 |number. 540 |
00002eb0 20 20 20 20 20 53 54 41 20 65 78 74 76 65 63 2b | STA extvec+|
00002ec0 26 33 35 0d 20 20 35 35 30 20 20 20 20 20 20 20 |&35. 550 |
00002ed0 20 20 4c 44 41 20 23 26 38 31 0d 20 20 35 36 30 | LDA #&81. 560|
00002ee0 20 20 20 20 20 20 20 20 20 53 54 41 20 64 61 74 | STA dat|
00002ef0 69 6e 2b 64 69 66 66 2b 31 0d 20 20 35 37 30 20 |in+diff+1. 570 |
00002f00 20 20 20 20 20 20 20 20 53 54 41 20 64 61 74 69 | STA dati|
00002f10 6e 2b 64 69 66 66 2b 32 0d 20 20 35 38 30 20 20 |n+diff+2. 580 |
00002f20 20 20 20 20 20 20 20 53 54 41 20 64 61 74 6f 75 | STA datou|
00002f30 74 2b 64 69 66 66 2b 31 0d 20 20 35 39 30 20 20 |t+diff+1. 590 |
00002f40 20 20 20 20 20 20 20 53 54 41 20 64 61 74 6f 75 | STA datou|
00002f50 74 2b 64 69 66 66 2b 32 0d 20 20 36 30 30 20 20 |t+diff+2. 600 |
00002f60 20 20 20 20 20 20 20 4c 44 58 20 23 26 33 33 0d | LDX #&33.|
00002f70 20 20 36 31 30 20 20 20 20 20 20 20 20 20 4c 44 | 610 LD|
00002f80 59 20 23 26 46 46 0d 20 20 36 32 30 20 20 20 20 |Y #&FF. 620 |
00002f90 20 20 20 20 20 53 54 58 20 75 70 74 76 0d 20 20 | STX uptv. |
00002fa0 36 33 30 20 20 20 20 20 20 20 20 20 53 54 59 20 |630 STY |
00002fb0 75 70 74 76 2b 31 0d 20 20 36 34 30 20 2e 65 78 |uptv+1. 640 .ex|
00002fc0 69 74 0d 20 20 36 35 30 20 20 20 20 20 20 20 20 |it. 650 |
00002fd0 20 50 4c 41 0d 20 20 36 36 30 20 20 20 20 20 20 | PLA. 660 |
00002fe0 20 20 20 54 41 59 0d 20 20 36 37 30 20 20 20 20 | TAY. 670 |
00002ff0 20 20 20 20 20 50 4c 41 0d 20 20 36 38 30 20 20 | PLA. 680 |
00003000 20 20 20 20 20 20 20 54 41 58 0d 20 20 36 39 30 | TAX. 690|
00003010 20 20 20 20 20 20 20 20 20 50 4c 41 0d 20 20 37 | PLA. 7|
00003020 30 30 20 2e 72 65 74 75 72 6e 0d 20 20 37 31 30 |00 .return. 710|
00003030 20 20 20 20 20 20 20 20 20 52 54 53 0d 20 20 37 | RTS. 7|
00003040 32 30 20 2e 62 75 66 66 65 72 0d 20 20 37 33 30 |20 .buffer. 730|
00003050 20 20 20 20 20 20 20 20 20 43 50 59 20 23 33 0d | CPY #3.|
00003060 20 20 37 34 30 20 20 20 20 20 20 20 20 20 42 4e | 740 BN|
00003070 45 20 72 65 74 75 72 6e 0d 20 20 37 35 30 20 20 |E return. 750 |
00003080 20 20 20 20 20 20 20 43 4d 50 20 23 31 0d 20 20 | CMP #1. |
00003090 37 36 30 20 20 20 20 20 20 20 20 20 42 4e 45 20 |760 BNE |
000030a0 61 63 74 69 76 65 0d 20 20 37 37 30 20 20 20 20 |active. 770 |
000030b0 20 20 20 20 20 53 54 41 20 66 6c 61 67 2b 64 69 | STA flag+di|
000030c0 66 66 0d 20 20 37 38 30 20 2e 61 63 74 69 76 65 |ff. 780 .active|
000030d0 0d 20 20 37 39 30 20 20 20 20 20 20 20 20 20 50 |. 790 P|
000030e0 48 41 0d 20 20 38 30 30 20 20 20 20 20 20 20 20 |HA. 800 |
000030f0 20 54 58 41 20 0d 20 20 38 31 30 20 20 20 20 20 | TXA . 810 |
00003100 20 20 20 20 50 48 41 20 0d 20 20 38 32 30 20 20 | PHA . 820 |
00003110 20 20 20 20 20 20 20 54 59 41 0d 20 20 38 33 30 | TYA. 830|
00003120 20 20 20 20 20 20 20 20 20 50 48 41 0d 20 20 38 | PHA. 8|
00003130 34 30 20 2e 6f 75 74 65 72 6c 6f 6f 70 0d 20 20 |40 .outerloop. |
00003140 38 35 30 20 20 20 20 20 20 20 20 20 4c 44 59 20 |850 LDY |
00003150 64 61 74 69 6e 2b 64 69 66 66 2b 32 0d 20 20 38 |datin+diff+2. 8|
00003160 36 30 20 20 20 20 20 20 20 20 20 4c 44 58 20 64 |60 LDX d|
00003170 61 74 69 6e 2b 64 69 66 66 2b 31 0d 20 20 38 37 |atin+diff+1. 87|
00003180 30 20 20 20 20 20 20 20 20 20 49 4e 58 20 0d 20 |0 INX . |
00003190 20 38 38 30 20 20 20 20 20 20 20 20 20 42 4e 45 | 880 BNE|
000031a0 20 6e 6f 74 74 6f 70 0d 20 20 38 39 30 20 20 20 | nottop. 890 |
000031b0 20 20 20 20 20 20 49 4e 59 20 0d 20 20 39 30 30 | INY . 900|
000031c0 20 20 20 20 20 20 20 20 20 43 50 59 20 23 26 43 | CPY #&C|
000031d0 30 0d 20 20 39 31 30 20 20 20 20 20 20 20 20 20 |0. 910 |
000031e0 42 4e 45 20 6e 6f 74 74 6f 70 0d 20 20 39 32 30 |BNE nottop. 920|
000031f0 20 20 20 20 20 20 20 20 20 4c 44 59 20 23 26 38 | LDY #&8|
00003200 31 0d 20 20 39 33 30 20 2e 6e 6f 74 74 6f 70 0d |1. 930 .nottop.|
00003210 20 20 39 34 30 20 20 20 20 20 20 20 20 20 43 50 | 940 CP|
00003220 58 20 64 61 74 6f 75 74 2b 64 69 66 66 2b 31 0d |X datout+diff+1.|
00003230 20 20 39 35 30 20 20 20 20 20 20 20 20 20 42 4e | 950 BN|
00003240 45 20 6d 6f 72 65 73 70 61 63 65 0d 20 20 39 36 |E morespace. 96|
00003250 30 20 20 20 20 20 20 20 20 20 43 50 59 20 64 61 |0 CPY da|
00003260 74 6f 75 74 2b 64 69 66 66 2b 32 0d 20 20 39 37 |tout+diff+2. 97|
00003270 30 20 20 20 20 20 20 20 20 20 42 45 51 20 69 6e |0 BEQ in|
00003280 6e 65 72 6c 6f 6f 70 0d 20 20 39 38 30 20 20 20 |nerloop. 980 |
00003290 20 20 20 20 20 20 53 45 43 0d 20 20 39 39 30 20 | SEC. 990 |
000032a0 2e 6d 6f 72 65 73 70 61 63 65 0d 20 31 30 30 30 |.morespace. 1000|
000032b0 20 20 20 20 20 20 20 20 20 54 59 41 20 0d 20 31 | TYA . 1|
000032c0 30 31 30 20 20 20 20 20 20 20 20 20 50 48 41 20 |010 PHA |
000032d0 0d 20 31 30 32 30 20 20 20 20 20 20 20 20 20 4c |. 1020 L|
000032e0 44 41 20 23 26 39 31 0d 20 31 30 33 30 20 20 20 |DA #&91. 1030 |
000032f0 20 20 20 20 20 20 4c 44 58 20 23 33 0d 20 31 30 | LDX #3. 10|
00003300 34 30 20 20 20 20 20 20 20 20 20 4a 53 52 20 6f |40 JSR o|
00003310 73 62 79 74 65 0d 20 31 30 35 30 20 20 20 20 20 |sbyte. 1050 |
00003320 20 20 20 20 50 4c 41 20 0d 20 31 30 36 30 20 20 | PLA . 1060 |
00003330 20 20 20 20 20 20 20 42 43 53 20 69 6e 6e 65 72 | BCS inner|
00003340 6c 6f 6f 70 0d 20 31 30 37 30 20 2e 64 61 74 69 |loop. 1070 .dati|
00003350 6e 0d 20 31 30 38 30 20 20 20 20 20 20 20 20 20 |n. 1080 |
00003360 53 54 59 20 70 6f 69 6e 74 65 72 0d 20 31 30 39 |STY pointer. 109|
00003370 30 20 20 20 20 20 20 20 20 20 49 4e 43 20 64 61 |0 INC da|
00003380 74 69 6e 2b 64 69 66 66 2b 31 0d 20 31 31 30 30 |tin+diff+1. 1100|
00003390 20 20 20 20 20 20 20 20 20 53 54 41 20 64 61 74 | STA dat|
000033a0 69 6e 2b 64 69 66 66 2b 32 0d 20 31 31 31 30 20 |in+diff+2. 1110 |
000033b0 20 20 20 20 20 20 20 20 43 4c 43 20 0d 20 31 31 | CLC . 11|
000033c0 32 30 20 20 20 20 20 20 20 20 20 42 43 43 20 69 |20 BCC i|
000033d0 6e 6e 65 72 6c 6f 6f 70 0d 20 31 31 33 30 20 2e |nnerloop. 1130 .|
000033e0 69 6e 74 65 72 75 70 74 0d 20 31 31 34 30 20 20 |interupt. 1140 |
000033f0 20 20 20 20 20 20 20 4c 44 41 20 23 26 38 32 0d | LDA #&82.|
00003400 20 31 31 35 30 20 20 20 20 20 20 20 20 20 42 49 | 1150 BI|
00003410 54 20 73 74 61 74 75 73 0d 20 31 31 36 30 20 20 |T status. 1160 |
00003420 20 20 20 20 20 20 20 42 45 51 20 72 65 73 74 6f | BEQ resto|
00003430 72 65 0d 20 31 31 37 30 20 20 20 20 20 20 20 20 |re. 1170 |
00003440 20 4c 44 41 20 73 74 61 72 66 78 35 0d 20 31 31 | LDA starfx5. 11|
00003450 38 30 20 20 20 20 20 20 20 20 20 43 4d 50 20 23 |80 CMP #|
00003460 33 0d 20 31 31 39 30 20 20 20 20 20 20 20 20 20 |3. 1190 |
00003470 42 4e 45 20 72 65 73 74 6f 72 65 0d 20 31 32 30 |BNE restore. 120|
00003480 30 20 2e 69 6e 6e 65 72 6c 6f 6f 70 0d 20 31 32 |0 .innerloop. 12|
00003490 31 30 20 20 20 20 20 20 20 20 20 4c 44 41 20 66 |10 LDA f|
000034a0 6c 61 67 2b 64 69 66 66 0d 20 31 32 32 30 20 20 |lag+diff. 1220 |
000034b0 20 20 20 20 20 20 20 42 4e 45 20 6e 6f 74 70 6f | BNE notpo|
000034c0 6c 6c 0d 20 31 32 33 30 20 20 20 20 20 20 20 20 |ll. 1230 |
000034d0 20 4c 44 41 20 23 26 38 32 0d 20 31 32 34 30 20 | LDA #&82. 1240 |
000034e0 20 20 20 20 20 20 20 20 42 49 54 20 73 74 61 74 | BIT stat|
000034f0 75 73 0d 20 31 32 35 30 20 20 20 20 20 20 20 20 |us. 1250 |
00003500 20 42 4e 45 20 6e 6f 74 70 6f 6c 6c 0d 20 31 32 | BNE notpoll. 12|
00003510 36 30 20 2e 73 74 65 70 0d 20 31 32 37 30 20 20 |60 .step. 1270 |
00003520 20 20 20 20 20 20 20 42 43 43 20 6f 75 74 65 72 | BCC outer|
00003530 6c 6f 6f 70 0d 20 31 32 38 30 20 2e 72 65 73 74 |loop. 1280 .rest|
00003540 6f 72 65 0d 20 31 32 39 30 20 20 20 20 20 20 20 |ore. 1290 |
00003550 20 20 43 4c 43 0d 20 31 33 30 30 20 20 20 20 20 | CLC. 1300 |
00003560 20 20 20 20 42 43 43 20 65 78 69 74 0d 20 31 33 | BCC exit. 13|
00003570 31 30 20 2e 6e 6f 74 70 6f 6c 6c 0d 20 31 33 32 |10 .notpoll. 132|
00003580 30 20 20 20 20 20 20 20 20 20 50 48 50 20 0d 20 |0 PHP . |
00003590 31 33 33 30 20 20 20 20 20 20 20 20 20 4c 44 41 |1330 LDA|
000035a0 20 23 30 0d 20 31 33 34 30 20 20 20 20 20 20 20 | #0. 1340 |
000035b0 20 20 53 54 41 20 66 6c 61 67 2b 64 69 66 66 0d | STA flag+diff.|
000035c0 20 31 33 35 30 20 20 20 20 20 20 20 20 20 4c 44 | 1350 LD|
000035d0 41 20 64 61 74 69 6e 2b 64 69 66 66 2b 31 0d 20 |A datin+diff+1. |
000035e0 31 33 36 30 20 20 20 20 20 20 20 20 20 43 4d 50 |1360 CMP|
000035f0 20 64 61 74 6f 75 74 2b 64 69 66 66 2b 31 0d 20 | datout+diff+1. |
00003600 31 33 37 30 20 20 20 20 20 20 20 20 20 42 4e 45 |1370 BNE|
00003610 20 6f 75 74 70 75 74 0d 20 31 33 38 30 20 20 20 | output. 1380 |
00003620 20 20 20 20 20 20 4c 44 41 20 64 61 74 69 6e 2b | LDA datin+|
00003630 64 69 66 66 2b 32 0d 20 31 33 39 30 20 20 20 20 |diff+2. 1390 |
00003640 20 20 20 20 20 43 4d 50 20 64 61 74 6f 75 74 2b | CMP datout+|
00003650 64 69 66 66 2b 32 0d 20 31 34 30 30 20 20 20 20 |diff+2. 1400 |
00003660 20 20 20 20 20 42 4e 45 20 6f 75 74 70 75 74 0d | BNE output.|
00003670 20 31 34 31 30 20 20 20 20 20 20 20 20 20 50 4c | 1410 PL|
00003680 50 0d 20 31 34 32 30 20 20 20 20 20 20 20 20 20 |P. 1420 |
00003690 4c 44 58 20 23 32 0d 20 31 34 33 30 20 20 20 20 |LDX #2. 1430 |
000036a0 20 20 20 20 20 53 54 58 20 63 6f 6e 74 72 6f 6c | STX control|
000036b0 0d 20 31 34 34 30 20 20 20 20 20 20 20 20 20 4c |. 1440 L|
000036c0 44 41 20 23 26 37 42 0d 20 31 34 35 30 20 20 20 |DA #&7B. 1450 |
000036d0 20 20 20 20 20 20 49 4e 58 0d 20 31 34 36 30 20 | INX. 1460 |
000036e0 20 20 20 20 20 20 20 20 4a 53 52 20 6f 73 62 79 | JSR osby|
000036f0 74 65 0d 20 31 34 37 30 20 20 20 20 20 20 20 20 |te. 1470 |
00003700 20 4a 4d 50 20 72 65 73 74 6f 72 65 2b 64 69 66 | JMP restore+dif|
00003710 66 0d 20 31 34 38 30 20 2e 6f 75 74 70 75 74 0d |f. 1480 .output.|
00003720 20 31 34 39 30 20 20 20 20 20 20 20 20 20 4c 44 | 1490 LD|
00003730 41 20 68 61 6e 64 73 68 61 6b 65 0d 20 31 35 30 |A handshake. 150|
00003740 30 20 20 20 20 20 20 20 20 20 41 4e 44 20 23 26 |0 AND #&|
00003750 46 30 0d 20 31 35 31 30 20 20 20 20 20 20 20 20 |F0. 1510 |
00003760 20 4f 52 41 20 23 26 30 41 0d 20 31 35 32 30 20 | ORA #&0A. 1520 |
00003770 20 20 20 20 20 20 20 20 4c 44 58 20 23 26 38 32 | LDX #&82|
00003780 0d 20 31 35 33 30 20 2e 64 61 74 6f 75 74 0d 20 |. 1530 .datout. |
00003790 31 35 34 30 20 20 20 20 20 20 20 20 20 4c 44 59 |1540 LDY|
000037a0 20 70 6f 69 6e 74 65 72 0d 20 31 35 35 30 20 20 | pointer. 1550 |
000037b0 20 20 20 20 20 20 20 53 54 41 20 68 61 6e 64 73 | STA hands|
000037c0 68 61 6b 65 0d 20 31 35 36 30 20 20 20 20 20 20 |hake. 1560 |
000037d0 20 20 20 53 54 58 20 63 6f 6e 74 72 6f 6c 0d 20 | STX control. |
000037e0 31 35 37 30 20 20 20 20 20 20 20 20 20 53 54 59 |1570 STY|
000037f0 20 70 72 69 6e 74 6f 75 74 0d 20 31 35 38 30 20 | printout. 1580 |
00003800 20 20 20 20 20 20 20 20 49 4e 43 20 64 61 74 6f | INC dato|
00003810 75 74 2b 64 69 66 66 2b 31 0d 20 31 35 39 30 20 |ut+diff+1. 1590 |
00003820 20 20 20 20 20 20 20 20 42 4e 45 20 6e 6f 74 70 | BNE notp|
00003830 61 67 65 0d 20 31 36 30 30 20 20 20 20 20 20 20 |age. 1600 |
00003840 20 20 4c 44 59 20 64 61 74 6f 75 74 2b 64 69 66 | LDY datout+dif|
00003850 66 2b 32 0d 20 31 36 31 30 20 20 20 20 20 20 20 |f+2. 1610 |
00003860 20 20 49 4e 59 20 0d 20 31 36 32 30 20 20 20 20 | INY . 1620 |
00003870 20 20 20 20 20 43 50 59 20 23 26 43 30 0d 20 31 | CPY #&C0. 1|
00003880 36 33 30 20 20 20 20 20 20 20 20 20 42 4e 45 20 |630 BNE |
00003890 6d 6f 72 65 72 6f 6f 6d 0d 20 31 36 34 30 20 20 |moreroom. 1640 |
000038a0 20 20 20 20 20 20 20 4c 44 59 20 23 26 38 31 0d | LDY #&81.|
000038b0 20 31 36 35 30 20 2e 6d 6f 72 65 72 6f 6f 6d 0d | 1650 .moreroom.|
000038c0 20 31 36 36 30 20 20 20 20 20 20 20 20 20 53 54 | 1660 ST|
000038d0 59 20 64 61 74 6f 75 74 2b 64 69 66 66 2b 32 0d |Y datout+diff+2.|
000038e0 20 31 36 37 30 20 2e 6e 6f 74 70 61 67 65 0d 20 | 1670 .notpage. |
000038f0 31 36 38 30 20 20 20 20 20 20 20 20 20 50 4c 50 |1680 PLP|
00003900 20 0d 20 31 36 39 30 20 20 20 20 20 20 20 20 20 | . 1690 |
00003910 42 43 53 20 69 6e 6e 65 72 6c 6f 6f 70 0d 20 31 |BCS innerloop. 1|
00003920 37 30 30 20 20 20 20 20 20 20 20 20 42 43 43 20 |700 BCC |
00003930 73 74 65 70 0d 20 31 37 31 30 20 2e 6c 61 73 74 |step. 1710 .last|
00003940 62 79 74 65 0d 20 31 37 32 30 20 5d 0d 20 31 37 |byte. 1720 ]. 17|
00003950 33 30 20 4e 45 58 54 0d 20 31 37 34 30 20 49 4e |30 NEXT. 1740 IN|
00003960 50 55 54 27 22 53 61 76 65 20 66 69 6c 65 6e 61 |PUT'"Save filena|
00003970 6d 65 20 3d 20 22 66 69 6c 65 6e 61 6d 65 24 0d |me = "filename$.|
00003980 20 31 37 35 30 20 49 46 20 66 69 6c 65 6e 61 6d | 1750 IF filenam|
00003990 65 24 3d 22 22 20 45 4e 44 0d 20 31 37 36 30 20 |e$="" END. 1760 |
000039a0 24 73 61 76 65 3d 22 53 41 56 45 20 22 2b 66 69 |$save="SAVE "+fi|
000039b0 6c 65 6e 61 6d 65 24 2b 22 20 22 2b 53 54 52 24 |lename$+" "+STR$|
000039c0 7e 28 48 49 4d 45 4d 29 2b 22 20 22 2b 53 54 52 |~(HIMEM)+" "+STR|
000039d0 24 7e 28 6c 61 73 0d 20 20 20 20 20 20 74 62 79 |$~(las. tby|
000039e0 74 65 29 2b 22 20 46 46 46 46 38 30 30 30 20 46 |te)+" FFFF8000 F|
000039f0 46 46 46 38 30 30 30 22 0d 20 31 37 37 30 20 58 |FFF8000". 1770 X|
00003a00 25 3d 73 61 76 65 20 4d 4f 44 20 32 35 36 0d 20 |%=save MOD 256. |
00003a10 31 37 38 30 20 59 25 3d 73 61 76 65 20 44 49 56 |1780 Y%=save DIV|
00003a20 20 32 35 36 0d 20 31 37 39 30 20 2a 4f 50 54 31 | 256. 1790 *OPT1|
00003a30 2c 32 0d 20 31 38 30 30 20 43 41 4c 4c 20 6f 73 |,2. 1800 CALL os|
00003a40 63 6c 69 0d 20 31 38 31 30 20 2a 4f 50 54 31 2c |cli. 1810 *OPT1,|
00003a50 30 0d 20 31 38 32 30 20 45 4e 44 0d 20 31 38 33 |0. 1820 END. 183|
00003a60 30 20 44 45 46 46 4e 65 71 75 62 28 62 79 74 65 |0 DEFFNequb(byte|
00003a70 29 0d 20 31 38 34 30 20 3f 50 25 3d 62 79 74 65 |). 1840 ?P%=byte|
00003a80 0d 20 31 38 35 30 20 50 25 3d 50 25 2b 31 0d 20 |. 1850 P%=P%+1. |
00003a90 31 38 36 30 20 3d 70 61 73 73 0d 20 31 38 37 30 |1860 =pass. 1870|
00003aa0 20 44 45 46 46 4e 65 71 75 77 28 77 6f 72 64 29 | DEFFNequw(word)|
00003ab0 0d 20 31 38 38 30 20 3f 50 25 3d 77 6f 72 64 20 |. 1880 ?P%=word |
00003ac0 4d 4f 44 20 32 35 36 0d 20 31 38 39 30 20 50 25 |MOD 256. 1890 P%|
00003ad0 3f 31 3d 77 6f 72 64 20 44 49 56 20 32 35 36 0d |?1=word DIV 256.|
00003ae0 20 31 39 30 30 20 50 25 3d 50 25 2b 32 0d 20 31 | 1900 P%=P%+2. 1|
00003af0 39 31 30 20 3d 70 61 73 73 0d 20 31 39 32 30 20 |910 =pass. 1920 |
00003b00 44 45 46 46 4e 65 71 75 64 28 64 6f 75 62 6c 65 |DEFFNequd(double|
00003b10 29 0d 20 31 39 33 30 20 21 50 25 3d 64 6f 75 62 |). 1930 !P%=doub|
00003b20 6c 65 0d 20 31 39 34 30 20 50 25 3d 50 25 2b 34 |le. 1940 P%=P%+4|
00003b30 0d 20 31 39 35 30 20 3d 70 61 73 73 0d 20 31 39 |. 1950 =pass. 19|
00003b40 36 30 20 44 45 46 46 4e 65 71 75 73 28 73 74 72 |60 DEFFNequs(str|
00003b50 69 6e 67 24 29 0d 20 31 39 37 30 20 24 50 25 3d |ing$). 1970 $P%=|
00003b60 73 74 72 69 6e 67 24 0d 20 31 39 38 30 20 50 25 |string$. 1980 P%|
00003b70 3d 50 25 2b 4c 45 4e 28 73 74 72 69 6e 67 24 29 |=P%+LEN(string$)|
00003b80 0d 20 31 39 39 30 20 3d 70 61 73 73 0d |. 1990 =pass.|
00003b8d 
30-01-88/T\SWR14.m0
30-01-88/T\SWR14.m1
30-01-88/T\SWR14.m2
30-01-88/T\SWR14.m4
30-01-88/T\SWR14.m5
.