Home

Vol 8 No 4 - Dave`s OSI repository

1. OM TOON DOO HOM TOWN ONO HAU TO TOON ONO e OU TO SF 1 UO 10 OK OOO e CU TO TOON OOO HOON TOON OOO e 0 eX CU PO TOON 00 0 40119 TOON OOO e QU TO TOON CO OS AHAI C5 CO CO 0 CO HHHH TE HHH AUN CU QU CU QU CU QU QU TO fO FO TO TO TO TO TO TOTO TO TO Fr SED IO UD 1D IO D VD O D SO SD XO SO SD SO SD D P O0 02 OD 00 000000 00000 OO OO Fo fo fo TOTO FOTO FO fO TOTO TO FO TO TO TO TOTO f TOTO TO TO FO fO TO TO TO IO TO TOTO TO TO TO TO TO fO TO TOTO TO TO TO TO TO fO fO TO TO TO TOTO TO TO TO TO TO TO TO TO TO fO fO FO TO FO TO TO PO PO FO PO CO PO TO TO TOTO TO TO FO TO TO TO TO TO TO TOTO TO FO PO T PEEK 65 December 1987 page 21 7 n i A A 1 4 t De D 1 4 a 1 3 4 3 1 c 0 v i n A 1 n wi t 1 0 4 L A 4 det U 5 gt gt H MOMO
2. TO st O0 00 OY CO TOON OOO HOM TOON OOO e ODO HOM 02 4 DHOAUMTNOROKHGHUMTNOR OKHOAUMT DION 020 UUM TOON DOO e T GG OO G0 ede eoe ind n UUUUUNUUUUNMMMMMMMMM f x SP E FP SE XE SED DAD ID 1D ID EO LO D LO 0 SO XD P f IS C EIS SEN 02 0000 00 0000000000 NONO OO SPSS ITS ITS SST SS SSCS STS STS TST SST SSS SST TSS TTS TST SST TTT TTT TTT ITI IITs 279 77 PEEK 65 December 1987 page 22 5 n 3 A 6 2 3 3 o v 4 5 3 2 4 o c 4 c A x H n x m m E 4 A d a CUM 4 ee d e Woe Za 2 4 2 we 3 9 gt 22 c 5 XO Cx TX a ne FRE OO ul H ce 2 u o a wwa uw a aaa 2 7 ar e zz mzez u O G Y 2 ELE zomom O O c oc ALAIHOH
3. gogmoconucocuzcacmo s COq rcodcuraoauuuozcouoousx 4 0 OWHATOHOLMHN OOMWHATRTOLATA TOO HM HPNTOLATONOALAMORTH ALUYMRKRTOOMNAOMOQWONUNOOAWAM LE COO CO CO CO CO oed non n tF 0000000 COMA 0 00 00 0 OCOCOOOCOCOCOCOOOCOOOCONOOCONQOCCOOOCOOOCONOOOOONOOOONOOO 000 9 ON ODO HE Sf LO D P000 C2 HUM TOON DOGO HUM t LO ONDDO 4 GJTO t LOO 0 HOAUMTNORDHOAUMTNOROHGOAUMTNOR DHOAUMMMTNORADHOAUMNTNORDHDSOAUMTIND GG GG cci cid e e ciet 40000000000 CJ QI QU CUTUTO TO TOTOTOTO TO TO TOTO tr rr SE TTS DIO ID UD ID ID D 0 OD SO NO SQ OPI ODO OO 00 O O 0000000000 YO OY IO CO
4. 6 6 0 9 CUTO 0 OS Co e TOON OD O 0000000000 O O O 0 OO S PEEK 65 December 1987 page 18 Restrict P register contents Move Ruto Start vector to Work Area Swap Activation Point amp HKRRERD bal 2 o t c 2 m 3 qm A gt uU A ISO xx nd ANU x x lt gt 4 X X xX ex e gt ew eE nHOwuWumosurm C 2 Wd oY 2 2 L Wh f UOC ONIN HA O tu HOU gt VHJOOLOZ EZ A WM OF gt cu WOW 2 YOYOYZD xu vx QO O3 O1 O0CO xeooq rmoogoxw 3 gt gt gt Gao 2 102 1 0 Ot ANON 00 0 2 20 040 0 INZREG cc c
5. AO 4 90 V 00300 GH T n amp nes UTNCOOMORNOLI HNN ONT AO AO il O N ddddddddddtdddddddd 0 02 02 0 00 03 01 00 00 6656066656566666666 5666 TOON OO O HOM TOON OOO U UOT OON OOO HOI TOO DRO HAJI TF UD OI O OS Ci HOO TF DOR 00 ON CO eA TOON ON O 00 OS Go e 02795700 COS HUM TOON QO GO e ood 0 QU C0 QU CU OU 0J QU QI TO TO TOTO TO TOTO TO 2 22 225050504090 OOOOON NNN RM 00 00 02 02 0200 00 00 OO OO 0 0 00 0 G5 H4 0 60 0 0 00 A nd eid n ied ee elei o ci ei cd edic ed eiie edi cie cd eed eid ed edi cd eic nnd n ied cd
6. NF H uo vw wo 2 2 2 CO 4 2 2 Otmar AaaTATXLOXAOOLH DWOOWWOOWDTOUSTTOZTCOHIDIOSOTVIOLCOCVOOCOGuUZ OOZLZCODIOCOuUW FAN ZEZ Q J1 XO0U000ITIUGOUIOrLrQoutrcuur 1OOOsrOogoiLOO q OU3 Xwu BEBE TT WTA YO TO Tm mmo qgmaqaoo uo 2 ul 2 uJ2 9 2 2 3X 0 0 G Y gt CC C E L2 ETTU WORA E Y 2 gt ul x Y 2 E gt ul XC Y Or OG oO0zuz eudoc olmr ozzzordordoOgo za 0 2 0 20 OC O COHQO 20 IN M JINDUNA gt 20 JOJON JNV ON 25 JD 210 210 20 20H IG 202 1 775 OQ SHOUD e ON x Q t gt zo 0 x c o oc 4 xr z 2 ze 0 o v I 2 m IQ 2 I oo lt 2 z re Lr ina OO uw ul LO Cc aa
7. C C CO ed d Li UL U U LL Lc to 9 D CC CO 03 00 00 0 00 0 0300 AD SD OD OS e OUT f OD 00 0S C5 HOM TOON DOO e QU FO T 0S0 P ONO AUM f D ONUC C2 e 0 1000 101010 ID 10 10 1D 1D VV SD D O D SO SO SO D I E CIS 00 00 00 000000060 0000 0 0 0 OHHH 00009 00 02 D 00 00 02 00 00 02 CO 02 09 CO 02 OD 00 03 02 02 D CD 00 00 0 00 00 00 00 O O 000 00000000 0000000 OON OON OO DiERS QU 470100 OU tfo o ou UMNO camommaammaooooooooooao UL uU UU CCCCCCCCCCTCCCCCCTCCCCTCCTCTCCE 60 00 UM THOR OURO HOUND TOON OOO HOM TIOON OO Q0 07 QU QU GI GITO TO TO TO TOTO TOTO TO TO TIT TTT 00 62 D 00 0 CD 00 D 00 0 D D 02 02 D 00 0D 00 00 00 0 CO DB 8DRDRB DE 2916 1 60 C e Jr TOWN 0 mc 8128 RF98 8OADAB 8138 RF9B A500 8110 AF96 598 8140 RF9D 18 dd
8. dnd c d d PEEK 65 December 1987 page 28 85 LOX 2 13 A o 79 GIOI P TOTO TO E gt CO TO TO Lee wow o9 NV v m N 79 2 0 0 N TU BC 2 4 CPX 5 03 SBC 03 EG INC 2 03 lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt lt 1 1 41 1 1 1 1 1 1 1 1 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 1 1 1 1 1 1 4 4 1 1 1 1 1 1 4 1 4 1 1 4 FE INC 3 09 gt PTT 5 2 pa pa PA A d pad pd pd jo p jj jo p P E P E OIN UFU ra CRE are o Fore potare pera poa ra ofa popa rota pea ro ara popa poa P P E I HL PL 0 0 09 CO 6 69 CO D D D 0 NO D SD 0 450 CO CD CO CO 0000 Q DARN SEO IE CIO O OO NONE CIO S0 ADN E AVE 0 CO NDA EA 0 NDA GOOOGOOQOOXOUGOOCCU
9. gt gt gt gt gt gt gt gt gt gt 0 gt 02 C 0002 OLG 00 gt 02 06 02 a 209 OA ON 02 NO NO e OO 2 12 1 1 1 JF JIO NAN NN NN NN NN NN NN NN NN DUO OC CL CO OUIO 10300 0 OU d x 10360 3 10400 0C OG 0L OQUIO ATN 17 0 0 0 09 0 00 00 00 0000 0000 C000 ON BOO I OI C 00 n O A VY A A A ARA AA a n n n tt a UM TOON ORO OU IO TOU 00 US Go eL OHOAUMPNVOKDHGAUN THOR 03 CO CITO t a v n o ed EO 0J 01 00 04 04 03 TO PO FO TO TO TO TO TO Ij 33 49434 SIDIDUIDIDIDUIDIDIDIDID gt 1 a dH n o o it Li n o u 0 gt gt n XX H 4 4 gt gt gt gt Wk 00020
10. 203861 ga Tem De He Hi cO oO OG P RAPID BOSHBOTOPGSSTFHGS OS P OND SEMUCDUNAAIDIODAGE NOLIN DMN 260060 DN HD 61 60 TPN euo DOM 2acs61 E614 8 HOOD o P DDO e D es TJfofo Goran D gt DELETE CHKDEL DELNO DLMOVE DELYES DELDON BLIMP 2 NSBYTE 61412 SWAP 1 CHNSRC BUMP 1 SRDONE DSPLAY BUMP DSSTRT CNTNUL RDDRe1 20090 02 400 KDAM lt CDDC OY Ca ABT DC DH lt 7 9200279 lt mOrcmmrmmmormr JSR DD f0cmouoouo oo ADODCAKA DEL HUHMDEL DELYES NUMNDEL MOVDON 0 CINDEK2 Y CINDEX15 Y Branch Alwaus RL4 DLMOVE 2 300 CHKDEL NUHDEL RH4 RNH4 RLLDOH INDEKE AL 402 BUMP Arana 0 QU GQ GD TD Vast VATAABRAA C A v cs wy www DD BUMP CURRCL BUMP PEEK 65 December 1987 page 30 271 20 5128 427 J Ca gt lt 128 Next ReCord s Start amp End Addresses 12 6 EA E110 LDA CINDEX1 Y x eaE
11. K 65 The Unofficial OSI Journal Inside This Month Down amp Dirty with the 65816 65802 Letters To The Editor Gremlin An Oddesy in Prose OS 65U Machine Code Emulator OS 65U Grade Recording System Column One Hello Remember me Yes it has been an extraordinarily long time between issues The reasons are many some of them are my fault and some of them aren t The bot tom line is that despite all of the problems l ve had this year PEEK 65 remains alive and well It is becoming clear that despite my best efforts it is very difficult to publish on a monthly basis and may have to finally give in and work on bi monthly issues For the rec ord will be crediting everyone s subscription for missed publica tions The address labels on this issue already reflect a two month credit that posted when first tried to publish earlier this year Beyond that will adding more credits but they will be offset to a certain extent by subsequent issues which will be over sized as this one is Before leave the topic of the state of PEEK 65 do wantto assure you that intend to keep publishing as long as there are people out there who want to read PEEK 65 and are willing to support it That support must come in two forms First of all thereis financial support PEEK 65 has traditionally depended on ad vertising to pay a large amount of the costs However there hasn t
12. MO HCHOUNW QCGuibcoou cro PC a R9 SRVREG RD GETOUT BS PTMSG2 RD RNS EAS MOVST1 cc TOON 05085 INI2RG STADDe 06 00 00 ORONO QWOLMTUCOUHOCOOUCMOOLUWONUMWLOLOW OVUTROTOLUVNRAHOWLAMVONOAL UMN O 0 O OU AMIN AGMVOTOOAMON QNO NONO OS OON S C C C CL C I CC DOD 90290609000 00000060 6 HOAUMTNOKR ONO e 00 OS QJ TOON 00 06 DONO e ONG e OJTO TOON CD 000 0 9 D e O0 OU QU QU QU CU QU TO TO FO PO FO TO TO TO TO TTT XP TTY ID HE 8D2CR9 OK c 4
13. 2 CAP n lt 4 AU ad GOH 0 5 noe Hovno uoo no MONO gt 2 HZ gt Hz gt HOO HZHZ gt gt 2 2 E me e e e Ao A oA ul dad AAU gt aust gt gt gt 1 d uo gt gt gt NOW d 000704004 4 THEO OO000 O0 gt arar 2 2 ZIXZX uu X 240 ul OF OUO gt O O uug Ye HHWHW HHOHO ug OCCO aHa 04 UM fox Ha CI OF YOL OXZOd O0 O0NOZYGL gt HOH 2 gt VOF T HQ HIOOOGOUOUOGO OC WWWWOTOLMOULOZEX 2 IIOIOX JeYYYz 2208 OF OU Q 4 E OQ CO DO O 3200 OO 2 Ot OO O DO X 2 Q 02 c O CC Y OL Uu 2 X ul x gt gt gt gt gt gt g
14. AR GO CG 45 DT O C tB OHNO DD HMO IT Icgomgqaa qua Adddddddddadtdddddda O O O ONO OSO COO OLO N OO AIT A OO En HANS FD ef DDT TF UDO OND T QOS OI TIM AIM OFA OI NAIC 6 a n 0 Am n JAJAJAJ ADDER comnH C C T RDDER G1 RTS c t NXTRDD 9 KROPTCMOOLAM TON 0 D Save b BUNP1 ecad Gnd d AHNA HO Qu qu AMNO o LDA CINDEX1 D M D D STR CINDEX2 Y BNE SWAP 62 LOY 8500 RL4 IN eo c OL 0H000CO0 gogo codo dro No 01 107 AAAG 129 2118 B 293 24 10 D 1E 1E 1E dAddddddddadad O O O OD O OOOO O 65 December 1987 32 OS 65U Grade Recording System by John Hepner 9500 Huffman Road Farmersville OH 45325 Editor s Note John sent this software on disk without an ac companying article am using the text of his letter to help d
15. DX OF 2 gt o0 gt 16RE auo cac c ca u OO Relative TYPE12 815 2 FBAD 818 28168 1B 68 Indirect GO OF UF 20 30 EEL 4 cc 2 A928 2909F 1 eer 4 noe 6 eo 9 RD C 80 RD2 ONO 1 407010701040172 272 0003 0 03 tn 03 00 02 P CODE OORESS OF SIMULATED EXECUTION and their interpreter Q A c d 1 TABLE2 This is a list of all non sequential 582 commands ddresses JMP Absolute 03 02 fn cD tn fD 60 00 02 0 65 December 1987 page 26 QO UO TU OJ OO 0 00 CO 00 00 CO CO O OS O UJI ON N CN N O CN CN FP GImogzaodwd en mmm QD CD CO 00 00 CD CU 00 OD OO 03 QJ QD CD OO 00 D 00 CO 00 CO CU 00 00 00 20 22 CD C0 OO OO CD 0090000000 OG 00 0 C2 0 CO 0 6 69 69 9 6 0 0 6 9 909 6 DAH X OOINAPTIODOOGOGFPmON AOTQOIDOOUO 0 0 0 0 0 O O NO O O O O O O NOD OO O 505050 50505050 50505050 595050050 O 0 VVV O SOSD DAD O O O O O0 0 O
16. 3 E U Q 5 oro C 20e 2 gt A td vor PPU 3C 9 OC C 9 3 Ot gt HOY 3 OU ooo oan 4 3 o PLOY 2 gt 3 LLO 3 0 rwouo gt REPE P 3 NN c aa 2 c gt Wh WE x eed adt u gt FITOWMO F amp F bad 2 EOOISZ 000 JOO gt 5 00 0 T OQDO QOO 1m J0 J 1 HO 0 T ou 2 x te nz X WH 19 0 OF 2 co ro 0 z a a c c u OFWORK HCCM OROMOO HM UTTU WHWONM OOOO u ono LVON GoOOOOOuoooocoqogoudcucuodqcooeooo OT Cmq xocmaooO d UUUCOLTHACAMHOAOTUCATTCTOWOUCHY
17. uc CC cc uc c qc c c eso Ou Cc MOU NYNNMVOVdONUOMN ALN 902 4019 OM xu O0h 0ON 00 C Oso 00 eO Q1 0 4DOJIC SOOO YNTNNKHOOKUOLD TOTU AVDOTUA HNH OLOVO co ul Mao oroomOooOro090 010 0 H0 0 Oi o HO Gu O MUBROOMN Ou gt coOCOOOoOOOoocOeooocooomooouocoooOcocooooooomDooogooocoOOOooo0O0doncooogcocootno o C d Ou HOLACTRATOLUMOADWOMUOHROLATROCOWATHNMOVAWU ATRHOLUNMDODWALTRHOLATRAHDWALTOROWAATOROLUSRCMOLUITRADOWATOROOONUTRAOLONUTO 0 0 02 020 IKRKHHHOONCTCCCACCE OmmaomoooooooooooouldlJunuLuLI L 9 Co e e d e o0 e e OU 6700 0 CU JO PO TO FO TOTO xt ET 00 02 00 00 00 02 22 00 00 09 03 09 ugoomgmtmagmuaogoodomgogogog oqaooaucodoaoomogqamtmudgmtdqmmcoooqmmnmtomuogmatgmgmaodqGdamaoooooOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOQO
18. gt xxmaoxiumgo OM2 gt gt gt gt 2 22 2 oomtoto 2 20 0 10 7 5 1 JN 20 20 15 31 HO J90 0H INO HOC 0400000000409 2 0 4 o z u CO ZF r c 2 x 5 20 x u e z c T oO I Zx u 2 2000 E OZ W I 5 X I gt ANN MUNN _ an u crc CCETT CCCCC U DUOKRWAMD 0 00 64 LUOCWVOROOATLODOD Gi RN ONMGOUOCO MOON M OwWOUWL Md OUNOTOOM qu UHNO e eO 400 0 0 0 0 0 0 0 OCT O OLUA N M OUULOD oo COdMHATATOOLMU UOOUTOTOOW UW
19. gt gcooododaogcu r KTA I JOOZO D Xs Lu Gu gt IS I Iu gt gt gt TLAN a n cocrocrercoraco QZ uIroulodolnr Oozzrwe OOk n 555555 555 55 00 00 AUF O0O0O0O000U0OGr z gt omiHH gt v PE E gt 550 SJOE gt D gt O00H tt m 1 a tt a x x ul ZF c o gt gt gt gt gt gt 2 gt 0 aad H O eo u ama Du Quuu Ow c c c u CHOMC m TONO OOM Mu 000 I Cos DOOLOUDLA Ol QI OQ ddOdd Gacacceccccooc Qo O HOT H VAUNUA 4 000 ooo oooo
20. NOD OD O30 SO D 4D D3O SO DAD SO ND SD D DD xD D OSD SD D D SO xD ND AO VVG 40 49 VLLV 40 49 0 4 49 49 2 9 40 40 49 SD DO SD 0 2 D SO SD SO D 0 DNO NDXD D D 40 40 D SDXDSD D XO xDD f P e IS S PEEK 65 December 1987 page 24 a n n d n 0 I m If a I n ul u n N gt c u n n n o 4 t n u n U n n o a n gt n a t 1 a 5 D n o 1 n n o O0 gt 2 0x m n vU n E t O n 24 9 v n Q tm OE U 1 E U E H H a Lo H 4 vo Oo aA IO AUP TOONOROHOUM f 14 m w r ced P OIOI Wr mn AM dike C 0 84 gt aoao 6000 00000000 D co 2 2X u Jrr gt gt gt gt gt gt gt gt gt gt gt gt O OC eC o oa mc 1 2 QC RRO
21. ON uoo cc dc c u c cc c cr cr cc u TUNMO CO NUHMOOOL MMOL MOUTOWAVOLROOLM O 9G OVTO HOD 0 OO OTroGUTOduNTr ou mo 1041010 dd Ou UOCOONOMOMTOCUCU N o 001 CU CU 9500020 CO 009 00 5 00 COCHOTOUCHAHVOOWOTTOOHOONUCTCVOUTAVTVUOOVATTOONVUATOCOCVUOLTCVCOOCATAWVTUMOUCELUCLUCOLUOT Ct QOL OO QUL IIO COLATNHOTOU AMVHOWL MVR NOOO e 400 C OU G QU t NONO o Po f 000 E CU SF P COL UN OWOUTOOTOWLAMSARTM ou 1010 100 0 XD OO ND 0 S N 0000000000000DNON 0 OO 0 0000 00 OO OG GO OO OG GO UU O CO 54 0000020 Qo OOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOOO0OOOOOOODOODOOOOOOOOODOOOOOOOOOOOOODOOOOQOQ AG
22. c orn a cud Co GGOOOGOGOO 4 0 i on n coco ul n YO O VOO uc OY n uk c CREME mI mE gt 1 Qno n ee gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt n OWOFE imnpnaomammaumm mmomaommuomgmooummmomamza n GOOF am dc P n m 4 don n 00 000 0 CHD s n u Odo ull O tt 4 Ei O a gt gt n n ty fo QAQA ALA n a fi zz n c n co re CIZOIZOIZOIZ uniuluuluuutgqoun22202r u AO c u oo cr c cc cr u Qacmo M aa m T e ADDO WOU OOcOOOOOOGDOUGOOHOOOOooo OOo 6 GG ONKGO 606 6 69
23. uj X ss HOTIT SS Occo o aao RRO REE rm REE r 0r OTON TENTEN 13 EcOO 0 OOQHOOXXCXOO gt gt oaze IOO00JrHr JIO IZU00000 12 OTOOOJ MIT 00 150 0 13 J OMID e 5 5 J gt 2 gt 2 u 4 I o 2 o r4 gt 2 a c 2 Q x Q 2 LE tr a a AnH ul na u uu c c C cca c ace C Hu A OOO e O OTM NADU HO um vonum Won uL CO Occo y MMO ddd d w dedd COO OOTCCOOOO 07007000 OOTCCICIOO0O0 000g Gocouuouut HOUO 04000 SF OU t xb EXE OUO Q
24. MORE LATER PEEK 65 December 1987 page 17 arr v z 1 gt E 1 a 1 9 v n o gt n d H D 1 u CQ n Rom 9x E 1 xu t gt oF 2 1i n c von H oom lt 1 Qo n i m cn n U t u L fo n gt wv 3 A 4 0 1 n c oa n o n 9 Co 4 9 c Dro n 0 Coo n a 0 E AC 1 vU n AEU Mm 4 2 o 1 lt OMe a Are n 5 1 oo erc t uA n 4 aAA gt b H AE 9 9 on one v he NAN F ed n 20 gyro 4 6 ar AD li BOB n a oc CEP x tin n a O 30 O Qno 9 o a woe e 9 wm i o oU c c a ALD OO 0 n Sad on 4 u mam D a d J 3 2 As n Qu 0 gt SIO wo cn W OF s cm Qo a lt o
25. 38 320 330 340 400 402 404 406 408 410 412 414 416 418 419 420 421 422 423 425 426 427 428 430 432 433 434 436 437 438 440 442 444 446 448 450 452 454 456 458 460 462 464 466 468 470 472 474 476 478 480 485 490 505 510 520 530 540 600 605 DIM DS 100 REN Access file DISK OPEN 6 PH DISK GET 0 INPUT 6 N NUS REM Read whole record 0 HU VALCNU PRINT N NU IF THEN DIM DS HU REN Save Grades FOR C 0 TO 30 INPUT 6 6 C PRINT 6 C C INPUT 6 TTL PRiui DU N REN Display old record 0 FOR 0 TO 30 IF G C lt gt THEN GOTO 424 IF G C THEN INPUT Possible score G C GOTO 426 HEXT C PRINT 6 N PRINT 6 NUS DS O URL G C REM Update Record 0 TTL 0 FOR C 0 TO 30 PRINT 6 6 C TTL TTL VAL G C NEXT PRINT 6 TTL FOR 1 TO NU REM Update student s records PRINT TTL 0 REN Set Student s ToTal score to 0 DISK GET REM Read disk record INPUT 6 N NU FOR C 0 TO 30 INPUT 6 G C NEXT C PRINTS1 N HU REM Display data record FOR C 0T030 REM Print grades to end of list IF 6 gt PRINT OU 6 GOTO 460 IF 6 THEN PRINT INPUT Grade G C GOTO 466 THEN OS I UAL G C Put grades in Distr Table PRINT 6 N PRINT 6 NUS FOR C 0 TO 30 PRINT 6 G6 C TTL
26. IFRNZ gt 255THENPRINTBP GO0T03070 PRINTSC PRINTTAB 15 Add a Record RNX 1 15 sPRINT PRINT 5 3180 1 601020800 5 3185 1 601020000 IFER 0THEN3070 RNZS ED POKER4 1 1 1 60703010 REM Delete a record IFV THEN3500 ED URL RIGHTS X LEN NS 1 1FED lt 10RED gt RNSTHENPRINTBP GOTO3070 PK RA ED 1 10 4 POKEPK 255 LR SP 3325 SP SP 1 G607T020600 1 FRNX lt BGANDPG gt 1THENPG PG 1 50703010 Listing 1 continued PEEK 65 December 1987 page 13 3500 3510 3520 3530 3540 3550 3560 3999 4000 4010 4020 4030 4500 4510 4520 4530 4540 4550 4555 4560 4570 4580 4583 4585 4590 4600 4980 4990 5000 5010 5015 5016 5017 5020 5030 8010 8020 REN EDIT record 0 73 1 lt 10 gt 60102570 1 10 Record ED PRINT PRINT Old Record PRINT 0 1 85 3550 5 5 1 607020500 5 3560 1 607020000 IFER 1THEN3070 50703070 REN Save TRACER File RW21 LACSP 2000 SP SP 1 60T043000 1 005 843000 00702000 List to Printer PRIHTSLP TRB 5 Start TRB 15 End TRB 25 Label PRINTELP TRB 4 Rddress TRB 13 Rddress FOR L121T035 PRINT LP HENTLT PRINTELP PRIHTSLP
27. MORNOUHNTOR EOL 0 COO 0 06060609 09 60 6069 HDOAUMTNORDHOAUMTNORDHOAUM TOON ONO HUM TOON OA DOOOOOOOOOONNNNNNRN NAR OD 00 00 00 0000 00 0000 OON S PEEK 65 December 1987 19 5 4 v t A U e v 2 5 5 4 7 4 U 3 bol 9 A c A v gt lt gt a t t o H t 4 z t n u c c fe c t Oc t aw v 79 gt 3 gt uN QA An m t GO C D 3 e o a OD 4 WM a U aA OC ON 40 o ec m eM gt a AN x AX o 33 0 m 7 z t 9 5 c gt
28. POKE 8994 0 43 INPUT 8993 POKE 8994 8 PRINT 45 IF PH QUERTV THEN 9040 50 55 INPUT Hhich file do you wish to edit PU 60 GOTO 310 65 70 98 99 REN 100 REN INPUT Subroutine Allows exit on entry 102 REN A Enter with nessage string Exit with entry 104 REN F1 Flag 1 continue 0 Exit calling routine 106 110 1 130 PRINT R IHPUT R 140 IF LEFT R 1 THEN 1 0 150 190 RETURN 198 199 REN 200 REN Data fields amp variables 205 REN N student nane 20 characters 210 REN NU student number 6 digits 220 REN G C student grades 3 digits 225 REM C which grade 0 to 30 grades 230 REM 240 REM General input variable Not saved 242 REM TTL Student s score 244 REM NU Number of Records in File as read from Record 0 246 REM PU Possible value for current score entry 250 REM General counter for loops 255 REN DV Device number for output 260 REN R Record number never geater than NU 265 298 299 300 REN Set variables Program starts here 310 DIN 6 33 315 DU PEEK 8993 REM Output device 320 R 0 REM Record number Never greater than NU 330 400 REM Access file 405 DISK 6 410 DISK GET R 415 420 IHPUT 6 H NU REM Read whole record 0 425 NU URL NU 430 FOR C 0 TO 30 435 INPUT 6 6 C PRINT 6 C 4 44
29. 650 NEXT C 655 660 PRINT DU TTL R lt GOSUB 110 662 R AND 1 1 THEN TTL R 664 IF 1 0 THEN 660 665 666 668 REM lrite to disk buffer 670 675 PRIHT 6 680 PRINT 6 685 690 FOR 0 TO 30 695 PRINTt6 G C 700 NEXT C 705 710 PRINT 6 TTL 715 720 PRINT IHPUT Do 725 IF LEFT PHU 1 V THEN GOTO 515 730 738 DISK CLOSE 6 740 GOTO 9010 Exit routine 999 7998 7999 REN 8000 REM Find record nunber from nane of student 65 December 1987 page 42 8010 8990 RETURN 8998 8999 9000 REN Exit routine 9010 PRINT File changes conplete 9020 PRINT 9030 FOR 070500 9035 TRAP 0 REM Disable TRAP 9040 RUN STRRT Return to menu 9998 9999 REM 10000 REM LOCK 595 10010 POKE2073 96 REM DISABLE CTRL C 10020 2888 0 0 8722 0 REM ALLOW NULL INPUT 10030 TRAP 9030 REN Exit routine DOS ERROR 10040 10050 RETURH REH REPORT PRINT CHR 12 REM CLR HOHE for ADDS PRINT List nanes amp grades fron data files PRINT in vertical format with assignments and final grade PRINT INPUT PRSSHORD PI IF PU lt gt PASS THEN 9999 PRINT INPUT Hhich port should this go to lt 1 8 gt DY IF DU 1 OR DU 8 THEH 100 PRINT Hhich file do you intend to work with INPUT INPUT Do you
30. OR 00 OY Cor e CU 7 THOR DADHAUMTDOKRDOHOAUMTOOROHOAUMTNOKROHOAUMTIHVODROHGAUMTNUOR OKO 5 9 e cl c 0 e c c c e e OJ Q4 QU QU QU Uu UIO FO TOTO FO TOTO TO TOTO sr E XP SP X SP UID ID 4D ND S0 ND SO XO NO IS IC INC 00 00 00 00 00 02 02 02 00 NO I 60 60 44 RR O 00 00 00 00 00 00 O 00 00 RRARARARARARARARARARARAA RARARARRARRARRARRARARRARRRARR PEEK 65 December 1987 page 25 Zero Page X 2ero Page YO Rbsolute X Absolute Y 1 0 GO HC a E Cacus 92 gt gt gt JOP OZOH 1r 1200 17 OTOH CC HWQ Qrox 02 0 Z2 COCOE O O gt OF TWO wW TEX 4 I 3 O 31 3S SOP BEL gt gt gt gt JOO ON 50 545 100 INNE 809 WKRRER 91 91 EFFADR STA WKAREA 2 LOA 00 CLC STA HKRRER 1 ADC 95 INC WKAREA 2 JSR EFFROR LDA 00 INDYH 13 9 ONAMUOL 9o ou noi O
31. PEEK 65 December 1987 own satisfaction but there are great gaps in my knowledge and refer ence material Can anyone help with copies of OSI manuals soft ware and circuit diagrams know roughly what AC Controlis all about but suspect the BSR hardware would not be directly useable here with diagrams can modify and build my own but would not be capable of writing the software from scratch have the HC2 disk is there a manual but this seems to be no more than a demo also very slowly working on building up from bare boards a CA 20 and CA 22 8 port I O and A D D A interface have manuals and software listings for both but am unable to get ahold of four chips for the CA 22 They are the DAC 80 ADC 80 DG508 and SHC 298AM Can anyone help in obtaining these Attatched find a listing of the sort routine that have patched into MDMS its the only thing that can think might be of interest for the moment Itfeatures a moving cursor simply to indicate to the remote user that things are happening the sys tem was so unreliable initially with its frequent crashes they make no significant difference to transmis sion time at 4800 bps nor to record access time which is slow anyway Hence the next question which suspect may be unanswerable Is it possible to do anything to MDMS or DOS which would allow the loading into memory of all the records con tained on one track in one revolu tion
32. REM of Records in Label File in use LP 5 REM Printer output to device 5 5070620 REN Return Status CLOSE DEUDU 0 FLAGIO FLAG2 78 208 0 8779 16 Restore USR M FC ERR 6070620 Listing 1 continued PEEK 65 December 1987 16 42000 42010 42020 REM LABEL file listing LFX 3 REM Present of allowed LABEL files RLZ 10 REN Record Length 42030 PRINTTRB TI 01 05 650 1 42 Floppy 005 42040 PRINTTRB T1 02 Not in Use 42050 PRINTTAB T1 03 Not in Use 42055 42060 42070 42080 43000 43010 43020 43030 41010 47020 47030 47040 47050 47060 47070 47080 47090 47100 47105 47110 47120 48000 48010 48020 48030 48040 48050 PRINT PRIHTTRB TI 7 Hone of the above PRINT PRINTTRB T1I 15 Vour Selection INPUTX LFeINT URL N 60T0620 REM Nove LABEL file CH 1 F CH TRACE P CH PASS 00 0 5 1 3 1 LR SP 43032 SP SP 1 G0T048000 43032 INDEM CH 0 IFRU 1THEN43040 43035 INPUTXI RNX LR SP 243038 SP SP 1 60T043100 43038 607043050 43040 PRINTXI RNE 43050 CLOSECH IFRHEZ OTHEN43070 43060 10 NB RHX RLE LR SP 43070 SP SP 1 60T047000 43070 6010620 43080 43100 POKER4 RNX 1 RN 0 GOTO620 REN Poke of Records 43110 47000 REM USR X 1 0 SUB POKE8778 192 P0KE8779 36 POKE9432 243 P0KE9433 40 P0KE9435 232 P
33. _ been any demand for commercial page 2 page 5 page 7 page 9 33 ad space in PEEK for some time and that means subscriptions and sales of software books and other items must pay for everything So far revenues are just about keeping up but do ask that you check your expiration date and if it s close sign up again For my intend to work on expanding the scope of the magazine to make it a more viable advertising media Secondly and every bit as impor tant as the dollars is the never ending need for articles Each and every one of you whether you real ize it or not has something to con tribute Each of us has his own special way of using his system and sharing that experience can bring useful information to the entire community of PEEK readers Most of you are not techinically inclined and from the letters receive most of you don t consider yourselves to be good programmers but don t let that stop you from writing The qual ity of a letter or article isn t so much thelevel of technical excellence as it is the fact that you have solved a problem So if you re capable of submitting an article with a program as sophisticated as this month s TRACER please do But if you re just a weekend hacker I d still like to see that little utility you wrote An other thing don t see enough of is letters describing how to connect OSI s to different peripherals and just sim
34. gt Y THEN 9999 INPUT Do you wish to start neu file or add to an old one PI Fei LEFT PU 1 N THEN 0 IF FeO THEN INPUT Do you wish to copy names fron an old 1 Fi 0 IF LEFT PU 1 Y THEN Fi 1 IF THEN GOSUB 20000 REM Go get names fron Old file PRINT Hhich file do you intend to work with INPUT REN REM Data fields amp variables REN N student nane 20 characters REN NU student number 6 digits REN G C student grades 3 digits REN which grade 0 to 30 grades REN REN Pu General input variable Not saved REN General counter for loops REN 5 Start of Loop for records 0 1 REN F Flag 1 means UPDATE old file F1 Flag neans copy fron Old file R92 REM Update file records Din 6 33 5 0 IF 0 THEN NU 96 5 1 PRINT PRINT Enter to stop entering names PEEK 65 December 1987 page 36 400 405 410 415 420 425 426 430 433 435 440 442 444 446 447 448 449 450 460 465 470 475 480 490 510 560 570 575 580 585 590 600 605 610 620 630 650 660 8999 9000 9010 9020 9030 9999 1999 2000 2001 REN Access file DISK OPEN 6 PU DISK INPUT 6 N NU PRINT File is N with HU records PUS N FOR S TO HU PRINT 1 DISK GET INPUT 6 N NUS FOR 0 TO 30 INPUT 6 6 C NEXT C IF F1 AND NOT F THEN N N 1 NU NU 1 GOT
35. his address is David Livesay 2748 Camino Del Rey San Jose CA 95132 Please contact them for details on availability and current prices Letters to the Editor Dear Editor First a quick resume started with used C4P MF about 5 years ago which got little use until latched onto a copy of OS 65D v3 3 bought a second C4P MF and heard atout PEEK 65 This was about late 1984 and successfully put everything together to give mea dual disk 48K system to which added an OKI 82 printer Apart from the learning aspect and a bit of self satisfaction still had little use for the beast until hit on the idea of using it as an aid for my work keep ing records in order manage a technical group in NZ Telecom which is involved with the installa tion and maintenance of telex data terminals modems and the like had a copy of MDMS which had been butchered but with Leo Jankowski s help managed to patch it up installed a few POKEs here and there and finally got it up and running with a full duplex 1200bps dial up modem which 1 access from the office where have a Freedom 110 dumb terminal and Siemens ink jet printer This was about the beginning of 1986 but a further three months was lost due to something like eight dud 2114 s and power supplies which died or be came sick with alarming frequency each time meaning a trip home to re boot as it invariably happened when monthly report
36. numerically coded and stuff them backl on the disk without print ing Records filled with semi colons are pushed to the end of the file and when there are too many chop them off by using a program that alters the last record number stored in record 0 4 All utilities except a search by field contents using EDITOR ig nore semi colons 5 have a new utility based on GSOSRT which I call PTRSRT This provides a sorted print out without modifying disk contents and sorts can be done on two fields instead of one 6 working on a new RE PORT about 6 months now which will produce sorted reports ononeor two fields for all or part of a file It may not work but it s fun trying 7 One of my files have three now contains 667 records of seven fields in which the first field is a Stock List number from 333 to 999 which coincides with the record number and cannot be modified The Stock List contains all the numbers and PEEK 65 December 1987 page 5 only have about 120 of the items listed but could stock any of them at any time in the future This file can not be sorted and empty records have 0 in field 7 which normally contains a 2 character description of the items of equipment used for selective reports and by STATAN for counting purposes The whole idea was to gain faster access to stock numbers through the record number without having to search with EDITOR which woul
37. oondgulu qn ZO O O HH OF gt n o aoc HAMADA Dwa DDMA OJ EHHH JJe Z est 010 8 000010 0 6 e TUNU E 0 0 0 O ID 4D TO TOO HT UVU HR O DINO 227000 10071 HO 0 4 4 9 0 69 e D C2 Co e C 0 4 AEE SEY FEX gt a EMWULTHHWOOWSW 4 4 4 4 4 4 4 4 44 4 145544 n D HGCNCHvVvIN OGOHIN ACN e Fo CU CU CU e CU E FO fO TO CU CU UUU e FO fO fO AU CU QU e CU TO F0 CU 00 fU HNN n zb 124444 44 444444 4445444 Maa aaa aaa 1 NINOS RTS X 20 0 20009 90 00 000 0 2 z 240 4074 CC 3 JHOO J0OOO HO 0007 QAO OOO HOO Tod 03 2 00 02 0 goo o o Ot zHHZOJZOHIZOCEXZZOUuzzorooubrounroun oOou0 J0O WH 4 mq o aq qaot oo u
38. FOR 11 1 11 1 0 1 1 1 8 5 4560 5 5 1 607021010 LS STRS LI LS RIGHTS L LEN L 1 L RIGHT O00 L 3 PRINT LP TRB O L TRB S X PEEK PK 2 PEEK PK 3 1 LR SP 4583 SP SP 1 G0T021010 1 0000 15 FORL2 4T09 PRINTSLP TRB 25 PRINT LP CHR PEEK PK L2 NEXTL2 PRINT LP NEXTLI IFPEEK 15908 lt gt PEEK 14457 ANDLP STHENPRINT LP GOT04600 50702570 REN Erase LABEL File PRINTSCS 15 Erase Entire LABEL File PRINTTAB 15 PRINT PRINT Are Vou Sure If so enter YES INPUTK 0 60102570 60102570 2 PRINTSC PRINTTAB T1 TRACER menu 2 PRINTTRB TI 3PRINT PRINT PRINTTRB TI 5 Hould you like to use a LABEL file with TRACER PRINT LR SP 8070 SP SP 1 G0T042000 IFLFeOTHEN8220 IFLFX1ORLF LFXTHENPRINTBP S GOTO2000 90 4 256 90 4 1 0 65 8140 5 5 1 007043000 POKE RD S RHX G0TO9000 REM LRBEL file 0 60708140 REM TRACER all set up now what PRINTSCS PRINTTRB TI TRRCER ready to run PRINTTAB T1 PRINT PRINTTRB T1 01 Run TRACER directly PRIHTTRB T1 02 Set TRACER to EXPLODE mode PRINT Listing 1 continued PE
39. O O O O O OOOO 0000 Q0 OOO DD DD 2D 2D 40 40 SD SO SD D D OD 00 Q0 00 NN NNNNA NNO 000545444124 523 OO OO UT CDI s gt 4 e fO TO TO E gt RRP gt O O O SION C Be GI TO P CO O CO NJ OS SAVE CO O LOS A COO CO OY UI 6 FU F C2 40 TU E CO O CO NJ OY CI E GJ FO P C940 2 GJ ADA 60 60 60 9 ONO 2 OD Q0 00 OD CO D C D 00 00 00 OJ D CD 00 00 D D 00 00 CO 0 CD D 0000 0200 020002 gt p CO CO 60 O FOTOfU fU TOTO fU P P PR E I P S E HH CO CO CO CO m n mmm m m o O HPTTOQONO UU OI 4D 40 XO 4D SO SO SO XO SONO LD O O O gt gt gt gt ODIO O O O O O O O O O 00000 0 OC CO O CO JOY O1 NM PPPRPRPRPRPRPPPRER 68 69 RT
40. PRINT File listing conplete 9020 PRINT 9030 FOR N 0T0500 NEXT 9999 RUH STRRT 10000 REN OPTION TO PRINT NAMES 10010 IF 10 1 THEN PRINT DU NA 10020 PRINT DU 10030 RETURN 10 REM HELP 20 30 PRINT 1 Initialize Student Files 31 PRINT 2 Enter Add Student Hanes 32 PRINT i 33 PRINT 4 Enter Grades Scores 34 PRINT 5 Print Final Report 35 PRINT 36 PRINT 7 Print Short MNid Term Report 37 PRINT 8 Edit Student Files 38 PRINT 100 REM 140 INPUT In which area do you need help 1 PEEK 65 December 1987 44 150 I URLCLEFT CIS 120 IF 1 3 1 6 THEN GOTO 60020 155 PRINT 9 126 9 28 CLR 157 FOR 0 TO 10 NEXT REM Delay to let terminal catch up 160 ON GOTO 1020 2020 3020 4020 5020 6020 7020 8020 9020 170 180 1000 1010 1015 1020 1025 1030 1035 1040 1045 1050 1055 1060 1065 1070 1075 1080 1085 1090 1095 1999 2000 2010 2015 2020 2025 2030 2035 2040 2045 2050 2055 2060 2065 2070 2075 2080 2085 2090 2095 2100 2105 2110 2115 2120 2125 2999 3000 3020 3999 REN Initialize student files PRINT This selection allows the disk space previously allotted PRINT by CREATE selection in the first menu to be set up for the PRiNT student files If you had not previously CREATED a file for PRINT the class you must do that now When asked for the number PRINT of tracks in the
41. Postage amp Handling 3 70 TOTAL DUE 5 p State _ ________ Zip POSTAGE MAY VARY FOR OVERSEAS LN
42. TTL URL G C HENT C PRINT 6 STR TTL DISK CLOSE 6 IF 1 0 THEN 9000 REM DISTRIBUTION ROUTINE TTL 0 INPUT Which output device DU PEEK 65 December 1987 page 39 740 750 760 770 780 800 810 815 820 825 830 PRINT OU NSG FOR TO NU 05 1 HEXT PRINTSDU TOTRL TTL MEAN TTL NU PRINT DU Hean TUs0 FOR TO NU TUSTU DS I HERN 2 REN Sum of Variances NEXT I SD SQR TU HU PRINTtDU STRNDRRD s SD REM Sort into Descending order FOR I NU TO 2 STEP 1 SMALL 05 1 PT 1 FOR J 2 IF DS J lt SMALL THEN SMALL DS J NEXT J DS PT 05 1 DS I SNALL Print Grade Tally SC DS 0 TO DS NU STEP 1 i 00 SC TRB 3 i IF DS I lt SC THEN 840 056 gt SC THEN PRINT DU 1t Put tally to next i IF I NU THEN 860 REN Or exit if done IF 05 1 gt SC THEN 836 IF 5 INTCMEAN 5 THEN PRINT DU nean MEAN 00 50 PRINT REN Exit routine PRINT File listing conplete PRINT FOR H 0 TO 800 NEXT INPUT Enter more grades to this file R IF LEFT R 1 2 V THEN 400 RUN STRRT PEEK 65 December 1987 page 40 10 REN EDIT 20 PRINT CHR 12 REN CLR HONE for ADDS 25 GOSUB 10000 REN LOCK SYSTEN 30 PRINT _ 0 35 40 PRINT PRINT PRSSHORD
43. a disk read write utility to write the contents of memory at A900 to the OS 65U file TRACEM See the program in Listing 4 IoRunthe EMULATOR TRACER 1 Select the EMULATOR TRACER from the menu 2 Select or don t select a label file to use 8 Select the Mode of Operation SIANDARD You must first enter the starting address of the code that you want to TRACE You must enterthe starting values of all the microprocessor registers except for the Stack Pointer Finally select the Output Device s and TRACEing will be gin EXPLODE MODE As above you must enter the start ing address of the code you want to TRACE then enter the Output Device s The next time the micro processor executes the code at the point you have specified TRACEing will begin As an ex ample the SYNTAX ERROR rou tine begins at 0E1E Enter this as the starting address and after you are returned to the immediate mode of BASIC enter some garbage and you will see what happens when a SYNTAX ERROR occurs Please Note Once you have en tered the machine code portion you no longer have editing functions such as destructive backspace so enter the data carefully TRACER and 05 65 Once the TRACER and any desired label file have been loaded into memory by OS 65U the program is completely self contained You can page 10 reboot your system with OS 65D andrun TRACER by followingthese steps 1 Boot up and set up TRA
44. exten der for my Bill Atkinson Wheeling WV 304 242 0337 Work 304 234 3159 rm P Asmartterminal program running under OS 65D V3 3 which allows capturing andtransmitting to and from disk Term Plus also supports error free file trans fers and cursor addressing on CompuS erve Memory size does not limitthe size of files that can be captured or transmit ted Video systems get enhanced key board driver with 10 programmable character keys 10 programmable func tion keys on both serial and video sys tems Utilities included allow translating captured text files into OS source for mat for BASIC and Assembler pro grams or into WP 2 WP 3 format trans lating OSI source files into text files for transmitting to non OSI systems and printing captured text files Runs on all disk systems mini s or 8 except the C1P MF 35 00 Term 32 Same as Term Plus but for OS 65D V3 2 Video system support includes enhanced keyboard driver but uses V3 2 screen driver 35 00 Term 65U Patterned after Term Plus Term 65U is a smart terminal program for OS 65U all versions running in the single user mode Allows capturing text to disk files Term 65U will transmit text files or BASIC programs as text The program will also send WP 3 files as formatted text and can transmit selected fields in records from OS DMS Master files with sorts Includes utilities to print captured text files or to convert them into WP 3
45. field if 1 2247 REM FL File Length ae read froa File Record 0 248 REM 12 Nuaber of tracks 250 REM General counter for loops 300 310 NU 00 s 320 DIM G 48 330 400 Access file 405 410 DISK OPEN 6 PH 415 DISK 0 420 IF F1 0 THEN PRINT 6 PU PRINT 6 000 421 IF Fi 1 THEN INPUT 6 N NU DISK GET O PRINT 6 N PRINT 6 NU 422 FOR C 0 TO 30 424 PRINT 6 426 NEXT C 428 PRINT 6 000 429 430 FOR t 1 TO FL 435 DISK GET I 440 450 IF F1 t THEN INPUT 6 N NU 455 460 PRINT 6 N PRINT 6 NU 410 0 TO 30 475 6 480 NEXT 482 PRINT 6 000 485 PRINT 4 490 500 NEXT PEEK 65 December 1987 page 35 505 510 520 530 900 901 902 903 999 PRINT DISK CLOSE 6 0 REN Exit routine 0 PRINT File initialization conplete 0 PRINT 0 FOR N OTOSOO NEXT 9 RUN STRRT REM STUDNT REM 23 85 PRINT CHR 12 CLR HOME for RODS PRINT Enter names into data files PRINTCHR 8 WARNING PASSWORD REQUIRED PRINT PRINT THIS PROGRAM CAN DELETE ALL NAMES PRINT PRSSUORD POKE 8994 0 INPUT 8993 POKE 8994 8 Restore console output IF PH QUERTV THEN 9999 TRRP 9999 PRINT This program writes student names into class files PRIHT It can destroy all old records Do you wish to this INPUT IF LEFT PU 1 lt
46. file divide the number of students by 23 PRINT and allow one extra track for possible additions Thus of 25 would need 2 tracks minimua and you might allow PRINT a third for extras When students are deleted later the PRINT deleted records are ignored but not physically PRINT PRINT File space may be reused later as the student names can PRINT optionally be retained This allows the sane class list PRINT to be used again for the next quarter of a semester or year PRINT long class GOTO 60020 REN Exit REN REN Enter student neu students PRINT Once a class file has been CREATED and Initialized it is PRINT ready to enter student names and optionaly numbers If PRINT the school systen currently uses nuabers for students this PRINT set of programs allows their use but does not require then PRINT Grade reports nay be printed without student nanes These PRIHT reports may then be displayed to allow students to see hou PRINT they are doing without anyone s nane being attached to PRINT grade Students know their oun student nunber since it PRINT printed on each schedule and gradecard sent out from the PRINT school PRINT PRINT If it is necessary to interrupt entering nanes the list PRINT may be continued at a later tine made no attenpt to PRINT alphabetize the nane list since grades are also kept in a PRINT gradebook
47. m 4 A u x ur a Dac 25 D zc 7 momog m OOMOM m oo 31 I H H OXOZ Qm ZLI zZ2 HOlU IUNZOOHMOXdA ZO or Ww OHM 2 m QI ZZ z ZJ J 10 OXQOU MOJOOMTWWO H ulus Ds IO Iw H c O lls Us Js WO 00 LY i XuWwxdi i T 3 J BHR J XOWIZWLOOVUIOZ O IZX XII oc 1 CCITITXXCCOOCrOOulQ2 C2 C2 u r CC COO X 2 W gt C ICO uf Uc uq c gt GT Y C 2 2 ur OO X Or x qm ord odo roo como i COoH H 0 HO JOOOCCOOCO T i 0o EELZZELLO JOZIZIOQO0J O0 0t Hm 1 HOUOOm JIN O C 5HOO JC OQ 0 0 10 7O0q 1 JHO QC IO QC I SIE IO ODMH 5 U00 Omomodoododqgcao mom JI 1 mM 0 gt 5 102 7 m mao m Fou H x gt E E t 2 x 2 ZH O I OD 5 a a 20 o o 22 gt O kh an
48. of BASIC than have and hey presto 150 record sort came down to 4 5 minutes Admittedly it is less sophisticated than the origi nal as it doesn t pack strings with spaces but can t say that ever notice any problems in my applica tion have eliminated many of the op tions from the MDMS utilities be cause don t need them and had to save disk space also had to find a way around the lack of an MDMS Aux disk and its Key File Utility but all in all things work very well As said at the beginning Ive been in venting the wheel all this time so it is doubtful if have much to offer your readers Just in case there is someone out there who might be interested here is what have done 1 have patched MDMS onto OS 65D v3 3 as this was the only way knew of being able to backspace and correct typos An added advan tage was that could install TRAPs in each utility so that they would default to BEXEC and the main menu and re set the necessary parameters from the ACIA 2 delete records by filling them with semi colons which can search for when editing and then over write with new data The choice of this character is based on its position on my keyboards and because of its ASCII value being greater than any numeral see next paragraph 3 have a Re pack utility which use atthe end of each day to sort all the records anew in the order re quired essentially by some past date
49. strides in micro world Should Paul be able to adapt the p System to OSI it would make sev eral real world class tools available at a reasonable price and save us from having to write as much on our own Whatever else happens am very hopeful that Paul can get this up and running Finally we can develop our own op erating system have made a lot of noise about this in the past 18 months but there has been little en thusiasm for it It would be a gargan tuantask and my optimism astothe practicalities of it rise and fall with the tides want to do it but not unless there is some reasonable PEEK 65 December 1987 chance that a it will be used and b PEEK can make few dollars on it To acertain extent a and b are diametrically opposed but believe that if the software provides a dis tinct benefit a modest charge forthe OS will not be a problem In any event I don t see it exceeding 50 in its initial versions and will likely charge far less than that just to get the ball rolling hope that this article and the infor mation on the following pages gets you as excited about your system as am about mine You can start out small by popping in a 65C802 or you can go whole hog and buy one ofthe new 65816 systems from Paul Chidley or Dave Livesay A lot of people are abandoning their OSI systems entirely and that s under standable However if you re con sidering such a move don t over look
50. the new chips in some detail and will also discuss some of the issues facing us Let me begin by acknowledging the reference book 1 used in my work 65816 65802 Assembly Language Programming and The Apple 1105 Technical Reference both by Mi chael Fischer published by Osborne McGraw Hill Fischer is well known writer on Apple II sub jects and he does a fine job of making a dry subject exciting and understandable The books cost about 20 00 each and are worth that much for the tables and ex amples alone The first book is based on using an Apple lle with some popular assemblers for that system butit is by no means Apple specific The second is naturally specific to the Apple 1195 but it is worth reading in order to gain an appreciation for the Apple 119 oper ating system ProDOS 16 The 65816 and 65802 from now on when say 65816 you can assume also mean the 65802 unless other wise specified are CMOS micro processors that work with 16 bit data and use 24 bits for addressing They both feature a 6502 emulation mode which lets them run all soft ware for that CPU Fortunately they wake up in this emulation mode so that we can boot up with standard OSI software without a hitch Both of the new chips contain a vastly ex PEEK 65 December 1987 panded instruction set which makes programming them a joy for anyone frustrated by their predecessor However it is a bit inaccurate to descri
51. you have any suggestions for improvements in the program would be happy to hear about them the more specific the better would also be happy to hear any comments you might have onthe program itself as well as any uses you have putitto If you do any disassembly work on OS 65U or other proprietary operating sys tems please report your results to PEEK 65 so that more may benefit and save time by your efforts Firstthings first you may wantto put the EDITOR or EXTENDED INPUT program on your working disk Run i them from BEXEC and then have the user end up in MENU recom mend this procedure That done you re ready to begin The Emulator Tracer consists of two distinct parts the machine code which does all of the actual TRACEing and the BASIC part which allows use under OS 65D and also allows the label files to be moved in and out of memory Likewise the machine code portion can be looked at in separate sec tions The biggest part of the code consists of three tables or lists Table 1 contains a list of all 6502 machine code instructions the mnemonic the number of bytes each one occupies in memory and the type of instruction of addressing mode broken down into thirteen catagories Table 2 contains a list of all non sequential 6502 instruc tions and the address of the sub routine that emulates the execution of each Table 3 contains a list of the thirteen addressing modes and the address of the subr
52. 0 NEXT C 445 NPUT 6 TTL 450 455 PRINTStDU File N with NU records 460 PRINT OU If you wish to change file nane or number of records 465 PRINT DU you edit Record 0 File nane is the first data field 470 PRINT DU and the number of records will be the second PEEK 65 December 1987 page 41 475 PRINTSDU 480 PRINT DU 485 PRIHT DU As each field of data is displayed you nay change it 490 PRINT DU by simply typing the correction and a RETURN 495 PRIHT DU If no change is desired then type RETURN with 500 PRINT DU change exits the record changes 505 510 515 PRIHT DU 520 INPUT Which Record do you wish to change R 525 IF ASC R gt 60 THEN PRINT Enter the NUMBER of the record please 530 R URL R IF lt 0 RONU THEN PRINT Record R sure GOT0520 535 540 DISK GET R Read record 545 NPUT 6 HR NU 550 555 0 30 560 6 565 NEXT 570 INPUT 6 TTL 575 580 PRINT RECORD R 585 590 PRINT DU R 60508 110 595 IF LENCA gt 20 THEN PRINT Too long 60TO0 590 600 IF R AND THEN HR R 605 610 PRINT DU R 60508 110 615 IF LENCA gt 6 THEN PRINT Too long GO0TO 590 620 IF R AND Fil 1 THEN Hu R 625 630 0 TO 30 635 PRINT DU G C 60SUB 110 640 IF R AND 1 1 THEN G C R 645 IF 1 0 660
53. 00 THEN RUN HELP 1000 ndler 6 ls proper disk in place INPUT Systen 50 78 0 2073 173 0 2893 55 0 2894 8 8960 133 8722 27 2073 173 EAR PEEK 65 December 1987 page 34 10 REM INITL 20 PRINT 12 REM CLR HONE for ADDS 25 30 PRINT Initialize data files 40 PRINTCHR 8 WARNING PRSSHORD REQUIRED 50 PRINT PRINT THIS PROGRAM CAN DELETE ALL DATA FILES 52 PRINT PRINT Warning Back up ALL data files before doing this 60 PRINT PRINT 8994 0 REM Supress output 65 INPUT W PEEK 8993 POKE 8994 9 PRINT Enable output 70 IF PH QUERTV THEN 9999 100 PRINT This program writes blanks throughout the data fields 110 PRINT It can destroy all old records you wish to do this 120 INPUT PU 130 IF LEFT PU 1 lt gt V THEN 9999 150 PRIHT Do you wish to retain student names and nunbers 160 INPUT PH Ft 0 IF LEFT PU 1 2 V THEN 1 180 INHPUT Hhich file do you intend to work with 190 INPUT Hou long is the file in Tracks FL FL FL 23 1 195 200 REN Data fields amp variables 205 REM N student name 20 characters 210 REN NU student number 6 digits 220 REN 6 student grades 3 digits 225 REN which grade 0 to 30 grades 230 REN 240 REN General input variable Not saved 245 REN F1 Flag for Name Save NANE
54. 0KE9436 40 D3 INT DR B3 D0208R 03 B3 D2 iNT DO B2 D0 DO D2 B2 DIi INT 00 B1 00 00 01 B1 POKECB 1 00 POKECB 2 D1 POKECB 3 02 POKECB 4 03 POKECB 5 NB INT NB B1 B POKECB 6 IHT NB BT POKECB RR INT RR B1 BI1 POKECB 8 INT RR B1 ERSUSR RHU IFER OTHEN47090 5070620 PRINTCC O0 PRIHTCCS T REM USR M Error PRINT xxx x USR RH ERROR ER PRINT RT RDDRESS DR STOP 60T047080 REM Get a File s froa File Buffer DEUDUS CH OPENF CH P CH CH X CB 10 CH 8 FS CH B1I PEEK K 0 B2 PEEK X4 1 B3 PEEK X 2 16 REM Start FH CH BI PEEK N 3 B2 PEEK M 4 B3 PEEK M 5 Length 5070620 Listing 1 end but it uses 13 for RESET and 14 for so whenever is se lected I ll cause a reset to occur and reset always selects bankO so the computer will be in a constant state of reset Not only that this poor slob plugging it in has just finished building it and has no idea if it works or not and I ll be the verylast thing in the world that he would ever suspect of causing the problem LOVE IT I LOVE IT LOVE IT The author believes that the events that transpired over the next few hours should not be includedin such a gentle story but will assure you that the backplane gremlin has been dispatched to gremlin heaven where am sure that he is very happy telling all the horrid details that have been omitted here CxP COMES TO SEATTLE
55. 2 FO0RL9 21T04 EN 2 516 EX 3 24 L9 5 21015 1 601022020 VX24 EMCIT N24 VX EM T VX2VX 48 7 V329 CHRS VXO HENTL9 GOTO620 REM Convert hex to dec 3 to S RIGHTS CHST LEN CW 1 820 IFK S THEH620 Z LEN X FORL9 1TO2 VsRSC HIDS N L9 12 V9V 48 7 V557 gt 1 5 1 9 6010620 2 16 3 2 19 1 5 21140 5 5 1 607022020 ReX HE RC 1 6070620 REN Exponential Replacement EX 1 EX 2 EX 3 IF 3 0 THEM EX 1 1 6010620 2 IF ER 3 1 THEN 6070620 FOR LO 2 TO EM 3 EX 1 EX 1 EX 2 NEXT LO 6010620 REH Set Status CLOSE 81 256 82 256 81 83 256 82 4 PEEK 9832 2 gt 127 124 04 0 65 FLAGS 2861 2 8621 2888 0 2972 13 2976 13 REN Allow in Input DL 16 REN of vertical display lines OPEN SET UP 1 INPUTZ1 X LI CHR X REN Lead in Char INPUT 1 X CLOSE SC LI CHR X Screen Clear Char BP CHR 7 015 d 9889 NB 3584 51 24576 Delete Routine 2224579 REM Sort Routine 53 24582 Display Routine 14 24588 REN of records in LABEL file 01 0 5 RD 1 225088 REM LABEL file start address 8D 2 43264 REN TRACER start address in high memory 98900 RD 3 RD 2 4 REM TRACER EXPLODE node address RD 4 243288 REM Address of Label File for TRACER R0 5 243291
56. 3 STR RDRORB LOA HKRRER 92 802589 STA 04 4CB1R8 REPORT RORCRB XQTJPI LDA 91 STA LOBITE 0O1 1 STA HIBITE 0O1 ADADRB LOA 2 SOF DBO STA LOBITE 02 E 9293 0557 BES LOBITE j 2l was BCC EEO381 INC HIBITE 0G2 RDFFFF LOBITE LDA FFFF 1 be filled in later 802489 STA RDFFFF HIBITE LOR To filled later 5 STA 81 4CB1RB JMP REPORT 25 9 XQTJSR LOY 1 RE24R9 LOX TEMPPC 0001 BNE OCLOW DEY cA OCLOW DEX 98 TYA 43 PHA 8A TXA 43 PHA ADACA LOA HKRRER 1 8D24A STA TEMPPC ADADA LDA WKAREA 2 802589 STA 4 4C81RB JMP REPORT 68 XQTRET 8024 9 STA 68 802589 STA 1 24 89 PEEK 65 December 1987 page 27 ATUUUARDODNOKHKHIOMMMNNUUUARDOMNONKDRADANMMN D UJ 4 OO C CO CO 9 4 CO 2 C9 00 4 lt 4 69 0 6 Co 55555 454515444445 44 444 1 42 44444 4 4 4 C4 CJ QU QJ CU PO TO CU QU QU CU HMM CU d QU CJ HM IM QU QU QU QU HN AMMO NN A aa Aa aaa n n ns NN NN NN NN NN NN NN 0 OO
57. 4 0 40 q0m0 mmoq maoeoooOqoo00 HOO 0 00 0 OU e t IO UI HF N ONDUIOTO ION 0000 u euin 0 TR 0 D O OO e xt M UID CO d e fo ND SES SEE I 80000 0 02 02 00 0000000 OO DOO OO O OO OUuluUJuuiulu ll 9 9 CO CO D D e e 4 e OU CU C000 QI CUTO FOTO TOTO TO m ET T T NE UD DD GL CT GO GC a a 0 00 0000 CD 0 00 CD 00 00 02 00 03 00 02 03 mo 0 02 00 03 qa 00 CO o 00 o 00 0 00 00 ce 4 QU FO TOON 00 Q QUO TODO 02 0 CO e QU FO THOR CO e CU XE LO 00 OS 4010 xr OD 00 4072 TMORDHOAUMTNORDMOOAUMTNOKRODHOAUMTNORDHOAUMTNOROHGd 0 e cic e i i O1 01 04 00 QU GJ TO TO FO TO TO TO TOTO TO T
58. 6 6 62 0042 000 n 6 OWLOCUMTOROLM VOWLOAUMTOROHKTHOOUANH RCOLUMON E9000 C OG HM ci AHHAA TO 06 PDAKHHAHAHAAHHHAHHAH HAHAHAHA uu CCCCITCCCCCITCI 96 960 600660006990 0699 0 099 0 90690 6 96 09906 S DOR GG THOR OKGAUNTNORONOAUM t LOO OKOAUMTNOKRDAHOAUM f LO D f COO CO 4 4 40370 TOON DOO eL CU TO SIO cl cd cci AA d JO QJ0J Q4QJ QJ TOTO TO TOO TOTO TOTO f NF SE SE SEUDADIDIDIDIDID AD ID ID 0 D 0 0 OD OD PI ister contents if in Auto Mode 4 1 010 XO K ul OOOO Q2 U Q Q 2000 wuaaa uro c o rO0rTG zuuukxurz FOE WOX Q osQOQ KoU00 z00 2905 Vr gt gt 26 HOH omoHm mundotmuo iJ c 2 5 10 c 2 an o c ce WOWUUMWWWWWOKROODOUSOTOSW WOUTHDODODODOLUWOTUHOCOTL TCALMTRTAGQMVOTOWOUNH DOA X O0 O0 0 O0 O00 0 0 O00
59. 65U Create a BASIC program file named TBASIC Make it a full 24576 bytes just for safety Create a second file of type OTHER named TRACEM with READ access rights and a password of PASS Run DIR and write down the disk address where TRACEM resides Run the program 48 Replace the disk in drive A with the OS 65D disk that holds CODE1 and CODE2 At the A prompt enter C6000TT again where TT is the track num ber for CODE1 Note that LOAD48 will fill in some characters as you enter the above in order to make your command look like a standard OS 65D command Replace the disk in drive A with your OS 65U diskette At the OK prompt in BASIC enter NEW 3100 10 REM SAVE TBASIC This does three things 1 Clears the workspace and sets up a 3100 byte buffer to protect the machine code we just read into memory with LOAD48 2 Enter a dummy first lineofthe program 3 Permanently saves the machine code on disk as a part of the program file TBASIC for good keeping in case problems arise when you enter the program from the listing You may now enter the BASIC pro gram from Listing 1 When you ve finished again enter SAVE TBASIC to store the real program PEEK 65 December 1987 Run LOAD48 again Insert your OS 65D diskette in drive A Enter 900 where above is the track ber where CODE resides From here things get sticky You need
60. 9 o G OD CJ UJTO F UO OOOO OCHO OHOOOHO POO UUWELTOLATOOHWOFCTO V SF e e CO NNW CUO CUCUCVUCUCHAVOOWTCOCOUNND GC OU CC QU CUT CD CO Ld OBTOALMUNRDOOWAMOKRT mouu 00 COLATAC WOM OHMOOUNKRTOOM UUW U LLL C0 C2 e e e 4 SAAN UM MMMMM MTT 1 0 02000000 00 08 u u u tL uL Ull T CCT 2 QUITO xf LO 00 CO TOON HUM TOON ONO HOIM
61. C 48 PH 1 6GED INY 1 6GEE E1168 LDA CINDEX1 gt Y 12 BNE RDDRO4 Check for Address 6868 1 ear2 63 PLA 1 6GF3 CAAC ADDRES is HAFS nSn4 804 Rddress 0060 9320 LOA 7 E so print 1 6GF9 297 61 RDDROS JSR OUTCHR 1 69 CA DEX 1438 GAFO COFA BNE ADDRAZ FOGA EEQ ADDRES 1 6101 43 RODR Z PHA 1 6102 AJG LDA 2 6104 205464 RDDRO4 ISR 1 510 EL PLA 1 E109 205461 JSR 1 6108 INY 1 6160 GOCE BNE 1 1 5 1592 619 2118 LELOUT LDA CINDEXL Y 1 207961 JSR OUTCHR 1 5113 IN l 114 RL4 i 6117 LELOLIT 1 6119 AJAD NSTREC LDA Print CRLF at end of line 1 6118 297951 JSR OUTCHR 1 611E AIGA LDA 1 6129 287861 JER QUTCHR 1 6123 200 LDX 300 1 6125 20C261 JSR BUMP 1 6128 E614 INC CURRCL i 612A DOJL ENE DSSTRT 1 6120 ALLDON 97 1 612 116 LDA 2 Y 1 6151 921000 STR 9 1 6134 28 DEY 1 6135 10F7 BPL ALLDON G2 i 6137 60 RTS Return to BASIC 1 2 gt 1 i 2 Subroutine 1 5138 03 INIZ CLD Common initialization sub i 6139 LOY 807 i 6138 8310800 LDA 1 Y Preserve Page Zero Contentz 1 613E 991169 STA TEMPPZ 1 6141 DEY 1 6142 10F7 BPL INIZ 83 1 5144 ACAI LOY 2004 14 6147 8418
62. CER normally under OS 65U 2 Reset the computer 3 Boot up OS 65D 4 Get to BASIC s OK prompt 5 Enter EXIT to get to 65D s A prompt 6 Enter EM to invoke the Ex tended Monitor 7 To run in Standard Mode enter GA900 8 To run in Explode Mode enter GA904 Several control characters have been utilized by the TRACER to help manage the huge volume of data the program can generate 1 Control S The first lt CTRL gt S that is received will stop the TRACER after it prints the line it is on Each successive CTRL S will cause one line of code to be output single step 2 Control Q CTRL Q will tum the TRACER back on after a CTRL S 3 Control C The TRACER will transfer control to the reset routine ie H D M upon receipt of CTRL C The reason for resetting the computer is that I have no way of knowing what you are TRACEing or what has hap pened during the TRACE Many times you can re enter the immedi ate mode of BASIC by pressing M and then following the reset prompt Usually this will return control to you just as if you had entered a lt CTRL gt C during the normal running of the program 4 4 Control P lt CTRL gt P is a printer control char acter The printer will be toggled on and off as each CTRL P is re ceived If any err rs are detected during TRACEing the program reacts just a
63. EK 65 December 1987 page 14 9080 9090 9100 9110 9120 9200 9210 9220 9300 9310 9320 9900 9910 9920 9930 20000 20010 20020 20030 20040 20050 20052 20055 20060 20065 20070 20072 20075 20080 20085 20090 20100 20110 20120 20130 20140 20150 20160 20170 20180 20190 20500 20501 20510 20520 20523 20525 20530 20540 20550 20600 20605 20606 20610 20620 20630 PRINTTRB TI Start Over PRINT 1 15 selection INPUTK SEsURL N 1F4 s THEN2000 IFSE 10RSE 3THEHPRINTBP 60TO09010 0NSEGO0TO9220 9320 REM to Direct Node RR RD 2 60T09900 REM Go to EXPLODE Node RA AD 3 60709900 REM GO HE RA BI LBS RA HBS B1 POKEB778 LB POKE8779 HB X USR O END REM input a Record Sub ER 0 PRINT PRINT Enter Heu Record PRINT PRIHTTRB 12 Start Rddr INPUTEIS IFLEFTS EIS 1 4 THEHET E1 4 E1 LR SP 220052 SP SP 1 60T021100 1 9 0 020170 PRINT PRINTTRB 1 End Address If 2 IFLEFT CE2 1 lt gt THENE2 E2 IFE2 THENE2 0000 8 E2 LR SP 220072 S5P SP 1 60T021100 E2 4 IFN I1E9THENPRINTBP GO0TO20170 PRINT PRIHTTRB 26 Label INPUTE3 IFE3 ORE3 THENPRIHTBP GO0TO20170 PRIHT PRIHT PRINT Is this Correct lt CR gt Ves INPUTX IFN THENPRIHTBP G0T020170 PK RA ED 1 10 HBX EI BT LBX ET HBX BI POKEP
64. Edit Plus or BASIC files 50 00 ASM Plus ASM Plus is a disk based assembler running under OS 65D V3 3 that allows linked source files enabling you to write very large programs regardless of sys tem memory size ASM Plus assembles roughly 8 to 10 times faster than the OSI Assembler Editor and is compatible with files for that assembler ASM Plus adds several assembly time com mands pseudo opcodes for extra functionality Included is a file editor for composing files that allows line editing and global searches 50 00 Edit Plus Styled after WP 3 1 although not quite as powerful Edit Plus allows compos ing and editing WP 3 compatible files and to have those files printed as for matted text Edit Plus uses line oriented editing as opposed to the screen ed iting of WP 3 and also allows global search and replace Edit Plus fixes problems in WP 3 including pagination inputs from the console and file merging selectable line numbers from the merged file Edit Plus can perform a trivial right justification but it does not support true proportional spacing Re quires OS 65D V3 3 or OS 65U V1 44 specify 40 00 Data Plus 65U Mail Merge A program to insert fields from OS DMS Master files into WP 3 documents Output can be routed to a printer orto a disk file for printing later or for transmis Sion via modem using Term 65U Inser tions are fully selectable and are prop erly formatted into the output Perfect for gene
65. J x OUNKR NOOTKTOGAOM TNRTOLO dio 00OmoOoutu ur uqgcfrooomouut MORTOOd ANKTOL MMMM 1000401010000 iOSDSOSO OO 000 000000000 qcmomompommmpmoOo OOOOOQO cccaco 2 COONS OD 2 Qo TID OR DRG AUTOON OS HOST 0 O TID 0008 Co HNO xf UD e 7 007952940 02 D DODO e TOO 02 0 TOON 02 gt TO DG GO c e eie eie 4 UUU UUU TO TO TO FO TOTO Fr xt f OID LOG ONO DO 0 00 000 000000 60 02 OO OO 0 Co 9 NNN
66. K O LBX POKEPK 1 HBX HBX E2 BI LBX E2 HBX BI POKEPK 2 LBX 3 IFLENCE3 lt 6THENE3 E3 601020140 F RV 1T06 4 RSCCHIDS E3 V 1 POKEPK 3 V 60T020180 ER 1 REN Error GOTO 620 REM Return REN Call Display Routine REM t t Record to Display REN Last Record to Display 5 20525 5 1 607020800 IFRNS OTHENPRINTTAB 1S File Enpty GOTO 620 HBX S3 BI LBX 53 HBX BI POKE8778 LBX POKE8779 HBX POKE24589 4 POKE24590 V 2 USR 0 60TO 620 REH Call Delete Routine IFRNX OTHEN620 5 20610 5 5 607043100 1 81 51 78 79 HB 2 USR 0 GO0TO 620 Listing 1 continued PEEK 65 December 1987 page 15 20700 20705 20706 20710 20720 20730 20800 20810 20820 20830 21000 21010 21013 21015 21020 21030 21100 21110 21115 21120 21125 21130 21140 22000 22010 22020 22030 22040 40000 40010 40020 40030 40040 40050 40055 40070 40080 40090 40100 40110 40120 40122 40123 40124 40125 40140 40145 40150 40160 40170 40180 40200 40990 40999 41000 41010 41020 41030 41040 41050 REN Cal Sort Routine IFRNX 2THEN620 LACSP 20710 SP SP 1 607043100 HBX2S2 B1 LBX2S2 HBX B1 POKE8778 LBX POKEG779 HBX 2 USR 0 G60TO 620 REM Print Header PRINTTRB 3 Rec TRB 13 Start PRINTTRB 24 End TRB 33 LRBEL PRINT GOTO 20 REN Convert dec to hex X to X 48
67. M School 40 TRRP 20000 F 8993 1 REM PRINT PRINT PR PRINT 1 gt PRINT 2 gt PRINT REN PRINT 4 gt PRINT PRINT 5 gt REN PRINT REM PRINT 7 gt PRINT PRINT 8 gt PRINT REN PRINT 0 PRINT PRINT PRINT PRINT PR INPUT Enter th 1 IF i 1 THEN IF i 2 THEN IF 13473 IF 15 74 THEN IF 19875 THEN IF 1 6 THEN IF 1 7 THEN IF 19 78 THEN IF 13 9 IF 19 0 THEN IF EXIT T IF LEFT CIS 1 GOTO 10 REM Error ha PRINT ERROR RUN REN Unlock 741 76 0 POKE2888 27 9 POKE 2888 27 RETURN G0SUBS9000 60SUB50000 CL Records POKE133 122 CLERR 0 2888 0 0 8722 0 0 2073 96 PRINT CHR 12 REN CLS HOME THEN PRINT CHR 126 CHR 28 REM Hazeltine CLR FOR H 0 TO 5 NEXT REN time for the terminal to clear INT GRADES MANAGEMENT prograna Initialize Data files Enter student names add new student Delete student nane not inplinented yet Enter grades scores 3 in colunn form class grades averages Print class reports 6 Calculate final PRINT distributtons Print Report Cards HER Edit any record 9 List directory of Class files RETURH TO HRIN NENU HELP INT e nunber of your 1 RUN INITL RUN STUDNT THEN RUN DELETE RUN CHNGE RUN REPORT RUN FINAL RUN PROGRS RUH EDIT THEN GOSUB RUN HEN GOTO 600
68. N 10 10 1010 LO LD LD IO ID ID ID ID ID ID ID IO UD UD UD LD LD ID LO LO EO LO D LO D AD LO OLD VO AO LO UD AD OD AD LO VO LO LO UD UD ID DO DID ID ID LD ID ID DID D UD LD UD 0 0 UD 40 0 0 D LO D 4D 1D O 0010 LD 1010 I 10 O O O 49 PEEK 65 December 1987 page 23 1 2 Check for Control Char p 5 v 0 5 C u nC c 7 3 9 T 90 3 cno PEN a L 0 x a zo x o ane n NH D a oJ uu e ES oo x M ax X gt gt ME hee 44 YH a 2 tete Z CHC Yy TOMTO u 12 I2 02 or gt gt or Iu 02 oo Fut O uUOGZOHOO OOO mo Z VUO OZKO ROEZ zz OZO OM Q 2 CO 5 CdOIIccrwu HH uzueMzuuzu TloCxOvYOQOusrxuxu u HC Tutar C HONUI WZ 20 rQrz ure i rIXOLNOO0LUWXOXIEI RIF FORF I Jzt10 Oxutbuuo0xw Hek XCO0G0xxuo gt
69. NT Enter grades to student files 35 50 55 60 PRINT PRINT PRSSHORD POKE 8994 0 REM Supress output 65 INPUT PH X PEEK 8993 POKE 8994 5 PRINT REM Enable output 70 IF PH QUERTV THEN 9999 75 80 85 100 110 120 PRINT INPUT Do you wish to print the grade distribution F1 130 Filed IF LEFTS F1 1 V THEN 1 0 140 IF F1 THEN IHPUT Description of Activity 56 150 IF F1 THEN PRINT 4 CHR 64 CHR 27 B CHR 3 170 180 PRINT Which file do you intend to work with 190 INPUT 195 200 REM Data fields amp variables 205 N student 20 characters 210 REM NUS student nuaber 6 digits 220 REM 6 C student grades 3 digits 225 REN which grade 0 to 30 grades 230 REN 240 REN General input variable Not saved 242 REN TTL Student s ToTaL score 244 REM HU Number of Records in File as read fron Record 0 246 REN 05 1 Array of student grades for Nean SD Sort Tally 250 RE General counter for loops 252 REN SC Student Score used in tally routine 255 REN DU Device number for output 260 REN F1 Flag 1 Print Grade distribution 265 NSG to use above distribution 270 REN MEAN value of grades 275 REN SMALL Smallest value Sort 280 REN Total value of deviations SD 285 REN SD Standard Deviation 290 295 300 REN 310 DIM 69433 315 09 REM Output device PEEK 65 December 1987
70. O 560 1 N SPC 20 LEH N NU Display data record 07030 PRINT G C NEXT C PRINT IF F 1 AND LEFT N 12 5 THEN 600 INPUT N NU Enter new data IF LENCN gt 20 OR LEN NU gt 6 THEN PRINT long GOTO 470 IF LEFT H 3 THEN 620 PRINT 6 N PRINT 6 NUS FOR C 0 TO 30 PRINT 6 G6 C NEXT C PRINT 4 NEXT PRINT DISK 0 PRINT 6 PH PRINTS6 STR I 1 DISK CLOSE 6 REM Exit routine PRINT File update conplete PRINT FOR 070500 RUN STRRT 9 REM 0 REM Read OLD file store in array of N CI NUSCI 0 INPUT Name of the Old fite OF 20030 INPUT Hhich disk drive 08 DISK SEL DR 2004 2005 2005 2006 0 0 Read record 0 5 0 DISK 6 20070 015 0 2008 2009 2010 2010 2011 2012 2012 0 INPUT 6 N NU 0 PRINT File is N with NU records 0 NU VAL NUS 5 0 REM Create array to store Names amp Numbers 0 DIN N CNU NUSCNU 5 PEEK 65 December 1987 page 37 20130 FOR 1 0 TO HU 20140 PRINT 1 4 20150 DISK GET 20160 INPUTS6 H I NUSCID 20170 PRINT NUSCI N 1 20180 NEXT 20190 20200 DISK CLOSE 6 20210 DISK SEL A 20220 29010 PRIHT Nou for the New file 29998 RETURN 10 REN CHNGE 15 REN Lost version 13 Dec 85 20 PRINT CHR 12 REM CLR HOME for ADDS 30 PRI
71. O ST 55222 72 2 SEADIDUDIUIDIDIDAIDIO ID IO 050505050500 02 000000 02 02 00 0 000 0 OO OO CJ CJ Uu Qu QJ CU JU U U QJ QJ UU CU CU QJ CU fU CU CU OU CJ CU CU QU CU CU 4 CU QU CU CU QU CU CU U U U U CU U U CU U QJ UJ CU UJ fU QU U QJ U U QU U U U U UY CU QJ CU CJ QJ U U U U QU QJ CU JU QU QU CU J CU CU QU CJ QU PEEK 65 December 1987 page 20 gt 4 5 A o 9 ce 2 lt gt 4 v vn H PL uc 4 a 3 A gt gt gt 5t A n eL gt ne 2 c 3 Mf c co 30 o a 2 d 0 59 mo c ee Ue c 2 lt c c C o 2 c 0 3 ta t ul e Ue 55 5 ok 2 gt Ow gt gt 4 d lt 4 lt 41 0109 gt vid WM gt MI gt x 2 2 2 4 0 st e c oc MOMO v Ou o uz Or H 0 UNOMO 0 0 gt OO 27 AZO LO gt WX gt gt
72. OGOOOGGOOQOQOQOQOGOQQOOGGOODD OO SOUO OQQOOOSQOOoOoauoooo DODO O OD CO 200002029 000 OJ OJ 00 OD CD CD OD CD 0 QD OO D 000 CD OD 00 V 00 CO 00 00 CD OJ UJ OD OD 00 05 OD OD OD OD 00 OD UD QD 00 D 0 mmmmmmmmmrmmrmm m mmmmmmmmmrimmmmmm mmmmmmmrnmmmmmmmmmmmmmmmmrmmmmmm a 1 End o BLE1 MSG4 5 SNOT HEX STARTING ADDRESS 7 MsGe Y 13 10 OUTPUT Y 13 18 6512 CONSOLE Y 13 19 52 PRINTER Y 13 19 532 BOTH Y 13 19 7 FF MSG3 Y 13 10 Initial Register Contents FF M 13 10 Initial X Register Contents FF v 13 18 Initial Y Register Contents FF Y 13 10 Initial Condition Code Contents 87 SFF nsG4 y ADDR CODE MNEMONIC OPERAND EFF ADDR BY x Y N V x B D I 2 C SP SFF LINE BYTE 0 LINE 550 TABLES END in TBASIC machine cade 2 12 94 32 Carl Eidto 39 95 23 33 Modified Qutput Sub ia E qur o a mE 28 INDEXI 3018 8813 INDES 1 82 115 coras CURRCL 95 19 9014 NUMOEL 155 98132 BEES CURRCL not used in DELETE 39 8815 DECHUM ClIRECS a1 iid cane TABLES Goons 81 Temp for decimal number 15 2581 BRSQOD 2501 id 8053 QUTD 2053 are i 36 1222 P 290 DELET 19 6003 lt SORT E 5005 4 JHP
73. OSPLAY 2 249 9962 BOD4 WORD TRE 350 an RL4 BYTE sage 220 eoQc a RNG BYTE 99 To be filled in b BRSIC 3 6980 92 ELEC BYTE 309 First record to displayed end 30 4 is y 6 TRBCHR apre 159 Last record to be displaued 2210 DELCHR BYTE Perm 2986 TEMPPZ DBYTE 80 00 08 00 Temp to save contents 18 5815 5012 0008 7 4 8 6913 ag TENEY BYTE 00 Temp reg 740 D 65 December 1987 page 29 b D Da Da Da D Do O N O ON ON O O O1 J1 O f 9999090000000 NUGEMOD ts O Jt J ON O Ch O SONNO OO O ON CT ON O ON OON 5 2 51 O2 IAI 5 09 5 ODN ANANN Be LLL CJ AJ ATOTO O FU FO FOTO gt mO DO OL P 009m O DOO OY P ES 2 IAAVIIIAANAAGS Smp 0 0 DADDA Dh 222209400 O O 0 O O OOOO DUNN NS hONm gv moine BH DOT 461 7 DOT
74. PRINT This option prints the whole class list with the student PRiHT nunber first optionally the student names Handy when you transferring grades to gradecards for the office records PRINT and then the string of grades scores last item is the PRiNT student s total score the possible score and the current PRINT percentage PRINT PRINT The first horizontal line on the chart is a list of the PRINT possible scores for each of the tests quizzes PRINT d GOTO 60020 REM Exit SSA PRINT GOTO 60020 REN Exit REN PRINT If you need to present a mid quarter report a short PRINT of report card is helpful This choice prints the student s PRiHT nane lists her scores prints the total and average PRINT and optionally prints a letter grade password PRINT included in this version PRINT PRINT GOTO 60020 REN Exit REN REN Edit files PRINT This program must be used carefully It allows any grade PRINT of any test quiz or student to be altered Be sure to PRINT change the right grade And DON T let students even be PRINT auare that there IS a password for this one let alone what PRINT it is Best yet keep the disk at hone PRINT PRINT Note that changing a grade does not change the student s PRINT total score You need to change it also or simply wait PRINT until the next en
75. S 2781 WORD 6 BYTE 6C JMP Indirect E180 WORD E 72890 WORD XaTevs BCC 7789 WORD XQTBCC BCS WORD XQTBCS o BYTE BNE 8180 WORO XQTBNE BEQ 8688 WORD XQTBEQ gt gt 3 1 102A X QTBPL BPL NBRNCH 3825 XQTBMI BMI YBRHCH 4 NBRNCH 20 XQTBVC YBRNCH 4 NBRNCH 1B XQTBVS 5 YBRNCH 4C8880 JMP NBRNCH 16 XQTBCC YBRNCH JNP NBRNCH 11 5 BCS 4C8880 JMP NBRNCH XQTBNE BNE VBRNCH NBRNCH FOO XQTBEQ BEQ YBRNCH NBRNCH LOY 80 STY NSEQSP BRCALC 8901 YBRNCH LOY 801 AD2SAS BRCALC LOA 4 STR 2 LDA 1 18 CLC 8A ASL A 9012 BRFOR Forward or backward branch ADACRB BRBAC LOR WKAREA 1 8 CLC 6024A9 SDRCRB STR HKRRER 1 B015 BCS BRDONE CERDRB DEC HKRRER e 4 RDe4R9 BRFOR LDA 8 CLC 6DRCRB ADC 1 STR WKAREA 1 98893 BRDONE EERDRB INC HKRRER 2 BROONE CPY 0 BEQ DONEBR ADACAB LDA HKRRER 1 STA ADADAB LDA WKAREA 2 8D25A9 STA 4 4 DONEBR JMP REPORT ADACAB XQTJPA LOA WKAREA OL 8D24R
76. STY INDEX1 15 6149 2412 ST INDEX2 13 6148 5 LOY 4 17 514E 8411 STY 1 15 6150 6413 STY 2 1 1 eise 1 6154 2614 STX CURRCL c 6156 8515 STX CURRCe 6153 60 RTS 6153 SPACE LDA 2 Space 6158 CA DEX gt Pass of spaces in 615C 3005 BNI SPDONE 615 2872861 JSR OUTCHR 6161 DOFS SPACE 62 6162 0 SPDONE RTS 6164 43 HEXOUT PHA 6165 AND FQ Mask out lower 4 bits 6167 4A LSR A 6168 4A LSR A 6159 4A LSR 616A 4A LSR A 616p 207161 JSR HXOUT 616 28 FLA 61 AND 9F Mask out upper 4 bits 6171 13 CLC 6172 6930 ADC 6174 CIZA 7 6175 2883 OLTCHR 6178 18 CLC 2 6179 E997 ADC 0 Difference between and 797 6irB 95 OUTCHR PHP 517 C1969 STY 617F 6181 ecaies STY BASOD 6134 203320 JSR OUTD 6197 AC1960 LOY 618A 23 PLP 65138 69 RTS 613 42 PHA Hex ta Dec Converter 5130 613E LOX 5 616 STK 6192 2617 STH DECNUMN AL 6194 48 LSR A 6195 4A LSR A PEEK 65 December 1987 page 31 5 2 au 0 EIZE 2 25 22 GVW aw 2525 GO GQ 4 0 xexroxrarcacxcrorcrcen JOGO 22i JA EOF JUNI IK a gt 2 d dad 0
77. THENPRINTBP GOTO2000 RA AD 1 AW O LR SP 2570 SP SP 1 GOTO 3000 REN Move LABEL file PRINTSC PRINTTAB T1 Edit LABEL file LF PRIHTTRB TI PRINTTRB TI 01 Display amp Edit LABEL file 02 List LABEL file to printer PRINTTRB TI 03 Erase LABEL file PRINT 99 Save aodified LABEL file PRINTTAB T1 and return to Menu PRINTTRB TI Return to Menu don t save file PRINT PRINTTRB TI 15 Vour Selection INPUTX IFX THEN2000 LE VAL X IFLE 99THEN4000 IFLE lt 1ORLE gt 3THENPRINTBP 60702570 ONLEGOTO3000 4500 5000 REN Display Contoller 3005 5 1 601020700 1 LPX RHX O0L 1 IFLPX OORLPX ITHENPG 1 1 01 00 1 IF 0 THEN 0 0 00703070 gt 2 570 gt 1 1 PRINTSC PRINTTAB O Examine Edit LABEL file LF 35 11043 1 NEXT PRINT 5 3105 1 607020500 PRINT PRINTTRB O Enter lt Record gt to Edit Record to Delete PRINTTRB 08 to Add a Record CR to Continue Display PRINTSPC 5 IF4 THEH3160 1 lt 1 60703050 50702570 V LEFT X 1 IFUV THEN3300
78. TO LR SP 2000 REN Menu 1 2010 T1 22 PRINTSC 2020 PRINTTRB TI TRRCER menu 1 2030 PRIHTTRB TI PRINT 2040 PRINTTAB T1 01 Examine Edit a LABEL file 2050 PRINTTAB T1 02 Load TRACER into operating position 2060 PRINT 2065 PRINTTAB T1 Return to Main Menu 2066 PRINT 2070 PRINTTRB TI 15 Vour Selection IHPUTMIS MI URL MHT 2075 2076 IFNI STOP THENSTOP 2080 ON GOTO 2500 2110 2090 PRINTCHR 7 60T02010 2110 Nove TRACER machine code to High Nemory 2120 CH 1 F CH TRACEN P CH PASS 0 01 0 2125 65 2130 5 5 41 007048000 2130 3584 0 2 2140 RW O LR SP 2146 SP SP 1 60T047000 2146 GOTO 8000 Listing 1 65 1987 12 2500 2510 2520 2540 2550 2555 2560 2570 2575 2580 2590 2600 2630 2640 2650 2660 2670 2680 2690 2700 2710 2720 2730 3000 3002 3005 3010 3050 3054 3055 3060 3070 3080 3100 3105 3110 3120 3130 3140 3150 3155 3160 3165 3170 3173 3174 3175 3180 3185 3190 3200 3250 3260 3300 3310 3320 3325 3330 3499 REM Edit LABEL file PRINTSCS PRINTTRB TI LRBEL file editor PRINTTRB CTI PRINT PRIHT PRINTTAB TI 5 Which LABEL file would you like to Examine Edit PRINT 5 2555 5 1 607042000 IFLF lt 1ORLFOLFX
79. as backup This way the list matches the PRiINT gradebook order PRINT PRINT Norma entry is LAST FIRST order Note PRINT there is COMMA between the first and last names These PRINT are stored as only ONE data field six digit number PRINT should be large enough for even the largest secondary school PRINT GOTO 60020 REM Exit REM PRINT GOTO 60020 REM Exit PEEK 65 December 1987 page 45 8050 8055 8060 8065 8070 8075 8080 8085 8090 ng REM Enter grades scores PRINT Once a file is CREATED and Initialized and student PRINT have been entered grades may nou be entered The intent is PRINT that all the student s grades nay be entered at one tine for PRINT one assignment quiz test This version makes no PRINT distinction among the different types of grade If you need higher X of the score from homework just grade a few nore PRINT honeuork papers All grades must be numeric PRINT PRINT You MUST enter a score for all of the students at once PRIHT If it should happen that some students haue not yet PRINT conpleted the assignment enter a zero This can later be PRINT changed by the EDIT function PRINT PRINT When the last score is entered the progran totals the PRIHT individual student scores and stores it on the disk also 6070 60020 REM Exit REM PRIHT
80. be the emulation mode as simply emulation as all of the na tive mode instructions still function in this mode albeit with some natu ral limitations The difference between the 65816 and the 65802 is that the 65816 has the full 24 bits available for address ing The 65802 is a pin compatible replacement forthe 6502 andisthus limited to 16 bits in the real world However this does mean you can simply replace your 6502 with the 802 and take advantage of some of the speed and powerofthe new chip with a minimum investment just bought a 65802 from Jameco Elec tronics for 19 95 plus a couple dollars for shipping and tax and am pleasedto report no problems with it in my C8P DF The one caveat that comes to mind is the OSI Assem bler Rumor has it that the OSI As sembler used unimplimented op codes of the 6502 If so that pro gram will not run onthe 65802 orthe 65816 haven t tested this yet but it s something to watch out for Forthose who wantto really explore new ground Paul Chidley of TOSIE fame and David Livesay both offer 65816 CPU boards that can hold a lot of memory and do so at very reasonable prices And of course let S not forget the DevTech Inc troops back in Denver who have the DB 2 system available Table 1 shows the instruction set of the new chips with the new instruc tions marked with an asterisk As you can see one of the primary gains with the new chips is to fill in the gaps inthe instru
81. ble make it possible to write more efficient programs in that they ll take up less memory and run faster Whereas with the 6502 it is often necessary to use either the X or the Y register with a particular instruction most indexed modes on the 65816 allow using either one filling in many of the obvious gaps in the 6502 instruction set Of all the new instructions available in the new chip as a programmer I am most grateful for MVN and MVP for MOVE BLOCK NEGATIVE and MOVE BLOCK POSITIVE These instructions make it possible to move large chunks of data around in memory with a minimum of pro gramming and code space and do so much faster than would be pos sible using discrete code Shrewdly WDC made these instructions able to move blocks of data across bank boundaries I ve been running 65C802 in my C8P DF for over a month now and have only had one program show any signs of failure I ve run it for long sessions in order to make sure that problems won t arise from OSI parts and design pitfalls from creep ing in once the system gets hot in all l m now very confident in this configuration however would suggest that anyone installing the 65C802 carefully remove the origi nal 6502 so that it can be replaced should it become necessary OK so where does all of this won derous hardware leave us Frankly we ve only scratched the surface The biggest hurdle remains before us namely the operating system Ther
82. ction set of the 6502 by adding in everything from the 65C02 and topping it all off with its own enhancements To begin most of your assumptions about the 65816 are true The Accu page 2 mulator X and Y registers and the Stack Pointer are now a full 16 bits wide Yes that s right you can move the stack anywhere you like when running in the native mode making it easy to set up separate stacks for separate tasks The Pro gram Counteris stillonly 16 bits but the 658xx family has an additional register called the Program Bank register which adds the upper 8 bits needed to obtain the full 24 bit ad dress range The heart of changing between modes with the 65816 lies in the Processor Status Register In the 65816 and 65802 the Processor Status register is hold onto your hats boys and girls a 9 bit byte I m joking of course but only slightly The Status Register is still only 8 bits wide but the CPU stores an ad ditional bitinternally called the Emu lation Bit Since the value of this bit is crucial in both the native and emulation modes the Carry Bit is used for double duty The instruc tion XCE Exchange Carry and Emulation swaps the current con tents of the Carry and Emulation bits By preceding this command with either CLC or SEC you alter the mode the CPU is running in Whenin the native mode bit 5 of the Processor Status byte is the Mem ory Select flag When set 1 operations are pe
83. d have been painfully slow use a modified DEF FNA X to do the job Perhaps this principle may be of useto some one On the other hand there is probably a proper way of doing it it s that wheel again scratched my head when it came to creating the file because couldn t face typ ing data when l only needed about 120 actual records so fin ished up writing a program based EDITOR to write zeroes into all the records Then only had to edit the ones actually needed Now some questions which some one may be able to help me with chose 4800 bps for the serial sys tem as it was easy to play with MDMS at home by simply POKEing 64512 with a different value and then my OKI printer would still work its highest speed is 1200 bps and it doesn t have a line buffer But ran into trouble with WP6502 which 1 use all the time and had to install a Switch of course I frequently forget to change to 4800 before going to work so have to change speed the terminal and printer there Can anyone please tell me what can do to WP650 perhaps in its BEXEC INSTAL utility so that it will divide by 4 when printing Of course had problems with the step rate after installing the new drives but Leo and Paul Chidley s October 1985 article solved that once again I m none too sure of the how and the why but it worked aminterested Home Control AC Control and the like purely for my
84. e are a couple of possibilities here First we can modify OS 65D This would be the easiest and most prac tical thing to do in the near term Those of us writing software on an PEEK 65 December 1987 page 3 independent basis are most familiar with OS 65D and can make it jump through hoops as we please Fur ther the rest of the world is largely based on this operating system and will make the transition easier Second we can wait to see what the factory does with OS 65U That s where the big boys play and where most of the more sophisticated soft ware is designed to run DevTech has been working for many months in this area and while they haven t made any formal announcements that I m aware of they will certainly be doing so in the future believe that OS 65U will continue to be the operating system of choice for the business users and we should strive to be in a position to take advantage of whatever the factory does with it Otherwise we will be left in the cold once again Third there are a few sources of commercially available operating systems and languages Paul Chidley is working with the generic 6502 p System code from Pecan Software This is the core of the imfamous UCSD p System that never really ran well on OSI Of course SofTech never made much of an effort to understand us so that wasn t much of a surprise Pecan Software bought out the p System a little over a year ago and has been making great
85. en a request for typing or weighting of the grades by TEST QUIZ HOMES WORK etc so some types of grades can receive more credit your readers are interested send the newer versions along periodically when they work well Editor s Note If you send request to John for an updated copy of this software be courteous enough to send a blank disk a fresh mailer and enough cash or stamps to cover return postage Write for PEEK 65 Share the experience Sign Up for CompuServe CompuServe subscription kits with a 25 00 connect time credit are now available directly from PEEK 65 for only 32 00 plus ship ping That s 2096 off the regular price of 39 95 This kit includes the CompuServe User s Manual In addition to giving you access to the OSI related files and bulletin board a CompuServe account can be your gateway to a wealth of infor mation and communications serv ices such as MCI Mail the Online Airline Guide and the CompuServe Mall for shopping at home Send for your kit now PEEK 65 December 1987 page 33 10 REM START 30 50 100 110 140 150 160 170 180 200 2000 2020 2030 2035 2040 2045 2047 2050 2055 2057 2060 2063 2065 2070 2075 2080 2085 2090 2100 2110 2120 2130 2135 2140 2145 2150 2155 2160 2165 2170 2175 2180 2190 3000 19999 20000 20010 20020 20030 50000 59000 59010 59020 59040 59050 60000 60010 20 RE
86. istics I Frustration Space War Battleship Annuity II Mastermind Trig Tutor Powers Bomber Loan Finance StarTrek Zulu 9 Stock Market Annuity I Math Intro Mathink Metric Tutor Control Blackjack High Noon Electronics Equ Star Wars Math Blitz Calendar Prgmble Calc Checking Acct sargon Chess Software Disk version for C8 C4 specify Regular 34 95 Sale Price 15 00 Cassette version for C specify Regular 29 95 Sale Price 10 00 PEEK 65 December 1987 page 8 Assortment of 10 for just 20 00 Specify your preferences but due to limited quantities some substitutions will be made Extended Monitor Cassette version for all systems Regular 50 00 Sale Price 15 00 OS 65U Machine Code Emulator Tracer by Carl Eidbo This program was originally con ceived of as a result of my attempts to disassemble OS 65U found that while some subroutines were easy to decode others were ex tremely difficult since the exact path of the program was determined by parameters passed from outside the routine This program will report the activities of the 6502 processor allowing much easier understand ing of the purpose of the code have also used the program several times to debug assembly language routines that had written have no formal computer educa tion so I m sure that many parts of my program could have been more efficiently written If
87. le to load any programs that take up more than 4900 18688 or A900 6000 bytes of memory until you boot up again Editor s Note the installation code is mine not Carl s Carl origi nally sold this package on a com mercial basis but he has graciously allowed me to publish the work Therefore he had no needto supply this information am supplying a generic machine code installation procedure which 1 hope will suffice In any event any problems intro duced by this are my fault and not To install TRACER begin by creat ing a 10 track file named SRC1 on an OS 65D diskette to hold the assembly language source code shown in Listing 2 Create 3 track file named SRC2 to hold the as sembly language Listing 3 Create two 1 track files named CODE1 and CODE on the same diskette Note the track num ber where CODE1 and CODE reside on your disk Enter the as sembly progams with your favorite assembler save them in the files SRC1 and SRC2 created above Assemble SRC1 in memory Get to OS 65D s A prompt and enter SA 1 900 where TT above is the track num ber where CODE1 resides on your disk Assemble SRC2 in memory with an offset of 4000 Get to the A prompt again and enter PEEK 65 December 1987 page 9 1 000 2 where TT above is the track num ber where CODE resides on your disk Now reboot your system with OS
88. light detecting circuit When it receives this signal it then goes into a loop that has been calculated to take a certain amount of time equal to a certain distance on the rotating disk When the loop is finished the actual I O to the magnetic surface of the disk begins If you were TRACEing this routine the would begin much much later than it was supposed to if it occurs at all The operating system would proba bly detect an error This means that PEEK 65 December 1987 page 11 you would probably end up TRACEing some error handling routine instead of the disk handling code you intended to TRACE 10 REM 3080 Bytes of Machine Code and File Space above 15 DIM LR 20 SP 0 Prepare User Stack 18 Xxxxxxxxxxx x xxx 20 REM File 25 TBRSIC 30 18 xxsxxxxxxtxxxx xxx 35 REM Ruthor xxx 40 REM CARL EIDBO 45 REM EE E OE KOE OE OE E E EDE xxx 50 REM 55 EON UE EOE OE OK EOE ERE xxx 60 REM Started ae 65 11 09 82 70 EOE DEDE EOE OK OK OK OK KOK xxx 75 REM Latest Reu 80 REM 06 15 83 rrt 00 REN x SEE OE OE OEE E OE OK OE DKK Xx 99 4 43264 V IHT 4 256 POKEI33 X 256 POKE132 CLEAR 100 REM This is the BASIC support program for all features of TRACER 130 LR SP 2140 SP SP 1 60T040000 140 60102000 610 REN Substitute for RETURN 620 SP SP 1 GO
89. lt IQ WJ w OWU JO WL H OZLOOOOOOOOOCHHHH MMV VS VV VV NNN ANNAN N AN N N NN NNN Es yey eyes sss ssa 545555544544 555 ow u eaa aaa a 5 amp lt lt aaa a lt lt aan am c i VOANWONHNTAWOANVDHOWSHATNHVYOT Oud CO HNP S0 C0 O OU IO 000 0 LO HID OOTA uza CO CO CO C2 CO CO GO od e 24 QU 0401 CU GJ CU QUITO CO TO TO TOTO TO TF f B TF TNN NNW ug e a n wu vv o MW PERE EEREEEEEEEREEEEEEEFEEEEREEEEEEEEEEEEEEERFEEFEEEEEFEFEEE T FO 2 27 2 gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt gt TOU eiu sud tT Dd Wo eir 0 00 CN 00 CD 0 CO 00 00 CD O CD CO 02 n CO 00 00 03 03 00 00 a n O O O O mM OO OO qao d N vo aM rx Ic el hese tte
90. nge and then they are limited to only 127 128 bytes in either direction from the current PC value Thus to send the program any further away in memory you must either know the absolute 16 bit address of your destination advance or go through some convoluted gyrations to figure out where you are now and how far away you want to go It s possible but not pretty With the 65816 several PC relative instruc tions have range of 32767 32768 The PER instruction allows for easy access to relative effective addresses for data storage Branches are similarly extended but are also enhanced with the addition of the BSL instruction to execute subroutines By using position independent in structions it is possible to vastly expand the capabilities of our sys tems You can call code into mem ory anywhere you have room in Stead of the situation we have now where the code must reside pre cisely where it is written for or it will crash One use of this would be the ability to break large programs up into smaller pieces whereby code is brought into memory from disk as needed and then discarded once its task is completed Another possibil ity is to have small utilities reside in reserved sections of memory ala the Macintosh Desk Accessory or the MS DOS TSR software where they can remain ready until needed and yet be independent of the pri mary program being executed The other new addressing modes made availa
91. ny desired REPORT PROGRS and FINAL are vari ous types of reports needed for various schoo purposes HELP gives hints as to when and how to use the various functions Passwords are PASS for the report writers and QWERTY for the ones that can alter the data file contents Note that QWERTY never appears on the screen Editor s Note this is one of the places where the con sole device number gets altered in all of the programs If you see QWERTY you ll need to pay attention to that line of the pro gram Possibly someone else has used this method to supress printing but 171 claim it as my only true original part of the system In actual use keep the data on a disk in the B drive and in my briefcase and programs on a disk in the A drive near the computer This method of data storage isn t especially efficient in terms of disk space but it is FAST It runs about 5 times faster than a similar MECC Minnesota Educational Com puter Consortium program on an Apple partly because the program doesn t stop to sort the file on every use I m currently working on aver sionthat allows optimally sorted lists by using record pointers not key files to indicate the next amp previous records When new records are added the pointers will be updated then and the list stays sorted if that is needed It also would be nice to add com ments to the grades and there has be
92. ocument things but don t let that dissuade you from trying it The software is well docu mented internally and is fairly straightforward so it should be easy for you to modify to suit your needs One thing to watch out for isthat John wrote this for his serial based OSI Video sys tem owners shouldbe aware that the programs sometimes alter the console device number with POKES while asking for pass words and at other prompts In addition the program assumes a particular paralell printer in stalled as device 4 and occa sionally sends special format ting codes would recommend carefully altering all PRINT 4 statements by de fining a printer device number in the variable PD toreflect your own setup and use PRINT PD instead You ll also want to out all of these special printer commands until you re comfortable with the software Thisisthemost recent versionof my grade recording program The programs have grown over the years as found need of new abilities or just liked the way someone else s program did something In its present form no distinc tion is made among different types of grades Tests and home work are all treated equally it makes for a simple file struc ture START calls all of the other generally used programs INI TL sets up the student file structure STUDNT allows add ing students to the file CHNGE allows entering of grades EDIT lets the file be modified in a
93. ode It can be used as a single 16 bit regis ter often called the C register or as two distinct 8 bit registers called A and B But while the B regis ter can be exchanged with the A register to temporarily store data the value in the B register cannot be changed directly without involv ing the A register For now don t be too concerned with A B and C Understanding that they exist is enough to get started Addressing Modes As noted above the 65816 also brings with it several extensions to the addressing mode capabilities of the 6502 These addressing modes are both natural extensions for the 24 bit world of the 65816 and are also welcomed aid for all of us har programmers Rather than document all of the modes avail able let s just discuss the new modes available on the 65816 in broad terms As you d expect many of the new modes involve the use of 24 bit addresses and the additional regis ters available but one of the biggest steps forward made by these chips are the many instructions that are now Program Counter Relative or PC Relative That is they work based on the value of the Program Counter Register ie where the instruction currently being executed is located in memory This allows writing what is called position inde pendent code and can bring us many benefits On the 6502 the PC Relative in structions BCC BCS BEQ BMI etc are limited to a 256 byte ra
94. of the disk and then operating on the data in memory in any way one wishes more specifically per haps loading a whole file before doing anything realize that it is likely that OS 65D and MDMS were designed to utilize a very small amount of RAM in the days when much more was unthinkable andthe disk represented by far the largest storage area so any modifications is probably not worth the effort No doubt OS 65U has all the answers page 6 butthatis out of the question for now and my need will disappear in the near future in any case think have looked at the economics and utility of accessing CompuServe by various means but none are too practicable from this side of the world its a great thought but can see no needfor instant communica tion particularly where a subscrip tion is involved If it were merely a matter of paying only for line time probably be a starter but it would come down to what get out of it as have so little to offer and not a lot of spare time either The whole business is very much a part time hobby for me but never regretted buying OSI Even though it can be frustrating for lack of info it s fascinating to play around with and to learn about an end in itself rather means to an end Who wants to buy an IBM that does everything but slowly whenthere is no use for it I ve enjoyed our chat albeit one sided and hope you may find some thing of interes
95. oke and became aware of his surroundings he was very happy because he realized that he was going to be part of a com puter and everyone knows that gremlins in computers have a lot more fun than gremlins in cars or lawn mowers or just about anything else Here he was just a whiskerof wire barely large enough to see but what made him know that he was destined for greatness was not what he was but where he was for he was Safely hidden under a molex connector where no one could pos sibly see him and he was very sure that he could wreak a lot of havoc because after all he was going to be part of a computer As he sat on the shelf waiting to be assembled he had all sorts of vi sions of what dastardly deeds he could perform in the final product and he was sure that he would be a very sucessful gremlin and he could hardly wait to get started But thena frightening thing happened He was sent to the quality control de partment for inspection OH he cried THEY LL FIND ME FOR SURE Butto his amazement when the checks were made they totally ignored his home Whew he sighed that was pretty close and I m sure glad it S over Every gremlin knows that once he s made it past quality control the rest is easy And now he knew exactly what he was That sounds pretty important to me he thought I m backplane 106646 for a C2 4P and thank you very much WES for passing me through Then he was put on the a
96. outine that controls the print out of each The rest of the machine code is concerned with setting up the initial operating conditions moving the instructions to be TRACEd one at a time to an area within the TRACER for execution or emulation and then reporting to an active output de vices More specifically the operation of the program goes something like this 1 The controlling parameters must be entered into the program 2 The program checks to see if a control character is waiting to be entered 3 The program moves the first or next instructions to be TRACEd into the emulation execution area 4 The program first compares the instruction to Table 1 to make sure it s a legal instruction 5 Then program next compares the instruction to Table 2 to see if the instructionis sequential or not If the instruction is sequential control is passed to the instruction If the instruction is non sequential the instruction is analyzed and its exe cution is emulated 6 After execution or emulation of the instruction control is passed to the report portion Here the output is sent to any active device s ac cording to the type of instruction 7 The program loops back to step 2 above The actual TRACER machine code and the Label file in use reside in high memory starting at A900 The upper memory limit is changed the first lines of TBASIC the BASIC support program You will not be ab
97. ple descriptions of how people use their systems as a part of their businesses Right now have enough material to take me through 1 1 2 more oversized issues After that the library is dry so PLEASE contribute Okay enough of that On to more pleasant topics This issue contains two block buster articles The first is an excellent utility from Carl Eidbo the OS 65U Machine Code Emula tor Tracer which allows you to single step through machine code If you wantto get into the guts of OS 65U this little ditty will do the job Second John Hepner has given us his system for recording student s gardes It s an excellent example of simple software doing a much needed chore added brief article on the technical side of the new 65816 and 65802 chips and how they can really add power to current systems Finally Jack Noble submits the saga of the little gremlin that almost got away Have a Happy Holiday Season and thank you for your past and continu ing support of PEEK 65 PEEK 65 December 1987 page 1 65816 65802 Down 4 Dirty by Richard Trethewey Its been hard struggle but I ve finally gotten passingly familiar with the new 16 bit microprocessors the 65816 and the 65802 A quick glance through the reference mate rials is enough to start your mouth watering but think it s about time we got down to some specifics around here This article will de scribe some of the benefits of
98. rating form letters 30 00 PEEK 65 December 1987 page 47 The Unofficial OSI Users Journal P O Box 586 Pacifica CA 94044 415 Name Street City 993 6029 GOODIES for OSI Users PEEK 60 The Unotticial OSI Users Journal Sams Photo Facts Manual Complete schematics scope waveforms and board photos Alf you need to be or SII Wizard just Pet 3s e Sams Photo Facts Manual Includes pinouts photos schematics for the 502 505 527 540 and 542 boards A bargain at C2 C3 Sams Photo Facts Manual The facts you need to repair the larger OSI computers Fat with useful information but just OSI s Small Systems Journals The complete set July 1977 through April 1978 bound and reproduced by PEEK 65 Fuli set only Terminal Extensions Package lets you program like the mini users do with direct cursor positioning mnemonics and a number formatting function much more powerful than a mere print using Requires 65U RESEQ BASIC program resequencer plus much more Global changes tables of bad references GOSUBs amp GOTOs variables by line number resequences parts of programs or entire programs handles line 50000 trap Best debug tool seen MACHINE LANGUAGE VERY FAST Requires 650 Manual amp samples only 5 00 Everything for Sanders Machine Language Sort Merge for 05 65U Complete disk sort and merge documentation shows you how to call from an
99. rformed on 8 bits of data When clear 0 memory and Accumulator operations use 16 bits If you look in Table 1 you ll see that there are no instructions that set or clear this flag Instead the instructions SEP and REP are used to alter the Processor Status Register as a whole Again when in the native mode the Break bit B or bit 4 has a new function and is referred to as the Index Register Select Bit X This bit affects the X and Y registers as the Memory Select bit works on the Accumulator which is to say switch ing between 8 and 16 bits When used in indexed addressing modes the X and registers be used to work on a full 64K range of data in stead of the single page 256 byte range on the 6502 In addition to the Program Bank Register a second new register is available on the 65816 called the Direct Register The Direct Register controls the use of the addressing mode called who would have guessed the Direct Mode Simply put the direct mode is a faster way of addressing mem ory in the first bank from 000000 to 00FFFF and is similar to the Zero Page mode on the 6502 The Direct Register is 16 bits wide and con sists of two 8 bit halves the DH for the high 8 bits and the DL forthe low 8 bits The direct mode operates differently when in the emulation mode than wheninthe native mode and we ll discuss this more later The Accumulator takes on a special characteristic in the native m
100. s if a CTRL C had been en tered The only error that you are likely to encounter is illegal com mand Tnat is the TRACER has detected an unlisted command at the next address it is to emulate There is no identifying message printed when an error occurs just the reset prompt Using a Label File The TRACER may be run with or without a Label file in use The fol lowing is a brief description of what happens in the program when a Label file is in use Each time the TRACER fetches an instruction it searches through the entire Label file for a start address that is the same as the address of the instruction If a match is not found the TRACER prints out the machine code relating to that in structions and goes on to the next part of the interpretation If a match is found the TRACER prints out the name of the Label in place of the machine code The TRACER then looks at the end address for that Label If the end address is zero the TRACER continues on normally If the end address is not zero the TRACER stores the end address finishes printing the line it is on and then shuts down the output The output will not be turned on again until the end address is encoun tered during no output operation Please Note The TRACER runs almost identically when the output is off as compared to when the output is on About the only difference is that the Labels are not searched for and the output subroutines are bypassed within
101. s were due Then lost one disk drive and noth ing did seemed to help so develop ment stopped and carried on with the limited space available on a single disk Luck smiled about six months ago and acquired very cheaply three Panasonic JB3031 single sided 40 track drives andit only took afew hours to interface the hardware The software was a bit tricky but a PEEK article by David Kuhn March 1984 solved the problem of slow step rate though I took it a bit further as the step rate seemed just too slow By tinkering with the values suggested finished up with a reli able rate that is about mid way be tween MPI and Siemens Incidently don t exactly understand what why or how but it does work By researching for just the informa tion that Eddie Gieske gave read ers in the December 1986 PEEK am now running the system on a dedicated 4 wire circuit at 4800 bps using line drivers and have cranked up the ink jet printer to work at the same speed The printerhas alarge line buffer so it is possible for me to initiate further action using the ter minal while the printer is still printing out the results of the previous re port My first data base only contained 60 records of 13 fields with about 100 bytes per record but sorting was a pain and got worse as the file grew until it was easier to do manually More research more ideas from Leo and PEEK a little help from one of my staff with a better grasp
102. ssed into an unused corner of the basement DOOMED he wailed I ll die of old age in this musty old basement and when get to gremlin heaven won t have any stories to tell about how I tortured those nasty humans with my black magic Everyone will know that failed as gremlin The gremlin became very depressed as he lay in that musty basement with nothing to occupy his time but the monthly meetings of the club which never held and promise of using him for anything and so only addedto his feelings of failure Then one day the gremlin was sud denly awakened as someone at long last dragged him out of the cor ner He was encouraged as the cobwebs were vacuumed away and even more so as his backplane con nectors were cleaned to new condi tion His excitement rose as he saw a new board about to be installed and reached fever pitch when he saw just what board it was MY TIME HAS COME he cried qui etly so as not to alert the victim for what he saw was that he was about to receive none other than Paul Chidley s new CxP board This is going to great he gleamed not only does the CxP use pins 13 and 14 Continued on page 17 PEEK 65 December 1987 page 7 Software Spectacular C1P Superboard Cassettes OSI Invaders Hangman Star Trek Biorhythm Zulu 9 Racer Space War Add Game Advertisement Basic Math High Noon Tiger Tank Hectic Annuity I Math Intro Cryptography Sampler C4P C8P Cassettes Stat
103. ssembly line and he felt assured of a sucess ful gremlin life as they first as sembled him onto a power supply and then into a case but as they began inserting the boards he be came a bit worried The first board theyinstalled didn t use either one of the contacts that he was bridging Well so much for the 540 board he thought But as they installed the 527 board and finally the 505 board he was painfully aware of why the QC people didn t check for him The sad truth was that he was bridging pins 13 and 14 of the backplane and none of the boards used these pins DRAT he sulked 4 may have to wait a while but someday I ll get one of these humans real good Things got pretty grim afterthat The computer company sold the C2 and him to a fellow in Texas who used it daily for five years but never once opened the case Then he was sold to aguy in Montana who worked the machine constantly but never even concidered hooking anything up to buss pins 130r 14 Another sale and he was off to eastern Washington and another owner who was not interested in using his flawed con nectors All these years of unfulfilled aspirations were beginning to erode his confidence and then when he thought that his morale could go no lower the worst of all possible things happened He was sold tothe Seattle OSI club for spare parts The computer was stripped of every thing but 540 board power supply and keyboard and he was summar illy to
104. t EZZLLZIELIUULEZIOUDZIIZQOFTQO UOQOZZOuO zOuLuJOZOL 500555 OO JUHI J 25 00100050 0050 30 20TC 0OH O S0 0 0 0 1 10 HOm U0t 0 IN IN 2 0 Or A V coo zz ul 4 2 01 HH 0 H I x x x x x x gt 2 gt Uu x x XE 2 72 gt o x r E H uoo 0 O CE un MTT uM o na c c c T c C cc c CC TTET uc 0J0N CO f H SFO HO QUO HO 00 Ul HIDOUID Q0 uucomo WHtTMOOW FTIMNHOMOHOLGA OTOL C9 69 D C QU C CO e 07 CO QJ Gr HO 00 4 GJ 4 4 WUUONOTOTOLT MU c OOGOOOGOOGOGOOOOOGOOORNSOQOOTCCOD9OOnOCOoucoWgeuococogoonugmngoooooooo cuoococoooooooaecugoogeoocoooaoooooooeooooooacuooooooeoocoaQo VO xt Os s adXeloOoquaoodgquoutoq Qo
105. t in the above If my questions are not answerable it won t matter too much as get there in the end enjoy reading PEEK enormously and usually find at least one valuable fact which given a good index at the end of the year am assured of being able to find when the need arises Keep up the good work Ray Osbom 9a Nairn Road Rotorua New Zealand Subroutine for faster MDMS sort Variable names are those used in MDMS other than those used en tirely within this routine except for SF which is the second field num ber for a two field sort 300 PRINT ING PRINT LOAD 310 FOR 1 EN DISK GET FHR CI 320 FOR J 1 TO INPUT 6 S I J NEXTJ 330 L CI 5 1 5 5 1 5 I PRINT NEXT 340 PRINT PRINT SORTING 370 KX 2 INT LOG EN 106 2 1 380 KX KX 2 FOR Q 1 TO KX T L Q KX R R Q KX FOR Q TO 1 390 IF 1 1 gt THEN L CI KX 961 1 NEXT 400 1 1 T 1 PRINT NEXT 0 PRINT IF KX gt 1 GOTO 380 410 PRINT PRINT SORT CONPLETE THE LITTLE GREMLIN THAT COULD A FAIRY TALE by Jack Noble Once upon time long ago and far away a land called Ohio a very little gremlin was born to a computer company by the name of Ohio Sci entific He was such a very little thing but as he aw
106. the amount of time and trouble it will take to become familiar with any new system as opposed to how easily you can evolve your current set up into a system that can hold its own against any micro Copyright 1986 PEEK 65 rights reserved Published monthly Editor Richard L Trethewey Surface 22 30 Subscription Rates Air US Canada amp Mexico Europe 42 40 Other Foreign 47 40 All subscriptions are for one year and are payable in advance in US dollars For back issues sub scriptions or other information write to PEEK 65 P O Box 586 Pacifica CA 94044 415 359 5708 Mention of products by trade name in editorial material or advertisements contained herein in no way constitutes endorse ment of the product or products by this magazine or the publisher page 4 Where Are They Now Two very active OSl ers have been busily making new CPU boards that use the new 65816 chip but since PEEK last mentioned them they both have new addresses Paul Chidley manufactures the CxP system which is available in two states of assembly 60 Cdn for bare and 199 Cdn for the lazy board which has the more difficult Soldering done for you Please check current exchange rates for U S prices His new address is Paul Chidley P O Box 435 Pickering Ontarlo Canada L1V 2R7 Dave Livesay makes his own CPU board with a 65816 and many external interface options Dave recently moved back to the U S and
107. the program Also note that since this program exe cutes thousands of microprocessor instructions for each line that is TRACEd it may take a while for the output to be turned on again de pending on the number of instruc lions executed during the subrou tine You may increase or decrease the number of Label files in use if you 1 change the subroutine at line 42000 in the program TBASIC 2 Create or delete new files with the same attributes size type access rights as those already on the disk and then copy an old file to the new one The new filename must have a number in it corresponding to the selection on the menu in TBASIC The maximum number of Labels allowed in any file is 255 Unfortunately with any undertaking of this size there are usually short comings i have eliminated all of the bugs could find but still do not claim that this program set is per fect The following is a list of short comings which are not necessarily bugs but could cause the user diffi culty if they were to be discovered accidentally If you should find any defects or just have suggestions for improve ments please let me know will attemptto correct any serious bugs and may incorporatesuggestions into updated versions of the system 1 When running the TRACER you will notice that the BRK bit in the condition code register is always 1 have not been able to deter mine why this is 1 believe it reall
108. try of grades with Nenu choice 4 updates PRINT all of the totals PRINT PRINT You nay proceed from one section to another without PRINT looking at all the entries between by typing a at PRINT any tine PEEK 65 December 1987 page 46 8999 GOTO 60020 REM Exit 9000 REN 9020 PRINT 9999 GOTO 60020 REN Exit 10000 10010 60000 REN 60010 REN common exit 60020 60030 IF 1 THEN RUN 60050 RUN START 2000 PRINT INPUT Press lt RETURN gt to quit or enter H for more 1 AD Editor s Note Due to publication delays and other problems some of these advertisements are rather old andthe items offered may no longer be available My apologies to both subscribers and advertisers C3B with 80MB hard disk dual floppies Hazeltine 1420 terminal CP M serial and parallel cards 651 v1 44 with manuals 500 Stark 703 524 5455 DWH For Sale OSI Equipment including CPU s hard disks and dual disk drives printers cabinets key boards and monitors Call 301 652 5424 9am to 5 30 pm EST Mon Fri M Garvis Wanted C3 systems 36 amp 74 MB hard disks terminals printers etc Contact Mr Joseph Clark 804 455 6666 For Sale Three 527 boards 56K one CA 9 parallel printer board with cable one 555 board Also five bare boards 538 555 567 570 574 in new condition Call for negotia tion Would like a 620C bus
109. want names printed Ves or No P 10 0 IF LEFT P 1 THEN 21028 REM Data fields amp variables REM N student name 20 characters REN HU student nunber 6 digits REN G C student grades 3 digits REN t which grade 0 to 30 grades REN TTL student s total grade possible grade in record 0 REN REN General input variable Hot saved REN DU Device used for output REN General counter for loops Possible score used to find X grade TTL record 0 REM DIN 6 33 PEEK 65 December 1987 43 400 REN Access file 404 DISK OPEN 6 PH 406 DISK GET 0 REM Read Record 0 amp save Possible Grade 408 INPUT 6 N HUS 410 FOR 0 TO 30 412 INPUT 6 6 C 414 NEXT 416 INPUT 6 TTL PG sTTL 418 420 PRINT DU Class N PRINTSDU 422 NU URL HUS 424 426 FOR 0 TO 30 00 G C C 427 PRINT DU PG 428 430 FOR 1 TO NU REH Read Student grades 433 PRINT 435 DISK GET 440 INPUT 6 NR NUS 442 FOR 0 TO 30 444 INPUT 6 G C 446 C 448 INPUT 6 TTL 450 PRINTSDU HU 6050810000 REM Display data record NO 452 FOR 0 00 6 NEXT C 456 PCT2INTC S 1000 TTL PG 1bE 10 10 458 PRINT DU TTL 460 485 490 500 NEXT 505 PRINT DU 510 520 DISK CLOSE 6 530 DISK HONE 9000 REM Exit routine 9010
110. y should be 0 2 am not 100 sure that the emulation codes for the BRK and RTI instructions are correct have talked to several supposed experts searched several publications and have come up with more than one answer 3 Since the only way can get at the condition code register is by means of the PHP or PLP instruc tions which use the stack some operations involving direct access of page one may not be emulated properly Consider this example 6000 LDA 7F TSX PHA PLA LDA 0100 X At the end the Accumulator obvi ously should contain the same value that it was given in the begin ning This would be the case if you were to run this program normally But since need to access the dition code register for each line to be TRACEd and must use PHP the stack location that was relin quished by the PLA instruction will be filled by PHP as well as other possible stack uses within TRACER If for some reason you wanted to recover that location later it would no longer contain the same value as was stored by PHA 4 Time dependent programs subroutines will not work during TRACEing The TRACER executes thousands of lines of its own code for each line it prints to the output devices thus throwing off the timing of the program being TRACEd During a disk I O routine the micro processor looks for a signal fromthe disk drive that the index hole on the disk has passed through a
111. y BASIC program on any disk and return it or any other BASIC program on any disk floppy or hard Most versatile disk sort yet Will run under LEVEL 1 Il or HI It should cost more but Sanders says sell it for just KYUTIL The ultimate OS DMS keyfile utility package This implementation of Sander siSORT MERGE creates loads and sorts multiple field conditionally loaded keyfiles KYUTIL will load arid sort a keyfile of over 15000 ZIP codes in under three hours Never sort another Master File Assembler Editor amp Extended Monitor Reference Manual amp 65V Primer Introduces machine language programming MF DF MF DF Introductory Manuals 5 95 each Basic Reference Manual ROM 65D and 650 22 5 C8P Users Manuals 7 95 each please specify to program Microcomputers The C 3 Series Professional Set Up amp Operations Manual C3 C C3 C d TOTAL 6 CA Residents add 6 Sales Tax C 0 D orders add 1 90 5 C2 OEM C2 D 3 QEM C3 D C3 A C3 B Bulk Rate US Postage PAID Pacifica CA Permit 92 Zip Code 94044 jns Wie Se 7 1500 ____ 30 00 2 15 00 50 00 50 00 89 00 100 00 22 8695 54 95 5 5 95 um 5 95 7 95 7 95 ip a LER 8 95

Vol 8 No 4 - Dave`s OSI repository

Contents

Download Pdf Manuals

Related Search

Related Contents