1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597 |
- TEST 000: empty
- MAIN 0
- TEST 001: OK
- MAIN 0
- OK
- TEST 002: test loc, bne
- MAIN 0
- loc 0
- loc 0
- bne *1
- OK
- loc 1
- loc 1
- bne *1
- OK
- loc -1
- loc -1
- bne *1
- OK
- loc 127
- loc 127
- bne *1
- OK
- loc -127
- loc -127
- bne *1
- OK
- loc -128
- loc -128
- bne *1
- OK
- #if WS > 1
- loc 255
- loc 255
- bne *1
- OK
- loc 256
- loc 256
- bne *1
- OK
- loc 257
- loc 257
- bne *1
- OK
- loc 32767
- loc 32767
- bne *1
- OK
- loc -32767
- loc -32767
- bne *1
- OK
- loc -32768
- loc -32768
- bne *1
- OK
- #endif /* WS > 1 */
- #if WS > 2
- loc 65535
- loc 65535
- bne *1
- OK
- loc 65536
- loc 65536
- bne *1
- OK
- loc 65537
- loc 65537
- bne *1
- OK
- loc 2147483647
- loc 2147483647
- bne *1
- OK
- loc -2147483647
- loc -2147483647
- bne *1
- OK
- loc -2147483648
- loc -2147483648
- bne *1
- OK
- #endif /* WS > 2 */
- TEST 003: test signed and unsigned loc
- MAIN 0
- #if WS == 1
- loc 128
- loc -128
- bne *1
- OK
- loc 129
- loc -127
- bne *1
- OK
- loc 255
- loc -1
- bne *1
- OK
- #endif
- #if WS == 2
- loc 32768
- loc -32768
- bne *1
- OK
- loc 32769
- loc -32767
- bne *1
- OK
- loc 65535
- loc -1
- bne *1
- OK
- #endif
- #if WS == 4
- loc 2147483648
- loc -2147483648
- bne *1
- OK
- loc 2147483649
- loc -2147483647
- bne *1
- OK
- loc 4294967295
- loc -1
- bne *1
- OK
- #endif
- TEST 004: test lol, stl, del, inl, zrl
- MAIN 8
- loc 95
- stl -4
- lol -4
- loc 95
- bne *1
- OK
- lol 0
- stl -4
- loc 125
- stl -8
- loc 125
- lol -8
- bne *1
- OK
- lol 0
- lol -4
- bne *1
- OK
- zrl -4
- lol -4
- loc 0
- bne *1
- OK
- inl -4
- lol -4
- loc 1
- bne *1
- loc -1
- stl -4
- inl -4
- lol -4
- loc 0
- bne *1
- OK
- del -4
- lol -4
- loc -1
- bne *1
- loc 1
- stl -4
- del -4
- lol -4
- loc 0
- bne *1
- OK
- TEST 005: test loe, ste, zre, ine, dee
- HOL 8
- MAIN 0
- loc 95
- ste WS
- loe WS
- loc 95
- bne *1
- OK
- loc 125
- ste 0
- loc 125
- loe 0
- bne *1
- OK
- loc 95
- ste 0
- loe WS
- loe 0
- bne *1
- OK
- zre WS
- loe WS
- loc 0
- bne *1
- OK
- ine WS
- loe WS
- loc 1
- bne *1
- loc -1
- ste WS
- ine WS
- loe WS
- loc 0
- bne *1
- OK
- dee WS
- loe WS
- loc -1
- bne *1
- loc 1
- ste WS
- dee WS
- loe WS
- loc 0
- bne *1
- OK
- TEST 006: test named global data: con, rom, bss
- a006
- bss 4,0,0
- b006
- con 35
- c006
- bss 4,0,1
- d006
- bss 4,35,1
- e006
- rom 57
- MAIN 0
- loc 0
- loe c006
- bne *1
- OK
- loe b006
- ste a006
- loe d006
- loe a006
- bne *1
- OK
- loe e006
- ste b006
- loc 57
- loe b006
- bne *1
- OK
- TEST 007: test lal, lil
- MAIN 12
- lal -8
- #if WS == PS
- stl -4
- #endif
- #if WS*2 == PS
- sdl -4
- #endif
- loc 117
- stl -8
- lil -4
- loc 117
- bne *1
- OK
- TEST 008: test sil
- MAIN 12
- loc 29
- stl -8
- lal -8
- #if WS == PS
- stl -4
- #endif
- #if WS*2 == PS
- sdl -4
- #endif
- loc 110
- sil -4
- lol -8
- loc 110
- bne *1
- OK
- TEST 009: test lof
- MAIN 20
- lal -16
- loc 120
- stl -12
- lof 4
- loc 120
- bne *1
- OK
- TEST 010: test stf
- MAIN 20
- loc 180
- lal -16
- stf 8
- lol -8
- loc 180
- bne *1
- OK
- TEST 011: test loi WS
- MAIN 20
- loc 140
- stl -12
- lal -12
- loi WS
- loc 140
- bne *1
- OK
- TEST 012: test loi 1, sti 1
- MAIN 20
- #if WS > 1
- loc 519
- lal -10
- sti 1
- lal -10
- loi 1
- loc 7
- bne *1
- loc 129
- lal -10
- sti 1
- lal -10
- loi 1
- loc 9
- ble *1
- OK
- #endif
- TEST 013: test loi 2*WS
- MAIN 20
- loc 77
- stl -12
- loc 119
- stl -12+WS
- lal -12
- loi 2*WS
- loc 77
- bne *1
- loc 119
- bne *1
- OK
- TEST 014: test loi 4*WS
- MAIN 20
- loc 150
- stl -16+(3*WS)
- loc 152
- stl -16+(2*WS)
- loc 154
- stl -16+WS
- loc 156
- stl -16
- lal -16
- loi 4*WS
- loc 156
- bne *1
- loc 154
- bne *1
- loc 152
- bne *1
- loc 150
- bne *1
- OK
- TEST 015: test los WS with 1
- MAIN 20
- loc 7
- lal -10
- sti 1
- lal -10
- loc 1
- los WS
- loc 7
- bne *1
- OK
- TEST 016: test los WS with 2
- MAIN 20
- #if WS == 1
- loc 77
- loc 78
- stl -12
- stl -11
- lal -12
- loc 2
- los WS
- loc 78
- bne *1
- loc 77
- bne *1
- #endif
- #if WS > 1
- loc 777
- lal -12
- sti 2
- lal -12
- loc 2
- los WS
- loc 777
- bne *1
- #endif
- OK
- TEST 017: test los WS with 4
- MAIN 20
- #if WS == 1
- loc 14
- loc 15
- loc 16
- loc 17
- lal -12
- sti 4
- lal -12
- loc 4
- los WS
- loc 17
- bne *1
- loc 16
- bne *1
- loc 15
- bne *1
- loc 14
- bne *1
- #endif
- #if WS == 2
- loc 3001
- loc 3002
- stl -12
- stl -10
- lal -12
- loc 4
- los WS
- loc 3002
- bne *1
- loc 3001
- bne *1
- #endif
- #if WS > 2
- loc 123001
- stl -12
- lal -12
- loc 4
- los WS
- loc 123001
- bne *1
- #endif
- OK
- TEST 018: test ldl
- MAIN 20
- loc 77
- stl -12
- loc 123
- stl -12+WS
- ldl -12
- loc 77
- bne *1
- loc 123
- bne *1
- OK
- TEST 019: test lde
- HOL 20
- MAIN 0
- loc 70
- ste 12
- loc 71
- ste 12+WS
- lde 12
- loc 70
- bne *1
- loc 71
- bne *1
- OK
- TEST 020: test ldf
- MAIN 20
- loc 123
- loc 77
- sdl -8
- lal -13
- ldf 5
- loc 77
- bne *1
- loc 123
- bne *1
- OK
- TEST 021: test ldf
- MAIN 20
- loc 75
- stl -12
- loc 77
- stl -12+WS
- lal -20
- ldf 8
- loc 75
- bne *1
- loc 77
- bne *1
- OK
- TEST 022: test sdl
- MAIN 20
- loc 30
- loc 31
- sdl -12
- lol -12+WS
- loc 30
- bne *1
- lol -12
- loc 31
- bne *1
- OK
- TEST 023: test sde
- HOL 24
- MAIN 0
- loc 40
- loc 41
- sde 16
- loe 16
- loc 41
- bne *1
- loe 16+WS
- loc 40
- bne *1
- OK
- TEST 024: test sdf
- HOL 24
- MAIN 0
- loc 51
- loc 50
- lae 6
- sdf 10
- loe 16
- loc 50
- bne *1
- loc 51
- loe 16+WS
- bne *1
- OK
- TEST 025: test sti 1
- MAIN 20
- loc 4136
- lal -11
- sti 1
- loc 1034
- lal -10
- sti 1
- lal -10
- loi 1
- loc 10
- bne *1
- lal -11
- loi 1
- loc 40
- bne *1
- OK
- TEST 026: test sti 1 and lol
- MAIN 20
- loc 257
- stl -12+WS
- loc 514
- stl -12-WS
- loc 50
- lal -12
- sti 1
- #if WS > 1
- loc -50
- lal -11
- sti 1
- #endif
- #if WS > 2
- loc 49
- lal -10
- sti 1
- loc -49
- lal -9
- sti 1
- #endif
- loc 257
- lol -12+WS
- bne *1
- loc 514
- lol -12-WS
- bne *1
- OK
- TEST 027: test sti 2
- MAIN 20
- #if WS == 1
- ldc 90
- #else
- loc 90
- #endif
- lal -12
- sti 2
- #if WS != 2
- lal -12
- loi 2
- #else
- lol -12
- #endif
- #if WS == 1
- ldc 90
- #else
- loc 90
- #endif
- bne *1
- OK
- TEST 028: test sti 4
- MAIN 20
- #if WS == 1
- loc 100
- loc 101
- #endif
- #if WS <= 2
- loc 102
- #endif
- loc 103
- lal -16
- sti 4
- lol -16
- loc 103
- bne *1
- OK
- TEST 029: test sts WS with 1
- MAIN 20
- loc 57
- lal -13
- sti 1
- loc 123
- lal -11
- sti 1
- loc 20
- lal -12
- loc 1
- sts WS
- lal -12
- loi 1
- loc 20
- bne *1
- lal -11
- loi 1
- loc 123
- bne *1
- lal -13
- loi 1
- loc 57
- bne *1
- OK
- TEST 030: test sts WS with WS
- MAIN 20
- loc 210
- lal -12
- loc WS
- sts WS
- lol -12
- loc 210
- bne *1
- OK
- TEST 031: test sts WS with 4
- MAIN 20
- #if WS == 1
- loc 100
- loc 101
- #endif
- #if WS <= 2
- loc 102
- #endif
- loc 103
- lal -16
- loc 4
- sts WS
- lol -16
- loc 103
- bne *1
- OK
- TEST 032: test adi WS
- MAIN 0
- loc 1
- loc 1
- adi WS
- loc 2
- bne *1
- OK
- loc 5
- loc -6
- adi WS
- loc -1
- bne *1
- OK
- #if WS >= 2
- loc -1007
- loc +999
- adi WS
- loc -8
- bne *1
- OK
- loc -1300
- loc +1405
- adi WS
- loc 105
- bne *1
- OK
- loc -30000
- loc -20
- adi WS
- loc -30020
- bne *1
- OK
- #endif
- #if WS >= 4
- loc -100007
- loc +99999
- adi WS
- loc -8
- bne *1
- OK
- loc -1300
- loc +140567
- adi WS
- loc 139267
- bne *1
- OK
- loc -30000000
- loc -20
- adi WS
- loc -30000020
- bne *1
- OK
- #endif
- TEST 033: test sbi WS
- MAIN 0
- loc 1
- loc 1
- sbi WS
- loc 0
- bne *1
- OK
- loc 5
- loc -6
- sbi WS
- loc +11
- bne *1
- OK
- #if WS >= 2
- loc -1007
- loc +999
- sbi WS
- loc -2006
- bne *1
- OK
- loc -1300
- loc +1405
- sbi WS
- loc -2705
- bne *1
- OK
- loc -30000
- loc -20
- sbi WS
- loc -29980
- bne *1
- OK
- #endif
- #if WS >= 4
- loc -100007
- loc +99999
- sbi WS
- loc -200006
- bne *1
- OK
- loc -1300
- loc +140567
- sbi WS
- loc -141867
- bne *1
- OK
- loc -30000000
- loc -20
- sbi WS
- loc -29999980
- bne *1
- OK
- #endif
- TEST 034: test mli WS
- MAIN 0
- loc 5
- loc 9
- mli WS
- loc 45
- bne *1
- OK
- loc 0
- loc 10
- mli WS
- loc 0
- bne *1
- OK
- #if WS > 1
- loc -99
- loc 7
- mli WS
- loc -693
- bne *1
- OK
- loc -100
- loc -90
- mli WS
- loc 9000
- bne *1
- OK
- #endif
- #if WS > 2
- loc 123456
- loc 200
- mli WS
- loc 24691200
- bne *1
- OK
- #endif
- TEST 035: test dvi WS
- MAIN 0
- loc 15
- loc 5
- dvi WS
- loc 3
- bne *1
- OK
- loc 100
- loc -7
- dvi WS
- loc -14
- bne *1
- OK
- loc -100
- loc 7
- dvi WS
- loc -14
- bne *1
- OK
- #if WS >= 2
- loc -1000
- loc -201
- dvi WS
- loc 4
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 1234567
- loc -100
- dvi WS
- loc -12345
- bne *1
- OK
- #endif
- TEST 036: test rmi WS
- MAIN 0
- loc 100
- loc 7
- rmi WS
- loc 2
- bne *1
- OK
- loc -100
- loc 7
- rmi WS
- loc -2
- bne *1
- OK
- loc 100
- loc -7
- rmi WS
- loc 2
- bne *1
- OK
- loc -100
- loc -7
- rmi WS
- loc -2
- bne *1
- OK
- #if WS >= 2
- loc -1000
- loc -201
- rmi WS
- loc -196
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 1234567
- loc -100
- rmi WS
- loc 67
- bne *1
- OK
- #endif
- TEST 037: test ngi WS
- MAIN 0
- loc 100
- ngi WS
- loc -100
- bne *1
- OK
- loc -100
- ngi WS
- loc 100
- bne *1
- OK
- TEST 038: test sli,slu WS
- MAIN 0
- loc 5
- loc 3
- sli WS
- loc 40
- bne *1
- OK
- loc -2
- loc 4
- sli WS
- loc -32
- bne *1
- OK
- loc 5
- loc 3
- slu WS
- loc 40
- bne *1
- OK
- loc -2
- loc 4
- slu WS
- loc -32
- bne *1
- OK
- TEST 039: test sri,sru WS
- MAIN 0
- loc 64
- loc 5
- sri WS
- loc 2
- bne *1
- OK
- loc -3
- loc 2
- sri WS
- loc -1
- bne *1
- OK
- loc -16
- loc 3
- sri WS
- loc -2
- bne *1
- OK
- loc 64
- loc 5
- sru WS
- loc 2
- bne *1
- OK
- loc -3
- loc 2
- sru WS
- #if WS == 1
- loc 63
- #endif
- #if WS == 2
- loc 16383
- #endif
- #if WS == 4
- loc 1073741823
- #endif
- bne *1
- OK
- TEST 040: test rol WS
- MAIN 0
- loc 1
- loc 3
- rol WS
- loc 8
- bne *1
- OK
- #if WS > 1
- loc 16384
- loc WS * 8 - 1
- rol WS
- loc 8192
- bne *1
- OK
- loc -2
- loc WS * 8 - 1
- rol WS
- #if WS == 2
- loc 32767
- #endif
- #if WS == 4
- loc 2147483647
- #endif
- bne *1
- OK
- loc -28671
- loc 0
- rol WS
- loc -28671
- bne *1
- OK
- #endif
- TEST 041: test ror WS
- MAIN 0
- loc 4
- loc 5
- ror WS
- #if WS == 1
- loc 32
- #endif
- #if WS == 2
- loc 8192
- #endif
- #if WS == 4
- loc 536870912
- #endif
- bne *1
- OK
- #if WS == 2
- loc 32767
- loc 15
- ror WS
- loc -2
- bne *1
- OK
- #endif
- loc -28
- loc 0
- ror WS
- loc -28
- bne *1
- OK
- TEST 042: test inc
- MAIN 0
- loc 20
- inc
- loc 21
- bne *1
- OK
- loc -50
- inc
- loc -49
- bne *1
- OK
- TEST 043: test dec
- MAIN 0
- loc 66
- dec
- loc 65
- bne *1
- OK
- loc -44
- dec
- loc -45
- bne *1
- OK
- TEST 044: test adp
- MAIN 20
- lal -10
- adp -2
- lal -12
- cmp
- zne *1
- OK
- loc 519
- lal -11
- sti 1
- lal -12
- adp 1
- loi 1
- loc 7
- bne *1
- OK
- TEST 045: test inn WS
- MAIN 0
- loc 8
- loc 3
- inn WS
- loc 1
- bne *1
- OK
- loc 8
- loc 4
- inn WS
- loc 0
- bne *1
- OK
- loc 2
- loc -5
- inn WS
- loc 0
- bne *1
- OK
- loc -5
- loc 3
- inn WS
- loc 1
- bne *1
- OK
- TEST 046: test inn ?
- MAIN 0
- loc 8
- loc 3
- loc WS
- inn ?
- loc 1
- bne *1
- OK
- loc 8
- loc 4
- loc WS
- inn ?
- loc 0
- bne *1
- OK
- loc 2
- loc -5
- loc WS
- inn ?
- loc 0
- bne *1
- OK
- loc -5
- loc 3
- loc WS
- inn ?
- loc 1
- bne *1
- OK
- TEST 047: test set
- MAIN 0
- loc 3
- set WS
- loc 8
- bne *1
- OK
- loc 6
- set 2*WS
- loc 64
- bne *1
- loc 0
- bne *1
- OK
- loc 0
- set 4*WS
- loc 1
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- TEST 048: test set ?
- MAIN 0
- loc 3
- loc WS
- set ?
- loc 8
- bne *1
- OK
- loc 6
- loc 2*WS
- set ?
- loc 64
- bne *1
- loc 0
- bne *1
- OK
- loc 0
- loc 4*WS
- set ?
- loc 1
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- TEST 049: test aar
- a049
- rom 5,2,4
- b049
- con 5,2,1
- MAIN 20
- lal -12
- loc 5
- lae a049
- aar WS
- lal -12
- cmp
- zne *1
- OK
- lal -11
- loc 7
- lae b049
- aar WS
- lal -9
- cmp
- zne *1
- OK
- TEST 050: test aar ?
- a050
- rom 5,2,4
- b050
- con 5,2,1
- MAIN 20
- lal -12
- loc 5
- lae a050
- loc WS
- aar ?
- lal -12
- cmp
- zne *1
- OK
- lal -11
- loc 7
- lae b050
- loc WS
- aar ?
- lal -9
- cmp
- zne *1
- OK
- TEST 051: test lar
- a051
- rom 5,2,2*WS
- b051
- con 5,2,1
- MAIN 20
- loc 40
- loc 41
- sdl -16+(2*WS)
- lal -16
- loc 6
- lae a051
- lar WS
- loc 41
- bne *1
- loc 40
- bne *1
- OK
- loc 42
- lal -13
- sti 1
- lal -15
- loc 7
- lae b051
- lar WS
- lal -13
- loi 1
- bne *1
- OK
- TEST 052: test lar ?
- a052
- rom 5,2,2*WS
- b052
- con 5,2,1
- MAIN 20
- loc 40
- loc 41
- sdl -16+(2*WS)
- lal -16
- loc 6
- lae a052
- loc WS
- lar ?
- loc 41
- bne *1
- loc 40
- bne *1
- OK
- loc 42
- lal -13
- sti 1
- lal -15
- loc 7
- lae b052
- loc WS
- lar ?
- lal -13
- loi 1
- bne *1
- OK
- TEST 053: test sar
- a053
- rom 5,2,3*WS
- b053
- con 5,2,1
- MAIN 28 : assert WS <= 8
- loc 39
- loc 40
- loc 41
- lal -28
- loc 6
- lae a053
- sar WS
- lal -28+(3*WS)
- loi 3*WS
- loc 41
- bne *1
- loc 40
- bne *1
- loc 39
- bne *1
- OK
- loc -2
- lal -11
- loc 7
- lae b053
- sar WS
- lal -9
- loi 1
- loc 254
- bne *1
- OK
- TEST 054: test sar ?
- a054
- rom 5,2,3*WS
- b054
- con 5,2,1
- MAIN 28
- loc 39
- loc 40
- loc 41
- lal -28
- loc 6
- lae a054
- loc WS
- sar ?
- lal -28+(3*WS)
- loi 3*WS
- loc 41
- bne *1
- loc 40
- bne *1
- loc 39
- bne *1
- OK
- loc -2
- lal -11
- loc 7
- lae b054
- loc WS
- sar ?
- lal -9
- loi 1
- loc 254
- bne *1
- OK
- TEST 055: test tlt
- MAIN 0
- loc 1
- tlt
- loc 0
- bne *1
- OK
- loc 0
- tlt
- loc 0
- bne *1
- OK
- loc -3
- tlt
- loc 1
- bne *1
- OK
- TEST 056: test tle
- MAIN 0
- loc 8
- tle
- loc 0
- bne *1
- OK
- loc 0
- tle
- loc 1
- bne *1
- OK
- loc -19
- tle
- loc 1
- bne *1
- OK
- TEST 057: test teq
- MAIN 0
- loc 17
- teq
- loc 0
- bne *1
- OK
- loc 0
- teq
- loc 1
- bne *1
- OK
- loc -100
- teq
- loc 0
- bne *1
- OK
- TEST 058: test tne
- MAIN 0
- loc 76
- tne
- loc 1
- bne *1
- OK
- loc 0
- tne
- loc 0
- bne *1
- OK
- loc -99
- tne
- loc 1
- bne *1
- OK
- TEST 059: test tge
- MAIN 0
- loc 14
- tge
- loc 1
- bne *1
- OK
- loc 0
- tge
- loc 1
- bne *1
- OK
- loc -76
- tge
- loc 0
- bne *1
- OK
- TEST 060: test tgt
- MAIN 0
- loc 20
- tgt
- loc 1
- bne *1
- OK
- loc 0
- tgt
- loc 0
- bne *1
- OK
- loc -66
- tgt
- loc 0
- bne *1
- OK
- TEST 061: test cmi WS
- MAIN 0
- loc 10
- loc 20
- cmi WS
- tlt
- loc 1
- bne *1
- OK
- loc 20
- loc 10
- cmi WS
- tgt
- loc 1
- bne *1
- OK
- loc 44
- loc 44
- cmi WS
- loc 0
- bne *1
- OK
- TEST 062: test cmp, adp, cmu
- MAIN 20
- lal -5
- lal -2
- cmp
- tlt
- loc 1
- bne *1
- OK
- lal -2
- lal -5
- cmp
- tle
- loc 0
- bne *1
- OK
- lal -2
- lal -2
- cmp
- loc 0
- bne *1
- OK
- lal -5
- adp 3
- lal -2
- cmp
- loc 0
- bne *1
- OK
- lal -5
- adp 4
- lal -2
- cmp
- tge
- loc 1
- bne *1
- OK
- loc 6
- loc 6
- cmu WS
- loc 0
- bne *1
- OK
- loc 17
- loc 27
- cmu WS
- tlt
- loc 1
- bne *1
- OK
- #ifdef W2S
- loc 17
- loc 6
- loc 27
- loc 6
- cmu W2S
- tlt
- loc 1
- bne *1
- OK
- loc 6
- loc 27
- loc 6
- loc 17
- cmu W2S
- tgt
- loc 1
- bne *1
- OK
- #endif
- TEST 063: test cms, zer
- MAIN 0
- loc 6
- loc -10
- loc -125
- loc 30
- loc 6
- loc -10
- loc -125
- loc 30
- loc 4*WS
- cms
- teq
- loc 1
- bne *1
- OK
- loc 6
- loc -10
- loc -125
- loc 30
- loc 6
- loc -10
- loc -125
- loc 30
- cms 4*WS
- teq
- loc 1
- bne *1
- OK
- loc 6
- loc -10
- loc -125
- loc 30
- loc 6
- loc -10
- loc -126
- loc 30
- loc 4*WS
- cms
- tne
- loc 1
- bne *1
- OK
- loc 6
- loc -10
- loc -125
- loc 30
- loc 6
- loc -10
- loc -126
- loc 30
- cms 4*WS
- tne
- loc 1
- bne *1
- OK
- loc 0
- loc 0
- loc 0
- loc 0
- zer 4*WS
- cms 4*WS
- teq
- loc 1
- bne *1
- OK
- TEST 064: test blt
- MAIN 0
- loc 3
- loc 4
- blt *1064
- bra *1
- 1064
- loc 4
- loc 3
- blt *1
- loc -5
- loc -4
- blt *2064
- bra *1
- 2064
- loc -4
- loc -5
- blt *1
- loc 4
- loc 4
- blt *1
- OK
- TEST 065: test ble
- MAIN 0
- loc 3
- loc 4
- ble *1065
- bra *1
- 1065
- loc 4
- loc 3
- ble *1
- loc -99
- loc -5
- ble *2065
- bra *1
- 2065
- loc -99
- loc -99
- ble *3065
- bra *1
- 3065
- loc 100
- loc -100
- ble *1
- OK
- TEST 066: test beq
- MAIN 0
- loc 3
- loc 3
- beq *1066
- bra *1
- 1066
- loc 3
- loc 4
- beq *1
- loc -18
- loc -17
- beq *1
- loc 0
- loc 0
- beq *2066
- bra *1
- 2066
- OK
- TEST 067: test bne
- MAIN 0
- loc 50
- loc 50
- bne *1
- loc 50
- loc 51
- bne *1067
- bra *1
- 1067
- loc 0
- loc 0
- bne *1
- OK
- TEST 068: test bge
- MAIN 0
- loc 100
- loc 101
- bge *1
- loc 101
- loc 100
- bge *1068
- bra *1
- 1068
- loc -100
- loc -99
- bge *1
- loc -100
- loc 100
- bge *1
- loc 0
- loc 0
- bge *2068
- bra *1
- 2068
- loc 50
- loc 50
- bge *3068
- bra *1
- 3068
- OK
- TEST 069: test bgt
- MAIN 0
- loc 3
- loc 10
- bgt *1
- loc 10
- loc 3
- bgt *1069
- bra *1
- 1069
- loc -100
- loc -50
- bgt *1
- loc -100
- loc 50
- bgt *1
- loc 5
- loc 5
- bgt *1
- OK
- TEST 070: test zlt
- MAIN 0
- loc 4
- zlt *1
- loc -4
- zlt *1070
- bra *1
- 1070
- loc 0
- zlt *1
- OK
- TEST 071: test zle
- MAIN 0
- loc 4
- zle *1
- loc -4
- zlt *1071
- bra *1
- 1071
- loc 0
- zle *2071
- bra *1
- 2071
- OK
- TEST 072: test zeq
- MAIN 0
- loc 4
- zeq *1
- loc -4
- zeq *1
- loc 0
- zeq *1072
- bra *1
- 1072
- OK
- TEST 073: test zne
- MAIN 0
- loc 4
- zne *1073
- bra *1
- 1073
- loc -4
- zne *2073
- bra *1
- 2073
- loc 0
- zne *1
- OK
- TEST 074: test zge
- MAIN 0
- loc 4
- zge *1074
- bra *1
- 1074
- loc -4
- zge *1
- loc 0
- zge *2074
- bra *1
- 2074
- OK
- TEST 075: test zgt
- MAIN 0
- loc 4
- zgt *1075
- bra *1
- 1075
- loc -4
- zgt *1
- loc 0
- zgt *1
- OK
- TEST 076: test asp
- MAIN 12
- loc 104
- loc 4
- loc 5
- loc 6
- asp 2*WS
- stl -4
- loc 104
- bne *1
- OK
- TEST 077: test cal
- HOL 8
- MAIN 0
- cal $p077
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p077,0
- loc 34
- ste 4
- ret 0
- end
- TEST 078: test cai
- HOL 8
- MAIN 0
- lpi $p078
- cai
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p078,0
- loc 34
- ste 4
- ret 0
- end
- TEST 079: test ads WS
- MAIN 20
- lal -6
- loc -2
- ads WS
- lal -8
- cmp
- zne *1
- OK
- lal -6
- loc 2
- ads WS
- lal -4
- cmp
- zne *1
- OK
- ; test adp
- lal -5
- adp 1
- lal -4
- cmp
- zne *1
- OK
- TEST 080: test sbs
- HOL 12
- MAIN 20
- lal -4
- lal -6
- sbs WS
- loc 2
- bne *1
- OK
- lae 7
- lae 10
- sbs WS
- loc -3
- bne *1
- OK
- TEST 081: test lor
- #define LB 0
- #define SP 1
- MAIN 20
- lor LB
- lxl 0
- cmp
- zne *1
- OK
- loc 31
- lor SP
- loi WS
- bne *1
- OK
- lor SP
- lal -12
- sti PS
- asp -4
- lor SP
- lal -8
- sti PS
- asp 4
- lal -12
- loi PS
- lal -8
- loi PS
- sbs WS
- loc 4
- bne *1
- OK
- TEST 082: test ass WS
- #define SP 1
- MAIN 20
- loc 104
- loc 50
- loc 60
- loc 2*WS
- ass WS
- loc 104
- bne *1
- OK
- lor SP
- lal -8
- sti PS
- loc -24
- ass WS
- lor SP
- lal -4
- sti PS
- lal -8
- loi PS
- lal -4
- loi PS
- sbs WS
- loc 24
- bne *1
- loc 24
- ass WS
- OK
- lor SP
- lal -8
- loi PS
- cmp
- zne *1
- OK
- TEST 083: test blm
- HOL 28
- MAIN 32
- loc 61
- ste 12
- loc 0
- stl -4
- lae 12
- lal -4
- blm WS
- lol -4
- loc 61
- bne *1
- OK
- loc 44
- loc 43
- loc 42
- loc 41
- lal -20
- sti 4*WS
- lal -20
- lae 8
- blm 4*WS
- loe 8
- loc 41
- bne *1
- loe 8+WS
- loc 42
- bne *1
- loe 8+(2*WS)
- loc 43
- bne *1
- loe 8+(3*WS)
- loc 44
- bne *1
- OK
- TEST 084: test bls WS
- HOL 28
- MAIN 32
- loc 20
- stl -8
- lal -8
- lae 20
- loc WS
- bls WS
- loe 20
- loc 20
- bne *1
- OK
- loc 55
- stl -8+WS
- loc 56
- stl -8
- lal -8
- lae 20
- loc 2*WS
- bls WS
- loe 20
- loc 56
- bne *1
- loe 20+WS
- loc 55
- bne *1
- OK
- TEST 085: test dup
- MAIN 0
- loc 199
- dup WS
- bne *1
- OK
- loc 130
- loc 150
- dup 2*WS
- loc 150
- bne *1
- loc 130
- bne *1
- loc 150
- bne *1
- loc 130
- bne *1
- OK
- ; test dus WS
- loc 400
- loc 399
- loc 2*WS
- dus WS
- loc 399
- bne *1
- loc 400
- bne *1
- loc 399
- bne *1
- loc 400
- bne *1
- OK
- TEST 087: test rck
- a087
- con 10,14
- MAIN 12
- loc 10
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- stl -4
- OK
- TEST 088: test csa
- MAIN 20
- a088
- con *1088,4,2,*3088,*2088,*4088
- zrl -8
- loc 4
- 5088
- inc
- dup WS
- lae a088
- csa WS
- bra *1
- 3088
- bra *1
- 2088
- lol -8
- loc 3
- adi WS
- stl -8
- bra *5088
- 1088
- inl -8
- bra *6088
- 4088
- lol -8
- loc 2
- adi WS
- stl -8
- bra *5088
- 6088
- loc 7
- bne *1
- OK
- lol -8
- loc 6
- bne *1
- OK
- TEST 089: test csb
- MAIN 20
- b089
- rom *1089,3,-1,*3089,0,*2089,1,*4089
- loc -1
- zrl -12
- 5089
- inc
- dup WS
- lae b089
- csb WS
- bra *1
- 3089
- bra *1
- 2089
- lol -12
- loc 3
- adi WS
- stl -12
- bra *5089
- 1089
- inl -12
- bra *6089
- 4089
- lol -12
- loc 2
- adi WS
- stl -12
- bra *5089
- 6089
- loc 2
- bne *1
- OK
- lol -12
- loc 6
- bne *1
- OK
- TEST 090: now test loi again, because it is so tricky
- MAIN 20
- loc 256
- lal -3
- sti 1
- loc 1
- lal -4
- sti 1
- loc 517
- lal -5
- sti 1
- loc 2
- lal -6
- sti 1
- loc 1030
- lal -8
- sti 2
- loc 4
- lal -9
- sti 1
- lal -3
- loi 1
- loc 0
- bne *1
- OK
- lal -3
- adp -1
- loi 1
- loc 1
- bne *1
- OK
- lal -3
- adp -2
- loi 1
- loc 5
- bne *1
- OK
- lal -3
- adp -3
- loi 1
- loc 2
- bne *1
- OK
- lal -4
- adp -4
- loi 2
- loc 1030
- bne *1
- OK
- lal -6
- adp -3
- loi 1
- loc 4
- bne *1
- OK
- TEST 091: now test sti 1 again
- MAIN 12
- loc 3
- loc 2
- loc 1
- loc 7
- loc 8
- loc 10
- lal -4
- sti 1
- lal -4
- adp -1
- sti 1
- lal -4
- adp -2
- sti 1
- lal -4
- adp -3
- sti 1
- lal -4
- adp -4
- sti 1
- lal -4
- adp -5
- sti 1
- lal -4
- loi 1
- loc 10
- bne *1
- OK
- lal -6
- loi 1
- loc 7
- bne *1
- OK
- lal -8
- loi 1
- loc 2
- bne *1
- OK
- TEST 092: test ldc and cii
- MAIN 0
- #ifdef W2S
- ldc 0
- bne *1
- OK
- ldc 1
- loc 1
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- ldc -1
- loc -1
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- loc -1
- ldc -1
- loc W2S
- loc WS
- cii
- cmi WS
- zne *1
- OK
- #if WS == 1
- ldc -127
- loc -127
- #endif
- #if WS == 2
- ldc -32767
- loc -32767
- #endif
- #if WS == 4
- ldc -2147483647
- loc -2147483647
- #endif
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- ldc -1
- loc -1
- bne *1
- OK
- loc -1
- bne *1
- OK
- ldc 1
- zeq *1092
- ; low order part on top of stack
- loc 0
- bne *1
- OK
- bra *2092
- ; high order part on top of stack
- 1092
- loc 1
- bne *1
- OK
- 2092
- #endif
- TEST 093: test cii
- MAIN 0
- loc 123
- dup WS
- loc WS
- dup WS
- cii
- bne *1
- OK
- #ifdef W2S
- loc 0
- loc WS
- loc W2S
- cii
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- ; dynamically determine format of doubles
- loc 1
- loc WS
- loc W2S
- cii
- zeq *1093
- ; low order part on top of stack
- loc 0
- bne *1
- OK
- loc -3
- loc WS
- loc W2S
- cii
- loc -3
- bne *1
- loc -1
- bne *1
- OK
- bra *2093
- ; high order part on top of stack
- 1093
- loc 1
- bne *1
- OK
- loc -3
- loc WS
- loc W2S
- cii
- loc -1
- bne *1
- loc -3
- bne *1
- OK
- 2093
- #endif
- TEST 094: test adi W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- adi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc 5
- ldc -6
- adi W2S
- ldc -1
- cmi W2S
- zne *1
- OK
- ldc -1007
- ldc +999
- adi W2S
- ldc -8
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +1405
- adi W2S
- ldc 105
- cmi W2S
- zne *1
- OK
- ldc -30000
- ldc -20
- adi W2S
- ldc -30020
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc -100007
- ldc +99999
- adi W2S
- ldc -8
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +140567
- adi W2S
- ldc 139267
- cmi W2S
- zne *1
- OK
- ldc -30000000
- ldc -20
- adi W2S
- ldc -30000020
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 095: test sbi W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- sbi W2S
- ldc 0
- cmi W2S
- zne *1
- OK
- ldc 5
- ldc -6
- sbi W2S
- ldc +11
- cmi W2S
- zne *1
- OK
- ldc -1007
- ldc +999
- sbi W2S
- ldc -2006
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +1405
- sbi W2S
- ldc -2705
- cmi W2S
- zne *1
- OK
- ldc -30000
- ldc -20
- sbi W2S
- ldc -29980
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc -100007
- ldc +99999
- sbi W2S
- ldc -200006
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +140567
- sbi W2S
- ldc -141867
- cmi W2S
- zne *1
- OK
- ldc -30000000
- ldc -20
- sbi W2S
- ldc -29999980
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 096: test mli W2S
- MAIN 0
- #ifdef W2S
- ldc 5
- ldc 9
- mli W2S
- ldc 45
- cmi W2S
- zne *1
- OK
- ldc 0
- ldc 10
- mli W2S
- ldc 0
- cmi W2S
- zne *1
- OK
- ldc -99
- ldc 7
- mli W2S
- ldc -693
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc -90
- mli W2S
- ldc 9000
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc 123456
- ldc 200
- mli W2S
- ldc 24691200
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 097: test dvi W2S
- MAIN 0
- #ifdef W2S
- ldc 15
- ldc 5
- dvi W2S
- ldc 3
- cmi W2S
- zne *1
- OK
- ldc 100
- ldc -7
- dvi W2S
- ldc -14
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc 7
- dvi W2S
- ldc -14
- cmi W2S
- zne *1
- OK
- ldc -1000
- ldc -201
- dvi W2S
- ldc 4
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc 1234567
- ldc -100
- dvi W2S
- ldc -12345
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 098: test rmi W2S
- MAIN 0
- #ifdef W2S
- ldc 100
- ldc 7
- rmi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc 7
- rmi W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc 100
- ldc -7
- rmi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc -7
- rmi W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc -1000
- ldc -201
- rmi W2S
- ldc -196
- cmi W2S
- zne *1
- OK
- #if WS >= 4
- ldc 1234567
- ldc -100
- rmi W2S
- ldc 67
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 099: test and
- MAIN 0
- loc 68
- loc 65
- and WS
- loc 64
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- and 2*WS
- loc 32
- bne *1
- loc 1
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- and 4*WS
- loc -128
- bne *1
- loc 4
- bne *1
- loc 32
- bne *1
- loc 1
- bne *1
- OK
- TEST 100: test ior
- MAIN 0
- loc 68
- loc 65
- ior WS
- loc 69
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- ior 2*WS
- loc 38
- bne *1
- loc 19
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- ior 4*WS
- loc -119
- bne *1
- loc 76
- bne *1
- loc 39
- bne *1
- loc 17
- bne *1
- OK
- TEST 101: test xor
- MAIN 0
- loc 68
- loc 65
- xor WS
- loc 5
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- xor 2*WS
- loc 6
- bne *1
- loc 18
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- xor 4*WS
- loc 9
- bne *1
- loc 72
- bne *1
- loc 7
- bne *1
- loc 16
- bne *1
- OK
- TEST 102: test com
- MAIN 0
- loc 68
- com WS
- loc -69
- bne *1
- OK
- loc 17
- loc 34
- com 2*WS
- loc -35
- bne *1
- loc -18
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- com 4*WS
- loc 119
- bne *1
- loc -69
- bne *1
- loc -35
- bne *1
- loc -18
- bne *1
- OK
- TEST 103: test sli,slu W2S
- MAIN 0
- #ifdef W2S
- ldc 5
- loc 3
- sli W2S
- ldc 40
- cmi W2S
- zne *1
- OK
- ldc -2
- loc 4
- sli W2S
- ldc -32
- cmi W2S
- zne *1
- OK
- ldc 5
- loc 3
- slu W2S
- ldc 40
- cmi W2S
- zne *1
- OK
- ldc -2
- loc 4
- slu W2S
- ldc -32
- cmi W2S
- zne *1
- OK
- #endif
- TEST 104: test sri,sru W2S
- MAIN 0
- #ifdef W2S
- ldc 64
- loc 5
- sri W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -3
- loc 2
- sri W2S
- ldc -1
- cmi W2S
- zne *1
- OK
- ldc -16
- loc 3
- sri W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc 64
- loc 5
- sru W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -3
- loc 2
- sru W2S
- #if W2S == 2
- ldc 16383
- #endif
- #if W2S == 4
- ldc 1073741823
- #endif
- cmi W2S
- zne *1
- OK
- #endif
- TEST 105: common test of double arithmetic
- MAIN 0
- #ifdef W2S
- ldc 1000
- ldc 10
- mli W2S
- ldc 4
- dvi W2S
- ldc 1500
- adi W2S
- ldc 2856
- sbi W2S
- ldc 100
- rmi W2S
- ldc 44
- cmi W2S
- zne *1
- OK
- #endif
- TEST 106: test cmi W2S
- MAIN 0
- #if W2S==2
- ldc 64
- ldc 4
- mli W2S
- ldc 63
- ldc 4
- mli W2S
- cmi W2S
- tge
- loc 1
- bne *1
- OK
- #endif
- #if W2S==4
- ldc 16384
- ldc 4
- mli W2S
- ldc 16383
- ldc 4
- mli W2S
- cmi W2S
- tge
- loc 1
- bne *1
- OK
- #endif
- TEST 107: test cii W2S -> WS
- MAIN 0
- #ifdef W2S
- ldc 100
- loc W2S
- loc WS
- cii
- loc 100
- bne *1
- OK
- ldc 5000
- ldc -6
- mli W2S
- ldc 1000
- dvi W2S
- loc W2S
- loc WS
- cii
- loc -30
- bne *1
- OK
- #endif
- TEST 108: test cif, cfi, adf FS
- MAIN 0
- #ifdef FS
- loc 100
- loc WS
- loc FS
- cif
- loc 44
- loc WS
- loc FS
- cif
- adf FS
- loc FS
- loc WS
- cfi
- loc 144
- bne *1
- OK
- loc 65
- loc WS
- loc FS
- cif
- loc -65
- loc WS
- loc FS
- cif
- adf FS
- loc FS
- loc WS
- cfi
- loc 0
- bne *1
- OK
- #endif
- TEST 109: test cdf, cfd
- MAIN 0
- #ifdef FS
- #ifdef W2S
- loc 55
- loc WS
- loc W2S
- cii
- loc W2S
- loc FS
- cif
- loc 55
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- loc 24
- loc WS
- loc FS
- cif
- loc FS
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc FS
- cif
- loc FS
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 57
- bne *1
- OK
- loc 40
- loc WS
- loc W2S
- cii
- loc W2S
- loc FS
- cif
- loc FS
- loc WS
- cfi
- loc 40
- bne *1
- OK
- #endif
- #endif
- TEST 110: test sbf FS
- MAIN 0
- #ifdef FS
- loc 100
- loc WS
- loc FS
- cif
- loc 50
- loc WS
- loc FS
- cif
- sbf FS
- loc FS
- loc WS
- cfi
- loc 50
- bne *1
- OK
- loc 32
- loc WS
- loc FS
- cif
- loc 101
- loc WS
- loc FS
- cif
- sbf FS
- loc -69
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- #endif
- TEST 111: test mlf FS
- MAIN 0
- #ifdef FS
- loc 4
- loc WS
- loc FS
- cif
- loc 20
- loc WS
- loc FS
- cif
- mlf FS
- loc FS
- loc WS
- cfi
- loc 80
- bne *1
- OK
- loc -12
- loc WS
- loc FS
- cif
- loc -9
- loc WS
- loc FS
- cif
- mlf FS
- loc FS
- loc WS
- cfi
- loc 108
- bne *1
- OK
- #endif
- TEST 112: test dvf FS
- MAIN 0
- #ifdef FS
- loc 45
- loc WS
- loc FS
- cif
- loc 9
- loc WS
- loc FS
- cif
- dvf FS
- loc 5
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- loc -60
- loc WS
- loc FS
- cif
- loc 7
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc -8
- bne *1
- OK
- #endif
- TEST 113: test fractions using FS floating arithmetic
- MAIN 0
- #ifdef FS
- loc 7
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc 3
- bne *1
- OK
- loc -7
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc -3
- bne *1
- OK
- loc 11
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc 5
- loc WS
- loc FS
- cif
- mlf FS
- loc 4
- loc WS
- loc FS
- cif
- mlf FS
- loc 110
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- #endif
- TEST 114: test cif, cfi, adf F2S
- MAIN 0
- #ifdef F2S
- loc 10
- loc WS
- loc F2S
- cif
- loc 44
- loc WS
- loc F2S
- cif
- adf F2S
- loc F2S
- loc WS
- cfi
- loc 54
- bne *1
- OK
- loc 65
- loc WS
- loc F2S
- cif
- loc -65
- loc WS
- loc F2S
- cif
- adf F2S
- loc F2S
- loc WS
- cfi
- loc 0
- bne *1
- OK
- #endif
- TEST 115: test cif, cfi W2S F2S
- MAIN 0
- #ifdef F2S
- #ifdef W2S
- loc 55
- loc WS
- loc W2S
- cii
- loc W2S
- loc F2S
- cif
- loc 55
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- loc 24
- loc WS
- loc F2S
- cif
- loc F2S
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc F2S
- cif
- loc F2S
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 57
- bne *1
- OK
- loc 41
- loc WS
- loc W2S
- cii
- loc W2S
- loc F2S
- cif
- loc F2S
- loc WS
- cfi
- loc 41
- bne *1
- OK
- #endif
- #endif
- TEST 116: test sbf F2S
- MAIN 0
- #ifdef F2S
- loc 100
- loc WS
- loc F2S
- cif
- loc 50
- loc WS
- loc F2S
- cif
- sbf F2S
- loc F2S
- loc WS
- cfi
- loc 50
- bne *1
- OK
- loc 32
- loc WS
- loc F2S
- cif
- loc 101
- loc WS
- loc F2S
- cif
- sbf F2S
- loc -69
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- #endif
- TEST 117: test fmu F2S
- MAIN 0
- #ifdef F2S
- loc 4
- loc WS
- loc F2S
- cif
- loc 20
- loc WS
- loc F2S
- cif
- mlf F2S
- loc F2S
- loc WS
- cfi
- loc 80
- bne *1
- OK
- loc -20
- loc WS
- loc F2S
- cif
- loc -6
- loc WS
- loc F2S
- cif
- mlf F2S
- loc F2S
- loc WS
- cfi
- loc 120
- bne *1
- OK
- #endif
- TEST 118: test dvf F2S
- MAIN 0
- #ifdef F2S
- loc 45
- loc WS
- loc F2S
- cif
- loc 9
- loc WS
- loc F2S
- cif
- dvf F2S
- loc 5
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- loc -60
- loc WS
- loc F2S
- cif
- loc 7
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc -8
- bne *1
- OK
- #endif
- TEST 119: test fractions using F2S floating arithmetic
- MAIN 0
- #ifdef F2S
- loc 7
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc 3
- bne *1
- OK
- loc -7
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc -3
- bne *1
- OK
- loc 11
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc 5
- loc WS
- loc F2S
- cif
- mlf F2S
- loc 4
- loc WS
- loc F2S
- cif
- mlf F2S
- loc 110
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- #endif
- TEST 120: test cal
- HOL 8
- MAIN 0
- loc 0
- ste 4
- cal $p120
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p120,0
- loc 34
- ste 4
- ret 0
- end
- TEST 121: test cal
- MAIN 0
- cal $p121
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p121,0
- loc 7
- ret WS
- end
- TEST 122: test cal
- MAIN 0
- loc 7
- cal $p122
- asp WS
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p122,0
- lol 0
- ret WS
- end
- TEST 123: test cal
- MAIN 4
- loc 7
- stl -4
- lor 0
- cal $p123
- asp PS
- lfr WS
- loc 7
- bne *1
- OK
- lxl 0
- cal $p123
- asp PS
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p123,0
- lxl 1
- lof -4
- ret WS
- end
- TEST 124: test cal
- MAIN 0
- loc 7
- cal $p124
- asp WS
- PROC
- pro $p124,0
- lol 0
- loc 7
- bne *1
- OK
- ret 0
- ERRLAB
- end
- TEST 125: test cal
- MAIN 4
- loc 10
- stl -WS
- loc 90
- lxl 0
- cal $p1125
- asp PS+WS
- OK
- PROC
- pro $p1125,WS
- lol PS
- loc 90
- bne *1
- OK
- loc 11
- stl -WS
- loc 21
- loc 91
- lxl 0
- cal $p2125
- asp PS+WS
- lfr WS
- OK
- loc 82
- bne *1
- OK
- loc 21
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p2125,0
- lol PS
- loc 91
- bne *1
- OK
- loc 12
- loc 92
- lxl 0
- cal $p3125
- asp PS+WS
- lfr WS+WS
- OK
- loc 86
- bne *1
- loc 83
- bne *1
- OK
- loc 12
- bne *1
- OK
- lal PS
- loi WS
- loc 91
- bne *1
- OK
- loc 82
- ret WS
- ERRLAB
- end
- pro $p3125,WS
- lol PS
- loc 92
- bne *1
- OK
- loc 13
- stl -WS
- lxa 0
- adp PS
- loi WS
- loc 92
- bne *1
- OK
- lxa 1
- adp PS
- loi WS
- loc 91
- bne *1
- OK
- lxa 2
- adp PS
- loi WS
- loc 90
- bne *1
- OK
- lxl 2
- lof -WS
- loc 11
- bne *1
- OK
- lxl 3
- adp -WS
- loi WS
- loc 10
- bne *1
- OK
- loc 83
- lxl 1
- cal $p4125
- asp PS
- lxl 2
- cal $p5125
- asp PS
- lxl 3
- cal $p6125
- asp PS
- lfr WS
- ret WS+WS
- ERRLAB
- end
- pro $p4125,0
- lxa 1
- adp PS
- loi WS
- loc 91
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p5125,0
- lxa 1
- adp PS
- loi WS
- loc 90
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p6125,0
- lxl 1
- adp -WS
- loi WS
- loc 10
- bne *1
- OK
- loc 86
- ret WS
- ERRLAB
- end
- TEST 126: test bra
- MAIN 0
- bra *0126
- bra *1
- 9126
- bra *8126
- 0126
- bra *6126
- bra *1
- 1126
- bra *5126
- bra *1
- 2126
- bra *4126
- bra *1
- 3126
- bra *7126
- bra *1
- 4126
- bra *3126
- bra *1
- 5126
- bra *2126
- bra *1
- 6126
- bra *1126
- bra *1
- 7126
- bra *9126
- bra *1
- 8126
- OK
- TEST 127: test ret and lfr
- a127
- bss 4,0,0
- MAIN 0
- ; return nothing
- loc 123
- cal $retw0
- loc 123
- bne *1
- OK
- ; return single word
- cal $retw1
- lfr WS
- loc 45
- bne *1
- OK
- ; return single pointer
- cal $retp1
- lfr PS
- lae a127
- cmp
- zne *1
- OK
- ; return procedure instance identifier (two pointers)
- ; this value may not be disturbed by ASP
- lxl 0
- cal $retp2
- asp PS
- lfr 2*PS
- lpi $retp2
- cmp
- zne *1
- lxl 0
- cmp
- zne *1
- OK
- PROC
- pro $retw0,0
- ret 0
- end
- pro $retw1,0
- loc 45
- ret WS
- end
- pro $retp1,0
- lae a127
- ret PS
- end
- pro $retp2,0
- lxl 1
- lpi $retp2
- ret 2*PS
- end
- TEST 128: test adu WS
- MAIN 0
- loc 1
- loc 1
- adu WS
- loc 2
- bne *1
- OK
- #if WS >= 2
- loc 32767
- loc +999
- adu WS
- loc 33766
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 2147483640
- loc 1111111111
- adu WS
- loc 3258594751
- bne *1
- OK
- #endif
- TEST 129: test sbu WS
- MAIN 0
- loc 1
- loc 1
- sbu WS
- loc 0
- bne *1
- OK
- #if WS >= 2
- loc 32767
- loc -100
- sbu WS
- loc 32867
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 2147483647
- loc -100
- sbu WS
- loc 2147483747
- bne *1
- OK
- #endif
- TEST 130: test mlu WS
- MAIN 0
- loc 5
- loc 9
- mlu WS
- loc 45
- bne *1
- OK
- loc 0
- loc 10
- mlu WS
- loc 0
- bne *1
- OK
- #if WS > 1
- loc 1024
- loc 63
- mlu WS
- loc 64512
- bne *1
- OK
- #endif
- #if WS > 2
- loc 65536
- loc 32768
- mlu WS
- loc 2147483648
- bne *1
- OK
- #endif
- TEST 131: test dvu WS
- MAIN 0
- loc 15
- loc 5
- dvu WS
- loc 3
- bne *1
- OK
- #if WS >= 2
- loc 65530
- loc 100
- dvu WS
- loc 655
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 2447684712
- loc 100
- dvu WS
- loc 24476847
- bne *1
- OK
- #endif
- TEST 132: test rmu WS
- MAIN 0
- loc 15
- loc 5
- rmu WS
- loc 0
- bne *1
- OK
- #if WS >= 2
- loc 65530
- loc 100
- rmu WS
- loc 30
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 2447684712
- loc 100
- rmu WS
- loc 12
- bne *1
- OK
- #endif
- TEST 133: test adu W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- adu W2S
- ldc 2
- cmu W2S
- zne *1
- OK
- ldc 32767
- ldc +999
- adu W2S
- ldc 33766
- cmu W2S
- zne *1
- OK
- #if WS >= 2
- ldc 2147483640
- ldc 1111111111
- adu W2S
- ldc 3258594751
- cmu W2S
- zne *1
- OK
- #endif
- #endif
- TEST 134: test sbu W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- sbu W2S
- ldc 0
- cmu W2S
- zne *1
- OK
- ldc 32767
- ldc -100
- sbu W2S
- ldc 32867
- cmu W2S
- zne *1
- OK
- #if WS >= 2
- ldc 2147483647
- ldc -100
- sbu W2S
- ldc 2147483747
- cmu W2S
- zne *1
- OK
- #endif
- #endif
- TEST 135: test mlu W2S
- MAIN 0
- #ifdef W2S
- ldc 5
- ldc 9
- mlu W2S
- ldc 45
- cmu W2S
- zne *1
- OK
- ldc 0
- ldc 10
- mlu W2S
- ldc 0
- cmu W2S
- zne *1
- OK
- #if WS > 1
- ldc 1024
- ldc 63
- mlu W2S
- ldc 64512
- cmu W2S
- zne *1
- OK
- #endif
- #if WS >= 2
- ldc 65536
- ldc 32768
- mlu W2S
- ldc 2147483648
- cmu W2S
- zne *1
- OK
- #endif
- #endif
- TEST 136: test dvu W2S
- MAIN 0
- #ifdef W2S
- ldc 15
- ldc 5
- dvu W2S
- ldc 3
- cmu W2S
- zne *1
- OK
- ldc 65530
- ldc 100
- dvu W2S
- ldc 655
- cmu W2S
- zne *1
- OK
- #if WS >= 2
- ldc 2447684712
- ldc 100
- dvu W2S
- ldc 24476847
- cmu W2S
- zne *1
- OK
- #endif
- #endif
- TEST 137: test rmu W2S
- MAIN 0
- #ifdef W2S
- ldc 15
- ldc 5
- rmu W2S
- ldc 0
- cmu W2S
- zne *1
- OK
- #if WS >= 2
- ldc 65530
- ldc 100
- rmu W2S
- ldc 30
- cmu W2S
- zne *1
- OK
- #endif
- #if WS >= 4
- ldc 2447684712
- ldc 100
- rmu W2S
- ldc 12
- cmu W2S
- zne *1
- OK
- #endif
- #endif
- TEST 138: test cuu
- MAIN 0
- #ifdef W2S
- loc 100
- loc WS
- loc W2S
- cuu
- ldc 100
- cmu W2S
- zne *1
- OK
- ldc 100
- loc W2S
- loc WS
- cuu
- loc 100
- bne *1
- OK
- #if WS >= 2
- loc 32768
- loc WS
- loc W2S
- cuu
- ldc 32768
- cmu W2S
- zne *1
- OK
- ldc 32768
- loc W2S
- loc WS
- cuu
- loc 32768
- bne *1
- OK
- #endif
- #endif
- TEST 139: test gto, dch, lpb
- MAIN 0
- .1139
- rom *1139
- lae .1139
- loi PS
- lxa 0
- lxl 0
- cal $p139_1
- 1139
- asp 3*PS
- OK
- PROC
- pro $p139_1,0
- lal 0
- loi PS
- lxl 0
- dch
- cmp
- zne *1
- OK
- lal PS
- loi PS
- lal 0
- loi PS
- lpb
- cmp
- zne *1
- OK
- lal 2*PS
- loi PS
- lal PS
- loi PS
- lal 0
- loi PS
- cal $p139_2
- asp 3*PS
- ret 0
- ERRLAB
- end 0
- pro $p139_2,0
- lal 0
- loi PS
- lxl 0
- dch
- dch
- cmp
- zne *1
- OK
- lal PS
- loi PS
- lal 0
- loi PS
- lpb
- cmp
- zne *1
- OK
- ; now create GTO descriptor
- lal 0
- loi PS ; LB
- lxl 0
- dch
- lpb ; SP
- lal 2*PS
- loi PS ; PC
- .2139
- bss 3*PS,0,0
- lae .2139
- sti 3*PS
- gto .2139
- ERRLAB
- end 0
- TEST 140: test exg
- MAIN 0
- loc 0
- loc 1
- exg WS
- loc 0
- bne *1
- loc 1
- bne *1
- OK
- loc 0
- loc 1
- loc 2
- loc 3
- exg 2*WS
- loc 1
- bne *1
- loc 0
- bne *1
- loc 3
- bne *1
- loc 2
- bne *1
- OK
- zer 4*WS
- loc 1
- loc 1
- dup 2*WS
- exg 4*WS
- zer 4*WS
- cms 4*WS
- zne *1
- loc 1
- loc 1
- dup 2*WS
- cms 4*WS
- zne *1
- OK
- TEST 141: test lim,sim,sig,trp,rtt
- MAIN 0
- a140
- con 0
- lim
- dup WS
- loc 9
- set WS
- ior WS
- dup WS
- sim
- lim
- bne *1
- OK
- lpi $p1_141
- sig
- loc 9
- trp
- sig
- asp PS
- OK
- sim
- lpi $p2_141
- sig
- loc 9
- trp
- sig
- asp PS
- loe a140
- zeq *1
- OK
- PROC
- pro $p1_141,0
- bra *1
- ERRLAB
- end
- pro $p2_141,0
- loc 1
- ste a140
- rtt
- end
- TEST 142: test ciu, cui
- MAIN 0
- loc 100
- loc WS
- loc WS
- ciu
- loc 100
- bne *1
- loc -1
- loc WS
- loc WS
- ciu
- ; should not cause a trap
- asp WS
- OK
- #ifdef W2S
- loc 100
- loc WS
- loc W2S
- ciu
- ldc 100
- cmu W2S
- zne *1
- ldc 100
- loc W2S
- loc WS
- ciu
- loc 100
- bne *1
- ldc 100
- loc W2S
- loc W2S
- ciu
- ldc 100
- cmu W2S
- zne *1
- OK
- #endif
- loc 100
- loc WS
- loc WS
- cui
- loc 100
- bne *1
- OK
- #ifdef W2S
- loc 100
- loc WS
- loc W2S
- cui
- ldc 100
- cmi W2S
- zne *1
- ldc 100
- loc W2S
- loc WS
- cui
- loc 100
- bne *1
- ldc 100
- loc W2S
- loc W2S
- cui
- ldc 100
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- loc 32768
- loc WS
- loc W2S
- cui
- ldc 32768
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 143: test zrf
- MAIN 0
- #ifdef FS
- loc 0
- loc WS
- loc FS
- cif
- zrf FS
- cmf FS
- zne *1
- OK
- #endif
- #ifdef F2S
- loc 0
- loc WS
- loc F2S
- cif
- zrf F2S
- cmf F2S
- zne *1
- OK
- #endif
- TEST 144: test ngf
- MAIN 0
- #ifdef FS
- zrf FS
- loc 100
- loc WS
- loc FS
- cif
- sbf FS
- loc 100
- loc WS
- loc FS
- cif
- ngf FS
- cmf FS
- zne *1
- OK
- #endif
- #ifdef F2S
- zrf F2S
- loc 100
- loc WS
- loc F2S
- cif
- sbf F2S
- loc 100
- loc WS
- loc F2S
- cif
- ngf F2S
- cmf F2S
- zne *1
- OK
- #endif
- TEST 145: test cuf, cfu WS,FS
- MAIN 0
- #ifdef FS
- loc 100
- loc WS
- loc FS
- cuf
- loc FS
- loc WS
- cfu
- loc 100
- bne *1
- OK
- loc 0
- loc WS
- loc FS
- cuf
- loc FS
- loc WS
- cfu
- loc 0
- bne *1
- OK
- #endif
- TEST 146: test cuf, cfu W2S,FS
- MAIN 0
- #ifdef FS
- #ifdef W2S
- loc 55
- loc WS
- loc W2S
- cuu
- loc W2S
- loc FS
- cuf
- loc 55
- loc WS
- loc FS
- cuf
- cmf FS
- zne *1
- OK
- loc 24
- loc WS
- loc FS
- cuf
- loc FS
- loc W2S
- cfu
- loc W2S
- loc WS
- cuu
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc FS
- cuf
- loc FS
- loc W2S
- cfu
- loc W2S
- loc WS
- cuu
- loc 57
- bne *1
- OK
- loc 40
- loc WS
- loc W2S
- cuu
- loc W2S
- loc FS
- cuf
- loc FS
- loc WS
- cfu
- loc 40
- bne *1
- OK
- #endif
- #endif
- TEST 147: test cuf, cfu WS,F2S
- MAIN 0
- #ifdef F2S
- loc 10
- loc WS
- loc F2S
- cuf
- loc F2S
- loc WS
- cfu
- loc 10
- bne *1
- OK
- loc 0
- loc WS
- loc F2S
- cuf
- loc F2S
- loc WS
- cfu
- loc 0
- bne *1
- OK
- #endif
- TEST 148: test cuf, cfu W2S F2S
- MAIN 0
- #ifdef F2S
- #ifdef W2S
- ldc 55
- loc W2S
- loc F2S
- cuf
- loc 55
- loc WS
- loc F2S
- cuf
- cmf F2S
- zne *1
- OK
- loc 24
- loc WS
- loc F2S
- cuf
- loc F2S
- loc W2S
- cfu
- loc W2S
- loc WS
- cuu
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc F2S
- cuf
- loc F2S
- loc W2S
- cfu
- loc W2S
- loc WS
- cuu
- loc 57
- bne *1
- OK
- ldc 41
- loc W2S
- loc F2S
- cuf
- loc F2S
- loc WS
- cfu
- loc 41
- bne *1
- OK
- #endif
- #endif
- TEST 149: test cff
- MAIN 0
- #ifdef FS
- #ifdef F2S
- loc 0
- loc WS
- loc FS
- cif
- loc FS
- loc F2S
- cff
- dup F2S
- zrf F2S
- cmf F2S
- zne *1
- loc F2S
- loc FS
- cff
- zrf FS
- cmf FS
- zne *1
- OK
- loc 100
- loc WS
- loc FS
- cif
- loc FS
- loc F2S
- cff
- loc 100
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- loc 100
- loc WS
- loc F2S
- cif
- loc F2S
- loc FS
- cff
- loc 100
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- #endif
- #endif
- TEST 150: test fif
- MAIN 0
- #ifdef FS
- loc 50
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- fif FS
- loc 100
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- zrf FS
- cmf FS
- zne *1
- OK
- #endif
- #ifdef F2S
- loc 50
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- fif F2S
- loc 100
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- zrf F2S
- cmf F2S
- zne *1
- OK
- #endif
- TEST 151; test fef (needs more work)
- MAIN 0
- #ifdef FS
- loc 10
- loc WS
- loc FS
- cif
- fef FS
- loc 4
- bne *1
- asp FS
- OK
- #endif
- #ifdef F2S
- loc 10
- loc WS
- loc F2S
- cif
- fef F2S
- loc 4
- bne *1
- asp F2S
- OK
- #endif
|