WO1985004042A1

WO1985004042A1 - Improved method of storage and retrieval of information stored on video media

Info

Publication number: WO1985004042A1
Application number: PCT/GB1985/000081
Authority: WO
Inventors: Donald George Blackburn
Original assignee: Index Data Programmes Limited
Priority date: 1984-03-01
Filing date: 1985-02-28
Publication date: 1985-09-12
Also published as: DD232152A5; AU4061685A; IT1183432B; IL74482A0; GB8405429D0; IT8519703A0; ZA851581B; EP0178305A1

Abstract

Method and apparatus for the storage and retrieval of data records capable of being displayed on a television receiver. Video signals are generated from the records to be stored by means of a television camera or other video signal source and are written on to a video record medium such as a video tape or a laser disk, and there is inserted into the frame blanking intervals of each record so stored an index code or address uniquely identifying that record. Retrieval is by inputting the index code of a stored record, the apparatus then searching for the record having that index code within its frame blanking intervals, reading it off the record medium and displaying it.

Description

IMPROVED METHOD OF STORAGE AND RETRIEVAL

OF INFORMATION STORED ON VIDEO MEDIA This invention relates to a method of storing and retrieving information stored on video media.

As far as we are aware, there is no prior system available which can store and retrieve individually addressed frames of information in the form here described. There are various forms of video editing device, but these do not address themselves to the same problem - that of being able to access specific data, in pictorial, graphic or text form, or a combination of these. There are also the various forms of teletext, whereby information is transmitted in the frame blanking, interval of a television signal to be decoded at the receiver into a page of text or very low resolution graphics.

It is an object of the present invention to enable a page or picture to be stored with the only limiting factor being that of the means of recording. At the present time, the use of low cost half inch helical scan video recorders results in a bandwidth of approximately 2.8 Mhz which is more than adequate to display a high resolution picture. A laser disk system could also be employed in the same role provided a record facility is available.

According to the invention, a recording, of data, capable of being reproduced on a television receiver, is made under the control of a computer and during the recording of each item there is inserted, in the frame blanking interval, a unique code which is the address or index of that particular item of information.

In the preferred embodiment, the index code is recorded on both the odd and even fields of the video signal, which is derived from a colour camera or other video source. The code is recorded during the period of one line, excluding sync periods, and may consist of 8 binary digits of header and 16 binary digits of code. This code of three, eight binary digit words is recorded in a synchronous non-return-to-zero form directly on to the video signal at a rate of approximately 554.2K bits/sec. This allows 5μS sync, 5μS porch, before and after the signal which occupies 43.3μS. There has, so far, proved to be no need for the application of any further modulation techniques to the code signal. This is primarily because the D.C. component of the code signal is preserved by the frequency modulation techniques inherent in the video recording process.

Protection against tape damage may be achieved by repeating the data and address code twenty times, i.e. by creating twenty fields of the same data and code. This allows, at such a level of redundancy, a storage capability of 4,500 records on a 60 minute tape. Changing the field redundancy to 10 fields would, of course, result in the capacity being doubled to 9,000 separate records. Using a standard 3 hour tape at the twenty field redundancy level would allow 13,500 records to be stored. With a one hour laser video disk where there is no wear of the storage media a full 90,000 records could be stored there being no arequirement for any redundancy. The indexcodes maybe in numerical series. An indexed tape may consist of a leading 200 dummy records indicating start, 4,500 actual data records, and 200 dummy records indicating end. The above indexed tape is produced under the control of an external microcontroller or timing device the camera or other video source supplying the synchronising information to the microcomputer. To access an individual record, on an indexed tape, all that is required is to enter the index code of the required record via a keyboard. The software reads from the tape the index code of the record currently present and compares it to the entered index code by subtraction of one from the other. If the result is positive, the recorder is switched into its fast forward mode and pulses from the reel tables are read for a duration substantially proportional to the result of the subtraction. Should the result of the subtraction be negative, the recorder is instead switched into the rewind mode and pulses from the reel tables are again read for a duration substantially proportional to the result. Some five records before the requested record, the recorder is caused to pause and another comparison is made; comparisons then continue record by record. When a match is found between the entered index code and the index code of the record currently present. the recorder transport is stopped and the required record is displayed. After a delay of three minutes, the recorder is switched into its waiting state, i.e. the tape is unlaced. This is to prevent damage to the data and to protect the record/playback heads in the recorder. This would not be required in a laser disk system as there is no contact between the storage media and the reading device.

Particular arrangements for carrying the invention into effect will now be described by way of example and with reference to the accompanying drawing, which is a circuit and block diagram of the system.

Referring to the drawing, a standard Z-80 microcomputer 11 is used as the controller. Address and data busses 12, 13 are buffered by tri-state buffers 14, 15. The address bus is routed to a port decoder 16, a R.O.M. address decoder 17, a Z-80 serial port device (S.I.O.) 18 and two Z-80 parallel port devices (P.I.O.) 19A, 19B. The data bus 13 is routed to the R.O.M. 20, the S.I.O. 18 and P.I.O. s 19A, 19B. An unbuffered control bus is also provided to supply the above devices.

The bus buffers 14, 15 comprise 74LS245 standard octal non-inverting tri-state buffers, two for the address buffer and one for the data buffer. This choice was made having regard to low input loading, large input hysteresis, low port-to-port propagation delay time (8ns) and easy board layout design. All the TTL integrated circuits are of the LS type to reduce the demand on the power supply; it is not possible to use the power supplies of the video recorder due to the number of integrated circuits employed. The address buffers 14 have their direction gate input- pin 1- tied to the +5V supply as the address bus is unidirectional. The data bus 15, however, has its direction gate input 22 connected to the NORed outputs of the port and R.O.M. address decoders 16, 17 this providing a DIR signal for the bidirectional data buffer also to allow interrupts to control bus direction.

The available port addresses are:- S.I.O. 18- 20-23 hex P.I.O. 19A- 24-27 hex P.I.O. 19B- 28-2B hex

As all of these integrated circuits have their own internal control registers, address line A1 is used for the A/B port select, address line A0 for the Control/Data select and address lines 7-2 for the ports select. The port decoder 16 consists of a 74LS138 3 to 8 line decoder 24, a 74LSOO quad 2-input NOR gate 25, and a 74LS27 triple 3-input NOR gate 26. The operation of the port decoder is as follows. Address lines A2-A5 are applied to the inputs of the 74LS138 decoder 24 together with A6-A7 via the 74LS27 NOR gate 26. Also applied is signal IORQ, the ports being required to lie within the Z-80 I/O address space for faster block transfer. The outputs of the 74LS138 decoder

Y0-Y3 are directly used as a

signal for the port devices

18 , 19A, 1 9B.

The R.O.M. 20 is a 2732 eprom and occupies address space DOOO-DFFF hex. The R.O.M. decoder 17 consists of three

TTL integrated circuits - a 74LS138 3 to 8 line high speed decoder 27, a 74LSOO quad NAND gate 28, and a 74LS27 triple

NOR gate 29. Address lines A12-A14 are connected to. the three binary select inputs of the decoder 27. Address line A15 is connected to enable input G1 while a signal MREQ is connected to the G2A G2B enable inputs. The output is taken from the Y5 output and is then used as signal

for the

R.O.M. 20. Examination of the binary pattern on A12-A15 will show that using the Y5 output results in a select signal over the correct address range, DOOO-DFFF. In addition should further R.O.M. space be required it is a very simple matter to take CS signals from Y5-Y7. The Y5 signal is also inverted by a NAND gate to be NORed with the port CS to produce the data buffer DIR signal.

The serial port 18 consists of one half of a Z-80 S.I.O. device with two 74LS74 flip flops 41. The Z-80

S.I.O. device 18 is basically a serial/parallel decoder although it is, in fact, a powerful integrated circuit containing its own control registers (see Z-80 S.I.O.

Technical Manual Zilog) . It is configured to be in its synchronous mode using FF Hex as the monosync word. The data is transferred to the S.I.O. using the OTIR instruction of the Z-80 after the frame sync pulse is detected. The data is held until

goes low; this signal is derived from the line sync conditioner circuit.

When the internal data TX buffer of the S.I.O. is full the

line is pulled low stopping further transfer of data until the buffer again has space. When C

goes lo w, data is transferred to a 74LS14 hex inverter 36 which inverts the signal which is then fed into the video path. The signal is inverted to place the sync word FF at black level. During receive mode the frame sync pulse is detected from the playback video signal and the above process is. reversed and using a CMOS4049 hex inverter 31 the signal is inverted and fed to the RX input of the S.I.O. 18 where when

is low it is fed into its input buffers. Using the INIR command of the Z-80 the S.I.O. 18 reads the incoming data stripping off the leading FF Hex header, this data being stored in a temporary buffer in memory where it is then converted into the required delay for search purposes.

The devices used as the dual parallel ports 19A, 19B are Z-80 P.I.O. integrated circuits (see Z-80 P.I.O.

Technical Manual Zilog) . Port A of each P.I.O. is configured as an input and port B as an output with the following bit assignments.

P.I.O. 19A Port A Bit 0 = F/S Sync in active high Bit 1 = L/S Sync in active low Bit 2 = CTL Track pulse active low

Bit 3 = Pause L.E.D. in active low

Bit 4 = Rec mode rdy in active low

Bit 5 = Pause mode rdy in active low Bit 6 = Reel table pulse

Bit 7 = Head switch pa mode rdy playback

Port B

Bit 0 = Rewind output

Bit 1 = Stop output Bit 2 = Fast forward output

Bit 3 = Pause output

Bit 4 = Record output

Bit 5 = Play output

Bit 6 = Slow advance output Bit 7 = Micro/VCR video switch output

P.I.O. 19B Port A.

Bit O = Ext comp rdy active low

Port B

Bit O = Ext comp active high Bit 1 = Supress erase

Bit 2 = Alarm

As can be seen from the above list, the VCR is controlled by Ports A and B of P.I.O.s 19A and 19B.

It is necessary to synchronise the sending of data into the video signal at line time. To this end, a line sync conditioning circuit 32 is provided. This comprises two 74LS161 synchronous 4 bit binary counters 32A, 32B connected together in such a manner that using extended delayed frame sync from 74LS123 dual monostable network 23 as a load signal and extended delayed line sync pulses from network 23 as a clock signal, a signal is produced which is synchronised to the system clock divided by 2, this signal now being the CTS signal for the S.I.O. 18. This CTS signal consists of sixteen low pulses as a block some sixteen line periods after the frame sync pulse. It is during this time that the S.I.O. 18 can send its data.

The dual monostable network 23 is fed with signals from the VCR via transistor networks 41 and 42 and a quad NAND gate 21. To switch the display from that of the microcomputer to that of the video recorder automatically, there is provided a CMOS 4066 quad switch 35. A signal is sent from PB7 to a BC 107 transistor 40 and one pair of switches of the quad switch 35. The inverted signal is then applied to the other pair of switches of the quad switch 35. In this way it is possible to switch the video output at will.

The video storage device may require isolated switching, e.g. when the internal micro controller uses a strobed keypad. Two 4066 quad switch integrated circuits 39 are employed for this function. The switched outputs are applied across the contacts of the relevant switches in the video storage device.

The CTC device 33 is not used in the apparatus as described but is provided to enable the apparatus to be interfaced to another machine. Although in the arrangement described the apparatus has exclusive use of its own microcomputer, facility for interrupts is available in the event that the apparatus is instead arranged to share, for example, a minicomputer that is also performing other tasks. The programme for the host microcomputer 11 forms an appendix to this specification.

The system described will operate with inexpensive video storage devices of the home video type and it will handle pictorial information at a high packing density with a rapid read time. It identifies the information on a frame basis and not on the audio channel. It will, of course, handle text and graphics in addition to pictures; but it is principally in the field of picture storage and retrieval that there has hitherto been a problem.

Although the particular arrangements described above imply use of a video tape recorder, there are no specific limitations within the concept of the invention which prevent its use with any system which can record a video signal. Thus it is intended that the use of laser/optical disk systems with read/erase/write facilities shall be within the scope of the invention. The process of indexing individual frames, in the frame blanking interval, can be applied to any method of recording a video signal; e.g. "phase change' wherein the phase of a material such as tellurium suboxide doped with germanium-indium-lead is altered from its highly reflective crystalline phase to its low reflective amorphous phase under the effect of a low powered laser beam; 'magneto- optical' wherein domains of reversed magnetisation are created under the action of an applied vertical magnetic field in conjunction with a laser beam which raises temperature locally past the Curie point of the base material- terbium + iron-gadolinium-bismuth. In the latter case the altered magnetic domain can be read as an altered rotation of a beam of polarised light. Yet another form of laser disk may employ polymer-dye technology. The actual methods employed to store and retrieve video signals are in themselves of little importance as the system according to the invention operates on the video signal and does not depend on the media used to store that signal.

Modifications can readily be made to accomodate the fact that tape is basically a linear storage medium whereas information on laser/optical disks is laid on in a spiral form. Thus whereas in the present implementation, distance between records is a function of record length, in a laser/optical disk system distance between records will consist of an angular computation based on the present location of the reading/writing device and the position of the next record required to be viewed. This gives a considerable advantage in access time, that is to say the time to acquire a new record, as it is no great task to reposition a lightweight read/write device. The hardware required will, in general, already be present in the laser/optical disk system, and a suitable interface between the existing control electronics in the laser/optical disk system and the system described herein can readily be provided. There is already in the system described spare capacity for this purpose.

Dec 02, 1984

CROMEMCO Z80 Macro Assembler version 03.04 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011.Z80 0003 ; THIS IS STORED IN ROM VB1011. 0004 ;PORT ADDRESSES

(0020) 0005 SIOAD EQU 020H (0021) 0006 SIOAC EQU 021H (0022) 0007 SIOBD EQU 022H (0023) 0008 SIOBC EQU 023H 0009

(0024) 0010 PIOAD EQU 024H (0025) 0011 PIOAC EQU 025H (0026) 0012 PIOBD EQU 026H (0027) 0013 PIOBC EQU 027H 0014

(0028) 0015 PI01AD EQU 028H (0029) 0016 PI01AC EQU 029H (002A) 0017 PI01BD EQU. 02AH (002B) 0018 PI01BC EQU 02BH 0O19

(002C) 0020 CTC0 EQU 02CH (002D) 0021 CTC1 EQU 02DH (002E) 0022 CTC2 EQU 02EH (002F) 0023 CTC3 EQU 02FH (0040) 0024 KPORT EQU 040H 0025 0026 0027 0028 NOTE THIS IS SYNCHRONOUS TX-RX (MONOSYNC) SYNC CHAR=FF 0029 0030 NOTE RAM SPACE 2000-BFFFH 0031

(2000) 0032 DATA1 EQU 02000H ;USE OFFSET FROM HERE 02001H (2001) 0033 DATA2 EQU (2002) 0034 DATA3 EQU 02002H (2003) 0035 DATA4 EQU 02003H (2004) 0036 DATA5 EQU 02004H (2005) 0037 DATA6 EQU 02005H (2006) 0038 DATA7 EQU 02006H (F000) 0039 SCREEN EQU 0F000H ; SCREEN START ADRS (2007) 0040 TIME EQU 02007H ;FARM PASS FOR DELY (2009) 0041 KEY EQU 02009H ;KEY STORE 16 BIT (200B) 0042 TEMP EQU O200BH ; RESULT OF KEY CALC (200D) 0043 TEMPM EQU 0200DH ;RES OF BCD>BIN CONVRT (200F) 0044 BUFFER EOU 0200FH (2017) 0045 READ1 EQU 02017H (2019) 0046 COUNT EQU 02019H (201B) 0047 SCT EQU 0201BH (F1C6) 0048 SCRT EQU 0F1C6H (F17A) 0049 PRESNU EOU 0F17AH (201D) 0050 FLAGS EQU 0201DH (201F) 0051 NUMFLD EQU 0201FH (2021) 0052 KBCD EQU 02021H

0053

0054

(1000) 0055 ORB 1000H

0056

1000 (0038) 0057 DS 38H

0058

1038 5E 0059 PRINST LD E, <HL) ;ENTR SOURCE IN HL 1039 23 0060 INC HL 103A 56 0061 LD D, (HL) ;PICK UP SCRN LOC IN DE 5 FRO 103B 23 0062 PRNT1 INC HL M TXT TABLE 103C 7E 0063 LD A. (HL) iGET 1ST CHAR 103D FEFF 0064 CP A.0FFH ;FF DELIMIT CHAR 103F 2804 0065 JR Z.ENO 1041 12 0066 LD (DE),A 1042 13 0067 INC DE 1043 18F6 0068 JR PRNT1 1045 23 0069 ENO INC HL ;POINT NEXT TXT 1046 C9 0070 RET

0071

1017 00 0072 TABLE DB 00 LINE STRT ADRS 1048 00 0073 DB 00 1049 00 0074 DB 00 104A F1 0075 DB 0F1H 104B 4A 0076 DB 04AH 104C 13 0077 DB 013H 104D F1 0078 DB 0F1H 104E 6A 0079 DB 06AH 104F 11 0080 DB 011H 1050 F1 0081 DB 0F1H 1051 8A 0082 DB 08AH CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011.Z80

1052 10 0083 DB 010H 1053 F1 0084 DB 0F1H 1054 AA 0085 DB 0AAH 1055 10 0086 DB 010H 1056 F1 0087 DB 0F1H 1057 CA 0088 DB 0CAH 1058 0E 0089 DB 00EH 1059 F1 0090 DB 0F1H 105A EA 0091 DB 0EAH 105B 0C 0092 DB 00CH 105C F2 0093 DB 0F2H 105D 0A 0094 DB 00AH 105E 06 0095 DB 006H 0096 ;

105F 2100E0 0097 MONBAK LD HL, 0E000H ;MONITOR ROM STRT ADRS 1062 l10000 0098 LD DE, 0000H ;RAM BOTTOM 1065 010008 0099 LD BC, 0800H JLEN OF ROM 1068 EDB0 0100 LD IR ;M0VE IT BACK FOR DEBUG 106A C9 0101 RET 0102 ; 0103 ;

106B CDBC14 0104 MENU CALL PIOINIT 106E 3E00 0105 LD A, 00 1070 D326 0106 OUT (PIOBD) ,A : SWITCH VCR SCR - MICRO 1072 321D20 0107 LD (FLAGS), A 5 ZERO FLAGS 1075 CD6A12 0108 CALL CLS 1078 CD5E12 0109 CALL RELOC 107B CD5019 0H0 CALL LOGO 107E FF 0111 RST 38H 107F FF 0112 RST 38H 1080 FF 0113 RST 38H 1081 FF 0114 RST 8H 1082 FF 0115 RST 8H 1083 FF 0116 RST 38H 1084 FF 0117 RST 3SH 1085 FF 0118 RST 38H 1086 FF 0119 RST 38H 1087 DD214710 0120 LD IX, TABLE 108B CD8212 0121 QUAY CALL GETKEY 108E 28FB 0122 JR Z.QUAY 1090 E67F 0123 QUY AND A.07FH 1092 FE30 0124 CP A.030H 1094 38F5 0125 JR CQUAY 5 CHAR TOO LO 1096 FE38 0126 CP A.038H 1098 30F1 0127 JR NC.QUAY . CHAR TOO HI 109A E60F 0128 AND A;0FH 109C DD214710 0129 LD IX, TABLE ; RESET IX TO STRT 10A0 47 0130 LD B.A . B NOW HAS LINE COUNT 10A1 DD23 0131 NEXX INC IX 10A3 DD23 0132 IMC IX 10A5 DD23 0133 INC IX 5 MOVE DOWN TABLE B TIMES 10A7 10F8 0134 DJNZ,NEXX 10A9 DD6600 0135 LD H, (IX+0) . ADRS HI 10AC DD6E01 0136 LD Li (IX+1) ; ADRS LO 10AF DD4602 0137 LD B. (IX+2) ; STR$ COUNT 10B2 CBFE 0138 SI SET 07, (HL) ; MAKE INVERSE 10B4 23 0139 INC HL 10B5 10FB 0140 DJNZ SI 10B7 47 0141 LD B.A 10B8 C5 0142 PUSH BC i SAVE OUT 'A' VIA B 10B9 CD8212 0143 QU CALL GETKEY 10BC 28FB 0144 JR Z,QU 10BE FE0D 0145 CP A,0DH ; 0D=CR 10C0 C1 0146 POP BC ; RECOVER 'A' VIA BC 10C1 2810 0147 JR Z,GOTIT 10C3 DD6600 0148 LD H, (IX+0) 10C6 DD6E01 0149 LD L. <IX+1) 10C9 DD4602 0150 LD Si (IX+2) 10CC CBBE 0151 RESET RES 07, (HL) i MAKE IT NORMAL 10CE 23 0152 INC HL 10CF 10FB 0153 DJNZ,RESET 10D1 18BD 0154 JR QUY ;G0 BACK AGAIN 10D3 78 0155 GOTIT LD A.B 10D4 FE0t 0156 CP A, 01 10D6 CA6511 0157 JP Z, SEARCH 10D9 FE02 0158 CP A, 02 10DB 2815 0159 JR Z,SERNAM 10DD FE03 0160 CP A,03 10DF 2838 0161 JR ZiEDIT 10E1 FE04 0162 CP A, 04

CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D. G.BLACKBURN VB1011. Z80

1194 BD 0243 CP A,L 1195 2809 0244 JR Z,CRCHK 1197 F1 0245 POP AF 1198 FE0D 0246 CP A,0DH 119A 28C9 0247 JR Z. SEARCH 119C 77 0248 LD (HL),A 119D 23 0249 INC HL 119E 18DE 0250 JR KEE 11A0 F1 0251 CRCHK POP AF 11A1 FE0D 0252 CP A.0DH ;CR 11A3 20C0 0253 JR NZ,SEARCH 11A5 CD3211 0254 CALL ASCBCD 11A8 DD212120 0255 LD IX.KBCD 11AC 3E40 0256 LD A.40H J4000 MAX 11AE DDBE01 0257 CP (IX+1) 11B1 DA6511 R 0258 JP C, SEARCH 11B4 3E00 0259 LD A.00 11B6 DDBE01 0260 CP (IX+1) 11B9 F26511 0261 JP P,SEARCH 11BC 2157F1 0262 LD HL,0F157H ;ADRS OF X*1000 11BF 010000 0263 LD BC,00 11C2 11E803 0264 LD DE, 1000 ;DE=*1000 11C5 7E 0265 LD A, (HL ;DIGIT 1 11C6 E60F 0266 AND A.0FH 11C8 4F 0267 LD C,A 11C9 E5 0268 PUSH HL 11CA CD9212 0269 CALL MULTI 11CD E1 0270 POP HL 11CE ED430B20 0271 LD (TEMP),BC ;BC=RES SO FAR 11D2 23 0272 INC HL 11D3 010000 0273 LD BC,00 11D6 116400 0274 LD DE, 100 ;DE=*100 11D9 7E 0275 LD A, (HL) 11DA E60F 0276 AND A,0FH 11DC 4F 0277 LD C,A HDD E5 0278 PUSH HL 11DE CD9212 0279 CALL MULTI 11E1 2A0B20 0280 LD HL, (TEMP) 11E4 ED4A 0281 ADC HL.BC HE6 220B20 0282 LD (TEMP),HL 11E9 E1 0283 POP HL 11EA 23 0284 INC HL

11EB 010000 0285 LD BC,00

11EE 110A00 0286 LD DE, 10 ;DE=*10 11F1 7E 0287 LD A,(HL) 11F2 E60F 0288 AND A,0FH 11F4 4F 0289 LD C,A 11F5 E5 0290 PUSH HL 11F6 CD9212 0291 CALL MULTI 11F9 2A0B20 0292 LD HL, (TEMP) 11FC ED4A 0293 ADC HL,BC 11FE 220B20 0294 LD (TEMP),HL 1201 E1 0295 POP HL 1202 23 0296 INC HL 1203 7E 0297 LD A, (HL) 1204 E60F 0298 AND A,0FH 1206 2A0B20 0299 LD HL; (TEMP) 1209 010000 0300 LD Bc,00 120C 4F 0301 LD C,A 120D ED4A 0302 ADC HL,BC 120F 220920 0303 LD (KEY),HL 1212 CD5E12 0304 CALL RELOC 1215 21FC13 0305 LD HL,B0X19 1218 FF 0306 RST 38H 1219 CDF519 0307 CALL PLATST 121C C36B10 0308 JP MENU ; START AGAIN 0309 ;

121F F3 0310 VECT1 DI ;INTT SERV ROUTINE CTC0-GEN DELY 1220 0B 0311 DEC BC 1221 78 0312 LD A,B 1222 FE00 0313 CP A.00 1224 2007 0314 JR NZ,GOBA ;B NZ YET 1226 79 0315 LD A,C 1227 FE00 0316 CP A,00 1229 2002 0317 JR NZ,GOBA ;C NZ YET 122B 1803 0318 JR GOBB ;BC NOW Z 122D E1 0319 GOBA POP HL ;GO BACK TO HALT IN CALLING 122E 2B 0320 DEC HL ;ROUTINE 122F E5 0321 PUSH HL 1230 FB 0322 GOBB E1 CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011.Z80

1231 ED4D 0323 RETI 0324 ;

1233 F3 0325 INTCTC DI ;INIT CTC0

1234 ED5E 0326 IM2

1236 3E30 0327 LD A,030H ;HI VECTOR

1238 ED47 0328 LD I,A ;HI VECTOR TO 'I'REG

123A 97 0329 SUB A ;ZERO 'A'

123B D32C 0330 OUT (CTC0),A ;LO VECTOR TO CTC0

123D 3EB5 0331 LD A,0B5H ;CTL WORD

123F D32C 0332 OUT (CTC0), A

1241 97 0333 SUB A {0=256 FOR T/CONST

1242 D32C 0334 OUT, (CTC0),A

1244 210130 0335 LD HL,03001H

1247 3E10 0336 LD A,010H ;SERV ROUTINE ADRS HI

1249 77 0337 LD (HL),A

124A 97 0338 SUB A ;SERV ROUTINE ADRS LO

124B 2B 0339 DEC HL

124C 77 0340 LD (HL),A

124D C9 0341 RET 0342 ;

0343 ;GENERAL DELAY ROUTINE 0344 ;ENTER WITH DELY IN 'BC '*BMS

124E 3EB5 0345 DELYl LD A,0B5H ;B5=*CTRL WORD

1250 D32C 0346 OUT (CTC0), A

1252 3E7D 0347 LD A,07DH ;7D-8 MILLISEC

1254 D32C 0348 OUT (CTC0), A

1256 FB 0349 E1

1257 76 0350 HALT ;WAIT HERE UNTIL BC=0

1258 F3 0351 DI

1259 3E03 0352 LD A, 03 ;03=ST0P CTC

125B D32C 0353 OUT (CTC0),A

125D C9 0354 RET 0355 ; 0356 ;

125E 010F00 0357 RELOC LD BC,000FH ;LEN OF ROM

1261 113800 0358 LD DE,0038H ;DEST ADRS

1264 2138D0 0359 LD HL,0D038H ;SOURCE ADRS

1267 EDB0 0360 LDIR

1269 C9 0361 RET 0362 ;

126A F5 0363 CLS PUSH AF

126B C5 0364 PUSH BC

126C E5 0365 PUSH HL

126D 2100F0 0366 LD HL,SCREEN

1270 0618 0367 LD B,018H ;NO OF LINES

1272 C5 0368 CLS1 PUSH BC

1273 0620 0369 LD B,020H ;NO OF CHRS/LINE

1275 3E00 0370 LD A,00

1277 77 0371 CLS2 LD (HL),A

1278 23 0372 INC HL

1279 10FC 0373 DJNZ,CLS2

127B C1 0374 POP BC

127C 10F4 0375 DJNZ,CLS1

127E E1 0376 POP HL

127F C1 0377 POP BC

1280 F1 0378 POP AF

1281 C9 0379 RET 0380 ;

1282 D5 0381 GETKEY PUSH DE

1283 1600 0382 LD D,00

1285 DB40 0383 GETKYl IN A, (040H) ;PORT 40-KEYB0ARD

1287 C680 0384 ADD A,080H {STROBE IN C/F

1289 3003 0385 JR NC,NOS

128B 57 0386 LD D, A ;STORE KEY IN TEM

128C 18F7 0387 JR GETKYl

128E 7A 0388 NOS LD A,D

128F B7 0389 OR A

1290 D1 0390 POP DE

1291 C9 0391 RET ;KEY IN A Z/FLAB IF KEY 0392 ;

1292 79 0393 MULTI LD A.C ;ENTER MULIPLR IN BC

1293 48 0394 LD C,B ;MULTIPND IN DE

1294 210000 0395 LD HL,00 ;MULTPLR A=LO C=HI

1297 0610 0396 LD B,010H ;COUNT 16

1299 CB39 0397 MULT SRL C ;SHIFT RGHT MPR HI

129B 1F 0398 RRA ;ROT RGHT MPR LO

129C 3001 0399 JR NC, NOADD ;TST CARRY

129E 19 0400 ADD HL,DE ;+MPD TO RESLT

129F EB 0401 NOADD EX DE,HL

12A0 29 0402 ADD HL,HL ;DBLE SHFT MPD LEFT CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011.Z80

12A1 EB 0403 EX DE,HL

12A2 10F5 0404 DJNZ,MULT

12A4 E5 0405 PUSH HL ;SET RESULT IN BC VIA STACK

12A5 C1 0406 POP BC

12A6 C9 0407 RET 0408 ;

12A7 78 0409 DIVDE LD A.B ;DIVIDEND IN BC

12A8 210000 0410 DIV16 LD HL.00 ;DIVISOR IN DE

12AB 0610 0411 LD B,010H ;C0UNT=16

12AD CB11 0412 L0P16 RL C ;ROTATE ACC RESLT LEFT

12AF 17 0413 RLA

12B0 ED6A 0414 ADC HL,HL ;LEFT SHIFT

12B2 ED52 0415 SBC HL,DE ;TRIAL SUB DIVSR

12B4 3001 0416 JR NC,0WT ;SUB OK

12B6 19 0417 ADD HL,DE ;RESTORE ACC

12B7 3F 0418 OWT CCF

12B8 10F3 0419 DJNZ, LOP16

12BA CB11 0420 RL C ;SHIFT IN LAST RES BIT

12BC 17 0421 RLA

12BD 47 0422 LD B,A ;RESULT IN BC

12BE C9 0423 RET 0424 ;

12BF 77 0425 PCHAR LD (HL),A ;ENTER WITH CHAR IN A

12C0 23 0426 INC HL ;SCREEN LOC IN HL

12C1 C9 0427 RET ;EXITS HL+1 0428 ; 0429 ;TEXT TABLES

12C2 02F0 0430 TIME$ DW 0F002H ;SCREEN ADRS

12C4 5469 0431 DW 06954H ;PRINTS 'TIME'

12C6 6D65 0432 DW 0656DH

12C8 19FF 0433 DW 0FF19H ;'FF'USED AS DELIMIT & RET 0434 ;

12CA 29F0 0435 BOX1 DW 0F029H ;SCREEN ADRS

12CC 9399 0436 DW 09993H

12CE 9999 0437 DW 09999H

12D0 9999 0438 DW 09999H

12D2 9999 0439 DW 09999H

12D4 9999 0440 DW 09999H

12D6 9999 0441 DW 09999H

12D8 9999 0442 DW 09999H

12DA 9992 0443 DW 09299H

12DC FF 0444 DB 0FFH 0445 ;

12DD 49F0 0446 B0X2 DW 0F049H ;SCREEN ADRS

12DF 98D6 0447 DW 0D698H

12E1 C9C4 0448 DW 0C4C9H

12E3 C5CF 0449 DW 0CFC5H

12E5 C2C1 0450 DW 0C1C2H

12E7 D3C5 0451 DW 0C5D3H

12E9 AOCD 0452 DW 0CDA0H

12EB EBC9 0453 DW 0C9EBH

12ED C998 0454 DW 098C9H

12EF FF 0455 DB 0FFH 0456 ;

12F0 69F0 0457 B0X3 DW 0F069H

12F2 98A0 0458 DW 0A098H

12F4 A0A0 0459 DW 0A0A0H

12F6 A0A0 0460 DW 0A0A0H

12F8 A09B 0461 DW 09BA0H

12FA A0A0 0462 DW 0A0A0H

12FC A0A0 0463 DW 0A0A0H

12FE A0A0 0464 DW 0A0A0H

1300 A098 0465 DW 098A0H

1302 FF 0466 DB 0FFH 0467

1303 89F0 046S B0X4 DW 0F089H

1305 98C4 0469 DW 0C498H

1307 AEC7 0470 DW 0C7AEH

1309 AEC2 0471 DW 0C2AEH

130B ECE1 0472 DW 0E1ECH

130D E3EB 0473 DW 0EBE3H

130F E2F5 0474 DW 0F5E2H

1311 F2EE 0475 DW 0EEF2H

1313 A098 0476 DW 098A0H

1315 FF 0477 DB 0FFH 0478 ;

1316 A9F0 0479 BOX5 DW 0F0A9H

131S 9SA0 0480 DW 0A09SH

131A A0A0 0481 DW 0A0A0H

131C A0B1 0482 DW 0B1A0H

CROMEMCO Z80 Macro Assembler- version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

13A6 EAF1 0563 B0X13A DW 0F1EAH

13A8 3620 0564 DW 02036H

13AA 4D61 0565 DW 0614DH

13AC 6B65 0566 DW 0656BH

13AE 2074 Θ567 DW 07420H

13B0 6170 0568 DW 07061H

13B2 65FF 0569 DW 0FF65H 0570 ;

13B4 0AF2 0571 BOX14 DW 0F20AH

13B6 3720 0572 DW 02037H

13B8 456E 0573 DW 06E45H

13BA 64FF 0574 DW 0FF64H 0575 ;

13BC 42F2 0576 BOX15 DW 0F242H

13BE 456E 0577 DW 06E45H

13C0 7465 0578 DW 06574H

13C2 7220 0579 DW 02072H

13C4 6F70 05S0 DW 0706FH

13C6 7469 0581 DW 06974H

13C8 6F6E 0582 DW 06E6FH

13CA FF 0583 DB 0FFH 0584 ;

13CB 0AF1 0585 BOX16 DW 0F10AH

13CD 5345 0586 DW 04553H

13CF 4152 0587 DW 05241H

13D1 4348 0588 DW 04843H

13D3 204D 0589 DW 04D20H

13D5 4F44 0590 DW 0444FH

13D7 45FF 0591 DW 0FF45H 0592 5

13D9 29F1 0593 BOX17 DW 0F129H

13DB 0303 0594 DW 00303H

13DD 0303 0595 DW 00303H

13DF 0303 0596 DW 00303H

13E1 0303 0597 DW 00303H

13E3 0303 0598 DW 00303H

13E5 0303 0599 DW 0Θ303H

13E7 03FF 0600 DW 0FF03H 0601 ;

13E9 47F1 0602 BOX18 DW 0F147H

13EB 454E 0603 DW 04E45H

13ED 5445 0604 DW 04554H

13EF 5220 0605 DW 02052H

13F1 5245 0606 DW 04552H

13F3 434F 0607 DW 04F43H

13F5 5244 0608 DW 04452H

13F7 204E 0609 DW 04E20H

13F9 4F3A 0610 DW 03A4FH

13FB FF 0611 DB 0FFH 0612 ;

13FC 86F1 0613 BOX19 DW 0F186H

13FE 5345 0614 DW 04553H

1400 4152 0615 DW 05241H

1402 4348 0616 DW 04843H

1404 494E 0617 DW 04ε49H

1406 4720 0618 DW 02047H

1408 504C 0619 DW 04C50H

140A 4541 0620 DW 04145H

140C 5345 0621 DW 04553H

140E 2057 0622 DW 05720H

1410 4149 0623 DW 04941H

1412 54FF 0624 DW 0FF54H 0625 ;

1414 0CFl 0626 B0X20 DW 0F10CH ;TIME OUT

1416 5449 0627 DW 04954H

1418 4D45 0628 DW 0454DH

141A 204F Θ629 DW 04F20H

141C 5554 0630 DW 05455H

141E FF 0631 DB OFFH 0632 ;

141F 42F2 0633 B0X21 DW 0F242H ;CONT

1421 444F 0634 DW 04F44H

1423 2059 0635 DW 05920H

1425 4F55 0636 DW 0554FH

1427 2057 0637 DW 05720H

1429 4953 0638 DW 05349H

142B 4820 0639 DW 02048H

142D 2054 0640 DW 05420H

142F 4F20 0641 DW 0204FH

1431 434F 0642 DW 04F43H CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

1433 4E54 0643 DW 0544EH 1435 494E 0644 DW 04E49H 1437 5545 0645 DW 04555H 1439 20FF 0646 DW 0FF20H

0647

143B 6CF1 0648 BOX22 DW 0F16CH 143D 5357 0649 DW 05753H 143F 4954 0650 DW 05449H 1441 4348 0651 DW 04843H 1443 204F 0652 DW 04F20H 1445 4646 0653 DW 04646H 1447 FF 0654 DB 0FFH 0655 ;

1448 FFFF 0656 TBO DW 0FFFFH 144A FF01 0657 DW 001FFH 144C 00FF 0658 DW 0FF00H 144E 00AA 0659 DW 0AA00H 1450 0000 0660 DW 00000H 1452 0000 0661 DW 00000H 1454 0000 0662 DW 00000H 1456 0000 0663 DW 00000H

0664

1458 0AF1 0665 BOX23 DW 0F10AH 145A 4544 0666 DW 04445H 145C 4954 0667 DW 05449H 145E 204D 0668 DW 04D20H 1460 4F44 0669 DW 0444FH 1462 4520 0670 DW 02045H 1464 FF 0671 DB 0FFH

0672

1465 47F1 0673 BOX24 DW 0F147H 1467 4953 0674 DW 05349H 1469 2043 0675 DW 04320H 146B 414D 0676 DW 04D41H 146D 4552 0677 DW 05245H 146F 4120 0678 DW 02041H 1471 5245 0679 DW 04552H 1473 4144 0680 DW 04441H 1475 5920 06B1 DW 02059H 1477 FF 0682 DB 0FFH

0683 0684

1478 214814 0685 RAMIT LD HL, TBO ;TABLE START 147B 110020 0686 LD DE , DATA1 147E 010700 0687 LD BC, 7 1481 EDB0 0688 LDIR ;SENT IT TO RAM 1483 C9 0689 RET

0690 0691

0692 ;

0693 ;'SIO CTRL TABLE'

0694 ;NOTE DATA IS STORED 'WRONG' WAY AROUND

0695 ;0D800 REALLY MEANS 00 D8 - LEADING ZERO

0696

1484 0005 0697 DITX DW 00500H

1486 6000 0698 DW 00060H

1488 0005 0699 ENTX DW 00500H

148A 6800 0700 DW 00068H

0701

0702

148C 0058 07033 TB1 DW 05800H ;THIS IS RXINIT

148E 0400 0704 DW 00004H

1490 01A0 0705 DW 0A001H

1492 03F3 0706 DW 0F303H

1494 0504 0707 DW 00405H

1496 06FF 0708 DW 0FF06H

1498 07FF 0709 DW 0FF07H 0710

0711

149A 0098 0712 TB2 DW 09800H ;THIS IS TXINIT

149C 0400 0713 DW 00004H

149E 0180 0714 DW 08001H

14A0 03E0 0715 DW 0E003H

14A2 0560 0716 DW 00005H

14A4 06FF 0717 DW 0FF06H

14A6 07FF 0718 DW 0FF07H

0719 0720 ;SIO 'A' TRANSMIT

14A8 0E21 0721 TXINIT LD C.SIOAC

14AA 060E 0722 LD B,14 ;LSN OF TXINIT TABLE CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

14AC 219A14 0723 LD HL.TB2 ;START OF TABLE

14AF EDB3 0724 OTIR ;SEND IT

14B1 C9 0725 RET

0726

0727 ;SIO 'A' RECEIVE INIT

14B2 0E21 0728 RXINIT LD C,SIOAC

14B4 060E 0729 LD B, 14 ;LEN OF RXINIT TABLE

14B6 21SC14 0730 LD HL,TB1

14B9 EDB3 0731 OTIR ;SEND IT

14BB C9 0732 RET

0733 ;

0734 ;PIO 'A-B' INIT

14BC 3ECF 0735 PIOINIT LD A,0CFH ;SET TO MODE 3

14BE D327 0736 OUT (PIOBC).A

14C0 97 0737 SUB A, A ;MAKE 'B' ALL OUTPUTS

14C1 D327 0738 OUT (PIOBC),A

14C3 3ECF 0739 LD A,0CFH ;SET TO MODE 3

14C5 D325 0740 OUT (PIOAC),A

14C7 3EFF 0741 LD A,OFFH ;SET BITS 0-7 INPUTS

14C9 D325 0742 OUT (PIOAC).A

14CB 3ECF 0743 PI01NT LD A,0CFH ;MODE 3

14CD D32B 0744 OUT (PIOIBC),A

14CF 97 0745 SUB A,A ;'B' ALL OUT

14D0 D32B 0746 OUT (PIOIBC),A

14D2 3ECF 0747 LD A,OCFH ;MODE 3

14D4 D329 0748 OUT (PIOlAC),A

14D6 3EFF 0749 LD A,0FFH ;0-7 IN

14D8 D329 0750 OUT (PIOIAC),A

14DA C9 0751 RET

0752

0753

0754 ;GENERAL DELAY

14DB 06FF 0755 DELY2 LD B,0FFH ;L00PC0UNT

14DD 3EFF 0756 TI LD A,0FFH ;INNER LOOP COUNT

14DF 3D 0757 T2 DEC A

14E0 20FD 075B' JR NZ,T2

14E2 00 0759 NOP

14E3 10F8 0760 DJNZ,T1

14E5 C9 0761 RET

0762

0763 ;MILL1SEC DELAY

0764 ;THIS FOR 2 FIELDS

14E6 3E0D 0765 DELY3 LD A.13 ;'A' XI MS

14E8 0ECC 0766 DLY LD C,0CCH ;CC IS CONSTANT FOR 3.5 MHZ

14EA 0D 0767 DLY1 DEC C

14EB 20FD 076B JR NZ,DLYI

14ED 3D 0769 DEC A

14EE 20F8 0770 JR NZ,DLY

14F0 C9 0771 RET

0772

0773 ;VARIABLE MS DELAY

14F1 C5 0774 DELY4 PUSH BC ;SAVE OLD BC IN CASE

14F2 0602 0775 LD B,02 ;LOOP COUNT

14F4 3E28 0776 DLY2 LD A, 40 ;SIX FIELDS ?

14F6 0ECC 0777 DLY3 LD C,0CCH

14F8 0D 0778 DLY4 DEC C

14F9 20FD 0779 JR NZ, DLY4

14FB 3D 0780 DEC A

14FC 20F8 0781 JR NZ,DLY3

14FE 10F4 0782 DJNZ,DLY2

1500 C1 0783 POP BC ;RESTORE BC

1501 C9 0784 RET

0785

0786 ;PAGE NUMBER INCREMENT

1502 210320 0787 PAGENO LD HL,DATA4 ;LO BCD TO 99

1505 A7 0788 AND A ICCF

1506 3E01 0789 LD A,01

1508 86 0790 ADD A, (HL)

1509 27 0791 DAA ;BCD NUMBERS

150A 3004 0792 JR NC.NEWNBR

150C 77 0793 LD (HL),A

150D 23 0794 INC HL {DATA5

150E 8E 0795 ADC A, (HL)

150F 27 0796 DAA

1510 77 0797 NEWNBR LD (HL),A

1511 C9 0798 RET

0799

0800

0801 ;FIELD SYNC SEARCH

1512 0603 0802 FSS1 LD B,03D CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

1514 DB24 0803 FSS2 IN A, (PIOAD) 1516 CB47 0804 BIT 0,A ;IS F/S HI 1518 28FA 0805 JR Z,FSS2 ;NO WELL GO BACK AND TRY AGAIN 151A DB24 0806 FSS3 IN A, (PIOAD) 151C CB47 0807 BIT 0,A ;IS IT NOW LOW 151E 20FA 0808 JR NZ.FSS3 ;NO IT IS' NT TRY AGAIN 1520 DB24 0809 SDGE IN A, (PIOAD) 1522 CB4F 0810 BIT 1,A ;THIS IS NOW L/S TEST FOR LOW 1524 20FA 0811 JR NZ.EDGE ;NO IT'S NOT 1526 10F8 0812 DJNZ, EDGE ;IF NOT RIGHT LINE TRY EDGE 1528 C9 0813 RET

0814 0815 ;SIO 'A ' TRANSMIT

1529 F3 0816 SIOTX DI 152A 3A1F20 0817 LD A, (NUMFLD) ; NUMFLD=35H FOR REC

0818 ;" "=28H FOR EDIT

152D 47 0819 LD B,A 152E C5 0820 TX PUSH BC 152F 0E20 0821 LD C,SIOAD 1531 0603 0822 LD B,03H ;NUMBER OF BYTES IN 'PAGE' WORD 1533 C5 0823 PUSH BC 1534 CD1215 0824 CALL FSS1 ;THIS TO SYNC 1537 0E21 0825 LD C,SIOAC 1539 0603 0826 LD B;03 153B 218814 0827 LD HL,ENTX 153E EDB3 0828 OTIR ;ENABLE TX 1540 C1 0829 POP BC 1541 210220 0830 LD HL,DATA3 1544 EDB3 0831 OTIR ;SEND DATA OUT 1546 0E21 0832 LD C,SIOAC ;DISABLE TX 1548 0603 0833 LD B.03 154A 218414 0834 LD HL.DITX 154D EDB3 0835 OTIR 154F Cl 0836 POP BC 1550 10DC 0837 DJNZ,TX 1552 C9 0838 RET 0839

0840 ;SIO RECEIVε

1553 210020 0841 SIORX LD HL,DATA1 1556 0E20 0S42 LD CSIOAD 1558 0602 0843 LD B,02 155A C5 0844 PUSH JBC 155B CD1215 0845 CALL FSS1 ;TO SYNC ON FRAME 155E Cl 0846 POP BC 155F EDB2 0847 INIR 1561 C9 0848 RET

0849

1562 DD7E01 0850 BCDCON LD A, (IX+1) ;CONVRT BCD IN (IX) TO BIN 1565 E6F0 0851 AND 0F0H ;LOSE LO NIBBLE LEAVE N3 1567 CDCA15 0852 CALL SHIFT 1S6A 5F 0853 LD E,A ;MULTIPLND LO 156B 1600 0854 LD D;0 ; " " HI 156D 0E0A 0855 LD C,0AH ; X 10 MILTIPLER LO 156F 0600 0856 LD B,00 ; " " HI 1571 CD9212 0857 CALL MULTI 1574 ED430D20 0858 LD (TEMPM).BC 1578 DD7E01 0859 LD A, (IX+1) 157B E60F 0860 AND OFH 157D 5F 0861 LD E.A 157E 1600 0862 LD D.0 1580 2A0D20 0863 LD HL, (TEMPM) 1583 ED5A 0864 ADC HL,DE 1585 220D20 0865 LD (TEMPM) ,HL 1588 ED5B0D20 0866 LD DE, (TEMPM) 158C 0E0A 0867 LD C,0AH 158E 0600 0868 LD B,00 1590 CD9212 0869 CALL MULTI 1593 ED430D20 0870 LD (TEMPM),BC 1597 DD7E00 0871 LD A, (IX) 159A E6F0 0872 AND 0F0H 159C CDCA15 0873 CALL SHIFT 159F 5F 0874 LD E.A 15A0 1600 0875 LD D.θø 15A2 2A0D20 0876 LD HL, (TEMPM) 15A5 ED5A 0877 ADC HL.DE 15A7 220D20 0878 LD (TEMPM),HL 15AA ED5B0D20 0879 LD DE, (TEMPM) 15AE 0EOA 0880 LD C.0AH 15B0 0600 0881 LD B,00 1SB2 CD9212 0882 CALL MULTI (ROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D. G. BLACKBURN VB1011. Z80

15B5 ED430D20 0883 LD (TEMPM),BC 15B9 DD7E00 0884 LD A,(IX) 15BC E60F 0885 AND 0FH 15BE 5F 0886 LD E,A 15BF 1600 0887 LD D,0 15C1 2A0D20 0888 LD HL, (TSMPM) 15C4 ED5A 0889 ADC HL,DE 15C6 220D20 0890 LD (TEMPM),HL 15C9 C9 0891 RET 0892 ; 0893 ;

15CA CB3F 0894 SHIFT SRL A 15CC CB3F 0895 SRL A

15CE CB3F 0896 SRL A

15D0 CB3F 0897 SRL A 15D2 C9 0898 RET 0899 ; 0900 ;SCREEN SWITCHING ROUTINES 0901 ;

15D3 3E00 0902 MICRO LD A,000H ;SET BIT 7 ON 15D5 D326 0903 OUT (PIOBD),A 15D7 C9 0904 RET 15D8 3E80 0905 VCR LD A,080H 15DA D326 0906 OUT (PIOBD),A 15DC C9 0907 RET 0908 ; 0909 ; MAINTX & TEST LOOP 0910 ;PIO PORT 'A' —> 0911 ; BIT 0 F/S SYNC IN -ACTIVE HI 0912 ; BIT 1 L/S SYNC IN -ACTIVE LOW 0913 ; BIT 2 CTL TRK PULSE -ACTIVE LOW 0914 ; BIT 3 PAUSE LED -ACTIVE LOW 0915 ; BIT 4 REC MODE READY -ACTIVE LOW 0916 ; BIT 5 PAUSE MODE READY -ACTIVE LOW 0917 ; BIT 6 REEL TABLE PULSE 0918 ; BIT 7 HD SWTCH (PA MODE RDY PLBK) 0919 ; PIO PORT 'B' 0920 ; BIT 0 = REWIND 0921 ; BIT 1 = STOP 0922 ; BIT 2 = FAST FORWARD 0923 ; BIT 3 = PAUSE 0924 ; BIT 4 = RECORD (SEE NOTE) 0925 ; BIT 5 = PLAY 0926 ; BIT 6 = SLOW ADVANCE 0927 ; BIT 7 = MICRO/VCR SWITCH 0928 ;---------NOTE:- REC/PLAY ARE SENT TOGETHεR 0929 ; AS 48 DEC 0930 ; PIOl PORT 'A'-------> 0931 ; BIT θ = APPLE RDY -ACTIVE LO 0932 ; 0933 ; PIOl PORT 'B'-------> 0934 ; BIT 0 = APPLE NXT PGE -ACTIVE HI 0935 ;BIT 1 = SUPPRSSS SRASE 0936 ;BIT 2 = ALARM 0937 ;

15DD F5 0938 PUSH AF

15DE C5 0939 PUSH BC

15DF D5 0940 PUSH DE

15E0 E5 0941 PUSH HL

15E1 3E00 0942 LD A,00

15E3 D32A 0943 OUT (PI01BD),A ;DISABLE EXT COMP

15E5 3E35 0944 LD A,35H ;35H=20PICS

15E7 321F20 0945 LD (NUMFLD),A

15EA CD7814 0946 START1 CALL RAMIT

15ED CDA814 0947 CALL TXINIT

15F0 CDBC14 0948 CALL PIOINIT

15F3 3EB0 0949 LD A,0B0H ;BO = REC/PLAY

15F5 D326 0950 OUT (PIOBD),A

15F7 CDDB14 0951 CALL DELY2 ;WAIT FOR IT TO AFFECT

15FA 3E88 0952 LD A,88H ;08 = PAUSE

15FC D326 0953 OUT (PIOBD).A

15FE DB24 0954 PIN IN A. (PIOAD)

1600 CB5F 0955 BIT 3,A

1602 20FA 0956 JR NZ,PIN

1604 3E01 0957 PAG LD A,01

1606 D32A 0958 OUT (PIOIBD),A ;ENABLE APPLE

1608 DB28 0959 POG IN A. (PIOIAD) ;IS APP RDY

160A CB47 0960 BIT 0,A

160C 20FA 0961 JR NZ,POG

160E 3E00 0962 LD A,0

CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011.Z80

1043 ;

1696 0605 1044 DELY6 LD B,05 ;X 15 THIS FOR WIND TIME

1698 C5 1045 REP PUSH BC

1699 CDE614 1046 CALL DELY3 ;X 40 MS=600MS

169C Cl 1047 POP BC

169D 10F9 1048 DJNZ,REP

169F C9 1049 RET

16A0 011900 1050 DELY7 LD BC,25 ;THIS IS PAU PICK UP DELY

16A3 CD8516 1051 CALL AGIN

16A6 C9 1052 RET

16A7 010C00 1053 DELY8 LD BC, 12 ;THIS IS S/ADV DELY

16AA CD8516 1054 CALL AGIN

16AD C9 1055 RET

16AE 010800 1056 DELY9 LD BC,8 ;THIS IS FF PICK UP DELY

16B1 CD8516 1057 CALL AGIN

16B4 C9 1058 RET

1635 ED4B0720 1059 DELY10 LD BC,(TIME) ;THIS FOR REW ONLY

16B9 03 1060 INC BC ;IN CASE OF 0

16BA C5 1061 OVER PUSH BC

16BB 0606 1062 LD B,6 ;TEST THIS FOR DELY

16BD C5 1063 VER1 PUSH BC

16BE CDE614 1064 CALL DELY3 ;X 40 MS

16C1 C1 1065 POP BC

16C2 10F9 1066 DJNZ ,VER1

16C4 C1 1067 POP BC

16C5 OB 1068 DEC BC

16C6 79 1069 LD A.C

16C7 FE00 1070 CP A, 00

16C9 20EF 1071 JR NZ,OVER

16CB 78 1072 LD A.B

16CC FE00 1073 CP A,00

16CE 20EA 1074 JR NZ,OVER

16D0 C9 1075 RET

16D1 011300 1076 DELY11 LD BC, 19 ;REW PICK UP DELY

16D4 CD8516 1077 CALL AGIN

16D7 C9 1078 RET 1079

16D8 ED4B0720 1000 DELY12 LD BC, (TIME) ;THIS IS DELY & KEYBRD SCAN

16DC 03 1081 INC BC

16DD C5 1082 YETAGN PUSH BC

16DE CD8212 1083 CALL GETKEY

16E1 FE00 1084 CP A,00

16E3 2012 1085 JR NZ.ENDLY ;GET OUT IF KEYPRESS

16E5 C1 1086 POP BC

16E6 C5 1087 PUSH BC

16E7 CD9616 1088 CALL DELY6

16EA C1 1089 POP BC

16EB 0B 1090 DEC BC

16EC 79 1091 LD A,C

16ED FE00 1092 CP A,00

16EF 20EC 1093 JR NZ, YETAGN

16F1 78 1094 LD A,B

16F2 FE00 1095 cp A; 00

16F4 20E7 1096 JR NZ, YETAGN

16F6 C9 1097 RET

16F7 C1 1098 ENDLY POP BC ;CHUCK WASTE BC FROM STK

16F8 C1 1099 POP BC ;

16F9 C35E1A 1100 JP NORBK

1101 ;

16FC 2A0F20 1102 BCDASC LD HL, (BUFFER) ;THIS CNVRTS BCD TO ASCII

16FF 117AF1 1103 LD DE,PRESNU ;& PRNTS IT

1702 7D 1104 LD A.L

1703 E60F 1105 AND 0FH ;ZERO LFT NIBBLE

1705 C630 1106 ADD A,30H 'MAKE ASCII

1707 12 1107 LD (DE),A 'PRNT IT

1708 1B 1108 DEC DE

1709 7D 1109 LD A,L

170A CDCA15 1110 CALL SHIFT

170D C630 1111 ADD A,30H

170F 12 1112 LD (DE) , A

1710 1B 1113 DEC DE

1711 7C 1114 LD A,H

1712 E60F 1115 AND 0FH

1714 C630 1116 ADD A.30H

1716 12 1117 LD (DE),A

1717 1B 1118 DEC DE

1718 7C 1119 LD A,H

1719 CDCA15 1120 CALL SHIFT

171C C630 1121 ADD A.30H

171E 12 1122 LD (DE),A CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

171F C9 1123 RET 1124 ; 1125 1126 1127

1720 DB24 1128 PAUSE IN A, (PIOAD)

1722 CB7F 1129 BIT 7, A ; IS PA MODE RDY

1724 20FA 1130 JR NZ; PAUSE ;ACTIVE LOW

1726 C9 1131 RET 1132

1727 0601 1133 INCREC LD B.01 :NUM OF FRAME ADV

1729 3E40 1134 INCl LD A.64 ;64=BIT6=SLO/ADV

172B D326 1135 OUT (PIOBD), A

172D C5 1136 PUSH BC

172E CDF114 1137 CALL DELY4

1731 C1 1138 POP BC

1732 3E00 1139 LD A, 00

1734 D326 1140 OUT (PIOBD), A

1736 C5 1141 PUSH BC

1737 CDF114 1142 CALL DELY4

173A C1 1143 POP BC

173B 10EC 1144 DJNZ INCl

173D C9 1145 RET 1146

173E 3A1B20 1147 CTS LD A, (SCT)

1741 0E2B 1148 LD C,02BH

1743 3D 1149 DEC A

1744 2809 1150 JR Z,CTS1

1746 FD23 1151 INC IY

1748 FD7100 1152 LD (IY+0),C

174B 321B20 1153 LD (SCT), A

174E C9 1154 RET

174F 3E20 1155 CTS1 LD A.20H

1751 0623 1156 LD B,35

1753 21C6F1 1157 LD HL,SCRT

1756 77 1158 CTS2 LD (HL),A

1757 23 1159 INC HL

1758 10FC 1160 DJNZ CTS2

175A 3E17 1161 LD A.23

175C 321B20 1162 LD (SCT), A

175F FD21C6F1 1163 LD IY,SCRT

1763 C9 1164 RET

1165 ;

1764 DD7E00 1166 BCDCHK LD A, (IX)

1767 E60F 1167 AMD A, OFH

1769 FE0A 1168 CP A,OAH

176B F27C17 1169 JP Pi, BCDOUT

176E DD7E00 1170 LD Ai (IX)

1771 CDCA15 1171 CALL SHIFT

1774 E60F 1172 AND A, 0FH

1776 FE0A 1173 CP A,0AH

1778 F27C17 1174 jp p; BCDOUT

177B C9 1175 RET

177C F1 1176 BCDOUT POP AF ;LOSE RET

177D C3D717 R 1177 JP NXTBUF 1178 ; 1179 ;

1780 3A1A20 1180 NXTBUR LD A, (COUNT+1)

1783 FE30 1181 CP A,30H

1785 CA8F17 R 1182 JP Z,ESC

1788 3C 1183 IMC A

1789 211A20 1184 LD HL.COUNT+1

178C 77 1185 LD (HL),A

178D 1848 11B6 JR NXTBUF

17SF 119CFF 1187 ESC LD DE,-100

1792 ED530720 1188 LD (TIME),DE

1796 C35E1S 1189 JP TRWND ;GOTO REWIND 1190 ;

1799 CD4F17 1191 SUBST CALL CTS1

179C 3E01 1192 SUBS LD A, 01

179E 321920 1193 LD (COUNT),A

17A1 3E00 1194 LD A,0

17A3 321A20 1195 LD (C0UNT+1),A ;ZERO ERR COUNT

17A6 CD2017 1196 CALL PAUSE

17A9 CD6616 1197 SUBS1 CALL RXTST

17AC CD3E17 1198 CALL CTS

17AF CDFC16 1199 CALL BCDASC

17B2 A7 1200 AND A ;CLEAR C FLAG

17B3 DD210F20 1201 LD IX, BUFFER ;

17B7 CD6417 1202 CALL BCDCHK CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1904 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

17BA DD23 1203 INC IX 17BC CD6417 1204 CALL BCDCHK 17BF DD2B 1205 DEC IX 17C1 3E40 1206 LD A,40H ;40H-4099 REC NO MAX 17C3 DDBE01 1207 CP (IX-4-1) ;HIGH PART OF PAGE NO 17C6 38B8 1208 JR CNXTBUR 17C8 CD6417 1209 CALL BCDCHK 17CB DD23 1210 INC IX 17CD CD6417 1211 CALL BCDCHK 17D0 DD2B 1212 DEC IX 17D2 CD6215 1213 CALL BCDCON 17D5 180D 1214 JR CKTST 17D7 3E40 1215 NXTBUF LD A,64 ;64=BIT6=SL0/ADV 17D9 D326 1216 OUT (PIOBD),A 17DB CDE614 1217 CALL DELY3 17DE 3E00 121S LD A,00 17E0 D326 1219 OUT (PIOBD),A 17E2 18C5 1220 JR SUBS1 1221

17E4 DD210D20 1222 CKTST LD IX,TEMPM 17E8 3A1920 1223 LD A , (COUNT) 17EB FE00 1224 CP A,0 17ED 2002 1225 JR NZ, CKTS1 17EF 180F 1226 JR LAST 17F1 DD6E00 1227 CKTS1 LD L, (IX) 17F4 DD6601 1228 LD H, (IX+1) 17F7 221720 1229 LD (READ1),HL 17FA 3D 1230 DEC A 17FB 321920 1231 LD (COUNT),A 17FE 18A9 1232 JR SUBS1 1800 DDSE00 1233 LAST LD E, (IX) 1803 DD5601 1234 LD D, (IX+1) 1806 2A1720 1235 LD HL, (READ1) 1009 ED52 1236 SBC HL,DE 180B 208F 1237 JR NZ,SUBS 1238

180D 2A0920 1239 COMP LD HL, (KEY) ;GET KEY VALUE 16 BIT BIN 1810 DD5E00 1240 LD E, (IX) ;GET TAPE VALUE " " 1813 DD5601 1241 LD D, (IX+1) 1816 A7 1242 AND A 1817 ED52 1243 SBC HL,DE ;SUB TAPE FROM KEY 1819 220720 1244 LD (TIME),HL {STOR RES @ 'TIME' 181C 3840 1245 JR C. TRWND 181E 2007 1246 JR NZ,TWND 1820 C9 1247 RET ;THIS IS ONLY EXIT BACK 1248

1821 CD2717 1249 INCREX CALL INCREC 1824 C39C17 1250 JP SUBS 1251 1827 A7 1252 TWND AND A 1828 2A0720 1253 LD HL, (TIME) 182B 1E02 1254 LD E,02 182D 1600 1255 LD D,00 182F ED52 1256 SBC HL.DE 1831 CA2118 R 1257 JP Z,INGREX 1834 FA2118 1258 JP M,INCREX 1837 A7 1259 AND A ;CLEAR C/FLAG 1838 2AO720 1260 LD HL, (TIME) 183B 1E50 1261 LD E,80 ;50 IS MIN FOR ACTION 183D 1600 1262 LD D,00 183F ED52 1263 SBC HL,DE ;SUB 50 FROM TIME(DE FROM HL) 1841 2838 1264 JR Z,FASW ;FAST WIND 1843 F27B18 1265 JP P,FASW ;IF POSITIVE 1846 FAEF18 1266 JP M,WIND ; IF MINUS NORM WIND 1267

1849 ED4B0720 1268 TIMCON LD BC, (TIME) 184D 111000 1269 LD DE,10H 1850 CDA712 1270 CALL DIVDE 1853 110A00 1271 LD DE, 10 1856 CD9212 1272 CALL MULTI 1859 ED430720 1273 LD (TIME),BC 185D C9 1274 RET 1275 ; 1276 1277

185E A7 1278 TRWND AND A 105F 21FFFF 1279 LD HL,0FFFFH 1862 ED5B0720 1280 LD DE, (TIME) 1866 1B 1281 DEC DE 1867 ED52 1282 SBC HL,DE

CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASS MKII VERSION VB1011 D.G. BLACKBURN VB1011. Z80

1363

1364

190F A7 1365 REWIND AND A ;C/C/F

1910 2A0720 1366 LD HL, (TIME)

1913 1E01 1367 LD E,01

1915 1600 1368 LD D;00

1917 ED52 1369 SBC HL.DE ; IS TIME <=1

1919 28E8 1370 JR Z,RINC

1918 FA0319 1371 JP M,RINC

191S 3E01 1372 REWIN1 LD A,01 ;01=BIT0=REW

1920 D326 1373 OUT (PIOBD),A

1922 112000 1374 LD, DE,20H ;CONST FOR REW TAKE UP

1925 CDE318 1375 CALL TMCON

1928 CDC718 1376 CALL CTLTM

192B 3E00 1377 LD A,00

192D D326 1378 OUT (PIOBD),A

192F C39C17 1379 JP SUBS

1380

1381

1382 ;

1932 3E02 1383 STOP LD A,02 ;THIS IS STOP ROUTINE

1934 D326 1384 OUT (PIOBD), A

1936 C9 1385 RET

1937 00 1386 PPAU1 NOP ;THIS IS PLAY/PAUSE

1938 3E20 1387 LD A,32 ;32=BIT5=PLAY

193A D326 1388 OUT (PIOBD),A

193C CDDB14 1389 CALL DELY2

193F 3E08 1390 LD A,08 ;08=BIT3=PAUSE

1941 D326 1391 OUT (PIOBD),A

1943 DB24 1392 PLAPA IN A, (PIOAD)

1945 CB5F 1393 BIT 3,A ;CHECK PAUSE

1947 20FA 1394 JR NZ,PLAPA

1949 CDA016 1395 CALL DELY7 ;WAIT FOR THREADING

194C CDA016 1396 CALL DELY7 ;WAIT FOR SETTLE

194F C9 1397 RET

1398 ;

1399 ;

1950 21CA12 1400 LOGO LD HL,BOX1

1953 FF 1401 RST 38H

1954 FF 1402 RST 38H

1955 FF 1403 RST 38H

1956 FF 1404 RST 38H

1957 FF 1405 RST 38H

1953 FF 1406 RST 38H

1959 C9 1407 RET

1408 ;

195A 3E2A 1409 EREC LD A,2AH

195C 321F20 1410 LD (NUMFLD),A ;CHANGE FOR EDIT MODE

195F 010200 1411 LD BC,02 ;MOVE PAGENUMBER

1962 210020 1412 LD HL,DATA1

1965 110320 1413 LD DE,DATA4

1968 EDB0 1-414 LDIR

196A 0612 1415 OFSET LD B,12H

196C C5 1416 OFS1 PUSH BC

I960 CD2717 1417 CALL INCREC

1970 C1 1418 POP BC

1971 10F9 1419 DJNZ,OFSl

1973 3E02 1420 LD A,02 ;SUPRESS ERASE

1975 D32A 1421 OUT (PIOIBD),A

1977 CDA814 1422 CALL TXINIT

197A 3EB0 1423 LD A,0B0H ; B0=REC/PLAY

197C D326 1424 OUT (PIOBD),A

197E CDDB14 1425 CALL DELY2

1981 3E80 1426 PR1 LD A,80H ;CANCEL PAUSE

1983 D326 1427 OUT (PIOBD),A

1985 DB24 1428 PR2 IN A, (PIOAD)

1987 CB6F 1429 BIT 5,A ;PA MODE RDY?

1989 20FA 1430 JR NZ;PR2

198B 3E88 1431 LD A, 88H

198D D326 1432 OUT (PIOBD),A

198F DB24 1433 IN A, (PIOAD)

1991 CB5F 1434 BIT 3,A ;PAUSE LED

1993 2BEC 1435 JR Z,PR1

1995 DB24 1436 RP1 IN A, (PIOAD) ;REC MODE RDY

1997 CB67 1437 BIT 4,A

1999 28FA 1433 JR Z,RP1

199B DB24 1439 RP2 IN A, (PIOAD) ;NOT RDY YET

199D CB67 1440 BIT 4,A

199F 20FA 1441 JR NZ,RP2

19A1 3E80 1442 LD A,80H ;CANCEL PAUSE CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1904 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

19A3 D326 1443 OUT (PIOBD), A

19A5 CD2915 1444 CALL SIOTX

19A8 3E83 1445 LD A.88H

19AA D326 1446 OUT (PIOBD), A { PAUSE

19AC DB24 1447 PR3 IN A, (PIOAD) {PAUSE LED LIT

19AE CB5F 1448 BIT 3, A

19B0 20FA 1449 JR NZ;PR3

19B2 CDF114 1450 CALL DELY4

19B5 3E82 1451 LD A,82H ;82=STOP

19B7 D326 1452 OUT (PIOBD),A

19B9 CDDB14 1453 CALL DELY2

19BC 3E80 1454 LD A,80H

19BE D326 1455 OUT (PIOBD),A

19C0 3E00 1456 LD A, 00

19C2 D32A 1457 OUT (PIOIBD),A ;CANCEL ERA SUPPRESS

19C4 C9 1458 RET

19C5 (0030) 1459 DS 30H

1460 ;

1461 ;

1462 ;

1463

1464 ;PLAY TEST ROUTINE

19F5 CD7814 1465 PLATST CALL RAMIT

19F8 CDBC14 1466 CALL PIOINIT

19FB DB24 1467 IN A, (PIOAD) ;CHECK LEAD

19FD FEFF 1468 CP A , 0FFH ;IS IT CONNECTED

19FF CA0000 1469 JP Z,00 ;RESET IF NOT

1A02 CD3719 1470 CALL PPAU1

1A05 CD9917 1471 GETBUF CALL SUBST

1A08 211D20 1472 LD HL, FLAGS

1A0B CB46 1473 BIT 0,(HL) ;IS THIS EDIT MODE

1A0D 281C 1474 JR Z,PLA1

1A0F 216514 1475 LD HL,BOX24

1A12 FF 1476 RST 38H

1A13 CD8212 1477 EK CALL GETKEY

1A16 FE00 1478 CP A, 00 A18 28F9 1479 JR Z,EK

1A1A FE59 1480 CP A,059H ;059H='Y' 1A1C CA5A19 1481 JP Z,EREC 1A1F 3E02 1482 LD A, 02 ;02=STOP 1A21 D326 1483 OUT (PIOBD), A 1A23 CDDB14 1484 CALL DELY2 1A26 3E80 1485 LD A,80H 1A28 D326 1486 OUT (PIOBD), A 1A2A C9 1487 RET 1A2B CD2717 1488 PLA1 CALL INCREC 1A2E CD2717 1489 CALL INCREC 1A31 CDD815 1490 CALL VCR ;SWITCH VIDEO OUTPUT 1A34 016009 1491 LD BC,2400 ;2400=3MINS 1A37 ED430720 1492 LD (TIME),BC 1A3B CDD816 1493 CALL DELY12 ;DLY & KEY SCAN 1A3E CD6A12 1494 CALL CLS 1A41 CD5E12 1495 CALL RELOC 1A44 CDD315 1496 CALL MICRO 1A47 21CA12 1497 LD HL,BOX1 ;LOGO 1A4A FF 1498 RST 38H 1A4B FF 1499 RST 38H 1A4C FF 1500 RST 38H 1A4D FF 1501 RST 38H 1A4E FF 1502 RST 38H 1A4F FF 1503 RST 38H 1A50 211414 1504 LD HL,BOX20 ;TIMEOUT 1A53 FF 1505 RST 38H 1A54 012000 1506 LD BC,20H 1A57 ED430720 1507 LD (TIME),BC 1A5B CD8016 1508 CALL DELYS 1A5E CD6A12 1509 NORBK CALL CLS 1A61 CD5019 1510 CALL LOGO 1A64 CDD315 1511 CALL MICRO ;DISPLAY IT 1A67 3E02 1512 LD A, 02 ;BIT 1=STOP 1A69 D326 1513 OUT (PIOBD), A ;STOP MACHINE 1A6B 010700 1514 LD BC,7 ;07=07 SEC 1A6E ED430720 1515 LD (TIMe),BC ;MUCH SMALLER BECAUSE ' SLOW' 1A72 CD8016 1516 CALL DELY5 ;WAIT FOR 30 SEC 1A75 211F14 1517 LD HL,BOX21 ;CONTINUE ? 1A78 FF 1518 RST 38H 1A79 CD8212 1519 GK1 CALL GSTKEY 1A7C FE00 1520 CP A, 00 1A7E 28F9 1521 JR Z,GK1 1A80 FE59 1522 CP A,059H ;59H='Y' CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 D.G.BLACKBURN VB1011. Z80

1A82 CS 1523 RET Z

1A83 CD6A12 1524 CALL CLS

1A86 CD5019 1525 CALL LOGO

1A89 213B14 1526 LD HL.BOX22

1A8C FF 1527 RST 38H

1A8D 3E00 1528 LD A, 00 ; TO RELEASE VCR

1A8F D326 1529 OUT (PIOBD), A

1A91 01E803 1530 LD BC,1000

1A94 ED430720 1531 LD (TIME).BC

1A98 CDB016 1532 CALL DELY5

1A9B C9 1533 RET 1534 ;

1A9C CD6616 1535 TSTRX CALL RXTST

1A9F DD210F20 1536 LD IX, BUFFER

1AA3 CD6215 1537 CALL BCDCON

1AA6 21D0F1 1538 LD HL.SCREEN+1D0H

1AA9 110D20 1539 LD DE; TEMPM

1AAC 0602 1540 LD B,02

1AAE 1A 1541 NXT LD A, (DE)

1AAF 4F 1542 LD C;A

1AB0 C5 1543 PUSH BC

1AB1 D5 1544 PUSH DE

1AB2 CD1806 1545 CALL 0618H

1AB5 D1 1546 POP DE

1AB6 C1 1547 POP BC

1AB7 13 1548 INC DE

1AB8 23 1549 INC HL

1AB9 23 1550 INC HL

1ABA 10F2 1551 DJNZ NXT

1ABC . 00 1552 NOP

1ABD 00 1553 NOP

1ABE 00 1554 NOP

1ABF CD0206 1555 CALL 0602H

1AC2 1BD8 1556 JR TSTRX

1557 END

1558 ;

Errors 0

Range Count 4

CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 Symbol Value Defn References

AGIN 1685 1032 1038 1041 1051 1054 1057 1077

ASCBCD 1132 0195 0254

BCDASC 16FC 1102 1199

BCDCHK 1764 1166 1202 1204 1209 1211

BCDCON 1562 0850 1213 1537

BCDOUT 177C 1176 1169 1174

BOX1 12CA 0435 1400 1497

BOX10 135F 0523

BOX 11 1372 0534

BOX 12 1384 0544

BOX 13 1396 0554

BOX13A 13A6 0563

BOX 14 13B4 0571

BOX15 13BC 0576

BOX 16 13CB 0585 0227

BOX17 13D9 0593 0188

BOX 18 13E9 0602

BOX19 13FC 0613 0305

BOX2 12DD 0446

BOX20 1414 0626 1504

BoX21 141F 0633 1517

B0X22 143B 0648 1526

BOX23 1458 0665 0186

BOX24 1465 0673 1475

BOX3 12F0 0457

BOX4 1303 0468

BOX5 1316 0479

BOX6 1329 0490

BOX7 133C 0501

BOX8 4343 0506

BOX9 134A 0511

BUFFER 200F 0044 1015 1102 1201 1536

CKTS1 17F1 1227 1225

CKTST 17E4 1222 1214

CLS 126A 0363 0108 0172 0183 0224 1494 1509 1524

CLS1 1272 0368 0375

CLS2 1277 0371 0373

COMP 180D 1239

COUNT 2019 0046 1180 1184 1193 1195 1223 1231

CRCHK 11A0 0251 0244

CTC0 002C 0020 0330 03320334 034603480353

CTC1 002D 0021

CTC2 002E 0022

CTC3 002F 0023

CTLT0 18CB 1328 1330 1337 1340

CTLT1 18D2 1332 1334

CTLTM 18C7 1327 1353 1376

CTS 173E 1147 1198

CTS1 174F 1155 1150 1191

CTS2 1756 1158 1160

DATA1 2000 0032 0686 0841 1017 1412

DATA2 2001 0033

DATA3 2002 0034 0830

DATA4 2003 0O35 0787 1413

DATA5 2004 0036

DATA6 2005 0037

DATA7 2006 0038

DELY1 124E 0345

DSLY10 16B5 1059

DELY11 16D1 1076

DELY12 16D8 1080 1493

DELY2 14DB 0755 0951 0994 1000 1389 1425 1453 1484

DELY3 14E6 0765 1046 1064 1217

DELY4 14F1 0774 0985 1137 1142 1450

DELY5 1680 1030 1508 1516 1532

DELY6 1696 1044 1033 1088 1294 1304

DELY7 16A0 1050 1395 1396

DELY8 16A7 1053

DELY9 16AE 1056

DITX 1484 0697 0834

DIV16 12A8 0410

DIVDE 12A7 0409 1270

DLY 14E8 0766 0770

DLY1 14EA 0767 0768

DLY2 14F4 0776 0782

DLY3 14F6 0777 0781

DLY4 14F8 0778 0779

ED1 117B 0231 0193

EDGE 1520 0809 0811 0812

EDIT 1119 0183 0161 2223 CROMEMCO Z80 Macro Assembler version 03.04 Dec 02, 1984 VIDEOBASE MKII VERSION VB1011 Symbol Value Defn References

EK 1A13 1477 1479

END 1AC4 1557

ENDLY 16F7 1098 1085

ENO 1045 0069 0065

ENTX 1488 0699 0827

EREC 195A 1409 1481

ESC 17SF 1187 1182

FASW 187B 1292 1264 1265

FIN1 1656 0998

FLAGS 201D 0050 01070191 0221 1472

FREW 1895 1302 1288 1289

FSS1 1512 0302 0824 0845

FSS2 1514 0803 0805

FSS3 151A 0806 0808

GETBUF 1A05 1471

GETKEY 1282 0381 0121 014301780232 1083 1477 1519

GETKY1 1285 0383 0387

GK1 1A79 1519 1521

GOBA 122D 0319 03140317

GOBB 1230 0322 0313

GOTIT 10D3 0155 0147

INCl 1729 1134 1144

INCREC 1727 1133 1249 1417 148B 1489

INCREX 1821 1249 1257 1258

INTCTC 1233 0325

K1 1183 0234

KBCD 2021 0052 0195 0255

KEE 117E 0232 02330238 02400250

KEY 2009 0041 0303 1239

KPORT 0040 0024

LAST 1800 1233 1226

LOGO 1950 1400 0110 0173 0185 0226 1510 1525

LOP16 12AD 0412 0419

MENU 106B 0104 0180 0308

MICRO 15D3 0902 1496 1511

MONBAK 105F 0097

MULT 1299 0397 0404

MULTI 1292 0393 0269 0279 0291 0857 0869 0882 1272 1344

NA$ 110B 0182 0174

NEWNBR 1510 0797 0792

NEXX 10A1 0131 0134

NOADD 129F 0401 0399

NORBK 1A5E 1509 1100

NOS 128E 0388 0385

NUMFLD 201F 0051 0817 0945 1410

NXT 1AAE 1541 1551

NXTBUF 17D7 1215 1177 1186

NXTBUR 1780 1180 1208

OFS1 196C 1416 1419

OFSET 196A 1415

OVER 16BA 1061 1071 1074

OWT 12B7 0418 0416

PACAN 1612 0965 0974

PAG 1604 0957

PAGENO 1502 0787 0993

PARDY 1616 0967 0969

PAUSE 1720 1128 1130 1196

PCHAR 12BF 0425

PIN 15FE 0954 0956 0997

PIO1AC 0029 0016 0748 0750

PIO1AD 0028 0015 0959

PIOIBC 002B 0018 0744 0746

PI01BD 002A 0017 0943 0958 09630996 1421 1457

PIOINT 14CB 0743

PIOAC 0025 0011 0740 0742

PIOAD 0024 0010 08O3 0806 08090954 0967 09720975097809S3 0992 1128 1312 1316 1328 1332 1392 1428 1433 1436 1439 1447 1467

PIOBC 0027 0013 0736 0738 PIOBD 0026 0012 0106 0903 09060950 095309660971 098309870999 1002 1135 1140 1216 1219 1296 1306 1350 1355 1373 1378 1384 1388 1391 1424 1427 1432 1443 1446 1452 1455 1483 1486 1513 1529

PIOIMIT 14BC 0735 0104 0948 1466

PLA1 1A2B 1488 1474

PLAPA 1943 1392 1394

PLATST 19F5 1465 0307

POG 1608 0959 0961

FPAU1 1937 1386 1299 1309 1470.

PR1 1981 1426 1435

PR2 1985 1428 1430

PR3 19AC 1447 1449

PRESNU F17A 0049 1103

PRINST 1038 0059

PRNT1 103B 0062 0068

PTIM1 18B6 1316 1318

PTIMS 18AF 1312 1298 1308 1314 1321 1324

QU 10B9 0143 0144

QUAY 108B 0121 0122 01250127

QUY 1090 0123 0154

RAMIT 1478 0685 0946 1465

RDPA1 1640 0988 0990

RECRDY 1626 0975 0977

RELOC 125E 0357 01090184 02250304 1495

REP 1698 1045 1048

RERDY 162C 0978 0980

RESET 10CC 0151 0153

REWIN1 191E 1372 1362

REWIND 190F 1365 1290

RINC 1903 1358 1370 1371

RP1 1995 1436 1438

RP2 199B 1439 1441

RXINIT 14B2 0728 1014

RXTST 1666 1010 1197 1535

SCREEN F000 0039 0366 1538

SCRT F1C6 0048 1157 1163

SCT 201B 0047 1147 1153 1162

SEARCH 1165 0221 0157 0247 02530258 0261

SERNAM 10F2 0172 0159 0163 0165 0167 0169

SHIFT 15CA 0894 0852 0873 1110 1120 1171

SI 10B2 0138 0140

SIOAC 0021 0006 0721 0728 0825 0832

SIOAD 0020 0005 0821 0842

SIOBC 0023 0008

SIOBD 0022 0007

SIORX 1553 0841 1016

SIOTX 1529 0816 0984 1444

SMI 1103 017S 0179

START1 15EA 0946

STOP 1932 1383 1292 1302

SUBS 179C 1192 1237 1250 1300 1310 1356 1379

SUBS1 17A9 1197 1220 1232

SUBST 1799 1191 1471

T1 14DD 0756 0760

T2 14DF 0757 0758

TABLE 1047 0072 01200129

TB0 1448 0656 0685

TB1 148C 0703 0730

TB2 149A 0712 0723

TEMP 200B 0042 0271 028002S2 02920294 0299

TEMPM 200D 0043 0858 0863 0865 0866 08700876 08780879 0883 0888 0890 1222 1539

TESTCR 1191 0241 0236 TIMCON 1849 1268 1293 1303 TIME 2007 0040 1030 1059 1080 1188 1244 1253 1260 1268 1273 1280 1283 1297 1307 1327 1343 1345 1358 1361 1366 1492 1507 1515 1531

TIME$ 12C2 0430

TMCON 18E3 1343 1352 1375

TRWND 185E 1278 1189 1245

TSTRX 1A9C 1535 1556

TWND 1827 1252 1246

TX 152E 0820 0837

TXINIT 14A8 0721 0947 1422

VCR

VECT1 15D8 0905 1490 121F 0310 VER1 16BD 1063 1066

WIND 18EF 1349 1266 YETAGN 16DD 1082 1093 1096 CROMEMCO Z80 Macro Assembler version 03.04 Nov 30, 1984

BOOT ROM

D.G. BLACKBURN BOOT. Z80

0003 ;

(106B) 0004 MENU EQU 0106BH {WILL CHANGE WITH VERSION (0054) 0005 DELY EQU 00054H

(F000) 0006 SCREEN EQU 0F000H

(14BE) 0007 PIOINIT EQU ;MAY CHANGEWITH VERSION

(0080) 0008 PATT EQU ;START OF PATTERN 0009 ;

(1000) 0010 ORG 1000H 0011 ;

1000 C303E0 0012 START JP 0E003H

1003 DBFF 0013 IN A,(0FFH) ;SWITCH OFF POJ

1005 2100E0 0014 LD HL,0E000H ;BOOT ROM START

1008 110000 0015 LD DE,00 ;DEST ZERO PAGE

100B 01000B 0016 LD BC,0800H ;LEN OF BOOT ROM (2716)

100E EDB0 0017 LDIR ;SENT TO PAGE ZERO

1010 C31300 0018 JP 0013H ; GOTO RAM

1013 21FF0F 0019 LD HL,0FFFH ; SET SP

1016 F9 0020 LD SP, HL

1017 06FE 0021 LD B,0FEH ;CLEAR STΑCK LEN

1019 2B 0022 CLEAR DEC HL

101A 3600 0023 LD (HL),00

101C 10FB 0024 DJNZ,CLEAR ;CLEAR STACK AREA

101E 218000 0025 LD HL,FATT ;START OF TEST PATTERN

1021 1100F0 0026 LD DE,SCREEN

1024 010003 0027 LD BC,0300H ;LEN OF PATT

1027 EDB0 0028 LDIR

1029 2100D0 0029 LD HL.0D000H ;START OF VB1010

102C 110010 0030 LD DE.01000H ;DEST

102F 0l0010 0031 LD BC.01000H ;LEN

1032 EDB0 0032 LDIR

1034 CDBE14 0033 CALL PIOINIT

1037 DB24 0034 PORTIN IN A, (024H) ;24=PIOIAD

1039 FEFF 0035 CP A,0FFH ; IS LEAD CONNECTED

103B 2014 0036 JR NZ,FIN

103D 3E04 0037 LD A, 04 ;BIT 2=ALARM

103F D32A 0038 OUT (2AH),A

1041 CD5400 0039 GALL DELY

1044 3E00 0040 LD A,00

1046 D32A 0041 OUT .2AH),A

1048 CD5400 0042 CALL DELY

104B 215500 0043 LD HL,DELY+1

104E 35 0044 DEC (HL) ;CHANGE TIME CONST

104F 18E6 0045 JR PORTlN

1051 C36B10 R 0046 FIN JP MENU 0047 ;

1054 0613 0048 DEL0 LD B,13H

1056 3E01 0049 P LD A,01

1058 3D 0050 Q DEC A 1059 20FD 0051 JR NZ,Q

105B 10F9 0052 DJNZ P

105D C9 0053 RET 0054 ;

105E 00 0055 NOP 105F 00 00-56 NOP ;THIS CONTAINS 01AH FOR 300H BYT

ES

Errors 0

Range Count 1 CROMEMCO Z80 Macro Assembler version 03.04 Nov 30, 1984

BOOT ROM

Symbol Value Defn References

CLEAR 0022 0024

DEL0 1054 0048

DELY 0054 0005 003900420043 FIN 1051 0046 0036

MENU 106B 0004 0046

P 1056 0049 0052

PATT 0080 0008 0025

PIOINIT 14BE 0007 0033

PORTIN 1037 0034 0045

0051

S Q 1058 0050 CREEN F000 0006 0026 START 1000 0012

Claims

CLAIMS:

1. A method of storage and retrieval of video data, wherein a recording of data that can be reproduced on a television receiver is made under the control of a computer and during the recording of each item there is inserted in the frame blanking interval a unique code which is the address or index of that particular item of information.

2. A method according to Claim 1, wherein the index code is recorded on both the odd and even fields of the video signal, which is derived from a television camera or other video source.

3. A method according to Claim 1 or Claim 2, wherein the index code is recorded during the period of one line, excluding sync periods.

4. A method according to Claim 1 or Claim 2 or Claim 3, wherein the index code comprises 8 binary digits of sync header and 16 binary digits of code, and is applied in a synchronous non-return-to-zero form directly on to the video signal.

5. A method according to any one of the preceding Claims, wherein each item of data and its index code are recorded a plurality of times to achieve a level of protective redundancy.

6. A method according to any one of the preceding Claims wherein the record medium is video tape.

7. A method according to any one of Claims 1 to 5, wherein the record medium is a laser-recorded disk.

8. A method according to Claim 6, wherein the tape bears a leading batch of dummy records to indicate its start and a final batch of dummy records to indicate its end.

9. A method according to Claim 6 or Claim 8 , wherein the index codes of the recorded items are in numerical order and to retrieve a particular recorded item the index code of that item entered by, for example, a keyboard is compared with the index code of the record currently present and fast forward or rewind travel of the tape is initiated according to the arithmetical sign of the result of the comparison and continues for a duration substantially proportional to that result until the record to be retrieved is approached whereupon further comparisons are carried out record by record until a match is achieved and the record having the matching index code is displayed.

10. A method according to Claim 6 or Claim 8 or Claim 9, wherein after a predetermined interval has elapsed following display of a retrieved record the tape is unlaced.

11. A method according to Claim 7 , wherein to retrieve a particular recorded item the index code of that record entered by, for example, a keyboard is compared with the index code of the record currently present and the reading/writing device is shifted in relation to the record disk according to an angular computation based on the location of the record currently present and the record required to be retrieved.

12. Apparatus for the recording and retrieval of data records capable of being reproduced on a television receiver or monitor comprising: a video record storage medium and means for writing data records on to and reading data records from said medium; a television camera or other video signal source for generating from the data records to be stored video signals comprising in coded form television frame periods of normal picture information and intervening frame blanking intervals; index code generating means for inserting into the frame blanking intervals of each coded data record an index code uniquely indentifying that record, said video signals and said inserted index codes being recorded on said storage medium by said writing means; means for inputting the index code of a stored data record that is to be retrieved; and search means responsive to the inputting of an index code to search the records stored on the record medium until a stored record is found having a frame blanking interval index code matching the inputted code, said stored record with the matching index code being read from the record medium and the resulting re-generated. video signal being transmitted to the television receiver or monitor, decoded and displayed.