Dbg Io

{MRCSBUG 1/0 HOUTiNES} Filename: 10.TEXT 20-Rt49-84 23-Au:;!-a4 27-Aui;,i-84 10-Sep-84 23-Sep-84 18-0c:t-84 Added SUhJP f f G9 set i r! f ~ i pp i n9 code Un f i ::-::ed ss..aJGP f ~ G';i .· 1::;dded f ~ t.ish of keiJup ( L i sG > Ft~r ther f i ::{ of kei:::t~p f ~ ush i n9 .: G i m::1s t uJor·ks Added ke!JboGrd de ! Gi:J OUTPUT tests for..- abort.. of pr i n;:. t r-ig Term i t""iG j bc~sed debuggers 1J l so de; test (Ctr I C ) for Gbc~r t er f 8-Dec-84 :..J.-e.-•. -. 1:.•.•;:_}'_ .~F (SP)l· •-·u .._:t ' <SP) CC• ._:; 1296ns 12 * 108 ns 4 108 ns = 4:32ns * .ELSE } .. L (SP)_, <SP) !F ncT:rm .EQU Kbd!.);~rs after keyboard shifts some th ~ ni;l ; r~ S tdEri tr!:i #64.:D7 t i cks c:ot~n t..er..· f orc:e i mmed . REAOBUF BSH !MCHNE HERDBUF swGpSc:reeri *$60.~DO swap char Ctilda) 8ME . S F ~ ipS ~de *$C=0 .=DD BEQ . S @2 .amc #8 .• DO BACKSPACE? . . BNE.S ~;o no.: Keep go i r-u;} A6.:A5 BHS.S BEADBUF SUBQ.L #1.,Ati ANii CHAH~:; TO DELETE? NO·' i GNOHE BACKSPACE :/es.: remc::.}e c:hcu-· f r·om buffer DO_: -(SP) BSB M01...'E C:!"lPI .B BACKSPACE? •8_,DO BEADBUF k;:::epi t ~ s ! t =:1 C:~rr j ct:~e Beturr1? no, stuff into 10 buffer #' otherwise stuff a space ±£::!·f""! iUi ~· •.j._Z!...,l .t !....~::_,: UpLoop res tore post e 1...=en t s tJJ ff pos tE 5......=er1 t ~ HU #:t;2F .~DO _Set Trc1pAddre:ss (SP)+ .: $28 (SP )+} DO-D7 /RO-A~3 restore RTS 'r~ r ; wait for al~ keys to be up (kwk) TBAPTO __J~·=OLL i;je t CLB. i-J DO set up for ~:.et:JCZ:n:Je TRAP TO TST. ~-~ BME.S pend i ni~ ke;~ e1.}en ts *$48 .=DO BETUBN kei:JC:ode = :i;4f! _r:. _e!:1 ! SUOUJn test the keiJ i s the r·e turn kei.J st j !Jes; keep test i ri=~ :: ..- : r-. 01 t~pLoop THAPTO now f !ush the key up event no r-epeci ts - ch:!r; : t !J.h:.i i t... for e ._h::r-d:. 1 TRAP TO the _ELSE BSH.S ~nchNE wait for post up •KeyOwnEvt,keyEvt i_IJ(4S ~!G no, keep checking i +.. Ci keydCdlin? MULH-! *4~: SP BRA Deci ! i-i~:.ei::1 SUBQ #Ke!JUpE :.} +.. .• ke1::1Et} t upLi:•i:ip no, keep looping DO~, (Afi )+ stuff into buffer BNE.S ilh~S j t G kei:JUP? .ENDC keepit BSB.S Uploop 17 - - ..:.. BBA ~NPUT HEAD8UF A CHAH (NO ECHO) iF t·1Dt)E. L .. .-. onLiSi:Jirue=u : ~ ,-= .-,, -i ! : i :...,..: ! n.~ n z did 24/60ths sec rol BEQ . S r~1cn}E. B #02 .~ t} i FH(A 1) RDDQ ii; n- ; n'? _,~·; DDBG .EMDC BLT.S 9c:Ke!J *O.tD7 KbdT::A I ked fiAke the keyboGrd non-t::~ Jk i omem ;.}ee:tc1r .EMDC CLFi. i·i iF THRPTO _f 0LL r·iOi..JEO t·Kli..JEQ TF!RPTG #0 . ~ DO iiO .: D1 1 TST.B DO p;::-n .::: :;._•,,_·-:. ·-· Got.Ke!:4 TST.B BEQ.S Ct1P. B Got..Ke1::1 #1 .rD2 BEQ . S D2 s s nee ~ nterrt~pts off.= poi key repeG ts n1) t. okc~u:J dor-;: t ?.!J!:-4 ! t for e;. .;er-!t_ QE: t_ the ~:. ei:Jboard ei.}en t has cu··11::: th i ng hc1ppened? no e!.}en t. d i sk ilpouJer e=.}en t ~? ( Gsc: i 0) iJes .: i 9nore i) GotJ:~e!:i from CLH D2.; ke!JH it .ELSE <ki.uk) ~.}~A.=R1 BTST…