CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / mbug / mbug007.arc / 1984OCT.CAT < prev next >

Wrap

Text File | 1979-12-31 | 64KB | 1,165 lines

.MT 0 .MB 7 .FM 1 .PL 67 .PO 12 .PC 39 .OP $1.50 RECOMMENDED 2nd BIRTHDAY ISSUE RETAIL PRICE SPECIAL EDITION Registered for transmission by post as a periodical Publication No: VBH 6579. Vo∞ 3« N≥ 1« October 1984 áááááááááááááá FROM THE CHIEF MICROBUG 1 áááááááááááááá USING THE 6545 CRT CONTROLLER 3 áááááááááááááá MBASIC STRING FLASHER PROGRAM 6 áááááááááááááá TAPE LIBRARY INDEX 7 áááááááááááááá PUBLIC DOMAIN DISK SOFTWARE 7 áááááááááááááá A.T. SOFTWARE CATALOGUE 8 áááááááááááááá MICROBUG TRADING GOODS 9 áááááááááááááá MAIL ORDER FORM 9 áááááááááááááá CHANGE YOUR CP/M SIGN-ON MESSAGE 10 ááááááááááááá PARALLEL PRINTER SCREEN DUMPER 11 áááááááááááááá A.T. ENGINEERING NOTES 15 áááááááááááááá VOLUME 2 CATCHER INDEX 16 áááááááááááááá QUESTIONAIRE 18 MICROBUGS PRESIDENT Grant Forest 8748728 VICE-PRESIDENT Andrew Reid 8360316 SECRETARY Richard Collett 6908283 TREASURER Jim Lobley 7589169 TAPE LIBRARIAN David Soutar MICROBEE HARDWARE Bob Denton 2331483 EDITORS, THE CATCHER - MICROBEE Dixon Kenney 8734476 DGOS Z80 John Buxton 4350885 --------------------------------------------------------------- ADDRESSES FOR CORRESPONDENCE --------------------------------------------------------------- OFFICIAL ADDRESS MICROBUG AUSTRALIA P.O. 157, NUNAWADING .VIC 3131. --------------------------------------------------------------- FOR OTHER CONTACTS AND ADDRESSES SEE INSIDE COVER --------------------------------------------------------------- THE CATCHER is published by MICROBUG AUSTRALIA All copyrights are reserved by MICROBUG --------------------------------------------------------------- èTO : MICROBUG AUSTRALIA, The Treasurer, 26 Alexander Cr., Ferntree Gully. 3156 I would like to - join MICROBUG AUSTRALIA [ ] renew my subscription to M.A. [ ] NAME :________________________________________________ ADDRESS :________________________________________________ ________________________________________________ TELEPHONE :__________________ SYSTEM :_________________ HARDWARE :____________________________________________ [ ] $20 Melbourne subscription per year. [ ] $17 Non-city subscription per year. [ ] $A20 New Zealand subscription per year. [ ] $10 Tape Library membership (payment only required once) [ ] I would like a receipt, please ------------------------------------------------------------- SERVICES PROVIDED BY MICROBUG AUSTRALIA ------------------------------------------------------------- TAPE LIBRARY * P.O. BOX 45 CANTERBURY 3126 ------------------------------------------------------------- $2.0░áPE╥ S/W TAP┼ FO╥ ON┼ MONTH¼ RETURNED NEXT MEETING. $5.00 PER SIG/M VOLUME, WE SUPPLY THE DISK. $4.50 PER BLANK 5" DISKETTE ------------------------------------------------------------- ADVERTISMENTS * P.O. BOX 157 NUNAWADING 3131 ------------------------------------------------------------- $80.00 FULL PAGE $40.00 HALF PAGE $25.00 QUARTER PAGE $3.00 FOR SERVICE AND RECURRENT ITEMS (LESS THAN 5 LINES) FREE FOR ADVERTISMENTS THAT ARE NOT RECURRING ITEMSì ------------------------------------------------------------- MODEM HIRE * JOHN BUXTON 435-0885 ------------------------------------------------------------- $5.00 FIRST WEEK THEN $10.00 EACH ADDITIONAL WEEK PLUS $25.00 DEPOSIT ------------------------------------------------------------- BAZAAR * MICK HOLZINGER 354-6742 P.O. BOX 157 NUNAWADING. ------------------------------------------------------------- $1.50 PER C30 TAPE OR $25.00 PER BOX OF 20. $1.50 BACK ISSUES OF CATCHER VOL 1 NO 1 PRINTED OCT 82 ------------------------------------------------------------- DISKETTE COPYING * GRANT FOREST 8748728 5"TO 8" OR 8"TO 5" MOST FORMATS ------------------------------------------------------------- FOR ALL POSTAL ORDERS ADD $1.50 MINIMUM ------------------------------------------------------------- NEXT MEETING : 14th NOVEMBER 1984 TIME & PLACE : 7.00pm BURWOOD TEACHERS COLLEGE - BUILDING E .PAè.PN 1 FROM THE CHIEF MICROBUG Thi≤ beinτ ou≥ seconΣ BIRTHDA┘ ISSUE¼á i≤ aε ap⌠ timσ t∩ reflec⌠ wha⌠ wσ havσ ì achieveΣá iεá thσ las⌠ yea≥ anΣ morσ importantl∙ t∩ se⌠ goal≤á fo≥á thσá nex⌠ ì year!í Ou≥ membershi≡ peakeΣ si° month≤ ag∩ t∩ arounΣ 55░ anΣ sincσ tha⌠ timσ ì finΣá tha⌠ member≤ no⌠ rejoininτ verse≤ ne≈ member≤ ha≤ giveε thσ cluΓ ß ne⌠ ì los≤á oµá abou⌠á 3░ member≤ pe≥ month«á ╔ believσ wσá havσá placeΣá to∩á mucΦ ì emphasi≤á oεá appealinτá t∩á member≤ wh∩ attenΣ thσá maiεá meetinτá anΣá havσ ì negleteΣ thσ remotσ members« I⌠ appear≤ tha⌠ iµ yo⌡ wan⌠ t∩ finΣ ou⌠ wha⌠ thσ ì cluΓá caε d∩ fo≥ yo⌡ onσ ha≤ t∩ attenΣ meetinτ night¼á iε shor⌠ no⌠á everyonσ ì know≤ ho≈ thσ cluΓ caε benefi⌠ them«á Startinτ witΦ thi≤ issuσ anΣ continuinτ ì iε al∞ futurσ CATCHER╙ wil∞ bσ ß pagσ dedicateΣ t∩ good≤ anΣ service≤ offereΣ ì b∙á thσá club¼á plu≤ wha⌠ offering≤ wil∞ bσ availablσ iε thσá cominτá months« ì Let'≤ reca≡ wha⌠ thσ cluΓ offer≤ viß mai∞ orde≥ plu≤ wha⌠ i≤ availablσ oε thσ ì meetinτ night. MAIL ORDER blank tapes and blank 5" diskettes SOFTWARE....public domain disks SIG/M vol 1to 192, CPMUG 1-91 tapes..Members contributions, Old A/T S/W All latest A.T S/W disks and tape (20% off retail) Printer ribbons Disk conversions between 5" to 8" to 5" Back copies of the CATCHER MEETING NIGHT All the above plus:- Bulk paper Diskette storage boxes PAPER LIBRARY....most A.T. publications other clubs newsletters my personal library of books TECHNICAL ROOM...where you can ask questions and receive answers BAZAAR...........review A.T. S/W game competition where you win an A.T. S/W tape sell your goods and S/W modem hire CLASSES..........basic,assembler,CP/M, what ever you want. WHAT WE ARE HOPING TO DO WITHIN THE NEXT FOUR MONTHS 1. SUBJECT:- BULLENTIN BOARD STATUS:- Waitinτá fo≥á Telecoφ t∩ connec⌠ u≡ ß telephonσ linσá (withiεá │ ì áááááááááááááweeks)« Wσ havσ thσ S/╫ anΣ shoulΣ bσ u≡ witΦ ß minimuφ oµ fuss« ì áááááááááááááInitiall∙á onl∙á ß messagσ mai∞ bo° wil∞ bσ availablσ ¼á bu⌠á iµ ì áááááááááááááusagσá i≤ madσ oµ thi≤ BOAR─ wσ wil∞ adΣ ß harΣ disδá anΣá offe≥ ì ááááááááááááádowε linσ S/╫ loadinτ service. 2. SUBJECT:- TAPE AND DISK PRINTOUT SERVICE STATUS:- Wσ purchaseΣ ß Centronic≤ printe≥ ove≥ ß yea≥ ag∩ bu⌠ duσ t∩ lo≈ ì ááááááááááááádemanΣ fo≥ printout≤ t∩ bσ produced¼á neve≥ go⌠ thi≤ servicσ ofµ ì áááááááááááááthσá ground«á Withiε si° week≤ wσ wil∞ bσ offerinτ thi≤á servicσ ì áááááááááááááanΣ givσ yo⌡ thσ choicσ oµ eithe≥ dais∙ whee∞ o≥ dot-matrix. 3. SUBJECT:- BANKCARD FACILITIES. STATUS:- Waiting INCORPORATION. 4. SUBJECT:- INCORPORATION STATUS:- Thσá paper≤ havσ beeε sen⌠ iε anΣ b∙ thσ nex⌠ meetinτ wσá shoulΣ ì ááááááááááááábσ incorporateΣ a⌠ last.. 5. SUBJECT:- PAPER LIBRARY ADDITIONS STATUS:- Wσáá wil∞áá bσáá addinτá thσá followinτá publication≤áá t∩áá thσ ì ááááááááááááálibrary....BYTE¼á YOU╥á COMPUTER¼á AUSTRALIA╬ PERSONA╠á COMPUTE╥ ì áááááááááááááimmediatelyí .PAè6. SUBJECT:- MEMBERSHIP CARDS STATUS:- WitΦ thσ CluΓ LOG╧ finall∙ decideΣ upoε wσ wil∞ ge⌠ thσá artworδ ì ááááááááááááát∩ thσ printer≤ withiε thσ nex⌠ tw∩ weeks« Thi≤ ha≤ beeε ß drawε ì áááááááááááááou⌠á episodσá duσ t∩ thσ largσ numbe≥ oµ card≤ t∩ bσ printeΣá u≡ ì ááááááááááááá(abou⌠á 6000)¼á hencσá thσá desirσ t∩ makσá surσá thσá ar⌠á worδ ì áááááááááááááreflect≤á thσ cluΓ iε ß decisivσ way«á Thσ carΣ caε theε bσ useΣ ì ááááááááááááát∩ obtaiε ß variet∙ oµ discount≤ froφ severa∞ retai∞ outlets. 7. SUBJECT:- DISCOUNTS STATUS:- Withiεá si° week≤ ß ful∞ lis⌠ oµ shop≤ tha⌠ wil∞ givσá discount≤ ì ááááááááááááá(5Ñ t∩ 15%⌐ wil∞ bσ published. 8. SUBJECT:- BULK PURCHASE ITEMS STATUS:- Wσ havσ severa∞ supplier≤ tha⌠ havσ offereΣ bulδ discounts¼ e.g« ì áááááááááááááPrinte≥á paper¼á labels¼á disδ drive≤ e.t.c«á Iε mos⌠á case≤á ß ì áááááááááááááminimuεá orde≥ iε exces≤ oµ fivσ i≤ required¼á s∩ wσ proposσá i≤ ì áááááááááááááhavσá ßá informatioε shee⌠ availablσ a⌠ thσ maiεá meetinτá wherσ ì áááááááááááááinteresteΣá member≤á caεá bσ foca∞ point≤ fo≥ othe≥á member≤á t∩ ì ááááááááááááácontac⌠á anΣá theεá orde≥ thσ goods«á Thi≤á wil∞á star⌠á a⌠á thσ ì áááááááááááááDECEMBE╥ meeting. 9. SUBJECT:- THE CATCHER STATUS:- Iεá thσ pas⌠ tw∩ year≤ i⌠ ha≤ beeε ou≥ polic∙ no⌠ t∩ cop∙ otherσ ì áááááááááááááclub≤á article≤ (eveε wheε wσ werσ fightinτ fo≥á informatioεá t∩ ì áááááááááááááfil∞á thσ CATCHER)«á Thi≤ ha≤ no≈ changeΣ duσ t∩ thσ qualit∙á oµ ì áááááááááááááarticle≤á iεá ou≥ siste≥ clubs«á Wσ wil∞ no≈ havσ ß cente≥á pagσ ì áááááááááááááarticlσá eacΦ montΦ froφ othe≥ clubs¼á s∩ tha⌠ al∞á member≤á caε ì ááááááááááááásharσ thesσ gooΣ article≤ no⌠ jus⌠ thσ one≤ tha⌠ attenΣ thσ maiε ì ááááááááááááámeeting« Thi≤ polic∙ wil∞ star⌠ witΦ thσ DECEMBE╥ CATCHER. 10 SUBJECT:- RETAIL ADVERTISMENTS STATUS:- ┴á campaigεá t∩ attrac⌠ morσ advertisment≤ fo≥ thσá CATCHE╥á ha≤ ì ááááááááááááástarteΣ (iε conjuntioε witΦ discounts)«á Therσ arσ ß lo⌠ oµ add-ì áááááááááááááon≤á tha⌠á thσ BE┼ caε suppor⌠ a≤ wel∞ a≤ othe≥á S/╫á suppliers¼ ì ááááááááááááátha⌠á caε delive≥ cos⌠ effectivσ S/W«á Wσ havσ reduceΣ ou≥ rate≤ ì áááááááááááááfo≥á multiplσá issuσ add≤ anΣ wil∞ havσ ßá mailinτá campaigεá t∩ ì áááááááááááááreleven⌠ supplier≤ detailinτ thσ proceedurσ t∩ ge⌠ thei≥ messagσ ì ááááááááááááát∩ you« Thi≤ wil∞ bσ sen⌠ ou⌠ beforσ thσ DECEMBE╥ meeting. 11 SUBJECT:- SUBGROUPS STATUS:- Iµ 1░ o≥ morσ member≤ wan⌠ t∩ star⌠ ß subgrou≡ wσ wil∞ assis⌠ b∙ ì ááááááááááááápayinτ fo≥ an∙ expence≤ incurreΣ iε gettinτ i⌠ started«á e.g« iµ ì áááááááááááááyo⌡á wanteΣ ß PILO╘ subgrou≡ t∩ ruε oε SATURDA┘ ge⌠ thσá number≤ ì ááááááááááááátogethe≥á anΣá wσ wil∞ pa∙ fo≥ thσ VENUE«á Wσ woulΣ likσ t∩á ge⌠ ì ááááááááááááásomσ subgroup≤ fo≥ ou≥ maiε meeting¼á s∩ tha⌠ wσ caε offe≥á thi≤ ì áááááááááááááa≤á anothe≥ servicσ t∩ ou≥ members«á S∩ iµ yo⌡ arσ interesteΣ iε ì áááááááááááááan∙á oµá thσ following,o≥ an∙ othe≥ titlσ le⌠ mσ kno≈á BD╙á "C"╗ ì áááááááááááááPASCA╠ ╗ DBAS┼ I╔ ╗ COMMUNICATION╙ ╗ PILO╘ ╗ CP/═ ╗ etc 12 SUBJECT:- PAPER LIBRARY---NEW INFORMATION STATUS:- Al∞á ne≈ informatioε wil∞ bσ iε ß separatσ RE─ binde≥á fo≥á tha⌠ ì ááááááááááááámeeting¼á theεá bσ moveΣ t∩ thσ relaven⌠ BLU┼ binder«á Theε eacΦ ì ááááááááááááámontΦá wheε yo⌡ g∩ t∩ thσ pape≥ librar∙ yo⌡ caε readl∙ reaΣá an∙ ì áááááááááááááne≈ information« Thi≤ i≤ no≈ iε place. 13 SUBJECT:- A.T. COLUMN STATUS:- Thi≤á wil∞ contaiε al∞ ne≈ informatioε regardinτá A.T«á product≤ ì áááááááááááááanΣ S/╫ tha⌠ ha≤ beeε releaseΣ iε thσ previou≤ month«á e.g« thi≤ ì ááááááááááááámontΦá wσá receiveΣá ß referencσ manua∞ oεá STA╥á INDE╪á plu≤á ß ì ááááááááááááácommanΣ carΣ fo≥ WORDSTAR«á Hencσ yo⌡ wil∞ havσ ß gooΣ ideß wha⌠ ì ááááááááááááái≤á ne≈á iε thσ pape≥ libra∙ a≤ wel∞ a≤ wha⌠ S/╫ ha≤á jus⌠á beeε ì áááááááááááááreleaseΣá froφá thσá make≥ oµ thσ BEE«á Thi≤ wil∞ star⌠á iεá thσ ì áááááááááááááDECEMBE╥ issue. A> GRANT .PA è USING_TH┼_654╡_CR╘_CONTROLLE╥ (by DAVID MORRISON - author of AT's DEFENDER) Thσá usσ oµ thσ 654╡ I├ oε thσ Microbeσ make≤ i⌠ possiblσ t∩ prograφ man∙ ì differen⌠ screeε format≤ ver∙ easily«á T∩ makσ ful∞ usσ oµ thσ controlle≥á aε ì understandinτá oµá thσ basiπ internal≤ oµ thσ I├ i≤ necessary«á Thi≤á articlσ ì wil∞á tr∙á t∩á sho≈ ho≈ t∩ prograφ thσ 654╡ fo≥ you≥á owεá customizeΣá screeε ì format. INTERNA╠ REGISTERS: Insidσ thσ 654╡ arσ 3▓ register≤ (place≤ tha⌠ holΣ inf∩ - simila≥ t∩á memory⌐ ì tha⌠ storσ variou≤ datß froφ thσ numbe≥ oµ line≤ oε thσ displa∙ t∩ thσ curso≥ ì position«á Thesσá registe≥ eacΦ havσ aε "addressó o≥ "index"«á EacΦ registe≥ ì caε holΣ ß numbe≥ froφ ░ t∩ 25╡ (iσ ░ t∩ FFH)«á Programminτ thσ 654╡ consist≤ ì oµ loadinτ thesσ register≤ witΦ thσ requireΣ data. LOADIN╟ TH┼ REGISTERS: T∩á loaΣ thesσ register≤ thσ register'≤ addres≤ need≤ t∩ bσ pu⌠ ou⌠á por⌠á 1▓ ì (iσá 0CH⌐ theε thσ thσ datß t∩ bσ pu⌠ iε thσ registe≥ i≤ sen⌠ ou⌠ por⌠ 1│ (iσ ì 0DH). eτá Iµ registe≥ ╕ wa≤ t∩ bσ loadeΣ witΦ thσ valuσ oµ 12╣ theεá thσá followinτ ì woulΣ bσ done: outpu⌠ thσ valuσ oµ ╕ to por⌠ 12 outpu⌠ thσ valuσ oµ 12╣ to por⌠ 13 o≥ iε machinσ language: L─ A,8 OU╘ (12),┴ ;senΣ ou⌠ register'≤ address L─ A,129 OU╘ (13),┴ ;senΣ ou⌠ datß t∩ bσ loaded READING FROM THE REGISTERS: Somσ oµ thσ register≤ caε bσ reaΣ froφ a≤ wel∞ (eg« CURSO╥ POSITION)« Thi≤ i≤ ì donσá iε ß simila≥ wa∙ - outpu⌠ it≤ addres≤ t∩ por⌠ 1▓ theε reaΣ froφ por⌠ 1│ ì thσ data. eτá fo≥á aεá examplσ oµ readinτ froφ ß registe≥ iµ thσá lo≈á bytσá oµá curso≥ ì positioε i≤ wanteΣ t∩ bσ read: output the value of 15 to port 12 read the value from port 13 or in machine language: LD A,15 ;set register number OUT (12),A ;output to 6545 IN A,(13) ;read register Als∩á iµá ßá reaΣ froφ por⌠ 1▓ i≤ donσ thσ valuσ oµ thσá statu≤á registe≥á i≤ ì given«á Thi≤ registe≥ hold≤ flag≤ fo≥ ligh⌠ peε addres≤ ready¼ updatσ addres≤ ì anΣ vertica∞ blanking«á Vertica∞ blankinτ i≤ ver∙ usefu∞ iε tha⌠ yo⌡ caε sto≡ ì spike≤á appearinτ oε thσ screeε (thi≤ i≤ seeε mostl∙ wheε iε inverse⌐á - thi≤ ì i≤á donσá b∙ waitinτ unti∞ thσ vertica∞ blankinτ bi⌠ (bi⌠ ╡ oµ por⌠ 12⌐á goe≤ ì higΦ beforσ an∙ writinτ i≤ donσ t∩ thσ screen« èiσ iε machinσ languagσ thi≤ subroutinσ woulΣ bσ calleΣ eacΦ timσ somethinτ i≤ ì goinτ t∩ bσ pu⌠ oε thσ screen: NOSPIKE IN A,(12) BIT 5,A JR Z,NOSPIKE ;WAIT UNTIL A VERTICAL BLANK .. ;DO SCREEN ACCESSING FROM HERE ON .. RET DESCRIPTIO╬ O╞ REGISTERS: Refe≥á t∩ Tablσ 1.░ fo≥ ß brieµ descriptioε oµ thσ variou≤ function≤á oµá thσ ì 654╡ registers. REGISTE╥ NAM┼ AN─ USE R0á HORIZONTA╠ TOTAL║á contain≤ thσ tota∞ oµ displayeΣ anΣ ì ááááááááááááááánon-displayeΣ characers¼á minu≤ 1¼ pe≥ horizonta∞ line« ì ááááááááááááááá-Fo≥ syncronizinτ display. R▒ HORIZONTAL DISPLAYED║ numbe≥ oµ character≤ pe≥ line R2 HORIZONTA╠á SYN├á POSITION║á determine≤ lef⌠á t∩á righ⌠ ì ááááááááááááááápositioε oµ thσ screen« -T∩ movσ screeε horizontally. R3 HORIZONTA╠ AN─ VERTICA╠ SYN├ WIDTHS║á seσ Tablσ 1.░ fo≥ ì ááááááááááááááábreakup«á -Allow≤á thσ 654╡ t∩ interfacσ ßá variet∙á oµ ì áááááááááááááááCRT's. R4á VERTICA╠ TOTAL║á Tota∞ characte≥ row≤ iε ß framσ minu≤ ì ááááááááááááááá1« -Determine≤ thσ overal∞ framσ rate. R5á VERTICA╠áá TOTA╠á ADJUST║áá contain≤á thσá numbe≥á oµ ì áááááááááááááááadditiona∞á scaεá line≤ needeΣ t∩á completσá aεá entirσ ì áááááááááááááááframσá scan«á -Fo≥á finσ adjustmen⌠ oµ thσá vide∩á timσ ì áááááááááááááááframe. R╢á VERTICAL DISPLAYED║á numbe≥ oµ line≤á pe≥á screeε ì R7á VERTICA╠áá SYN├á POSITION║áá UseΣá t∩á determinσá thσ ì ááááááááááááááácharacte≥ ro≈ timσ a⌠ whicΦ thσ VSYN├ pulsσ occurs« ì ááááááááááááááá-useΣ t∩ movσ screeε vertically. R8 MODE CONTROL: selects operating mode of 6545. bit 0,1: interlace control bit 2: video addressing- 0=normal 1=row,column bi⌠á3: vide∩áraφáaccess- 0=shareΣámem 1=transp. bit 4: display enable skew- 0=no delay 1=delay bit 5: cursor skew- 0=no delay 1=delay bit 6: update strobe- 1=pin 31 act as update strobe bit 7: update/read mode- 0=opp during blanking R9á SCA╬ LINES║á numbe≥ oµ scaε line≤ pe≥ characte≥á minu≤ ì ááááááááááááááá1¼á (includinτá spacing)«á -UseΣá t∩ makσá halµá heigh⌠ ì ááááááááááááááácharacter≤ eτ fo≥ 80x2┤ onl∙ usσ 1░ scaε lines R10 CURSO╥ START/MODE║á bottoφ ╡ bit≤ contaiε startinτ scaε ì ááááááááááááááálinσ oµ curso≥ block. bit 6,5: 0 0 No blinking 0 1 No cursor ▒ ░ Blink at 1/16 field rate 1 1 Blink at 1/32 field rate R11 CURSO╥ END║á bottoφ ╡ bit≤ contaiε endinτ scaε linσ fo≥ ì ááááááááááááááácurso≥ block. R12,13 DISPLA┘á STAR╘á ADDRESS¼á (High¼á Lo≈á byte)║á Contain≤ ì ááááááááááááááádispla∙áá star⌠á address«áá Notσá tha⌠á thi≤á doe≤á no⌠ ì ááááááááááááááámeaεá Microbeσá memor∙á iσ t∩á havσá displa∙á star⌠á a⌠ ì ááááááááááááááá0F000╚á thesσá register≤ shoulΣ holΣá 0000H«á Notσá an∙ ì áááááááááááááááaddres≤á ove≥á 0800╚ wil∞ bσ wrappeΣ arounΣá t∩á 0F000╚ ìèáááááááááááááááagain¼á anΣá an∙á addres≤á ove≥á 2000╚á wil∞á makσá thσ ì áááááááááááááááalternatσá characte≥á se⌠ comσ int∩ operatioε (a≤á useΣ ì áááááááááááááááiε 80x2┤ format). R14,15 CURSO╥á POSITIO╬ (High¼á Lo≈ byte)║á contain≤á positioε ì áááááááááááááááoµ curso≥ iε memor∙ (seσ note≤ above). R16,17á LIGH╘á PE╬á POSITIO╬á (High¼áá Lo≈á byte)║áá contain≤ ì áááááááááááááááaddres≤á oµá ligh⌠á peεá iεá memory«áá - useΣá fo≥á thσ ì áááááááááááááááoperatioε oµ thσ keyboard. ááá R18,19 UPDAT┼áá ADDRES╙á (High¼áá Lo≈á byte)║áá contain≤á thσ ì áááááááááááááááaddres≤á oµá thσ nex⌠ reaΣ o≥á update«á - caεá als∩á bσ ì áááááááááááááááuseΣ iε thσ operatioε oµ thσ keyboard. áááá R20-30 NOT USED R31 DUMMY LOCATION REGISTER DATA TABLES: Usuall∙á thσá datß fo≥ thesσ register≤ i≤ kep⌠ iε ß tablσ o≥ arra∙ iεá memor∙ ì whicΦ i≤ loadeΣ int∩ thσ register≤ b∙ anothe≥ program« MicroworlΣ BASI├ keep≤ ì it≤á tablσ a⌠ 0D2╚ (thi≤ addres≤ correspond≤ t∩ registe≥ 0)«á Thσá Networkinτ ì EPRO═ keep≤ it≤ tablσ a⌠ 0150╚ fo≥ thσ 80x2┤ display« T∩ changσ thσ register≤ ì onl∙á thσ correspondinτ bytσ iε thσ tablσ need≤ t∩ bσ altered«á Iε BASI├á thσ ì tablσ i≤ loadeΣ int∩ thσ register≤ onl∙ wheε ß rese⌠ o≥ ß screeε movemen⌠á i≤ ì donσ (iσ ES├ ┴ o≥ ES├ S⌐ s∩ t∩ seσ thσ adjustment≤ madσ eithe≥ pres≤ RESE╘ o≥ ì typσ ES├ A. Thσá followinτá tablσá give≤ somσ example≤ t∩ tr∙ ou⌠á fo≥á differen⌠á screeε ì format≤á notσ an∙ blanδ spacσ mean≤ t∩ leavσ thσ bytσ iε thσ tablσ thσá same« ì (ALL VALUES ARE IN DECIMAL) ADDRESS REG (A) (B) (C) (D) (E) (F) 210 R0 95 107 107 211 R1 64 64 80 212 R2 75 81 90 213 R3 55 55 55 214 R4 18 18 27 37 8 19 215 R5 9 9 5 216 R6 16 16 25 32 16 217 R7 17 17 26 35 8 17 218 R8 72 72 72 75 75 219 R9 15 15 10 7 220 R10 111 111 105 221 R11 15 15 10 222 R12 0 0 32 223 R13 0 0 0 WHERE COLUMN: (A)=64x16 normal 2Mhz Microbee (B)=64x16 standard IC Microbee (C)=80x25 dreamdisk screen format (D)=64x3▓áhalµ heigh⌠ character≤ (E)=64x1╢ halµ heigh⌠ screeε usinτ interlaceΣ (F)=64x32 half height characters and screen B∙á simpl∙á tryinτá ou⌠á differen⌠ combination≤ fo≥ thσá datßá iεá eacΦ ì registe≥ man∙ differen⌠ anΣ usefu∞ display≤ caε bσ devised«á Thσ abovσá tablσ ì should give some ideas as to what can be done. .PAè TABLE_1.0 ADDR REG NAME READ WRITE BITS 7 6 5 4 3 2 1 0 - - Address reg (port 12) n y A4 A3 A2 A1 A0 - - Status reg (port 12) y n U L V 00 R0 Horz total-1 n y - - - - - - - - 01 R1 Horz displayed n y - - - - - - - - 02 R2 Horz sync possition n y - - - - - - - - 0│ R│ Vsync¼ Hsynπ width≤ n ∙ V│ V▓ V▒ V░ H│ H▓ H▒ H0 04 R4 Vert total-1 n y - - - - - - - 05 R5 Vert total adjust n y - - - - - 06 R6 Vert displayed n y - - - - - - - 07 R7 Vert sync position n y - - - - - - - 08 R8 Mode control n y - - - - - - - - 09 R9 Scan lines -1 n y - - - - - 1░ R1░ Curso≥ star⌠ n ∙ B▒ B░ - - - - - 11 R11 Cursor end n y - - - - - 12 R12 Display start address (H) n y - - - - - - 13 R13 Display start address (L) n y - - - - - - - - 14 R14 Cursor position (H) y y - - - - - - 15 R15 Cursor position (L) y y - - - - - - - - 16 R16 Light pen reg (H) y n - - - - - - 17 R17 Light pen reg (L) y n - - - - - - - - 18 R18 Update address (H) n y - - - - - - 19 R19 Update address (L) n y - - - - - - - - 31 R31 Dummy location *************************** STRING_FLASHER_-_DISK_MBASIC_PROGRAM_- by R.T. LIM 10 REM This short program gives you a 'FLASHING EFFECT' when 20 REM strings are printed on the screen. It can be adapted to 30 REM your own MBASIC programs. I use this 'FLASH' routine when 40 REM presenting the main menu in a menu driven program. 50 REM The loop count in line 200 can be any number less than '300' 60 REM 70 GOSUB 130 :PRINT CL$ ╕0 FOR LOOP=1 TO 3 : REM start of loop 90 PRINT CL$:GOSUB 170 100 NEXT LOOP : REM end of loop 110 END 120 REM 130 REM Subroutine : Clear screen routine 140 CL$=CHR$(26):FL$=CHR$(27) 150 RETURN 160 REM 170 REM Subroutine : Flash routine 180 FL1$=FL$+"W":FL2$=FL$+"Z":FL3$=FL$+"A":FL4$=FL$+"S" 190 FLS$=FL1$+FL2$+FL3$+FL4$ 200 FOR I=1 TO 300:PRINT FLS$;:NEXT I 210 PRINT TAB(16);HELLO ISSSS........ME" 220 RETURN .PAè.PO 12 MICROBUG_AUSTRALIA_TAPE_LIBRARY P.O. Box 45, Canterbury. 3126. OCTOBER 1984 ADVENTURE_GAMES GENERAL_PROGRAMS GENERAL_GAMES ADVENTURE LAND BIORHYTHMS etc *AROUND/DOUBLE TRIANGLES **BLACK FRIDAY CHATTERBOX CAMEL COLDITZ CHPLUS CHASE/WUMPUS1 FRANKENSTEIN **DECISION MAKER CHESS KIN *DOMESTIC ACCOUNTS CONCENTRATION KUNG FU EDUPACK1 COSMIC JS MATHS ADVENTURE EDUPACK2 DRAUGHTS MISSION IMPOSSIBLE *LCG/3D-PLOT GALAXY JS PIRATE *LEAGUE LADDERS *GOBBLE/ASTRO **SCHMOO CITY LOGO HURKLE/CRICKET SURVIVE LUCKY DIP INVADER JS THUNDER ROAD MAD LIB KINGS WUMPUS2 MATHS RACE *LOGIC DICE **MINDREADER MISSILE JS UTILITY_PROGRAMS MONKEY MATHS ROBOTMAN JS *MULTI GRAPHER *SKI SLALOM *DEBUGER 16/32k *PCG GENERATION *SQUARES/TRIANGLES DISEMBLER 16/32k PCG TUTOR SUBTERRA ESKEY 16/32k PILOT *TANKS *HEXDUMP (inc. source) *RECORDS PROGRAM TARGET LOADER v1.1/v1.3 **SPELLBOUND *TERMITE MEMORY DISPLAY 16/32k TYPING/SOLITAIRE TIC-TAC-TOE/FOUR SOURCE GENERATOR 16/32k *UFO ATTACK ZTREK ** New programs this month * New programs this year LIBRARY_RULES 1« Librar∙ member≤ mus⌠ bσ financia∞ member≤ oµ MICROBU╟ AUSTRALIA. 2. Membership of the tape library is $10. ($5 is held as security deposit) 3. Loans are made for a maximum period of 1 calender month. 4. A maximum of 5 tapes per member per month can be loaned. 5. Hiring fee is $2 per tape per month. 6. Loans can be arranged by mail through the above address. 7. Postage within Australia is $1 for 1 or 2 tapes & $1.50 for 3 to 5 tapes. 8. Tapes may be reserved. 9. Reservations will only be held until the next 2nd Wednesday meeting. ******************** MICROBUG_AUSTRALIA_DISK_SOFTWARE P.O. Box 45, Canterbury. 3126. Thσá followinτá volume≤á oµá publiπ domaiε softwarσá arσá no≈á availablσá oε ì Microbeσá DDD╙á forma⌠ (5ó Verbatiφ 550-0▒ diskettes⌐ fo≥ orde≥ througΦá thσ ì abovσá addres≤á o≥á a⌠ monthl∙ meeting≤ fo≥ pick-u≡á a⌠á thσá followinτá 2nΣ ì Wednesday User Group meeting. SIG/M,CPMUG & CUG catalogue disk $6.00 each SIG/M volumes 1-192 $5.00 each CPMUG volumes 1-91 $5.00 each CUG volumes 1-24 $5.00 eachè.P╧ 14 .PC 50 * CASSETTE SOFTWARE SALES * CASSETTE SOFTWARE SALES * CASSETTE SOFTWARE SALES * CASSETTE SOFTWARE * T1. ADVENTURE IN 3D T41. GEO-TECH DRAWING (1 & 2) T81. PROJECTILES T2. AMAZON SEARCH T42. GEO-TECH DRAWING (3 & 4) T82. PROSPECTOR T3« A-READING-AL╠ T43« GENERA╠ LEDGE╥ T83« QUES╘ FO╥ CASTL┼ ELDRITCH T4. ATLANTIC SEA BATLE T44. GENETIC INHERITANCE T84. REELS T5. AZRAGOR, TEMPLE OF T45. GENIUS & INSANITY T85. RING OF DOOM T6. BEE PIANO T46. GOLF T86. ROBOTMAN (COLOUR) T7. BIG CHARACTER VDU T47. GRAPHIC GAMES (VOL. 1) T87. SABRE OF SULTAR T8. BILL THE BARMAN T48. GRAPHIC LANDER T88. SCRAMBLER T9. BIORHYTHMS/PRINTER PACK T49. GRAPHIC LIGHT T89. SEA DOG T10. BLACK JACK T50. GRIDFIRE T90. SEARCH & DESTROY WUMPUS T11. BUSY CALC T51. HUSTLE T91. SKETCH PAD T12. CAPTURE T52. INSURANCE INVENTORY T92. SPACE LANES T13. CANNIBALS & MISSIONARIES T53. INTRO. TO CHEMISTRY T93. SPEED READING T14. CAVE HUNT T54. JOYSUB JUSTLE T94. SPELLING WARS (1 & 2) T15. CHASE PLUS T55. KEPLERS WAR T95. STAT TUTORIAL T16. CHEMICAL EQUATIONS T56. KEYBOARD TUTORIAL T96. STAT PACK (1,2,3 & 4) T17. CHESS/CHESS TUTORIAL T57. KINEMATICS T97. SURVIVOR T18. CHOPPER PILOT T58. LAZER BLAZER T98. SPACE INVADERS T19. CHRISTMAS CAROLS T59. LEARNING CAN BE FUN 1A T99. SPACE LANES T20. COMPLEX T60. LEARNING CAN BE FUN 1B T100. SUPER DISASSEMBLER T21. COMPUTER MODELLING SIMULT. T61. LEARNING CAN BE FUN 1C T101. SWORD QUEST T22. CONCENTRATION T62. LEARNING CAN BE FUN 2A T102. SYDNEY APPROACH T23. CRAPS & ROULETTE T63. LEARNING CAN BE FUN 2B T103. TARGET/ZTREK T24. COULOMBS LAW T64. LEARNING CAN BE FUN 2C T104. TEACHERS BUSY BEE T25. DATA BASE T65. LENSES T105. TEXT FORMATER T26. DEBUG (16 & 32k) T66. LOGO (16 & 32k) T106. THE VALLEY & CAVES T27. DEPTH CHARGE T67. MARBLES & JAIL BAIT T107. TURTLE T28. DEFENDER T68. MARKET SIMULATION T108. TYPING TUTOR/BASIC HINTS T29. DESTROYER T69. MATHS ADVENTURE T109. VECTOR TUTORIAL T30. DRAUGHTS T70. MATRIX CALCULATOR T110. VECTORS & GRAPHING T31. DUNGEONS OF KHAN T71. METRIC CONVERTOR T111. VIDEO MAZE T32. ELECTRO MATE T72. MILLIKANS EXPERIMENT T112. VIPER T33. ELIZA T73. MINER T113. WORK-A-BEE T34. EI-READING-OU T74. MORSE CODE TUTORIAL T114. WORK ADVENTURE T35. ESCAPE FROM COLDITZ T75. MUSEUM ADVENTURE T115. WONDERWORDS T36. ESCAPE KEY (16 & 32k) T76. MOVING WITH MATHS T116. YAHTZE T37. EUREKA T77. NOUGHTS & CROSSES T38. EYE OF MIN T78. ONE DAY CRICKET T39. FRONTIER ADVENTURE T79. P.C.G. SAMPLER T40. GEOGRABEE T80. POOLS & LOTTO * DISKETTE SOFTWARE SALES * DISKETTE SOFTWARE SALES * DISKETTE SOFTWARE SALES * DISKETTE SOFTWARE * D1. ADVENTURE PAK 1 ($24) D16. EYE OF MIN D31. SWORD QUEST D2. AZRAGOR, TEMPLE OF D17. GEOGRABEE D32. SYDNEY APPROACH D3. BEE CASINO ($24) D18. GOLF D33. TARGET/ZTREK D4. BEE SCIENTIST 1 ($32) D19. GRIDFIRE D34. THE VALLEY & CAVES D5. BEE SCIENTIST 2 ($24) D20. HISTRIBEE D35. TYPING TUTOR/HINTS D6. CAPTURE D21. LEARNING CAN BE FUN ($32) D36. VIPER D7. CASTLE OF ELDRITCH D22. MARKET SIMULATION D37. WONDERWORDS D8. CHESS/CHESS TUTOR D23. MINER (B/W & COLOUR) D38. WORD ADVENTURE D9. CHOPPER PILOT D24. RING OF DOOM D39. DRAUGHTS D10. DEFENDER D25. ROBOTMAN D40. LAZER BLAZER D11. DISK CATALOG D26. SABRE OF SULTAR D41. MOVING WITH MATHS D12. DUNGEON OF KHAN D27. SCRAMBLER D42. VIDEO MAZE D13. ELECTRONIC HOBBY MATE D28. SKETCH PAD D14. EUREKA D29. SPACE INVADERS D15. EYE OF MIN D30. SURVIVORè.PO 12 .PC 39 * MICROBUG SALES * MICROBUG SALES * MICROBUG SALES * MICROBUG SALES * # T... - A.T. CASSETTE SOFTWARE $10.00 # D... - A.T. DISKETTE SOFTWARE $16.00 (all S/W prices as above unless otherwise noted) CS30 - BLANK C30 CASSETTE $ 1.50 CB30 - BOX C30 CASSETTES (20 per box) $25.00 DSD5 - BLANK 5" DISKETTES (Verbatim DDDS) $ 4.50 DBD5 - BOX 5" DISKETTES (10 per box) $45.00 * DB85 - LOCKABLE 5" DISKETTE BOX (holds 85) $30.00 PR80 - CARBON PRINTER RIBBON (Epson MX80 type) $ 9.50 * PP05 - 500 SHEETS PRINTER PAPER (240mm wide) $10.00 * PP20 - 2000 SHEETS PRINTER PAPER (240mm wide) $35.00 * not available for postal purchase # refer individual codes on software list __________________________________________________________________________ MICROBUG_AUSTRALIA_POSTAL_SALES_ORDER_FORM All postal orders to be sent to MICROBUG AUSTRALIA SALES P.O. Box 157, Nunawading. VICTORIA. 3131. T∩áavoiΣádelay≤áal∞ order≤ mus⌠ includσ chequσ o≥ posta∞ orde≥ fo≥ thσ ì tota∞ amoun⌠ oµ thσ order« (inc« postagσ ª handlinτ fee≤ wherσ applicable) Minimum postal order amount $10.00 (including postage & handling fee) Please allow 28-40 days for return of ordered goods. MEMBER'S NAME : _________________________________ MEMB'SHIP NO. : ______ CODE ITEM QUANTITY PRICE TOTAL COST _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ _____ __________________________________ ________ _____ __________ POSTAL_FEES (within Australia) SUB-TOTAL ITEMS $__________ $10 to $20 order : $2.50 POSTAGE & HANDLING FEE $__________ $20 to $50 order : $5.00 greater than $50 : P.O.A. =========== TOTAL ORDER AMOUNT $ Certified mail add : $0.85 =========== Registered post add : $3.30 (minimum postal order amount $10.00) .PAè DISPLAYING_YOUR_OWN_CP/M_SIGN-ON_MESSAGE - by Kevin Carr ┴á couplσá oµ meeting≤ ago¼á someonσ askeΣ ho≈ t∩ g∩ abou⌠ changinτ thσá CP/═ ì sign-oε messagσ afte≥ ß colΣ boot«á Thσ followinτ explain≤ thσ procedurσá a≤ ì simpl∙ a≤ possible. Firstly¼á yo⌡ wil∞ neeΣ ß systeφ disδ containinτ DDT.CO═ anΣ SYSGEN.COM« Boo⌠ ì thσá systeφá witΦ thi≤ disδ anΣ theε ruε SYSGEN«á T∩ thσ source-drivσá promp⌠ ì ente≥ A« T∩ thσ destination-drivσ promp⌠ ente≥ RETURN« Thσ CP/═ systeφ wil∞ ì no≈ bσ iε memory«á Typσ SAV┼ 4░ CPM.COM¼á whicΦ wil∞ savσ thσ firs⌠ 4░ page≤ ì oµ memory« Thi≤ contain≤ thσ CP/═ system. Thσ nex⌠ ste≡ i≤ t∩ typσ DD╘ CPM.COM¼á theε ente≥ D2440« Yo⌡ shoulΣ seσ thσ ì sigε oε messagσ iε hexadecima∞ form« T∩ changσ this¼ usσ thσ ╙ SubcommanΣ oµ ì DDT. Aε examplσ woulΣ be¼ t∩ say¼ placσ "MICROBUGó abovσ thσ origina∞ linσ statinτ ì Microbeσ 56δ CP/═ Ver≤ 2.2« T∩ d∩ thi≤ typσ D24C8. The following should appear:- 24C8: 2O 7C 7C 7C 7C 7C 7C 2O etc. Thesσá wσá wan⌠ t∩ changσ t∩ thσ he° code≤ fo≥ MICROBUG«á Thi≤á i≤á donσá b∙ ì typinτ S24C╕ anΣ theε thσ following¼ eacΦ followeΣ b∙ ß carriagσ return; 4D 49 43 52 4F 42 55 47 and then a fullstop, return. We now control C to warmboot back to CP/M. Thσá modifieΣá systeφ i≤ iε memor∙ anΣ t∩ savσ i⌠ ruεá SYSGE╬á again«á Ente≥ ì RETUR╬ t∩ thσ source-drivσ promp⌠ anΣ ┴ t∩ thσ destination-drivσ prompt« No≈ ì iµ yo⌡ reboo⌠ thσ systeφ thσ ne≈ sign-oε shoulΣ appear. Yo⌡á coulΣ als∩ removσ thσ largσ CP/═ symbo∞ b∙ replacinτ thσ he° number≤á 7├ ì 2╞á anΣá 5├ witΦ 2O╗á bu⌠ iµ yo⌡ d∩ this¼á leavσ thσ linσ feeΣá anΣá carriagσ ì return≤ (O─ anΣ OA⌐ a≤ the∙ are. ************************* ????????????????????????????????????????????????????????????? ? ? ? HELP : ARE THERE ANY TEENAGE MICROBEE USERS IN THE ? ? MULGRAVE AREA ?.......JAMES MURRAY 561-4493 ? ? ? ? ANS : NIGEL RULE WOULD BE INTERESTED IN SWAPING ? ? PROGRAMS VIA MODEM....560-3487 ? ? ? ????????????????????????????????????????????????????????????? ????????????????????????????????????????????????????????????? ? ? ? HELP : CAN A RADIO "HAM" PROVIDE ME WITH A TAPE SO THAT ? ? I CAN CHECK THE OPERATION OF MY RTTY CONVERTER ? ? (ETI APRIL 83).... A.W. [NO NAME OR PHONE GIVEN] ? ? ? ? ANS : TRY 146.600 OR 147.350 EACH TUESDAY 8.00 PM ? ? RING VK3KJA 7351587 ? ? ? ????????????????????????????????????????????????????????????? è Screen_Dump_for_Microbees_with_parallel_printer. - by BOB DENTON Thi≤á i≤ ß screeε dum≡ witΦ ß ne≈ twist«á T∩ ruε i⌠ loaΣ thσ prograφ anΣ ì executσá i⌠ a⌠ it≤ firs⌠ addres≤ anΣ afte≥ tha⌠ an∙ timσ yo⌡ pu⌠ thσá printe≥ ì onlinσ i⌠ wil∞ producσ ß screeε dump« Thi≤ prograφ i≤ gooΣ fo≥ Microbee≤ witΦ ì ß 64x1╢ screeε forma⌠ anΣ ONL┘ witΦ ß paralle∞ printer. Becausσ thi≤ prograφ i≤ initiateΣ b∙ aε interrupt¼ i⌠ canno⌠ screeε dum≡ ì wheε interrupt≤ arσ disabled«á Iµ thi≤ i≤ requireΣ theε thσ D╔ opcode(s⌐á (F│ ì hex⌐ mus⌠ bσ changeΣ t∩ E╔ (F┬ hex⌐ iε thσ offendinτ program.Iµ i⌠ i≤ desireΣ ì t∩á terminatσá thσ screeε dum≡ earl∙ theε pres≤ anΣ holΣ thσ shif⌠ ke∙á unti∞ ì thσá screeε dum≡ ceases«á I⌠ wil∞ onl∙ d∩ thi≤ a⌠ thσ completioε oµá ßá line« ì Stoppinτá thσ screeε dum≡ witΦ thσ rese⌠ ke∙ wil∞ disablσ thσ screeε dum≡ anΣ ì i⌠ wil∞ neeΣ t∩ bσ reloaded. Thi≤á prograφá set≤á u≡á thσ paralle∞ printe≥ outpu⌠á eacΦá timσá i⌠á i≤ ì initiateΣ s∩ thσ use≥ doe≤ no⌠ havσ t∩ bσ concerneΣ witΦ this« I⌠ als∩ sense≤ ì linσá whicΦ arσ filleΣ witΦ space≤ anΣ linσ feed≤ pas⌠ theφ t∩ speeΣá u≡á thσ ì dump«á Notσá tha⌠á sometime≤á tha⌠á line≤ whicΦ appea≥ t∩ bσá blanδá arσá no⌠ ì skipped¼ thi≤ i≤ becausσ the∙ arσ filleΣ witΦ graphic≤ blank≤ (PC╟ redefined⌐ ì no⌠ ASCI╔ spaces. Somσáá user≤á witΦá buffereΣá printer≤á ma∙á experiencσá continueΣáá anΣ ì unstoppablσ screeε dumping« Thi≤ ma∙ bσ overcomσ b∙ increasinτ thσ timσ dela∙ ì a⌠á linσ 128░ s∩ tha⌠ thσ Microbeσ i≤ forceΣ t∩ wai⌠ unti∞á printinτá ceases« ì Thσá prograφ wil∞ neeΣ t∩ bσ reassembleΣ t∩ d∩ thi≤ successfull∙ s∩ thosσá oµ ì yo⌡ withou⌠ thσ EDAS═ tha⌠ neeΣ t∩ d∩ this¼ neeΣ t∩ finΣ ß matσ witΦ one. Thσá prograφ ma∙ bσ customiseΣ t∩ almos⌠ an∙ printe≥ withou⌠á reassembl∙ ì b∙ patchinτ thσ printe≥ contro∞ sequence≤ a⌠ thσ enΣ oµ thσ program. ADDR CODE LINE LABEL MNEM OPERAND 00100 ;BX80 parallel printer screen dump program 00110 ;bob denton 4-1-84, revised 5-5-84 00120 ;to use this program, exec at INIT, create the screen 00130 ;to be printed, put printer ONLINE and it will print 0400 00160 DEFR 16 7000 00170 ORG 7000 8045 00180 LPRINT EQU 8045 ;list print call F000 00260 VDU EQU 0F000 ;start of vdu 0040 00270 LNELEN EQU 40 ;vdu line length 00290 00300 ;set up interrupt vector 7000 211870 00310 INIT LD HL,ISR 7003 228000 00320 LD (80),HL 00330 ;enable parallel printer 7006 AF 00340 PARPRT XOR A 7007 320901 00350 LD (109),A 700A 3E02 00360 LD A,2 700C 32E300 00370 LD (0E3),A 700F 3E0F 00380 LD A,0FH 7011 D301 00390 OUT (1),A 7013 3E80 00400 LD A,80 7015 D301 00410 OUT (1),A 7017 C9 00420 RET .PAè 00430 ;interrupt service routine. save regs and set the return 00440 ;to point to the print routine at label BEGIN 7018 E5 00450 ISR PUSH HL 7019 2108B6 00460 LD HL,0B608 701C 228000 00470 LD (80),HL 701F 210200 00480 LD HL,2 7022 39 00490 ADD HL,SP 7023 F9 00500 LD SP,HL 7024 214170 00510 LD HL,BEGIN 7027 E3 00520 EX (SP),HL 7028 FB 00530 EI 7029 ED4D 00540 RETI 00550 ;two second (approx) delay 702B 0604 00560 DELAY LD B,4 702D 210100 00570 DELAY1 LD HL,1 7030 E5 00580 PUSH HL 7031 D1 00590 POP DE 7032 19 00600 DELAY2 ADD HL,DE 7033 30FD 00610 JR NC,DELAY2 7035 10FB 00620 DJNZ DELAY2 7037 C9 00630 RET 00640 ;output string of characters at (HL) to printer 7038 46 00650 OUTPUT LD B,(HL) 7039 23 00660 OUTPT1 INC HL 703A 7E 00670 LD A,(HL) 703B CD4580 00680 CALL LPRINT 703E 10F9 00690 DJNZ OUTPT1 7040 C9 00700 RET 00710 ;ISR transfers control to here 7041 E5 00720 BEGIN PUSH HL 7042 21FEFF 00730 LD HL,-2 ;note minus sign 7045 39 00740 ADD HL,SP 7046 F9 00750 LD SP,HL 7047 D5 00760 PUSH DE 7048 C5 00770 PUSH BC 7049 F5 00780 PUSH AF 704A 21F602 00790 LD HL,2F6 704D AF 00800 XOR A 704E ED72 00810 SBC HL,SP 7050 285B 00820 JR Z,EXIT ;no dump if machine reset 7052 CD2B70 00830 CALL DELAY 7055 CD0670 00840 CALL PARPRT 7058 21FE70 00850 LD HL,LIST3 ;set up printer 705B CD3870 00860 CALL OUTPUT 705E 2100F0 00870 LD HL,VDU 7061 E5 00880 PUSH HL 7062 D1 00890 POP DE 00900 ;look ahead one line and skip if blank 7063 0640 00910 LKAHD LD B,LNELEN 7065 7E 00920 LKAHD1 LD A,(HL) 7066 FE20 00930 CP 20 7068 2010 00940 JR NZ,NTBLNK 706A 23 00950 INC HL 706B 10F8 00960 DJNZ LKAHD1 706D CD4580 00970 CALL LPRINT 7070 3E0A 00980 LD A,0AH 7072 CD4580 00990 CALL LPRINT 7075 CD4580 01000 CALL LPRINT 7078 181F 01010 JR FINISH è 01020 ;not blank so point back to start of line 707A 23 01030 NTBLNK INC HL 707B 10FD 01040 DJNZ NTBLNK 707D 01C0FF 01050 LD BC,-LNELEN ;note minus sign 7080 09 01060 ADD HL,BC 01070 ;start graphics output to printer 7081 0E00 01080 LD C,0 ;offset for first pass 7083 CDB570 01090 CALL GRAFIC ;pass one on current line 7086 3E0A 01100 LD A,0AH 7088 CD4580 01110 CALL LPRINT 708B 01C0FF 01120 LD BC,-LNELEN ;note minus sign 708E 09 01130 ADD HL,BC ;adjust HL back to start of line 708F 0E08 01140 LD C,8 ;offset for second pass 7091 CDB570 01150 CALL GRAFIC ;pass two on current line 7094 3E0A 01160 LD A,0AH 7096 CD4580 01170 CALL LPRINT 01180 ;check if end of vdu or SHIFT key pressed 7099 CB54 01190 FINISH BIT 2,H ;end of vdu? 709B 2007 01200 JR NZ,FINSH1 709D 3E3F 01210 LD A,3FH 709F CD0AA5 01220 CALL 0A50AH 70A2 20BF 01230 JR NZ,LKAHD 01240 ;finished! restore printer 70A4 21F970 01250 FINSH1 LD HL,LIST2 70A7 CD3870 01260 CALL OUTPUT 01270 ;allow printer reset etc and then set up to print again 70AA CD2B70 01280 CALL DELAY 70AD CD0070 01290 EXIT CALL INIT 70B0 F1 01300 POP AF 70B1 C1 01310 POP BC 70B2 D1 01320 POP DE 70B3 E1 01330 POP HL 70B4 C9 01340 RET ;return to interrupted program 01350 ;translate character to printer bit image 70B5 E5 01360 GRAFIC PUSH HL 70B6 21F470 01370 LD HL,LIST1 70B9 CD3870 01380 CALL OUTPUT 70BC E1 01390 POP HL 70BD 0640 01400 LD B,LNELEN 70BF 7E 01410 NEXT LD A,(HL) ;get next character 70C0 E5 01420 PUSH HL ;save address 70C1 6F 01430 LD L,A ;put it into HL 70C2 63 01440 LD H,E ;zero H 70C3 29 01450 ADD HL,HL ;x2 70C4 29 01460 ADD HL,HL ;x4 70C5 29 01470 ADD HL,HL ;x8 70C6 29 01480 ADD HL,HL ;x16 70C7 19 01490 ADD HL,DE ;HL=CHAR ROM address + char x 16 70C8 7D 01500 LD A,L ;C contains offset for first or 70C9 81 01510 ADD A,C ;second pass at current line 70CA 6F 01520 LD L,A ;add it to HL 70CB D5 01530 PUSH DE 70CC C5 01540 PUSH BC 70CD 3E01 01550 LD A,1 ;set ROM READ latch 70CF D30B 01560 OUT (0BH),A 70D1 0E80 01570 LD C,80 ;bit mask to read character array 70D3 E5 01580 OUT1 PUSH HL 70D4 0608 01590 LD B,8 ;# of characters to read .PAè 70D6 CB23 01600 OUT2 SLA E ;assemble character to be printed 70D8 7E 01610 LD A,(HL) ;get character from array 70D9 A1 01620 AND C ;mask it against the bit in C 70DA 2802 01630 JR Z,OUT3 70DC CBC3 01640 SET 0,E ;copy bit from char to E 70DE 23 01650 OUT3 INC HL ;next character 70DF 10F5 01660 DJNZ OUT2 ;do it 8 times to complete 70E1 7B 01670 LD A,E ;printer column image 70E2 CD4580 01680 CALL LPRINT ;print one column of dots 70E5 E1 01690 POP HL ;restore start address of array 70E6 CB39 01700 SRL C ;set C to unmask next bit 70E8 30E9 01710 JR NC,OUT1 ;jump until 8 chars printed 70EA AF 01720 XOR A 70EB D30B 01730 OUT (0BH),A ;reset ROM READ latch 70ED C1 01740 POP BC 70EE D1 01750 POP DE 70EF E1 01760 POP HL 70F0 23 01770 INC HL ;next vdu character 70F1 10CC 01780 DJNZ NEXT 70F3 C9 01790 RET ;end of current pass of line 01800 ;printer graphics mode escape sequence 70F4 04 01810 LIST1 DB LIST2-LIST1-1 ;number of bytes in list 70F5 1B 01820 DB 1BH 70F6 4B 01830 DB 'K' ;single density graphics mode 70F7 00 01840 DB 00 70F8 02 01850 DB 02 ;length of graphics 0200H or 512D 01860 ;printer ending (normalising) sequence 70F9 04 01870 LIST2 DB LIST3-LIST2-1 70FA 1B 01880 DB 1BH 70FB 40 01890 DB '@' ;reset printer 70FC 07 01900 DB 7 ;ring bell 70FD 0A 01910 DB 0AH ;line feed 01920 ;printer setup sequence 70FE 03 01930 LIST3 DB LIST4-LIST3-1 70FF 1B 01940 DB 1BH 7100 31 01950 DB '1' ;set 7/72" line feed 7101 0A 01960 DB 0AH ;line feed 7102 01970 LIST4 EQU $ 0000 01980 END ****************************** $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $ $ $ FOR_SALE $ $ $ $ ONE ONLY MITSUBISHI 4851 DISKETTE DRIVE $ $ $ $ 396K - 5 inch - 40 tracks - Half height $ $ $ $ DOUBLE SIDED - DOUBLE DENSITY $ $ $ $ RING : BOB DENTON - 233-1483 $ $ $ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ .PAè ENGINEERING_NOTES_AND_CHANGES Thσá followinτá engineerinτá change≤ havσ beeε kindl∙ sen⌠ t∩ u≤á b∙á ApplieΣ ì Technology's Endineering & Training Manager, Mr. M.S. Maughan. WRONG_CHARACTERS_PRINTING_WHEN_CONTINUOUSLY_PRESSING_THE_SAME_KEY PROBLEM : When pressing a key such as 'H' continuously (not in repeat mode) you get the wrong character sometimes. SOLUTION : Change IC4 the 74LS151 on the main board. If this IC is a Fairchild batch no. 8348 or a National SP8408 they are likely to be the problem. Any other brand in this position is OK. A solution to why these two chips cause this problem is still to be determined. Until such time just replace with another Brand such as Motorola, Texas or Hitachi. TAPE_LOAD_PROBLEMS PROBLEM : Tapes load ok under BASIC and WORDBEE, but bad load with Wordbee verify and monitor loads. SOLUTION : If you have TELCOM 1 or 1.1 remove link wire mentioned on page 12 of the TELCOM manual. If you have to have a time clock and reliable tape loads with the monitor programmes this problem has been fixed in TELCOM version 1.2. Telcom 1.2 stops the 50 cycle interrupt on bit 7 pin 34 of the PIO¼á por⌠ B¼ wheε thσ clocδ i≤ turneΣ OFF« Yo⌡ stil∞ havσ t∩ havσ ì the clock OFF when loading or saving tape at 1200 baud. 64K_ROM_PAK_WORKING_WITH_8_SERIES_CORE_BOARDS PROBLEM : When ROM pak is fitted the Microbee will not start. The RESET circuit is not working. SOLUTION : On the core board IC29, join pins 9 to 13 and 12 to 8. This increases the RESET circuits output drive. If you still have problems then disconnect the ROMSEL line connected to pin 23 of the 50 way. (On 9 series core boards this pin is PHANTOM) You cannot cut the track on this pin to disconnect it because it continues on the other side. Remove PIN23 or cut tracks on both sides and and rejoin at a suitable location. Join pin 15 IC26 to pin 17 X1. NOTE : The signal shown as PHANTOM on the 8 series core board circuit diagram pin 7 IC26 is not PHANTOM. This is a output signal and is F000H it is not used on this board. PROBLEM : High current drain from battery on series III coreboard due to R13 in the wrong location. SOLUTION : Remove R13 from present location between IC35 and IC36. Replace R13 between plated-through hole at end of IC35 and +ve of C32. Replace battery if MICROBEE is more than two weeks old. .PAè INDEX_TO_THE_CATCHER_VOL.2_(83/84) ARTICLEôááááá MTH:YRô PAGE ASSEMBLER ASSEMBLED SOURCE TO WORDBEE CONVERSION 1/84 7 BLOCK MOVES AND COMPARES IN THE Z80. 10/83 9 INTEGER TO HEX CONVERSION ROUTINE IN MACHINE CODE 9/84 4 Z-80 FOR BEE-GINNERS Part 1 12/83 6 Z-80 FOR BEE-GINNERS Part 2 2/84 9 Z-80 FOR BEE-GINNERS Part 3 3/84 8 Z-80 FOR BEE-GINNERS Part 4 5/84 3 Z-80 FOR BEE-GINNERS Part 5 6/84 3 Z-80 FOR BEE-GINNERS Part 6 7/84 4 BASIC A UNIVERSAL HEX POKER 10/83 8 BASIC FOR BEE-GINNERS, XII 10/83 6 BASIC FOR BEE-GINNERS, XIII 11/83 2 CLEARING PART OF THE SCREEN IN BASIC 2/84 15 PROGRAMMING HINTS 3/84 21 TEXT FILES IN BEE DISK BASIC 3/84 4 CP/M CP/M 6/84 8 CP/M PROGRAMMING 2/84 11 DISK LIBRARY REPORT 5/84 14 DISK OPERATION 3/84 12 DISKETTE MANAGEMENT 5/84 10 INVISIBLE PROGRAMS 7/84 2 DGOS CURING SOME GREMLINS IN A DGOS SYSTEM 11/83 9 DG 680 POWER ON JUMP CIRCUIT 6/84 2 DISK BOOTING FOR SKINFLINTS 10/83 3 EDITORIAL RAMBLINGS 5/84 7 EDITORIAL A MESSAGE FROM THE PUBLIC OFFICER 12/83 14 ERRATA BLOCK MOVES AND COMPARES (10/83) 11/83 4 SQUARE GAME - MAR/APRIL 6/84 7 GENERAL EDUCATION INTEREST GROUP 12/83 11 INCORPORATION MESSAGE 1/84 13 LETTER'S TO THE EDITOR 9/84 15 NOTICE OF FORMATION OF WESTMUG 3/84 36 NOTICE OF RESOLUTION 12/83 15 PROFIT AND LOSS STATEMENT / BALANCE SHEET 11/83 10 STATEMENT OF PURPOSE OF MICROBUG AUSTRALIA 12/83 16 TAPE LIBRARY PROGRAM LISTING 1/84 18 THE CANBERRA MICROBEE SCENE 12/83 4 THE PENGUIN BOOK OF MICROBEE GAMES 3/84 7 THINKING AS A PROGRAMMER PART 2 3/84 23 THINKING AS A PROGRAMMER: FLOWCHARTING 2/84 13 VARIOUS NOTES 1/84 11 WILDCARDS VOL 2 - REVIEW 2/84 8 WILDCARDS VOL 3 - REVIEW 9/84 12 HARDWARE DG Z80 CPU CARD 3/84 15 DGOS CONTROL FROM (IC14) UPGRADE 3/84 12 EIA RS-232 CIRCUITS 8/84 2 SCREEN SPOTTER REVIEW 1/84 8 THE ENHANCER MICROBEE EXPANSION UNIT 8/84 8 THE Z-80 PIO IN THE MICROBEE 6/84 10 èMICROBEE CASSETTE PROBLEMS 1/84 3 FITTING A VOLUME CONTROL TO THE MICROBEE 7/84 11 GETTING STARTED ON THE MICROBEE - REVIEW 6/84 7 HARD COPY MUSIC 6/84 9 HINT FOR WORD-BEE USER'S 7/84 10 IS YOUR MIND OR MEMORY CORRUPT 11/83 7 MICROBEE INTERFACING 8/84 10 MICROBEE MODIFICATIONS 12/83 5 MICROBEE'S CP/M STARNET: A USER'S REPORT 9/84 13 MODEMS ON THE BEE 5/84 8 SAVING FILES TO CASSETTE 1/84 9 TELCOM AND THE BEEMODEM 7/84 8 WORD-BEE PRINTING ENHANCEMENTS 9/84 2 WORDBEE V1.2 ERROR 1/84 7 PROGRAM COAST WATCHER 8/84 15 DICE SIMULATION PROGRAM 10/83 14 ERROR MESSAGES IN BASIC PROGRAMS 10/83 18 GOBBLE 11/83 15 GRAPH 3/84 30 GUPPY'S REVENGE 7/84 11 MACHINE CODE SCREEN DUMP 1/84 14 MICROBEE TAPE DIRECTORY 2/84 4 MOONFIGHTER 9/84 16 MUSICON 7/84 13 NUMBER SQUARE GAME 3/84 33 ONE LINE BASIC GAMES 3/84 4 POLYGONS 11/83 11 PROGRAM TO PRINT CURSOR GRAPH 5/84 13 PROGRAM WINNER (FOOTBALL LADDER) 10/83 15 QADEQA 3/84 32 RANDOM GRAPHIC PROGRAM 3/84 25 ROTATE 3/84 6 ROUTINE FOR PLOTTING DATA ON AN X-Y GRAPH 3/84 26 SCREEN DUMP PROGRAM FOR C.ITOH 8510 7/84 7 SORTING IN BASIC 10/83 12 SPELLBOUND 8/84 16 SQUARE GAME 3/84 18 TAPE CATALOGUE 1/84 2 TERMITE 2/84 16 TEST YOUR REFLEXES 9/84 7 THE MIND READER 12/83 8 THREE DIMENSIONAL PLOTTING 5/84 19 WEEKEND AUSTRALIAN RACING PROGRAM 9/84 9 ^E JUMP IN BASIC 1/84 17 SOFTWARE BEEMON 12/83 3 BLOGO AND LOGOBEE REVIEWS 1/84 5 EUREKA - REVIEW 3/84 5 FORTH 8080 ASSEMBLER 9/84 5 KSED AND BSED 12/83 3 LETTERS TO THE EDITOR 8/84 7 MICROBEE FORTH 11/83 12 MYTEK PROGRAM REVIEWS 1/84 10 PCG GRAPHICS IN PASCAL & MBASIC 5/84 15 RELOCATE 12/83 3 SOURCE GENERATOR (PROGRAM INSTRUCTIONS) 10/83 11 THE SORTING OF DATA LISTS 8/84 6 TRSBEE - REVIEW 3/84 3 èT∩á maximisσ ou≥ effort≤ iε deliverinτ service≤ tha⌠ mee⌠ you≥ needs¼á coulΣ ì yo⌡ pleasσ fil∞ iε thσ followinτ questionaire«á Feedbacδ i≤ importan⌠ s∩ tha⌠ ì thσá cluΓá caε ascertaiε wha⌠ wσ arσ doinτ RIGHT/WRON╟ anΣá morσá importantl∙ ì wha⌠ wσ caε d∩ fo≥ yo⌡ iε thσ future« Wσ havσ senΣ thi≤ BIRTHDA┘ issuσ t∩ ex-ì member≤ s∩ tha⌠ thei≥ importan⌠ feedbacδ caε bσ obtained. ----------------------------------------------------------------------------- NAME:- ----------------------------------------------------------------------------- DO YOU HAVE A MICROBEE SYSTEM Y/N DO YOU HAVE A CP/M SYSTEM Y/N WILL YOU UPGRADE TO CP/M WITHIN 6MONTHS Y/N DO YOU HAVE A MODEM Y/N WILL YOU BUY A MODEM WITHIN 6 MONTHS Y/N WHAT DO YOU LIKE MOST ABOUT THE CLUB???? ................................................................... ................................................................... WHAT DO YOU FEEL NEEDS IMPROVING???? ................................................................... ................................................................... WHAT IS YOUR PRIME AIM IN OWNING A MICROBEE???? ................................................................... ................................................................... HOW CAN WE ASSIST YOU IN THE ABOVE GOAL???? ................................................................... ................................................................... THE FOLLOWING QUESTIONS ARE FOR EX-MEMBERS:- WHY ARE YOU NO LONGER A MEMBER ????? ................................................................... ................................................................... WHAT'S REQUIRED TO MAKE YOU REJOIN ................................................................... ................................................................... WITH OVER $8000 IN THE BANK WHAT SERVICE COULD WE PROVIDE YOU WITH? ................................................................... ...................................................................